CROSSREF Manual

COBOL 74
Sample Listing
64 05 NUMERIC-CPU REDEFINES ALPHA-CPU
65 PIC S9999 COMP.
66 05 ALPHA-PIN.
67 10 PIN-HIGH-BYTE PIC X.
68 10 PIN-LOW-BYTE PIC X.
69 05 NUMERIC-PIN REDEFINES ALPHA-PIN
70 PIC S9999 COMP.
72 01 FILE-DATA.
73 05 RECEIVE-FILE-STATUS.
74 10 STAT-1 PIC 9.
75 88 CLOSE-FROM-REQUESTER VALUE 1 THRU 3.
76 10 STAT-2 PIC 9.
77 01 SAVE-MESSAGE-STUFF.
78 05 FUP PIC X(21)
79 VALUE "$SYSTEM.SYSTEM.FUP".
80 05 FUP-NAME PIC X(5)
81 VALUE SPACES.
82 05 SEND-ALL-MSGS PIC S9(4)
83 VALUE ZERO COMP.
84 05 PRIORITY-EQ-MINE PIC S9(4)
85 VALUE 0 COMP.
86 05 PROCESSOR-EQ-MINE PIC S9(4)
87 VALUE -1 COMP.
88 05 MEMORY-AS-USUAL PIC S9(4)
89 VALUE ZERO COMP.
90 05 SU-ERROR PIC S9(4)
91 VALUE ZERO COMP.
92 05 NEWPROCESS-ERR-LEFT PIC 9(4).
93 05 NEWPROCESS-ERR-RIGHT PIC 9(4).
94 05 FUP-FAILED PIC X(19)
95 VALUE "Failed to start FUP".
96 05 STRING-PORTION PIC X(7)
97 VALUE "STRING".
98 05 INFO-COMMAND PIC X(7)
99 VALUE "INFO *".
100 05 STARTUP-RESULT PIC S9(4)
101 VALUE ZERO COMP.
102 05 NULL-CPLIST PIC S9(9)
103 VALUE ZERO COMP.
104
106 PROCEDURE DIVISION.
107 DECLARATIVES.
108 HANDLE-INFILE-ERRORS SECTION.
109 USE AFTER STANDARD ERROR PROCEDURE ON MESSAGE-IN-FILE.
110 INFILE-ERROR.
111 IF STAT-1 = 1
112 DISPLAY "EOF on $RECEIVE"
113 ELSE
114 DISPLAY "RECEIVE FILE ERROR STATUS = "
115 RECEIVE-FILE-STATUS
116 .
117 END DECLARATIVES.
119
120 AA SECTION.
121 AA-1.
122 OPEN INPUT MESSAGE-IN-FILE.
Figure 6-1. COBOL 74 Sample Program (Page 2 of 4)
6-6