Hi All :)
Hey... one of our team asked a question... and I thot I would give him
the benefit of all of our experiences on here (spelling doesn't count!)
Looking for Coding/Programming Standards/SOP's... ie Documents that
tell how you should do your programming... documentation methods,
compilation guidelines and most of all how the code should be done (other
than "it runs - therefore it must be right" hehehe)
The standards we come up with here will be used to guide a major
development project here so the code is maintainable/usable and most of
all.... working :)
Thanks,
Art "helping a friend :) " Bahrs
=======================================================
Art Bahrs, CISSP Information Security The Regence Group
(503) 225-4992 FAX (503) 220-3806
"Mike Hornsby"
<MikeH@BEECHGL
EN.COM> To
Sent by: [log in to unmask]
"HP-3000 cc
Systems
Discussion" Subject
<HP3000-L@RAVE Re: [HP3000-L] AIFCHANGELOGON
N.UTC.EDU>
08/18/2006
07:59 AM
Please respond
to
"Mike Hornsby"
<MikeH@BEECHGL
EN.COM>
|------------|
| [ ] Secure |
| E-mail |
|------------|
Seteve Cooper wrote:
>>There are few people on the planet who know HP's COBOL better than
Walter Murray
Seconded, with many thanks to Walter! It could be simply stated that the
reliability, compatibility,
versatility, and many other attributes of COBOL on the HP3000 are one of
the central reasons for the
long term success of the platform.
Below is a slightly modified, tested version of Walter's AIF-TEST
calling AIFCHANGELOGON.
TGIF,
Michael Hornsby
CTO
Beechglen Development Inc.
(513) 922-0509x31
IDENTIFICATION DIVISION.
PROGRAM-ID. AIF-TEST.
AUTHOR. WALTER J. MURRAY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 OVERALL-ARRAY.
05 OS-1 PIC S9(4) COMP.
05 OS-2 PIC S9(4) COMP.
01 LOGON-CMD.
02 FILLER PIC X(16) VALUE "TGIF,MANAGER.SYS".
02 FILLER PIC X(1) VALUE %0.
PROCEDURE DIVISION.
100-MAIN.
CALL "\GETPRIVMODE".
CALL "\AIFCHANGELOGON" USING
\2\
OVERALL-ARRAY
LOGON-CMD.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
***IMPORTANT NOTICE: This communication, including any attachment, contains information that may be confidential or privileged, and is intended solely for the entity or individual to whom it is addressed. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this message is strictly prohibited. Nothing in this email, including any attachment, is intended to be a legally binding signature.***
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
