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
list...@listserv.ua.edu with the message: INFO IBM-MAIN