Compaq COBOL AAQ2G1FTK User Manual page 87

Example 1–5 (Cont.) Using RMS Special Registers to Detect Errors (OpenVMS)
REPORT SECTION.
RD RPT PAGE 26 LINES HEADING 1 FIRST DETAIL 5.
01 TYPE IS PAGE HEADING.
02 LINE IS PLUS 1.
03 COLUMN 1
03 COLUMN 18
02 LINE IS PLUS 2.
03 COLUMN 2
03 COLUMN 22
03 COLUMN 42
03 COLUMN 70
01 REPORT-LINE
02 LINE IS PLUS 1.
03 COLUMN IS 1 PIC 9(7)
03 COLUMN IS 20 PIC X(15)
03 COLUMN IS 42 PIC X(30)
PROCEDURE DIVISION.
DECLARATIVES.
USE-SECT SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON EMP-FILE.
CHECK-RMS-SPECIAL-REGISTERS.
SET OP-FAILED TO TRUE.
EVALUATE RMS-STS OF EMP-FILE
WHEN (END-OF-FILE)
SET VALID-OP TO TRUE
SET E-O-F TO TRUE
WHEN (BADNAME)
WHEN (FILE-NOT-FOUND)
WHEN (DIR-NOT-FOUND)
WHEN (INV-DEVICE)
DISPLAY
DISPLAY RMS-FILENAME OF EMP-FILE
DISPLAY "Enter corrected file (cntrl-z to STOP RUN): "
ACCEPT VAL-OF-ID AT END STOP RUN END-ACCEPT
WHEN ANY
CONTINUE
WHEN ANY
SET VALID-OP TO TRUE
WHEN OTHER
IF RMS-STV OF EMP-FILE NOT = ZERO
THEN
CALL "LIB$STOP" USING
ELSE
CALL "LIB$STOP" USING
END-IF
END-EVALUATE.
END DECLARATIVES.
MAIN-PROG SECTION.
000-DRIVER.
PERFORM 100-INITIALIZE.
PERFORM WITH TEST AFTER UNTIL E-O-F
GENERATE REPORT-LINE
READ EMP-FILE
END-PERFORM
PERFORM 200-CLEANUP.
STOP RUN.
Developing Compaq COBOL Programs
PIC X(16) VALUE "Employee File on".
PIC Z9/99/99 SOURCE D-DATE.
PIC X(5) VALUE "emp ".
PIC X(4) VALUE "name".
PIC X(7) VALUE "address".
PIC ZZ9 SOURCE PAGE-COUNTER.
TYPE IS DETAIL.
SOURCE EMP-ID.
SOURCE IS EMP-NAME.
SOURCE IS EMP-ADDRESS.
TRUE
OP-READ
OP-OPEN
OP-OPEN
OP-OPEN
OP-OPEN
"File cannot be found or file spec is invalid"
WITH NO ADVANCING
OP-CLOSE
RMS-STS OF EMP-FILE IS SUCCESS
BY VALUE RMS-STS OF EMP-FILE,
BY VALUE RMS-STV OF EMP-FILE
BY VALUE RMS-STS OF EMP-FILE
Developing Compaq COBOL Programs 1–57
1.4 Program Run Messages
(continued on next page)