COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-192
READ for Sequential or Dynamic Access
Example 9-59. Reading $RECEIVE With Timed Input-Output
IDENTIFICATION DIVISION.
...
ENVIRONMENT DIVISION.
...
SELECT REQUEST
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS REQUEST-FILE-STATUS.
...
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
...