SQL Programming Manual for Pascal

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
C-12
Detailed Dynamic SQL Program
123 1 7 : (sqldap : P_SQLDA_HDR);
124 1 8 : (bufp : P_CHAR_BUF);
125 1 9 : (hp : P_HEAP_HDR);
126 1 10 : (xa : EXTADDR);
127 1 end;
128 0
129 0 {**********************************************************}
130 0 {* Declare an error control block to report errors. *}
131 0 {**********************************************************}
132 0 const
133 0 ERRSTR = 72; { arbitrary max err msg len }
134 0 const
135 0 ERC_NOHEAPSPACE = -3; { have run out of heap }
136 0 ERC_SQLERROR = -2; { an SQL error has occured }
137 0 ERC_SQLWARNING = -1; { a SQL WARNING issued }
138 0 ERC_SUCCESS = 0; { successful completion }
139 0 type
140 0 ERROR_CB = record
141 1 erc : integer; { error code }
142 1 msg : string[ERRSTR]; { message buffer }
143 1 end;
144 0 var
145 0 G_errcb : ERROR_CB; { A global error area }
146 0
147 0 {**********************************************************}
148 0 {* Declare a global flag to detect the first command input. *}
149 0 {**********************************************************}
150 0 var
151 0 G_firstpass : boolean;
152 0