COBOL Manual for TNS/E Programs (H06.03+)

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-180
READ for Sequential or Dynamic Access
DATA DIVISION.
FILE SECTION.
FD REQUEST
LABEL RECORDS ARE OMITTED.
01 REQUEST-RECORD.
...
WORKING-STORAGE SECTION.
...
01 FILE-STATUSES.
03 REQUEST-FILE-STATUS PICTURE XX.
...
01 WAIT-TIME PICTURE PICTURE 9(5)V99 VALUE 30.
PROCEDURE DIVISION.
DECLARATIVES.
DECL SECTION.
USE AFTER ERROR PROCEDURE ON REQUEST.
DECL-ROUTINE.
IF GUARDIAN-ERR NOT = 40
STOP RUN.
END DECLARATIVES.
MAIN-STUFF SECTION.
MAIN-PROCESSING.
...
OPEN INPUT REQUEST WITH TIME LIMITS
READ REQUEST TIME LIMIT WAIT-TIME
IF REQUEST-FILE-STATUS NOT = "00"
IF GUARDIAN-ERR = 40
PERFORM NO-MESSAGE
END-IF
END-IF
...
Example 9-57. Reading $RECEIVE With Timed Input-Output (page 2 of 2)