Data Build Manual

Field Conversion
Customizing Data Build
6–4 099331 Tandem Computers Incorporated
d. Add record qualifying code to PROC-recordname and perform the appropriate
P-IN-recordname procedure.
PROC-DEMO01.
MOVE SAVE-WK-STOR TO WK-STOR.
MOVE "=DATAIN01" TO WK-DEFINE.
.
.
OPEN INPUT F-IN-DEMO01 OUTPUT F-OUT-DEMO01.
PROC-DEMO01-GO.
READ F-IN-DEMO01 AT END GO TO PROC-DEMO01-END.
ADD 1 TO CTR-IN.
MOVE SPACES TO OUT-DEMO01.
IF DEM1-STATE OF IN-DEMO01 = SPACES <Record
AND DEM1-ZIPCODE OF IN-DEMO01 = SPACES <Qualifying
AND DEM1-PHONE OF IN-DEMO01 = SPACES <Code
PERFORM P-IN-DEMO01A <Was
ELSE <Added
PERFORM P-IN-DEMO01. <Here
GO TO PROC-DEMO01-GO.
PROC-DEMO01-END.
CLOSE F-IN-DEMO01 F-OUT-DEMO01.
.
.
PROC-DEMO01-EXIT. EXIT.
e. Comment out all unused PROC-recordname routines.
*PROC-DEMO01A.
* MOVE SAVE-WK-STOR TO WK-STOR.
* MOVE "=DATAIN02" TO WK-DEFINE.
* .
* .
* OPEN INPUT F-IN-DEMO01A OUTPUT F-OUT-DEMO01A.
*PROC-DEMO01A-GO.
* READ F-IN-DEMO01A AT END GO TO PROC-DEMO01A-END.
* ADD 1 TO CTR-IN.
* MOVE SPACES TO OUT-DEMO01A.
* PERFORM P-IN-DEMO01A.
* GO TO PROC-DEMO01A-GO.
*PROC-DEMO01A-END.
* CLOSE F-IN-DEMO01A F-OUT-DEMO01A
* .
* .
*PROC-DEMO01A-EXIT. EXIT.
4. Compile the modified conversion program and check the results.
COBOL85/IN ZZPROGM,OUT $S.#PROGM/ZZPROGMX (for ENSCRIBE)
OBEY XSQLCMPL (for SQL-INSERT or SQL-LOAD)
5. Perform the RUN (F5) step as usual.