IBM 5280 Programmer's Manual page 69

01A
02A
03A
51
04A
05A
OGA 52
07A
OSA
9A 53
10A
11A
12A
o
1A
02A
02A
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.
UPDATE-MASTER.
MOVE SCREEN-RECORD TO EMPRECD.
REWRITE EMPRECD
INVALID KEY
MOVE 1 TO INVALID-EMPNO
MOVE 0 TO CONTINUE.
OPENS.
OPEN I-O SCREEN-FILE-PR3
EMPMAS-FILE.
CLOSES.
CLOSE EMPMAS-FILE
SCREEN-FILE-PR3.
SET-SWITCHES.
R EMPRECD
ENAME
STRAD
CTYST
EMPNO
R ERRMSG1
MOVE 0 TO INVALID-EMPNO,
STOP-RUN, ERROR-FOUND.
MOVE TO CONTINUE.
DDS SOURCE LISTING
B DSPATR(CS UL)
20X 01 11CHECK(DR RB)
CHECK(BY)
II
0
'EMPLOYEE NAME' DSPATR(CA)
20A
02 11CHECK(DR RB)
CHECK(BY)
m
0
'STREET ADDRESS' DSPATR(CA)
20X 03 11CHECK(DR RB)
CHECK( BY)
iii
0
'CITY, STATE' DSPATR(CA)
5D
04 11CHECK(DR RZ)
0
'EMPLOYEE NUMBER' DSPATR(CA)
B DSPATR(RI HI BL)
0
01 02 'EMPLOYEE NUMBER INCORRECT. MUST BE-
MORE THAN 1000 OR LESS THAN 2000.
,
Figure 3.3. Example of indicators and conditional bypass (Part 3 of 3)
3- 16 IBM 5280 COBOL Programmer's Guide