Then there is a difference in behaviour between Server Express and Mainframe Express, I put to RUN the program in those environment and ALL is OK.
I make a new program Calling NUPO245 and I Get the same error. Do you have an Example that you can send to me ??
Many Thanks in advanced
PJM
Then there is a difference in behaviour between Server Express and Mainframe Express, I put to RUN the program in those environment and ALL is OK.
I make a new program Calling NUPO245 and I Get the same error. Do you have an Example that you can send to me ??
Many Thanks in advanced
PJM
Hello PJM:
Here is a sample program named "NUPO245-caller.cbl". If you use this program to call NUPO245.cbl, the 203 error "Linkage Section Ítem Not Initializad" will not appear. Note that I simply put the 01 group item LK-PARM-LIST into working storage (so memory for it would be allocated), then CALLed NUPO245 USING LK-PARM-LIST.
Also, PJM, instead of creating new forum posts for each response, it would be better to make all responses within the history of one ongoing forum post.
working-storage SECTION.
13194 01 LK-PARM-LIST.
13195 05 LK-PROCNG-DATE PIC S9(07) COMP-3.
13196 05 LK-RUN-NBR PIC S9(04) COMP-3.
13197 05 LK-COMPL-STS PIC X(01).
13198 05 LK-PATH-INST PIC S9(04) COMP-3.
13199 05 LK-PATH-APPL PIC S9(04) COMP-3.
13200 05 LK-JOB-NAME PIC X(08).
13201 05 LK-RET-DATA.
13202 07 LK-RET-STS PIC 9(02).
13203 07 LK-FILE-STS-RET-CD.
13204 09 LK-RET-FILE-STS PIC X(02).
13205 09 LK-RET-CD-AREA.
13206 11 LK-RET-CD
13207 PIC 9(02) BINARY.
13208 11 LK-FUNC PIC 9(01) BINARY.
13209 11 LK-FEEDBACK PIC 9(03) BINARY.
13210* ABORT WS COPYBOOK
*13211* COPY NCBO021.
13212*BUILDFIX APPLIED 06/14/95 PROJECT NBR: E3000562 INITIALS: ML E3000562
13213* TRAMS(TM) VERSION NUMBER 7.8.2 - 08/12/98
13214* (C) COPYRIGHT 1991-1997 PAYSYS INTERNATIONAL, INC.
13215* ALL RIGHTS RESERVED.
13216******************************************************************
13217* NCBO021 WORKING STORAGE COPYBOOK FOR THE ABORT ROUTINE *
13218* *
13219* . THIS COPYBOOK SHOULD BE INCLUDED IN ALL PROGRAMS AFTER *
13220* 01 NCBO021-WORK-FIELDS *
13221* . MOVE THE PROGRAM NAME TO NCBO021-PGM-NAME FIELD AND *
13222* PROGRAM NUMBER TO NCBO021-PGM-NBR FIELD IN *
13223* 1000-INITIALIZATION-SECTION OF EACH PROGRAM *
13224* . NCBO521 COPYBOOK MUST BE INCLUDED AS THE LAST COPYBOOK *
13225* IN THE 9000-COPYBOOK-SECTION OF EACH PROGRAM *
13226* *
13227******************************************************************
13228 05 NCBO021-PGM-NAME PIC X(07) VALUE SPACES.
13229 05 NCBO021-PGM-NBR PIC 9(04) VALUE ZEROES. E1010030
13230 05 NCBO021-PROCS-PARA-NAME PIC X(32) VALUE SPACES.
13231 05 NCBO021-PROCS-FILE-NAME PIC X(32) VALUE SPACES.
13232 05 NCBO021-PROCS-FILE-TYPE PIC X(01) VALUE SPACES.
13233* "V" FOR VSAM FILE
13234* "Q" FOR QSAM FILE
13235* " " NOT PROCESSING FILE
13236 05 NCBO021-ABORT-MSG PIC X(60) VALUE SPACES.
13237 05 NCBO021-ABORT-QSAM-MSG-TBL.
13238 07 FILLER PIC X(62) VALUE
13239 "04WRONG LENGTH RECORD".
13240 07 FILLER PIC X(62) VALUE
13241 "05OPTIONAL FILE NOT PRESENT".
13242 07 FILLER PIC X(62) VALUE
13243 "07NO REWIND/REEL/UNIT/FOR REMOVAL SPECIFIED FOR OPEN
13244- " CLOSE".
13245 07 FILLER PIC X(62) VALUE
13246 "10AT END (NO NEXT LOGICAL RECORD)".
13247 07 FILLER PIC X(62) VALUE
13248 "30PERMANENT ERROR".
13249 07 FILLER PIC X(62) VALUE
13250 "34PERMANENT ERROR - FILE BOUNDARY VIOLATION".
13251 07 FILLER PIC X(62) VALUE
13252 "35NONOPTIONAL FILE NOT PRESENT".
13253 07 FILLER PIC X(62) VALUE
13254 "37DEVICE TYPE CONFLICT".
13255 07 FILLER PIC X(62) VALUE
13256 "38OPEN ATTEMPTED FOR FILE CLOSED WITH LOCK".
13257 07 FILLER PIC X(62) VALUE
13258 "39CONFLICT OF FIXED FILE ATTRIBUTES; OPEN FAILS".
13259 07 FILLER PIC X(62) VALUE
13260 "41OPEN ATTEMPTED FOR A FILE IN OPEN MODE".
13261 07 FILLER PIC X(62) VALUE
13262 "42CLOSE ATTEMPTED FOR A FILE NOT IN OPEN MODE".
13263 07 FILLER PIC X(62) VALUE
13264 "43REWRITE ATTEMPTED WHEN LAST I/O STATEMENT WAS NOT
13265- "READ".
13266 07 FILLER PIC X(62) VALUE
13267 "44REWRITE A SEQ FILE RECORD WITH A RECORD OF A DIFFE
13268- "RENT SIZE".
13269 07 FILLER PIC X(62) VALUE
13270 "46SEQUENTIAL READ ATTEMPTED WITH NO VALID NEXT RECOR
13271- "D".
13272 07 FILLER PIC X(62) VALUE
13273 "47READ ATTEMPTED WHEN FILE NOT IN OPEN INPUT OR I-O
13274- "MODE".
13275 07 FILLER PIC X(62) VALUE
13276 "48WRITE ATTEMPTED WHEN FILE NOT IN OPEN OUTPUT/I-O/E
13277- "XTEND MODE".
13278 07 FILLER PIC X(62) VALUE
13279 "49DELETE OR REWRITE ATTEMPTED WHEN FILE NOT IN OPEN
13280- "I-O MODE".
13281 07 FILLER PIC X(62) VALUE
13282 "90OTHER ERRORS WITH NO FURTHER INFORMATION".
13283 07 FILLER PIC X(62) VALUE
13284 "91VSAM PASSWORD FAILURE".
13285 07 FILLER PIC X(62) VALUE
13286 "92LOGIC ERROR".
13287 07 FILLER PIC X(62) VALUE
13288 "93VSAM RESOURCE NOT AVAILABLE".
13289 07 FILLER PIC X(62) VALUE
13290 "94NO FILE POSITION INDICATOR FOR VSAM SEQUENTIAL REQ
13291- "UEST".
13292 07 FILLER PIC X(62) VALUE
13293 "95INVALID OR INCOMPLETE VSAM FILE INFORMATION".
13294 07 FILLER PIC X(62) VALUE
13295 "96NO FILE IDENTIFICATION (NO DD STATEMENT FOR THIS V
13296- "SAM FILE)".
13297 05 NCBO021-ABORT-QSAM-MSG-TBL-RED
13298 REDEFINES
13299 NCBO021-ABORT-QSAM-MSG-TBL
13300 OCCURS 25 TIMES
13301 INDEXED BY
13302 X-NCBO021-QSAM-ABORT.
13303 07 NCBO021-ABORT-Q-MSG-NBR PIC 9(02).
13304 07 NCBO021-ABORT-Q-MSG-FLD PIC X(60).
13305 05 NCBO021-ABORT-VSAM-MSG-TBL.
13306 07 FILLER PIC X(62) VALUE
13307 "02DUPLICATE KEY, AND DUPLICATES SPECIFIED".
13308 07 FILLER PIC X(62) VALUE
13309 "04WRONG LENGTH RECORD".
13310 07 FILLER PIC X(62) VALUE
13311 "05OPTIONAL FILE NOT PRESENT".
13312 07 FILLER PIC X(62) VALUE
13313 "10AT END (NO NEXT LOGICAL RECORD)".
13314 07 FILLER PIC X(62) VALUE
13315 "14ON SEQ READ FOR RELATIVE FILE, SIZE REC # TOO LARG
13316- "E FOR KEY".
13317 07 FILLER PIC X(62) VALUE
13318 "20INVALID KEY FOR A VSAM INDEXED OR RELATIVE FILE".
13319 07 FILLER PIC X(62) VALUE
13320 "21INVALID KEY FOR A VSAM INDEXED OR RELATIVE FILE; S
13321- "EQ ERROR". E3000562
13322 07 FILLER PIC X(62) VALUE
13323 "22INVALID KEY FOR A VSAM INDEXED OR RELATIVE FILE; D
13324- "UPLICATES". E3000562
13325 07 FILLER PIC X(62) VALUE
13326 "23INVALID KEY FOR A VSAM INDEXED OR RELATIVE FILE; N
13327- "REC FOUND".
13328 07 FILLER PIC X(62) VALUE
13329 "23INVALID KEY FOR A VSAM INDEXED OR RELATIVE FILE; B
13330- "EYOND BND". E3000562
13331 07 FILLER PIC X(62) VALUE
13332 "30PERMANENT ERROR".
13333 07 FILLER PIC X(62) VALUE
13334 "35NONOPTIONAL FILE NOT PRESENT".
13335 07 FILLER PIC X(62) VALUE
13336 "37ATTEMPT TO OPEN A FILE NOT ON A MASS STORAGE DEVIC
13337- "E".
13338 07 FILLER PIC X(62) VALUE
13339 "39CONFLICT OF FIXED FILE ATTRIBUTES; OPEN FAILS".
13340 07 FILLER PIC X(62) VALUE
13341 "41OPEN ATTEMPTED FOR A FILE IN OPEN MODE".
13342 07 FILLER PIC X(62) VALUE
13343 "42CLOSE ATTEMPTED FOR A FILE NOT IN OPEN MODE".
13344 07 FILLER PIC X(62) VALUE
13345 "43REWRITE ATTEMPTED, LAST I/O STATEMENT WAS NOT READE3000562
13346- " OR DEL". E3000562
13347 07 FILLER PIC X(62) VALUE
13348 "44WRITE/REWRITE A RECORD OF A DIFFERENT LENGTH". E3000562
13349 07 FILLER PIC X(62) VALUE
13350 "46SEQUENTIAL READ ATTEMPTED WITH NO VALID NEXT RECOR
13351- "D".
13352 07 FILLER PIC X(62) VALUE
13353 "47READ ATTEMPTED WHEN FILE NOT IN OPEN INPUT OR I-O
13354- "MODE".
13355 07 FILLER PIC X(62) VALUE
13356 "48WRITE ATTEMPTED WHEN FILE NOT IN OPEN OUTPUT/I-O/E
13357- "XTEND MODE".
13358 07 FILLER PIC X(62) VALUE
13359 "49DELETE OR REWRITE ATTEMPTED WHEN FILE NOT IN OPEN
13360- "I-O MODE".
13361 07 FILLER PIC X(62) VALUE
13362 "90OTHER ERRORS WITH NO FURTHER INFORMATION".
13363 07 FILLER PIC X(62) VALUE
13364 "91VSAM PASSWORD FAILURE".
13365 07 FILLER PIC X(62) VALUE
13366 "93VSAM RESOURCE NOT AVAILABLE".
13367 07 FILLER PIC X(62) VALUE
13368 "94UNDER CMPR2: NO FILE POSITION INDICATOR FOR VSAM S
13369- "EQ REQUEST".
13370 07 FILLER PIC X(62) VALUE
13371 "95INVALID OR INCOMPLETE VSAM FILE INFORMATION".
13372 07 FILLER PIC X(62) VALUE
13373 "96NO FILE IDENTIFICATION (NO DD STATEMENT FOR THIS V
13374- "SAM FILE)".
13375 07 FILLER PIC X(62) VALUE
13376 "97OPEN STATEMENT EXECUTION SUCCESSFUL: FILE INTEGRIT
13377- "Y VERIFIED".
13378 05 NCBO021-ABORT-VSAM-MSG-TBL-RED
13379 REDEFINES
13380 NCBO021-ABORT-VSAM-MSG-TBL
13381 OCCURS 29 TIMES
13382 INDEXED BY
13383 X-NCBO021-VSAM-ABORT.
13384 07 NCBO021-ABORT-V-MSG-NBR
13385 PIC 9(02).
13386 07 NCBO021-ABORT-V-MSG-FLD
13387 PIC X(60).
13388 05 NCBO021-ABORT-RET-CD.
13389 07 FILLER PIC 9(01) VALUE 5.
13390 07 NCBO021-ABORT-RET-NBR
13391 PIC 9(03) VALUE ZEROES.
13392 05 NCBO021-ABORT-RET-CD-NUM REDEFINES NCBO021-ABORT-RET-CD
13393 PIC 9(04).
13394*/
13395 PROCEDURE DIVISION.
call "NUPO245" using LK-PARM-LIST.
stop run.
+2Then there is a difference in behaviour between Server Express and Mainframe Express, I put to RUN the program in those environment and ALL is OK.
I make a new program Calling NUPO245 and I Get the same error. Do you have an Example that you can send to me ??
Many Thanks in advanced
PJM
An alternative to requiring a main program to do the call would be to comment out the linkage section header so that your data items then appeared in working-storage.
The procedure division using header could stay the same only the parameters would now have storage assigned to them.
Thanks.
Already have an account? Login
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.
77 4th Avenue
Waltham, MA 02451 USA
