Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–49
34 MOVE DEM1-ADDRESS OF IN-DEMO01
35 TO DEM1-ADDRESS OF OUT-DEMO01.
36 * COPY U-OUT-DEMO01-DEM1-ADDRESS OF USERLIB.
36 <
37 P-IN-DEMO01-0006.
38 * COPY U-IN-DEMO01-DEM1-CITY OF USERLIB.
38 <
39 ENTER "CONVERT" USING DEM1-CITY OF IN-DEMO01.
40 MOVE DEM1-CITY OF IN-DEMO01
41 TO DEM1-CITY OF OUT-DEMO01.
42 * COPY U-OUT-DEMO01-DEM1-CITY OF USERLIB.
42 <
43 P-IN-DEMO01-0007.
44 * COPY U-IN-DEMO01-DEM1-CODE OF USERLIB.
44 <
45 ENTER "CONVERT" USING DEM1-CODE OF IN-DEMO01.
46 MOVE DEM1-CODE OF IN-DEMO01
47 TO DEM1-CODE OF OUT-DEMO01.
48 * COPY U-OUT-DEMO01-DEM1-CODE OF USERLIB.
48 <
49 P-IN-DEMO01-9999.
50 ADD ZERO TO ERR.
51 * COPY U-OUT-DEMO01 OF USERLIB.
51 <
52 MOVE WK-NULLINDS TO SQL-NULLINDS.
53 EXEC SQL INSERT INTO =DEMO01 VALUES
54 (:DEM1-STATE OF OUT-DEMO01
55 ,:DEM1-ZIPCODE OF OUT-DEMO01
56 ,:DEM1-PHONE OF OUT-DEMO01
57 ,:DEM1-NAME OF OUT-DEMO01
58 ,:DEM1-ADDRESS OF OUT-DEMO01
59 ,:DEM1-CITY OF OUT-DEMO01
60 ,:DEM1-CODE OF OUT-DEMO01
61 )
62 END-EXEC.
63 PERFORM INSERT-SQLMSGS.
64 P-IN-DEMO01-EXIT. EXIT.
6500 *
6520 ?SOURCE PROCLIB (P-IN-DEMO02)
65 ?SECTION P-IN-DEMO02
66 * * * * * * * * IN-DEMO02 * * * * * * * *
67 P-IN-DEMO02.
68 MOVE LOW-VALUES TO WK-NULLINDS.
69 MOVE ZERO TO SUB1.
70 * COPY U-IN-DEMO02 OF USERLIB.
70 <
71 P-IN-DEMO02-0001.
72 * COPY U-IN-DEMO02-DEM2-IDNUMBER OF USERLIB.
72 <
73 MOVE DEM2-IDNUMBER OF IN-DEMO02
74 TO DEM2-IDNUMBER-X OF OUT-DEMO02.
75 * COPY U-OUT-DEMO02-DEM2-IDNUMBER OF USERLIB.
75 <
76 P-IN-DEMO02-0002.
77 * COPY U-IN-DEMO02-DEM2-DESCR OF USERLIB.
77 <