Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
5–16 099331 Tandem Computers Incorporated
P-IN-DEMO02-0009.
COPY U-IN-DEMO02-DEM2-COST2 OF USERLIB.
MOVE DEM2-COST2 OF IN-DEMO02
TO DEM2-COST2-X OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-COST2 OF USERLIB.
P-IN-DEMO02-0010.
COPY U-IN-DEMO02-DEM2-VENDOR OF USERLIB.
ENTER "CONVERT" USING DEM2-VENDOR OF IN-DEMO02.
MOVE DEM2-VENDOR OF IN-DEMO02
TO DEM2-VENDOR OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-VENDOR OF USERLIB.
P-IN-DEMO02-0011.
COPY U-IN-DEMO02-DEM2-DATE1 OF USERLIB.
ENTER "CONVERT" USING DEM2-DATE1 OF IN-DEMO02.
MOVE ZEROS TO WK-TIMESTAMP.
MOVE DEM2-DATE1 OF IN-DEMO02 TO WK-DATE.
PERFORM CONVERT-TIMESTAMP.
MOVE W2-JUL64 TO DEM2-DATE1 OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-DATE1 OF USERLIB.
P-IN-DEMO02-0012.
COPY U-IN-DEMO02-DEM2-DATE2 OF USERLIB.
ENTER "CONVERT" USING DEM2-DATE2 OF IN-DEMO02.
ADD 1 TO SUB1.
IF DEM2-DATE2-I OF IN-DEMO02 = LOW-VALUE
MOVE ZEROS TO WK-TIMESTAMP
MOVE DEM2-DATE2 OF IN-DEMO02 TO WK-DATE
PERFORM CONVERT-TIMESTAMP
MOVE W2-JUL64 TO DEM2-DATE2 OF OUT-DEMO02
ELSE
MOVE LOW-VALUE TO DEM2-DATE2-X OF OUT-DEMO02
MOVE -1 TO WK-NULLIND (SUB1).
COPY U-OUT-DEMO02-DEM2-DATE2 OF USERLIB.
P-IN-DEMO02-0013.
COPY U-IN-DEMO02-DEM2-DATE3 OF USERLIB.
ENTER "CONVERT" USING DEM2-DATE3 OF IN-DEMO02.
MOVE ZEROS TO WK-TIMESTAMP.
MOVE DEM2-DATE3 OF IN-DEMO02 TO WK-DATE.
PERFORM CONVERT-TIMESTAMP.
MOVE W2-JUL64 TO DEM2-DATE3 OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-DATE3 OF USERLIB.
P-IN-DEMO02-0014.
COPY U-IN-DEMO02-DEM2-TIME OF USERLIB.
ENTER "CONVERT" USING DEM2-TIME OF IN-DEMO02.
MOVE ZEROS TO WK-TIMESTAMP.
MOVE DEM2-TIME OF IN-DEMO02 TO WK-TIME.
PERFORM CONVERT-TIMESTAMP.
MOVE W2-JUL64 TO DEM2-TIME OF OUT-DEMO02.
COPY U-OUT-DEMO02-DEM2-TIME OF USERLIB.
P-IN-DEMO02-9999.
ADD ZERO TO ERR.
COPY U-OUT-DEMO02 OF USERLIB.
WRITE OUT-DEMO02.
ADD 1 TO CTR-OUT.
P-IN-DEMO02-EXIT. EXIT.