PQ49972: MISC FIXES TO HCOPMA71, HCOS12, HCOURPTH, HCOZLDE0 AND HCOZLDH0

APAR status

• Closed as program error.

Error description

• HCOZLDE0:
  Customers sometimes, erroneously, use dictionary OBJECT code
    as input to HCOZLDE0 causing a S0C4.  HCOZLDE0 will now end
    with non-zero condition code and message indicating record
    Number problem with dictionary- no ABEND.
  HCOPMA71:
    Program gets HCOP3601 error (HCOPSCTL Module Missing) message.
    Corrected coding error.  Program runs successfully.
  HCOS12:
    Added missing (& required) DD statements:
      //HCO005   DD SYSOUT=*,DCB=RECFM=FBA
      //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA
  HCOURPTH:
    Corrected report heading text.
  HCOZLDH0:
    1) HCOZLDH0 program opens SYSPRINT DD for reports but
       * got S0C1 ABEND if no SYSPRINT DD in JCL and
       * User's Guide gives sample JCL with HCO005 DD.
         Updated HCOZLDH0 program to
         - open report file SYSPRINT DD first
           if successful reports written to SYSPRINT as before but
           if not successful will open HCO005 DD
             (as the User Guide suggests).
    2) Corrected report field spelling error.
  

Local fix

• apply maintenance
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: all users                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: HCOZLDE0:                               *
  *                        Customers sometimes, erroneously,     *
  *                        use dictionary OBJECT code as input   *
  *                        to HCOZLDE0 causing a S0C4.  HCOZLDE0 *
  *                        will now end with non-zero condition  *
  *                        code and message indicating record    *
  *                        Number problem with dictionary-       *
  *                        no ABEND.                             *
  *                      HCOPMA71:                               *
  *                        Program gets HCOP3601 error (HCOPSCTL *
  *                        Module Missing) message.              *
  *                        Corrected coding error.               *
  *                        Program runs successfully.            *
  *                      HCOS12:                                 *
  *                        Added missing (& required)            *
  *                        DD statements:                        *
  *                        //HCO005   DD SYSOUT=*,DCB=RECFM=FBA  *
  *                        //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA  *
  *                      HCOURPTH:                               *
  *                        Corrected report heading text.        *
  *                      |...+....T....+....2....+....3....+...> *
  *                      HCOZLDH0:                               *
  *                        1) HCOZLDH0 program opens SYSPRINT DD *
  *                           for reports but                    *
  *                           * got S0C1 ABEND if no SYSPRINT DD *
  *                             in JCL and                       *
  *                           * User's Guide gives sample JCL    *
  *                             with HCO005 DD.                  *
  *                             Updated HCOZLDH0 program to      *
  *                             - open report file SYSPRINT DD   *
  *                               if successful reports written  *
  *                                  to SYSPRINT as before but   *
  *                               if not successful will open    *
  *                                  HCO005 DD                   *
  *                                 (as the User Guide suggests) *
  *                        2) Corrected report field spelling    *
  *                           error.                             *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  Fixed multiple problems.
  See problem description.
  

Problem conclusion

• Fixed a number of miscellaneous problems.
  

Temporary fix

•          *********
           * HIPER *
           *********
  

Comments

• ×**** PE02/03/05 FIX IN ERROR. SEE APAR PQ58750  FOR DESCRIPTION
  

APAR Information

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

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

  UQ56119 018PC4Ÿ 018PC4Ÿ

Modules/Macros

•    HCOPMA71 HCOS12   HCOURPTH HCOZLDE0 HCOZLDH0
  

Fix information

• Fixed component name

  IMS HDCE

• Fixed component ID

  5655E0200

Applicable component levels

• R220 PSY UQ56119

     UP01/08/15 P F108 Ž