IBM 5280 Programmer's Manual page 62

m
B
01 WSTATION-CONTROL-AREA.
03 COMMAND-KEY
PIC xC 2).
03 FILLER PIC xC 10) .
01 SWITCHES.
02 STOP-RUN PIC 9 VALUE
02 CONTINUE PIC 9 VALUE
02 INVALID-EMPNO PIC 9 VALUE
02 ACTIVE-RECORD PIC 9 VALUE
02 ERROR-FOUND
PIC 9 VALUE
02 WRONG-FUNC-KEY PIC 9 VALUE
77 TUBE-STAT PIC XX.
77 DISK-STAT PIC XX.
77
RKEY PIC 99999.
PROCEDURE DIVISION.
DECLARATIVES.
DEBUG-SECTION SECTION.
USE FOR DEBUGGING ON READ-MASTER.
DISPLAY "READ-MASTER ENTERED".
DISPLAY "REKEY- " RKEY.
DISPLAY "EMPNO- " EMPNO.
O.
1.
O.
O.
O.
O.
II
IO-ERROR SECTION.
USE AFTER ERROR PROCEDURE ON SCREEN-FILE-PR3.
WORK-STATION.
DISPLAY "ERROR ON WORK STATION I/o".
DISPLAY "FILE STATUS IS " TUBE-STAT.
DISPLAY "RUN STOPPED.".
STOP RUN.
a
DISKETTE-IO-ERROR SECTION.
USE AFTER ERROR PROCEDURE ON EMPMAS-FILE.
DISKETTE.
DISPLAY "ERROR ON DISKETTE I/o".
DISPLAY "FILE STATUS IS " DISK-STAT.
DISPLAY "RUN STOPPED." .
STOP RUN.
END DECLARATIVES.
EXECUTE SECTION.
CHECK-TERMINAL-ROUTINE.
PERFORM OPENS.
III
ACCEPT WSTATION-INFO FROM TERMINAL-INFO.
IF SSIZE NOT EQUAL TO "1"
DISPLAY "YOUR SCREEN IS TOO SMALL."
DISPLAY "THIS PROGRAM REQUIRES 1920-CHARACTERS SCREEN"
DISPLAY "CLOSING DOWN"
MOVE 1 TO STOP-RUN.
MAIN-ROUTINE.
PERFORM WORK-STATION-READS UNTIL STOP-RUN 1.
PERFORM CLOSES.
STOP RUN.
Figure 3.2. Example of transaction I/O statements (Part 2 of 5)
Chapter 3. Transaction I/O - Writing the COBOL Program 3- 9