Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–6 099331 Tandem Computers Incorporated
147 05 W3-DA PIC 99.
148 01 W4-DATE PIC 9(8) COMP.
149 01 W4-DATEX REDEFINES W4-DATE PIC X(4).
150 01 W5-WORK5.
151 05 W5-WORK5A PIC X.
152 05 W5-WORK5B PIC 9(5).
153 01 W5-WORK10.
154 05 W5-WORK10A PIC X.
155 05 W5-WORK10B PIC 9(10).
156 01 W5-TEXT.
157 05 W5-TEXT1 PIC X OCCURS 12 TIMES.
158 01 W5-NUM18.
159 05 W5-NUM18A PIC X OCCURS 18 TIMES.
160 01 W5-NUM18X REDEFINES W5-NUM18.
161 05 FILLER PIC X(14).
162 05 W5-NUM2V2 PIC 99V99.
163 01 W5-COMP2V2X.
164 05 W5-COMP2V2 PIC 99V99 COMP.
165 01 W5-WORK20.
166 05 W5-WORK20A PIC X.
167 05 W5-WORK20B PIC X OCCURS 19 TIMES.
168 *COPY U-WS OF USERLIB.
168 <
169 *
170 PROCEDURE DIVISION.
171 *
172 MAIN-CTL.
173 MOVE WK-STOR TO SAVE-WK-STOR.
174 PERFORM PROG-BANNER.
175 PERFORM TIME-START THRU TIME-START-EXIT.
176 PERFORM RUN-OPTIONS THRU RUN-OPTIONS-EXIT.
177 *
178 * COPY U-PRE-PROCESS OF USERLIB.
178 <
179 PERFORM PROC-DEMO01 THRU PROC-DEMO01-EXIT.
180 PERFORM PROC-DEMO02 THRU PROC-DEMO02-EXIT.
181 PERFORM PROC-DEMO03 THRU PROC-DEMO03-EXIT.
182 * COPY U-POST-PROCESS OF USERLIB.
182 <
183 *
184 END-JOB.
185 PERFORM TIME-STOP THRU TIME-STOP-EXIT.
186 STOP RUN.
187 *
188 PROC-DEMO01.
189 MOVE SAVE-WK-STOR TO WK-STOR.
190 MOVE "DEMO01" TO WK-FNAME.
191 MOVE "=DATAIN01" TO WK-DEFINE.
192 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
193 IF ERR NOT = ZERO
194 DISPLAY "RUN: FILE NOT FOUND - =DATAIN01 - Proceeding..."
195 DISPLAY "RUN: FILE NOT FOUND - =DATAIN01 - Proceeding..." UPON LOG
196 GO TO PROC-DEMO01-EXIT.
197 MOVE "=DATAOT01" TO WK-DEFINE.
198 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
199 IF ERR NOT = ZERO