What compiler are you using? The code looks OK for a _modern_ COBOL compiler. I.e. for Enterprise COBOL (IGYCRCTL), but not for the older IKJCBL00 compiler. The older compiler did not have hex literals. eg: X'00'
On Tue, Jan 19, 2016 at 9:24 AM, Ron Thomas <[email protected]> wrote: > 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 > -- Werner Heisenberg is driving down the autobahn. A police officer pulls him over. The officer says, "Excuse me, sir, do you know how fast you were going?" "No," replies Dr. Heisenberg, "but I know where I am." Computer Science is the only discipline in which we view adding a new wing to a building as being maintenance -- Jim Horning Schrodinger's backup: The condition of any backup is unknown until a restore is attempted. He's about as useful as a wax frying pan. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
