Hello We are trying to compile a very old cobol/db2 program and getting the below error . Could someone let me know how to get this fixed ?
00210 77 SQL-TEMP PIC X(128). 00211 77 DSN-TEMP PIC S9(9) COMP-4. 00212 77 DSN-TMP2 PIC S9(18) COMP-3. 00213 77 DSNNROWS PIC S9(9) COMP-4. 00214 77 DSNNTYPE PIC S9(4) COMP-4. 00215 77 DSNNLEN PIC S9(4) COMP-4. 00216 77 SQL-NULL PIC S9(9) COMP-4 VALUE +0. 00217 77 SQL-INIT-FLAG PIC S9(4) COMP-4 VALUE +0. 00218 88 SQL-INIT-DONE VALUE +1. 00219 77 SQL-FILE-READ PIC S9(9) COMP-4 VALUE +2. 00220 77 SQL-FILE-CREATE PIC S9(9) COMP-4 VALUE +8. 00221 77 SQL-FILE-OVERWRITE PIC S9(9) COMP-4 VALUE +16. 00222 77 SQL-FILE-APPEND PIC S9(9) COMP-4 VALUE +32. 00223 01 SQL-PLIST5. 00224 05 SQL-PLIST-CON PIC S9(9) COMP-4 VALUE +4195328. 00225 05 SQL-CALLTYPE PIC S9(4) COMP-4 VALUE +30. 00226 05 SQL-PROG-NAME PIC X(8) VALUE X'5453533530305020'. 00227 05 SQL-TIMESTAMP-1 PIC S9(9) COMP-4 VALUE +436568894. 00228 05 SQL-TIMESTAMP-2 PIC S9(9) COMP-4 VALUE +473023280. 00229 05 SQL-SECTION PIC S9(4) COMP-4 VALUE +1. 00230 05 SQL-CODEPTR PIC S9(9) COMP-4. 00231 05 SQL-VPARMPTR PIC S9(9) COMP-4 VALUE +0. 00232 05 SQL-APARMPTR PIC S9(9) COMP-4 VALUE +0. 00233 05 FILLER PIC S9(4) COMP-4 VALUE +1208. 00234 05 SQL-STMT-TYPE PIC S9(4) COMP-4 VALUE +231. 00235 05 SQL-STMT-NUM PIC S9(9) COMP-4 VALUE +239. 00236 05 SQL-PLIST-FLG PIC S9(4) COMP-4 VALUE +0. 00237 05 FILLER PIC X(18) VALUE 00238 X'000000000000000000000000000000000000'. 00239 05 SQL-AVAR-LIST5. 00240 10 PRE-SQLDAID PIC X(8) VALUE 'SQLDA '. 00241 10 PRE-SQLDABC PIC S9(9) COMP-4 VALUE +104. 00242 10 PRE-SQLN PIC S9(4) COMP-4 VALUE +2. 0243 10 PRE-SQLLD PIC S9(4) COMP-4 VALUE +2. 0244 10 PRE-SQLVAR. 0245 12 SQLVAR-BASE1. 0246 15 SQL-AVAR-TYPE1 PIC S9(4) COMP-4 VALUE +452. 0247 15 SQL-AVAR-LEN1 PIC S9(4) COMP-4 VALUE +8. 0248 15 SQL-AVAR-ADDRS1. 0249 20 SQL-AVAR-ADDR1 PIC S9(9) COMP-4. 0250 20 SQL-AVAR-IND1 PIC S9(9) COMP-4. 0251 15 SQL-AVAR-NAME1. 0252 20 SQL-AVAR-NAMEL1 PIC S9(4) COMP-4 VALUE +0. 0253 20 SQL-AVAR-NAMEC1 PIC X(30) VALUE ' '. 0254 12 SQLVAR-BASE2. 0255 15 SQL-AVAR-TYPE2 PIC S9(4) COMP-4 VALUE +500. 0256 15 SQL-AVAR-LEN2 PIC S9(4) COMP-4 VALUE +2. 0257 15 SQL-AVAR-ADDRS2. 0258 20 SQL-AVAR-ADDR2 PIC S9(9) COMP-4. 0259 20 SQL-AVAR-IND2 PIC S9(9) COMP-4. 00260 15 SQL-AVAR-NAME2. 00261 20 SQL-AVAR-NAMEL2 PIC S9(4) COMP-4 VALUE +0. 00262 20 SQL-AVAR-NAMEC2 PIC X(30) VALUE ' '. 00263 01 SQL-PLIST6. 00264 05 SQL-PLIST-CON PIC S9(9) COMP-4 VALUE +4195328. 00265 05 SQL-CALLTYPE PIC S9(4) COMP-4 VALUE +30. 8 TSS500P 10.15.24 JAN 19,1916 00266 05 SQL-PROG-NAME PIC X(8) VALUE X'5453533530305020'. 00267 05 SQL-TIMESTAMP-1 PIC S9(9) COMP-4 VALUE +436568894. 00268 05 SQL-TIMESTAMP-2 PIC S9(9) COMP-4 VALUE +473023280. 00269 05 SQL-SECTION PIC S9(4) COMP-4 VALUE +2. 00270 05 SQL-CODEPTR PIC S9(9) COMP-4. 00271 05 SQL-VPARMPTR PIC S9(9) COMP-4 VALUE +0. 00272 05 SQL-APARMPTR PIC S9(9) COMP-4 VALUE +0. 00273 05 FILLER PIC S9(4) COMP-4 VALUE +1208. 00274 05 SQL-STMT-TYPE PIC S9(4) COMP-4 VALUE +231. 00275 05 SQL-STMT-NUM PIC S9(9) COMP-4 VALUE +260. 226 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 226 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 238 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 238 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 266 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 266 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 278 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 278 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 297 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 297 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 309 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 309 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 328 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. 328 IKF1017I-E X INVALID IN VALUE CLAUSE. SKIPPING TO NEXT CLAUSE. 340 IKF1007I-W X NOT PRECEDED BY A SPACE. ASSUME SPACE. Thanks Ron T ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
