PH43025: CORRECTION OF CSQ4ZPRM SAMPLE JCL

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• There is an inconsistency in the definition in SYSLIN DD data
  sets, the SPACE parameter specifies three numbers in SYSPUNCH
  DD, so the third number is taken to be the number of directory
  blocks, causing the data sets to be allocated as a PDS,
  starting with a directory area, but it should be either a
  sequential data set or a single member of a PDS.
  .
  < Provided sample jcl :SCSQPROC(CSQ4ZPRM) >
  //SYSPUNCH DD DSN=&&LOGP,
  //            UNIT=3390,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&ARVP,
  //            UNIT=3390,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&SYSP,
  //            UNIT=3390,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&USGP,
  //            UNIT=3390,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //ARVP     DD DSN=&&ARVP,DISP=(OLD,DELETE)
  //LOGP     DD DSN=&&LOGP,DISP=(OLD,DELETE)
  //SYSP     DD DSN=&&SYSP,DISP=(OLD,DELETE)
  //USGP     DD DSN=&&USGP,DISP=(OLD,DELETE)
  .
  //SYSLIN   DD *
     INCLUDE SYSP
     INCLUDE ARVP
     INCLUDE LOGP
     INCLUDE USGP
  
     INCLUDE OLDLOAD(CSQZPARM)
  
   ENTRY CSQZMSTR
  
   NAME ++NAME++(R)
  /*
  .
  If z/OS APAR OA60773 is applied, IEW2724S(SYNCHRONOUS I/O ERROR
  OCCURRED) will be returned to the job.
  

Local fix

• By specifying member name at both ASM and LKED step.
  .
  (ASM step)
  //SYSPUNCH DD DSN=&&LOGP(LOGP),
  //            UNIT=3390,DISP=(,PASS),VOL=SER=XXXXXX,
  //*           UNIT=SYSDA,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&ARVP(ARVP),
  //            UNIT=3390,DISP=(,PASS),VOL=SER=XXXXXX,
  //*           UNIT=SYSDA,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&SYSP(SYSP),
  //            UNIT=3390,DISP=(,PASS),VOL=SER=XXXXXX,
  //*           UNIT=SYSDA,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  //SYSPUNCH DD DSN=&&USGP(USGP),
  //            UNIT=3390,DISP=(,PASS),VOL=SER=XXXXXX,
  //*           UNIT=SYSDA,DISP=(,PASS),
  //            SPACE=(400,(100,100,1))
  :
  (LKED step)
  //ARVP DD DSN=&&ARVP(ARVP),DISP=(OLD,DELETE)
  //LOGP DD DSN=&&LOGP(LOGP),DISP=(OLD,DELETE)
  //SYSP DD DSN=&&SYSP(SYSP),DISP=(OLD,DELETE)
  //USGP DD DSN=&&USGP(USGP),DISP=(OLD,DELETE)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of IBM MQ for z/OS Version 9       *
  *                 Release 1 Modification 0 and Release 2       *
  *                 Modification 0.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When specifying certain volumes for     *
  *                      the ASMA90 CSQ4ZPRM SYSPUNCH DD, the    *
  *                      link step can fail with IEW2724S.       *
  ****************************************************************
  The temporary data sets in CSQ4ZPRM are allocated as a
  Partitioned Data Set (PDS) rather than a Sequential Data Set,
  resulting in an inconsistency between the assemble and link
  steps.
  

Problem conclusion

• The sample CSQ4ZPRM has been changed to ensure temporary data
  sets are now allocated as a Sequential Data Set rather than PDS.
  

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:

  UI79269 UI79270

Modules/Macros

• CSQ4ZPRM
  

Fix information

• Fixed component name

  IBM MQ Z/OS V9

• Fixed component ID

  5655MQ900

Applicable component levels

• R100 PSY UI79270

     UP22/03/11 P F203

• R200 PSY UI79269

     UP22/03/11 P F203

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.