IBM 5280 Programmer's Manual page 64

WRITE SCREEN-RECORD
FORMAT IS "EMPRECD"
STARTING AT LINE 6.
READ SCREEN-FILE-PR3 RECORD INTO EMPRECD.
MOVE EMPRECD TO LAST-RECORD-SAVE.
PERFORM SET-SWITCHES.
PERFORM COMMAND-KEY-CHECK.
IF CONTINUE
=
1
PERFORM READ-MASTER.
IF CONTINUE
=
1
PERFORM UPDATE-MASTER.
READ-MASTER.
MOVE EMPNO TO RKEY.
SUBTRACT 1000 FROM RKEY GIVING RKEY.
READ EMPMAS-FILE
INVALID KEY
MOVE 0 TO CONTINUE
MOVE 1 TO ERROR-FOUND, INVALID-EMPNO.
IF CONTINUE = 1
IF ACREC NOT EQUAL TO "F"
MOVE 1 TO ACTIVE-RECORD, ERROR-FOUND
MOVE 0 TO CONTINUE
ELSE MOVE "A" TO ACREC.
UPDATE-MASTER.
MOVE SCREEN-RECORD TO EMPRECD.
REWRITE EMPRECD
INVALID KEY
HI
OPENS.
MOVE 1 TO INVALID-EMPNO
MOVE 0 TO CONTINUE.
OPEN
1-0
SCREEN-FILE-PR3
EMPMAS-FILE.
CLOSES.
CLOSE EMPMAS-FILE
SCREEN-FILE-PR3.
fa
COMMAND-KEY-CHECK.
IF COMMAND-KEY = "00"
MOVE 1 TO CONTINUE
ELSE IF COMMAND-KEY
=
"02"
MOVE 1 TO STOP-RUN
MOVE 0 TO CONTINUE
ELSE MOVE 1 TO WRONG-FUNC-KEY
MOVE 1 TO ERROR-FOUND
MOVE 0 TO CONTINUE.
SET-SWITCHES.
MOVE 0 TO ACTIVE-RECORD, INVALID-EMPNO,
WRONG-FUNC-KEY, STOP-RUN, ERROR-FOUND.
MOVE TO CONTINUE.
Figure 3.2. Example of transaction I/O statements (Part 4 of 5)
Chapter 3. Transaction I/O - Writing the COBOL Program 3- 11