Compaq COBOL AAQ2G1FTK User Manual
Page 482
Using Compaq COBOL in the Alpha Common Language Environment
13.6 Examples (OpenVMS)
Example 13–3 Using the SYS$SETDDIR System Service (OpenVMS)
01 DIRECTORY
PIC X(24) VALUE
"[MYACCOUNT.SUBDIRECTORY]".
01 STAT PIC S9(9) COMP.
.
.
.
CALL "SYS$SETDDIR" USING BY DESCRIPTOR DIRECTORY
OMITTED
OMITTED
GIVING STAT.
Example 13–4 Using $ASCTIM (OpenVMS)
IDENTIFICATION DIVISION.
PROGRAM-ID.
CALLTIME.
****************************************************
*
This program calls the system service routine
*
*
$ASCTIM which converts binary time to an ASCII
*
*
string representation.
*
****************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01
TIMLEN
PIC 9999
COMP VALUE 0.
01
D-TIMLEN
PIC 9999
VALUE 0.
01
TIMBUF
PIC X(24) VALUE SPACES.
01
RETURN-VALUE
PIC S9(9) COMP VALUE 999999999.
PROCEDURE DIVISION.
000-GET-TIME.
DISPLAY "CALL SYS$ASCTIM".
CALL "SYS$ASCTIM" USING BY REFERENCE TIMLEN
BY DESCRIPTOR TIMBUF
OMITTED
GIVING RETURN-VALUE.
IF RETURN-VALUE IS SUCCESS
THEN
DISPLAY "DATE/TIME " TIMBUF
MOVE TIMLEN TO D-TIMLEN
DISPLAY "LENGTH OF RETURNED = " D-TIMLEN
ELSE
DISPLAY "ERROR".
STOP RUN.
Example 13–5 shows output from a sample run of the CALLTIME program.
13–20 Using Compaq COBOL in the Alpha Common Language Environment