Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
099331 Tandem Computers Incorporated 5-15
ADD ZERO TO ERR.
COPY U-OUT-DEMO01 OF USERLIB.
WRITE OUT-DEMO01.
ADD 1 TO CTR-OUT.
P-IN-DEMO01-EXIT. EXIT.
?SECTION P-IN-DEMO02
* * * * * * * * IN-DEMO02 * * * * * * * *
P-IN-DEMO02.
MOVE LOW-VALUES TO WK-NULLINDS.
MOVE ZERO TO SUB1.
COPY U-IN-DEMO02 OF USERLIB.
P-IN-DEMO02-0001.
COPY U-IN-DEMO02-DEM2-IDNUMBER OF USERLIB.
MOVE DEM2-IDNUMBER OF IN-DEMO02
TO DEM2-IDNUMBER-X OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-IDNUMBER OF USERLIB.
P-IN-DEMO02-0002.
COPY U-IN-DEMO02-DEM2-DESCR OF USERLIB.
ENTER "CONVERT" USING DEM2-DESCR OF IN-DEMO02.
MOVE DEM2-DESCR OF IN-DEMO02
TO DEM2-DESCR OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-DESCR OF USERLIB.
P-IN-DEMO02-0003.
COPY U-IN-DEMO02-DEM2-SUBNUMBER OF USERLIB.
MOVE DEM2-SUBNUMBER OF IN-DEMO02
TO DEM2-SUBNUMBER-X OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-SUBNUMBER OF USERLIB.
P-IN-DEMO02-0004.
COPY U-IN-DEMO02-DEM2-CODE1 OF USERLIB.
ENTER "CONVERT" USING DEM2-CODE1 OF IN-DEMO02.
MOVE DEM2-CODE1 OF IN-DEMO02
TO DEM2-CODE1 OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-CODE1 OF USERLIB.
P-IN-DEMO02-0005.
COPY U-IN-DEMO02-DEM2-CLASS OF USERLIB.
ENTER "CONVERT" USING DEM2-CLASS OF IN-DEMO02.
MOVE DEM2-CLASS OF IN-DEMO02
TO DEM2-CLASS OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-CLASS OF USERLIB.
P-IN-DEMO02-0006.
COPY U-IN-DEMO02-DEM2-PRICE OF USERLIB.
MOVE DEM2-PRICE OF IN-DEMO02
TO DEM2-PRICE-X OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-PRICE OF USERLIB.
P-IN-DEMO02-0007.
COPY U-IN-DEMO02-DEM2-COST1 OF USERLIB.
MOVE DEM2-COST1 OF IN-DEMO02
TO DEM2-COST1-X OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-COST1 OF USERLIB.
P-IN-DEMO02-0008.
COPY U-IN-DEMO02-DEM2-CARRIER OF USERLIB.
ENTER "CONVERT" USING DEM2-CARRIER OF IN-DEMO02.
MOVE DEM2-CARRIER OF IN-DEMO02
TO DEM2-CARRIER OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-CARRIER OF USERLIB.