I usually display starting time and ending time to SYSOUX cutting and
pasting from the following (depending on whether I will want a saved
time):
DISPLAY ' STARTED SIPR726' ' '
FUNCTION CURRENT-DATE (05:2) '/' FUNCTION
CURRENT-DATE (07:2) '/' FUNCTION
CURRENT-DATE (01:4) ' ' FUNCTION
CURRENT-DATE (09:2) hour
':' FUNCTION CURRENT-DATE (11:2)
':' FUNCTION CURRENT-DATE (13:2) D ' IN DEBUG MODE' *****
Started SIPR716 01/23/2001 13:18:52
. DISPLAY ' STARTING ' SYSTEM-CYEAR
'/' SYSTEM-MONTH '/' SYSTEM-DAY
' ' SYSTEM-TIME-HH ':' SYSTEM-TIME-MM
':' SYSTEM-TIME-SS. STRING FUNCTION CURRENT-DATE (05:2)
'/' FUNCTION CURRENT-DATE (07:2) '/' FUNCTION CURRENT-DATE
(01:4) DELIMITED BY SIZE INTO HEADING-DATE
END-STRING STRING FUNCTION CURRENT-DATE (09:2)
':' FUNCTION CURRENT-DATE (11:2)
':' FUNCTION CURRENT-DATE (13:2)
DELIMITED BY SIZE INTO HEADING-TIME
END-STRING
DISPLAY ' HJBDEBUG00 ' HEADING-DATE '-' HEADING-TIME.
01 SYSTEM-DATE.
05 SYSTEM-CDATE.
10 SYSTEM-CYEAR.
15 SYSTEM-CEN PIC X(02).
15 SYSTEM-YEAR PIC X(02).
10 SYSTEM-MONTH PIC X(02).
10 SYSTEM-DAY PIC X(02).
05 SYSTEM-CDATE-R REDEFINES SYSTEM-CDATE.
10 FILLER PIC X(02).
10 SYSTEM-YYMMDD.
15 SYSTEM-YY PIC X(02).
15 SYSTEM-MM PIC X(02).
15 SYSTEM-DD PIC X(02).
***** (MASK=HHMMSS:SS)
05 SYSTEM-TIME.
10 SYSTEM-TIME-HH PIC X(02).
d ===> Scroll ===
10 SYSTEM-TIME-MM PIC X(02).
10 SYSTEM-TIME-SS PIC X(02).
10 SYSTEM-TIME-CC PIC X(02).
05 SYSTEM-GMT PIC X(05).
***** SYSTEM-GMT IS HOURS PLUS OR MINUS FROM GREENWICH MEAN TIME
MOVE FUNCTION CURRENT-DATE TO SYSTEM-DATE.
MOVE SYSTEM-CDATE TO SYSTEM-DATE-INTERMEDIATE.
MOVE SYSTEM-MONTH TO S-MM.
MOVE SYSTEM-DAY TO S-DD.
MOVE SYSTEM-YEAR TO S-YY.
UMS.PROD.COPY(DATECHK)
UMS.PROD.COPY(DATECHK1)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
