SQL Programming Manual for TAL

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
C-18
Detailed Dynamic SQL Program
Page 7 [1] $VOL1.S04.TALDYN 1991-10-15 13:42:28
display^result
224. 000230 1 4 !-------------------------------------------
225. 000230 1 4 _SQLDT_ASCII_F,
226. 000230 1 4 _SQLDT_ASCII_F_UP ->
227. 000230 1 4 PUT^STR^MID (param^.v^char for $MIN(38,datalen));
228. 000243 1 4
229. 000243 1 4 !-------------------------------------------
230. 000243 1 4 ! data type is varchar
231. 000243 1 4 !-------------------------------------------
232. 000243 1 4 _SQLDT_ASCII_V,
233. 000244 1 4 _SQLDT_ASCII_V_UP ->
234. 000244 1 4 PUT^STR^MID (param^.v^varchar.val
235. 000244 1 4 FOR $MIN(38,param^.v^varchar.len));
236. 000263 1 4
237. 000263 1 4 !-------------------------------------------
238. 000263 1 4 ! data type is smallint
239. 000263 1 4 !-------------------------------------------
240. 000263 1 4 _SQLDT_16BIT_S ->
241. 000264 1 4 if param^.v^smallint >= 0 then
242. 000270 1 4 begin
243. 000270 1 5 PUT^INT^MID (param^.v^smallint);
244. 000311 1 5 end else begin
245. 000312 1 5 PUT^STR^MID ("-");
246. 000326 1 5 PUT^INT^MID (-param^.v^smallint);
247. 000350 1 5 end;
248. 000350 1 4
249. 000350 1 4 _SQLDT_16BIT_U ->
250. 000351 1 4 PUT^DBL^MID ($UDBL(param^.v^smallint));
251. 000371 1 4
252. 000371 1 4 !-------------------------------------------
253. 000371 1 4 ! data type is integer
254. 000371 1 4 !-------------------------------------------
255. 000371 1 4 _SQLDT_32BIT_S ->
256. 000372 1 4 if param^.v^int >= 0D then
257. 000377 1 4 begin
258. 000377 1 5 PUT^DBL^MID (param^.v^int);
259. 000422 1 5 end else begin
260. 000424 1 5 PUT^STR^MID ("-");
261. 000440 1 5 PUT^DBL^MID (-param^.v^int);
262. 000461 1 5 end;
263. 000461 1 4
264. 000461 1 4 _SQLDT_32BIT_U ->
265. 000462 1 4 PUT^DBL^MID (param^.v^int);
266. 000502 1 4
267. 000502 1 4 !-------------------------------------------
268. 000502 1 4 ! data type is datetime or interval
269. 000502 1 4 !-------------------------------------------
270. 000502 1 4 _SQLDT_DATETIME .. _SQLDT_INT_D_F ->
271. 000503 1 4 PUT^STR^MID (param^.v^datetime FOR datalen.<8:15>);
272. 000512 1 4
273. 000512 1 4 OTHERWISE ->
274. 000513 1 4 PUT^STR^MID ("This data type is not supported: ");
275. 000527 1 4 PUT^INT^MID (sqlda.sqlvar[i].data^type);
276. 000560 1 4
277. 000560 1 4 END; !end of case
278. 001117 1 3 END; ! end of if
279. 001117 1 2
280. 001117 1 2 PRINT^LINE;