Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–48 099331 Tandem Computers Incorporated
6240 CLOSE F-SQLMSGS.
6260 DISPLAY "RUN: DEMO03: IN = " CTR-IN.
6280 DISPLAY "RUN: DEMO03: IN = " CTR-IN UPON LOG.
6300 DISPLAY "RUN: DEMO03: OUT = " CTR-OUT.
6320 DISPLAY "RUN: DEMO03: OUT = " CTR-OUT UPON LOG.
6340 IF CTR-OTHER NOT = ZERO
6360 DISPLAY "RUN: DEMO03: ??? = " CTR-OTHER
6380 DISPLAY "RUN: DEMO03: ??? = " CTR-OTHER UPON LOG.
6400 DISPLAY SB-MSGS-BUFF.
6420 DISPLAY SB-MSGS-BUFF UPON LOG.
6440 PROC-DEMO03-EXIT. EXIT.
6460 *
6480 ?SOURCE PROCLIB (P-IN-DEMO01)
1 ?SECTION P-IN-DEMO01
2 * * * * * * * * IN-DEMO01 * * * * * * * *
3 P-IN-DEMO01.
4 MOVE LOW-VALUES TO WK-NULLINDS.
5 MOVE ZERO TO SUB1.
6 * COPY U-IN-DEMO01 OF USERLIB.
6 <
7 P-IN-DEMO01-0001.
8 * COPY U-IN-DEMO01-DEM1-STATE OF USERLIB.
8 <
9 ENTER "CONVERT" USING DEM1-STATE OF IN-DEMO01.
10 MOVE DEM1-STATE OF IN-DEMO01
11 TO DEM1-STATE OF OUT-DEMO01.
12 * COPY U-OUT-DEMO01-DEM1-STATE OF USERLIB.
12 <
13 P-IN-DEMO01-0002.
14 * COPY U-IN-DEMO01-DEM1-ZIPCODE OF USERLIB.
14 <
15 ENTER "CONVERT" USING DEM1-ZIPCODE OF IN-DEMO01.
16 MOVE DEM1-ZIPCODE OF IN-DEMO01
17 TO DEM1-ZIPCODE OF OUT-DEMO01.
18 * COPY U-OUT-DEMO01-DEM1-ZIPCODE OF USERLIB.
18 <
19 P-IN-DEMO01-0003.
20 * COPY U-IN-DEMO01-DEM1-PHONE OF USERLIB.
20 <
21 ENTER "PTOB" USING N DEM1-PHONE OF IN-DEMO01
22 DEM1-PHONE OF OUT-DEMO01
23 GIVING ERR.
24 * COPY U-OUT-DEMO01-DEM1-PHONE OF USERLIB.
24 <
25 P-IN-DEMO01-0004.
26 * COPY U-IN-DEMO01-DEM1-NAME OF USERLIB.
26 <
27 ENTER "CONVERT" USING DEM1-NAME OF IN-DEMO01.
28 MOVE DEM1-NAME OF IN-DEMO01
29 TO DEM1-NAME OF OUT-DEMO01.
30 * COPY U-OUT-DEMO01-DEM1-NAME OF USERLIB.
30 <
31 P-IN-DEMO01-0005.
32 * COPY U-IN-DEMO01-DEM1-ADDRESS OF USERLIB.
32 <
33 ENTER "CONVERT" USING DEM1-ADDRESS OF IN-DEMO01.