Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
5–14 099331 Tandem Computers Incorporated
When Data Build generates COBOL85 conversion procedures, it saves them in the
library file PROCLIB. Those procedures are later copied, using COPY statements, into
the COBOL85 conversion program. Following is an extract from the file PROCLIB.
Note the procedures throughout this example converting the fields in each file.
?SECTION P-IN-DEMO01
* * * * * * * * IN-DEMO01 * * * * * * * *
P-IN-DEMO01.
MOVE LOW-VALUES TO WK-NULLINDS.
MOVE ZERO TO SUB1.
COPY U-IN-DEMO01 OF USERLIB.
P-IN-DEMO01-0001.
COPY U-IN-DEMO01-DEM1-STATE OF USERLIB.
ENTER "CONVERT" USING DEM1-STATE OF IN-DEMO01.
MOVE DEM1-STATE OF IN-DEMO01
TO DEM1-STATE OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-STATE OF USERLIB.
P-IN-DEMO01-0002.
COPY U-IN-DEMO01-DEM1-ZIPCODE OF USERLIB.
ENTER "CONVERT" USING DEM1-ZIPCODE OF IN-DEMO01.
MOVE DEM1-ZIPCODE OF IN-DEMO01
TO DEM1-ZIPCODE OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-ZIPCODE OF USERLIB.
P-IN-DEMO01-0003.
COPY U-IN-DEMO01-DEM1-PHONE OF USERLIB.
ENTER "PTOB" USING N DEM1-PHONE OF IN-DEMO01
DEM1-PHONE OF OUT-DEMO01
GIVING ERR.
COPY U-OUT-DEMO01-DEM1-PHONE OF USERLIB.
P-IN-DEMO01-0004.
COPY U-IN-DEMO01-DEM1-NAME OF USERLIB.
ENTER "CONVERT" USING DEM1-NAME OF IN-DEMO01.
MOVE DEM1-NAME OF IN-DEMO01
TO DEM1-NAME OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-NAME OF USERLIB.
P-IN-DEMO01-0005.
COPY U-IN-DEMO01-DEM1-ADDRESS OF USERLIB.
ENTER "CONVERT" USING DEM1-ADDRESS OF IN-DEMO01.
MOVE DEM1-ADDRESS OF IN-DEMO01
TO DEM1-ADDRESS OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-ADDRESS OF USERLIB.
P-IN-DEMO01-0006.
COPY U-IN-DEMO01-DEM1-CITY OF USERLIB.
ENTER "CONVERT" USING DEM1-CITY OF IN-DEMO01.
MOVE DEM1-CITY OF IN-DEMO01
TO DEM1-CITY OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-CITY OF USERLIB.
P-IN-DEMO01-0007.
COPY U-IN-DEMO01-DEM1-CODE OF USERLIB.
ENTER "CONVERT" USING DEM1-CODE OF IN-DEMO01.
MOVE DEM1-CODE OF IN-DEMO01
TO DEM1-CODE OF OUT-DEMO01.
COPY U-OUT-DEMO01-DEM1-CODE OF USERLIB.
P-IN-DEMO01-9999.