SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-5
Insertion Program
Page 3 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
72. 000000 0 0 PROC START^OPERATIONS;
73. 000000 1 0 BEGIN
74. 000000 1 1
75. 000000 1 1 -- Blank out STRING fields in IN^DATA^REC:
76. 000000 1 1 in^data^rec.in^loc^code ':='
77. 000001 1 1 [ $OCCURS(in^data^rec.in^loc^code) * [" "] ];
78. 000013 1 1 in^data^rec.in^partdesc ':='
79. 000013 1 1 [ $OCCURS(in^data^rec.in^partdesc) * [" "] ];
80. 000025 1 1
81. 000025 1 1 -- Assign values to the variables in IN^DATA^REC:
82. 000025 1 1 in^data^rec.in^partnum := 4120;
83. 000030 1 1 in^data^rec.in^loc^code ':=' "A80";
84. 000042 1 1 in^data^rec.in^price := 6000000D;
85. 000047 1 1 in^data^rec.in^partdesc ':=' "V8 DISK OPTION";
86. 000061 1 1 in^data^rec.in^qty := 10D;
87. 000066 1 1
88. 000066 1 1 --Assign a value for supplier:
89. 000066 1 1 supplier^of^parts := 8;
90. 000070 1 1
91. 000070 1 1 -- Write first message to the terminal:
92. 000070 1 1 CALL MYTERM(home^term);
93. 000073 1 1 CALL OPEN(home^term, home^term^num);
94. 000103 1 1 sbuf ':=' "START PROGRAM NEWPART ***** "->@buf^end;
95. 000114 1 1 CALL WRITE(home^term^num,ibuf,@buf^end '-' @sbuf);
96. 000126 1 1
97. 000126 1 1 -- SQL error handling:
98. 000126 1 1 EXEC SQL WHENEVER SQLERROR CALL :SQLERROR;
99. 000126 1 1 EXEC SQL WHENEVER SQLWARNING CALL :SQLERROR;
100. 000126 1 1 EXEC SQL WHENEVER NOT FOUND CALL :NOT^FOUND;
101. 000126 1 1
102. 000126 1 1 -- Begin TMF transaction:
103. 000126 1 1 EXEC SQL BEGIN WORK;
104. 000165 1 1
105. 000165 1 1 END; -- end of START^OPERATIONS
106. 000000 0 0