The OP says "COBOL/DB2 program." I would wonder about DB2 support for the older compilers.
Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lizette Koehler Sent: Tuesday, January 19, 2016 10:00 AM To: [email protected] Subject: Re: Compile error It has been so long since I had a VS COBOL Manual, I did not recognize it. So it seems what everyone is saying is Fix would be to use a more current compiler. Lizette -----Original Message----- >From: Pinnacle <[email protected]> >Sent: Jan 19, 2016 10:55 AM >To: [email protected] >Subject: Re: Compile error > >On 1/19/2016 10:23 AM, Ron Thomas 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. >> > >The IKF messages indicate a COBOL compiler circa 1980. Perhaps a >21st-century compiler would yield better results. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
