On 19 Jan 2016 07:23:57 -0800, in bit.listserv.ibm-main Ron Thomas wrote: As others have pointed out the IKF messages are from an OS/VS compiler (or another compiler set to the OS/VS mode). This compiler does not recognize hexadecimal values. I'm surprised it isn't complaining about the COMP-4 usages.
Clark Morris >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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
