PK41922: NEW FUNCTION WHEREBY YOU CAN CHOOSE DYNALLOC'S REASON CODE FOR RETRYING DYNAMIC ALLOCATION OF THE IC DATA SET

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• HPIC V4 provides a new function whereby you can choose
  DYNALLOC's reason code for retrying dynamic allocation of the
  IC data set.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS High Performance Image Copy for z/OS *
  *                 Version 4 Release 1 users ( FMID=H1J0410 )   *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR provides new input data set   *
  *                      FABJDRSN in which the reason code of    *
  *                      dynamic allocation is specified for     *
  *                      controlling the process.                *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  New input data set FABJDRSN is provided for specifying the
  dynamic allocation error reason codes (S99ERROR) and SMS error
  reason code (S99ERSN).
  
  //FABJDRSN  DD  *
    4714,                   4714: not find enough volume space.
    9704(012C,012D,012F)    9704: SMS CATALOG ERROR.
  /*
  
  The FABJDRSN DD can be specified the reason code of dynamic
  allocation  which is the object for retrying dynamic allocation.
  For example, if '4714' is specified in the data set of FABJDRSN,
  HPIC retries allocation which reason code is '4714'.
  
  A new report, FABJDRSN Statements report, is generated
  in the ICEPRINT data set, when FABJDRSN data set is specified.
  
  New keyword DRSNDSN= is provided for ICEIN GLOBAL statement.
  

Problem conclusion

Temporary fix

Comments

• A new module FABJDRSN has been created to analyze FABJDRSN
  statement and create reason code table.
  
  FABJMAIN, FABJINT1, and FABJINT3 have been modified to call new
  module FABJDRSN.
  
  FABJPARM, FABJPRM2, FABJPRM3, FABJSTMP, FABJSTMD, FABJTGEN, and
  FABJBLKD have been modified to support the new keyword
  DRSNDSN= .
  
  FABJDALC has been modified to allocate FABJDRSN data set
  dynamically.
  
  FABJDALO has been modified to check reason code from dynalloc
  macro to retry dynamic allocation.
  
  FABJDIB, FABJDRQS, FABJMAS1 and, FABJSAS2, have been modified to
  pass reason code table to subordinate address space.
  
  FABJGLRP has been modified to report new keyword information.
  
  FABJRETC has been modified to refer to correct number of
  parameter for HPSRETCD.
  
  The following modules have been reassembled.
    FABJACQG  FABJAPIM  FABJATRC  FABJCMDB  FABJCRC0  FABJCRC1
    FABJCRC3  FABJCTCV  FABJCZCV  FABJDALS  FABJDBAL  FABJDBCM
    FABJDBC1  FABJDBD7  FABJDBD8  FABJDBD9  FABJDBDA  FABJDBF0
    FABJDBLK  FABJDBR7  FABJDBR8  FABJDBR9  FABJDBRA  FABJDCTL
    FABJDDIM  FABJDEMP  FABJDFC7  FABJDFC8  FABJDFC9  FABJDFCA
    FABJDMP7  FABJDMP8  FABJDMP9  FABJDMPA  FABJDOPN  FABJDPS7
    FABJDPS8  FABJDPS9  FABJDPSA  FABJDPUT  FABJDREQ  FABJFCAI
    FABJFCC7  FABJFCC8  FABJFCC9  FABJFCCA  FABJFCCM  FABJFCD7
    FABJFCD8  FABJFCD9  FABJFCDA  FABJGDGB  FABJICDD  FABJINT2
    FABJIPRC  FABJMDP7  FABJMDP8  FABJMDP9  FABJMDPA  FABJMRGE
    FABJNTFC  FABJNTFI  FABJNTFS  FABJORC7  FABJORC8  FABJORC9
    FABJORCA  FABJRCH7  FABJRCH8  FABJRCH9  FABJRCHA  FABJRETM
    FABJRFC7  FABJRFC8  FABJRFC9  FABJRFCA  FABJRPT0  FABJSAS1
    FABJSTA   FABJTERM  FABJTOI   FABJUIC1  FABJXCR   FABJXHPC
    FABJXLIM  FABJDBDN  FABJDBRC  FABJDFCN  FABJDMPN  FABJDPSN
    FABJFCCN  FABJFCDN  FABJIDXN  FABJMDPN  FABJORCN  FABJRCHK
    FABJRFCN
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  IMS High Performance Image Copy for z/OS Version 4 Release 1
  User's Guide SC18-9409 ( SC189409 ) should be changed as follows
  
  2.0 Operating Instructions
   2.2 JCL Requirements
    2.2.1 FABJMAIN JCL
  
   Add following DD statements in this section;
  
   Table 2. DD statements for the Image Copy function of the
            FABJMAIN JCL
   +------------+--------+--------------+----------------------+
   |DDNAME      | Use    | Format       | Required of Optional |
   +------------+--------+--------------+----------------------+
   |FABJDRSN    | Input  | LRECL=80     | Optional             |
   +------------+--------+--------------+----------------------+
  
   Table 7. DD statements for the Create Image Copy function of
            the FABJMAIN JCL
   +------------+--------+--------------+----------------------+
   |DDNAME      | Use    | Format       | Required of Optional |
   +------------+--------+--------------+----------------------+
   |FABJDRSN    | Input  | LRECL=80     | Optional             |
   +------------+--------+--------------+----------------------+
  
    2.2.1.1 Function-Unique DD Statements for the HPIC Image Copy
            Function
  
   Add following sentence in this section;
   FABJDRSN DD
   This optional input data set contains the user-specified
   control statements that define the error reason code (S99ERROR)
   and the SMS reason code (S99ERSN) of dynamic allocation.
  
    2.2.1.3 Function-Unique DD Statements for the HPIC Create
            Image Copy Function
  
   Add following sentence in this section;
   FABJDRSN DD
   This optional input data set contains the user-specified
   control statements that define the error reason code (S99ERROR)
   and the SMS reason code (S99ERSN) of dynamic allocation.
  
  2.3 Input
   2.3.4 HPIC Control Statements
    2.3.4.1 GLOBAL Statement
  
   Add following keywords in following section;
      DRSNDSN=
  
   2.3.5 ICEIN Keywords
  
   Add following sub section in following section;
    2.3.5.xx DRSNDSN=
    The DRSNDSN keyword specifies the data set name which
    contains the FABJDRSN control statements.
    If you specify this keyword, HPIC attempts to allocate
    the data set dynamically.
    +---------------------------------------------------------+
    | DRSNDSN=data set name|data set name(member name)        |
    +---------------------------------------------------------+
    where:
     data set name
       Specifies the data set name which contains the FABJDRSN
       control statements.
  
     member name
       If you specify the FABJDRSN control statements in
       partitioned data set member, you must specify the member
       name.
  
     HPIC considers the data set as sequential file, unless you
     specify member name to this keyword.
  
     This keyword can be used in the following control statements:
        GLOBAL
  
     The DRSNDSN= keyword can be used as site default.
  
  2.3 Input
   Add the following new section for 2.3.x;
  
   2.3.x   FABJDRSN data set
   This section explains the FABJDRSN data set.
  
   2.3.x.1 Function
   The FABJDRSN data set contains your specification of the
   error reason code (S99ERROR) and SMS reason code (S99ERSN) that
   is returned from DYNALLOC macro.
  
   2.3.x.2 Format
   This control data set usually resides in the input stream.
   However, it can also be defined as a sequential data set or
   as a member of a partitioned data set.
   It must contain 80-byte, fixed-length records.
   BLKSIZE, if coded, must be a multiple of 80.
   This data set should contain statements.
  
   Sample control statement format in the FABJDRSN data set
    //FABJDRSN  DD  *
    4714,                   4714: not find enough volume space
    039C,                   039C: Device and volume incompatible
    *
    9704(012C,              S99ERSN CAN BE SPECIFIED AS FOLLOWS.
         012D,
         012F)
  
    Note:  On the control statement, code 4-digit hexadecimal
           numbers and the following special characters:
              asterisk       *
              comma          ,
              parenthesis    ( )
  
   2.3.x.3 Control Statement Syntax
   The following describes the coding conventions that you must
   follow in writing control statements in the FABJDRSN data
   set:
  
   - The control statement and option parameters must be coded
     within column 1 and column 72.
   - When more than one control statement is coded, they must be
     separated by commas.
     No blanks are allowed between the control statements and the
     commas, or within the control statements.
   - Option parameters can follow the control statement with
     parentheses.
   - When more than one option parameter is coded, they must be
     separated by commas.
     No blanks are allowed between the option parameters and the
     commas, or within the option parameters.
     Option parameters can be continued onto one or more
     following control statement records.
   - Control statements and option parameters are not positional
     parameters;
     they can be specified in any order of sequence.
     A null value is not allowed for any option parameter.
   - Comments can follow the last option parameter on each
     control statement record separated by at least one blank.
   - A comment line must begin with an asterisk in column 1.
  
   2.3.x.4 The control Statement
   The control statement specifies the dynalloc error reason codes
   (S99ERROR) which is requested to retry allocation.
   There must be at least one control statement.
  
   The control statement contains optional parameters, which
   specifies the SMS reason codes (S99ERSN). Optional parameters
   must be specified between parentheses. If you want to retry
   allocation in detecting SMS error, you must specify S99ERSN
   with this optional parameter.
  
  3.0 Site Default Generation Utility
   3.2 Generating a Site Default Table
    3.2.2 Input
  
   Add following keyword in this section;
    - DRSNDSN
  
  A.0 Appendix A. Return Codes, Abend Codes, and Messages
   A.3 Messages
  
  The message FABJ0010E is added.
  | FABJ0010E FORMAT OF OPERAND nnnn IS INCORRECT
  |
  | Explanation: The dynalloc error reason codes (S99ERROR) and
  | the SMS reason code (S99ERSN) must be coded 4-digit
  | hexadecimal number.
  |
  | System action: Program FABJMAIN stops processing with a return
  | code of 16.
  |
  |Programmer response: Correct the error and rerun the job.
  

APAR Information

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

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

  UK23563

Modules/Macros

• FABJACQG FABJAPIM FABJATRC FABJBLKD FABJCMDB
  FABJCRC0 FABJCRC1 FABJCRC3 FABJCTCV FABJCZCV FABJDALC FABJDALO
  FABJDALS FABJDBAL FABJDBCM FABJDBC1 FABJDBDA FABJDBDN FABJDBD7
  FABJDBD8 FABJDBD9 FABJDBF0 FABJDBLK FABJDBRA FABJDBRC FABJDBR7
  FABJDBR8 FABJDBR9 FABJDCTL FABJDDIM FABJDEMP FABJDFCA FABJDFCN
  FABJDFC7 FABJDFC8 FABJDFC9 FABJDIB  FABJDMPA FABJDMPN FABJDMP0
  FABJDMP7 FABJDMP8 FABJDMP9 FABJDOPN FABJDPSA FABJDPSN FABJDPS7
  FABJDPS8 FABJDPS9 FABJDPUT FABJDREQ FABJDRQS FABJDRSN FABJFCAI
  FABJFCCA FABJFCCM FABJFCCN FABJFCC7 FABJFCC8 FABJFCC9 FABJFCDA
  FABJFCDN FABJFCD7 FABJFCD8 FABJFCD9 FABJGDGB FABJGLRP FABJICDD
  FABJIDXA FABJIDXN FABJIDX7 FABJIDX8 FABJIDX9 FABJINT1 FABJINT2
  FABJINT3 FABJIPRC FABJLINK FABJMAIN FABJMAS1 FABJMDPA FABJMDPN
  FABJMDP7 FABJMDP8 FABJMDP9 FABJMRGE FABJNTFC FABJNTFI FABJNTFS
  FABJORCA FABJORCN FABJORC7 FABJORC8 FABJORC9 FABJPARM FABJPRM2
  FABJPRM3 FABJRCHA FABJRCHK FABJRCH7 FABJRCH8 FABJRCH9 FABJRDBA
  FABJRDB7 FABJRDB8 FABJRDB9 FABJRETC FABJRETM FABJRFCA FABJRFCN
  FABJRFC7 FABJRFC8 FABJRFC9 FABJRPT0 FABJSAS1 FABJSAS2 FABJSTA
  FABJSTMD FABJSTMP FABJTERM FABJTGEN FABJTOI  FABJUIC1 FABJXCR
  FABJXHPC FABJXLIM H1J0410J
  

Fix information

• Fixed component name

  IMS HP IMAGE CO

• Fixed component ID

  5655K9600

Applicable component levels

• R410 PSY UK23563

     UP07/04/03 P F704

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.