Linkage Section

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

  • Verified Answer

    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.
    
  • 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.