PH18213: IBM DEVELOPER FOR Z SYSTEMS (IDZ) ATTEMPTS TO USE ZUNIT FOR CBL PROGRAM THAT CALLS SUBPROGRAMS WITH NON-UNIQUE PARM NAMES FAILS

APAR status

• Closed as program error.

Error description

• IBM Developer for z Systems - IDz - v14.1
  Attempts to use zUnit to create a stub COBOL program fails when
  the COBOL program calls subprograms with parameters that use
  the same name.
  
  For example:
  Create the following COBOL program in either a local
    or remote project :
  
      IDENTIFICATION DIVISION.
      PROGRAM-ID. CALLER2.
     /********************************************/
     /*  COBOL caller program                    */
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 PROG-NAME PIC X(8) VALUE 'CALLER2'.
      01 PROG-ARGS.
         10 I-COUNT PIC S9(9) COMP.
  
      PROCEDURE DIVISION.
      Main.
        DISPLAY PROG-NAME " start".
        CALL 'CALLEE1' USING PROG-ARGS PROG-NAME PROG-ARGS
        DISPLAY PROG-NAME " End".
        GOBACK.
      END PROGRAM CALLER2.
  
  
  PROG-ARGS is passed twice to the program,which is acceptable.
  
      Select Menu zUnit > Generate testcase
      On the test data editor, Click generate and Check CALLEE1
      to generate a stub for it.
      zUnit generates a COBOL program CALLEE1, either in the
       local COBOL project or in PDS from your
       property group/zUnit tab/Generation option.
  
      CALLEE1 shows the compilation in the editor:
  
      LINKAGE SECTION.
      1 PROG-ARGS.
       10 I-COUNT PIC S9(9) COMP.
      1 PROG-NAME PIC X(8).
      1 PROG-ARGS.
       10 I-COUNT PIC S9(9) COMP.
  
      PROCEDURE DIVISION
        USING PROG-ARGS PROG-NAME PROG-ARGS.
  
  Link Edit fails:
  Ambiguous reference to PROG-ARGS which is declared twice.
  
  
  Compile fails:
    50 IGYPS0037-S  "PROG-ARGS" was not a uniquely defined name.
  The definition to be used could not be determined from the
   context. The reference to the name was discarded.
  

Local fix

• None Available
  

Problem summary

• If the same data item is specified more than once in the USING
  phrase of the Call statement, the generated STUB program for the
   subprogram called from the CALL statement results in a
  compilation error.
  

Problem conclusion

• In STUB programs for subprograms, do not define the same data
  item twice in LINKAGE SECTION.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels