PQ98519: ALLOW IMSID KEYWORD ON THE INVOKING EXEC STATEMENT IN FABCUR1 (HPFPU V2R1) TO PASS AN IMS SSID TO THE RANDOMIZER.

APAR status

• Closed as new function.

Error description

• Add a new parameter (IMSID=) to the EXEC statement in Unload
  (FABCUR1) to pass an IMS SSID to the randomizer.
  The randomizer called by FABCUR1 can get IMSID with the same
  register interface as IMS online environment.
  This is a forward fit APAR of FPB V1R2 APAR PQ98282.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All DEDB Unload users of High Performance    *
  *                 Fast Path Utilities FP Basic Tools Version 2 *
  *                 Release 1 (FMID: H31A210).                   *
  ****************************************************************
  * PROBLEM DESCRIPTION: Forward Fit APAR of FPB V1R2 PQ98282:   *
  *                      Allow IMSID keyword on the invoking     *
  *                      EXEC statement in FABCUR1               *
  *                      (HPFPU FPB V2R1) to pass an IMS SSID to *
  *                      the randomizer.                         *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  Add a new parameter (IMSID=) on to EXEC statement in Unload
  (FABCUR1) to pass an IMS SSID to the randomizer. The randomizer
  called by FABCUR1 can get IMSID with the same register interface
  as IMS online environment.
  

Problem conclusion

Temporary fix

Comments

• Unload (FABCUR1) has been enhanced to add an IMSID= parameter
  to EXEC statement to pass an IMS SSID to the randomizer.
  
  New format of the EXEC control statement is as follows,
  // EXEC PGM=FABCUR1,PARM='DBRC=x,IMSID=xxxxxxxx',REGION=rrrrK
  
  If IMSID parameter is specified, FABCUR1 makes the buffers for
  temporary ESCD and SCD. Register 11 contains the address of
  temporary ESCD when FABCUR1 issues a call to a randomizing
  module. FABCUR1 sets only the field ESCDSCD that contains the
  address of SCD into temporary ESCD. FABCUR1 also sets only the
  field SSCDIMID that contains IMS subsystem ID into temporary
  SCD. Other fields of temporary ESCD and temporary SCD cannot be
  referred.
  
  
  The module FABCUR1U has been modified to set an address of
  temporary ESCD when IMSID is specified.
  
  The module FABC1EOJ has been modified to FREEMAIN the temporary
  ESCD and SCD addresses when these addresses had been GETMAINed.
  
  The module FABC1INI has been modified to invoke a subroutine of
  GETMAIN the address of temporary ESCD and SCD.
  
  The module FABC1SB0 has been modified to support an IMSID
  parameter for EXEC statement, and GETMAIN the buffers of
  temporary ESCD and SCD when IMSID is specified.
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  The IMS High Performance Fast Path Utilities for z/OS
  User's Guide Volume 2: Fast Path Basic Tools Version 2 Release 1
  (SC18-9238-00) should be changed as follows:
  
  PART 4. DEDB Unload/Reload Utilities
   Chapter 13. Using the DEDB Unload Utility-FABCUR1
    FABCUR1 Control Statements
     Randomizing Routine Considerations
      Notes:
  
  *The following sentence should be added to second paragraph.
  
  However, if "IMSID=xxxxxxxx" is specified in the FABCUR1 EXEC
  parameter statement, register 11 contains the address of the
  temporary ESCD created by FABCUR1. Minimum required fields
  (ESCDSCD,SSCDIMID) are set by the temporary ESCD and temporary
  SCD so that the randomizer can get the IMSID like in the IMS
  online environment.
  
  PART 4. DEDB Unload/Reload Utilities
   Chapter 13. Using the DEDB Unload Utility-FABCUR1
    JCL
     EXEC
  
  *The following description should be changed as follows,
  
  This statement must be in the form:
  // EXEC PGM=FABCUR1,PARM='DBRC=x,IMSID=xxxxxxxx',REGION=rrrrK
  
  *The following description should be added to the EXEC statement
  explanation.
  
  IMSID=
    Determines the IMS subsystem name.
      The IMS subsystem name is an eight-character alphanumeric
      strings that comprise a valid IMS subsystem identification
      name. If the IMSID parameter is specified, FABCUR1 generates
      the buffers for temporary ESCD and SCD. Register 11 contains
      the address of the temporary ESCD when FABCUR1 issues a call
      to a randomizing module. FABCUR1 sets only the ESCDSCD
      field, which contains the address of SCD, in the
      temporary ESCD.
      FABCUR1 also sets only field SSCDIMID, which contains the
      IMS subsystem ID, in the temporary SCD. Other fields of
      temporary ESCD and temporary SCD cannot be referred to. If
      IMSID is specified, the IMS load module library must be
      concatenated with the JOBLIB or STEPLIB DD.
  
      Default: None.
  

APAR Information

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

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

  UQ96207

Modules/Macros

•    FABCFORM FABCMMCL FABCMMIF FABCMPC0 FABCUR1
  FABCUR1U FABC1DMA FABC1EOJ FABC1EXR FABC1EXT FABC1GCD FABC1INI
  FABC1OP1 FABC1OP2 FABC1SBM FABC1SB0 FABC1SCH FABC1UDT UR#DUCT0
  UR1LTRL0 UR1WSTG0
  

Fix information

• Fixed component name

  IMS HP FP UTILI

• Fixed component ID

  5655K9400

Applicable component levels

• R210 PSY UQ96207

     UP04/12/18 P F412