Highlighted
Absent Member.
Absent Member.
1717 views

Linkage Section

Jump to solution

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
1 Solution

Accepted Solutions
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Linkage Section

Jump to solution

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.

View solution in original post

0 Likes
2 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Linkage Section

Jump to solution

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.

View solution in original post

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Linkage Section

Jump to solution

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.

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.