PQ69334: ONLINE IMAGE COPY JCL EXEC PARM VALUE DESTNAME MODIFICATION.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ONLINE IMAGE COPY JCL as generated abends because the default
  value for DESTNAME is not the user defined LTERM for the IMS
  MASTER TERMINAL. The customer should be allowed to alter this
  variable value at data collection time instead of modifying
  the JCL at job submission time.
  

Local fix

• Customer could edit JCL for job
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL CONTROL SUITE R220 USERS                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: THE GENERATED JCL FOR ONLINE IMAGE      *
  *                      COPY JOB CONTAINS A HARD CODED PARM     *
  *                      VALUE ON THE EXEC CARD FOR THE          *
  *                      DESTNAME LTERM OUTPUT LOCATION FOR      *
  *                      CRITICAL ERROR MESSAGES. IT REPRESENTS  *
  *                      THE IMS MASTER CONSOLE NAME, 'MASTER'.  *
  *                      IF THIS NAME IS NOT THE DEFAULT NAME    *
  *                      AT THE CUSTOMER SITE AN ABEND U0444     *
  *                      WILL OCCUR.                             *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  THE ONLINE IMAGE COPY JCL JOBSTREAM WHICH IS GENERATED BY THE
  CONTROL SUITE R220 PRODUCT CONTAINS AN EXEC STATEMENT FOR EACH
  IMS DATABASE DEFINED TO THE CSID. THESE EXEC STATEMENTS CONTAIN
  A PARM LIST VARIABLE GROUP OF VALUES NEEDED FOR THE EXECUTION
  OF THE ONLINE IMAGE COPY PROCESS.  THE DESTNAME VALUE IS HARD
  CODED AS 'MASTER'. THE DESTNAME IS A LTERM OUTPUT LOCATION FOR
  CRITICAL ERROR MESSAGES.  IF THE DESTNAME OF 'MASTER' IS NOT
  GEN'D AS THE NAME OF THE IMS MASTER CONSOLE LTERM LOCATION, AN
  ABENDU0444 WILL OCCUR.
  

Problem conclusion

• CHANGE THE IMAGE COPY DEFINITION PANEL AT DATA COLLECTION TIME
  TO INCLUDE A USER DEFINED DESTNAME ENTRY VALUE. DEFAULT TO
  'MASTER' IF NO DESTNAME VALUE IS ENTERED BY USER. THE JCL
  JOBSTREAM GENERATION FOR ONLINE IMAGE COPY PROCESSING WILL
  CONTAIN THE USER'S DESTNAME VALUE IF PROVIDED OR THE DEFAULT
  OF 'MASTER'.
  
  A FACSIMILE OF THE ISPF PANEL WHICH HAS BEEN MODIFIED IS SHOWN
  BELOW AND REFLECTS THE CHANGES MADE TO FIGURE 11 ON PAGE NUMBER
  21 IN ORDER TO ALLOW DESTNAME PARM TO BE SPECIFIED ON THE PANEL
  WITH THE PSB NAME AND APPLICATION GROUP NAME.
  
  IDLSOPT3              IMS DB CONTROL SUITE V2.2 - PQ69334
  SETUP    COLLECT    function for CS ID IMS01 IMS Version 7.1
  Command ===>
  
  Press ENTER to continue or END to exit
  
  Specify Global Image Copy Options for CS Group . . IMSTST1
   IC1 high-level qualifiers. . _____________
   IC2 high-level qualifiers. . _____________
   IC middle qualifiers     . . _        (1=DDN, 2=DBD.DDN)
   IC low-level qual (DASD) . . _____    (blank if GDG, name)
   IC low-level qual (TAPE) . . _____    (blank if GDG, name, ...
   GDG device type          . . SYSDA    (SYSDA,TAPE,ATL2,other)
   Type                     . . D        (D=DASD, T=Tape)
   Unit                     . . G        (8=3380,9=3390,G=GDG,...)
   Recovery period in RECON . . 0        RECON GENMAX       . . 25
   Tape retention period    . . 99       Tape data set volume ...
  Online Image Copy Options (if OIC is going to be used)
   PSB name. ______    DESTNAME _______  Applic Group Name(AGN)___
  User's GENJCL JCLPDS data set and members (blank if using CS ...
   NOJOB parameter          . . __       (Y or N)
   Data set                 . . _______________________________
   Image Copy . . _______  Online Image Copy . ._____ Recovery . .
  
  
  ADDITIONAL ISSUES ADDRESSED IN APAR:
  1.) CHANGES TO JCL GENERATION JCL DATA SET ALLOCATION TO ENSURE
  THAT JCL WORK DATA SETS (USERID.Ddaynumber.JCLOUTx) ARE DELETED
  WHEN THE USER TERMINATES THE CONTROL SUITE SESSION.
  2.) CORRECT SCROLLING FOR CSID TABLE (PANELID=IDL$CSIS) WHEN
  CREATING A NEW CSID USING AN EXISTING CSID ROW AS A MODEL
  DURING THE DEFINE FUNCTION.
  

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:

  UQ73302

Modules/Macros

• IDL$CSIS IDLC0001 IDLGNJCX IDLH1676 IDLH1678
  IDLICD   IDLSDSS0 IDLSMAIN IDLSOPT3
  

Fix information

• Fixed component name

  IMS DB CNTL SUI

• Fixed component ID

  5655F7600

Applicable component levels

• R220 PSY UQ73302

     UP03/01/18 P F301

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.