PK44273: DFHœCRFP was written as a PL/I function when it should be a subroutine. This could lead to abend0C4 or unpredictable RCs.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Customer is using user exit DFH$CRFP with DFHCSDUP and receiving
  various errors ABEND0C4,  msg DFH5287 E EXTRACT TERMINATED AT
  USER REQUEST RC=1003568.  The user exit is written in PL1/Le.
  It is designed as a PL/I function. But it should be a
  subroutine.
  

Local fix

• Change the sample program DFH$CRFP in the following way:
  1. PROC statement:
     replace RETURNS(FIXED BIN(31));
          by OPTIONS(ASM RETCODE);
  2. RETURN statement:
     replace RETURN(EXIT_RETURN_CODE);
          by CALL PLIRETC(EXIT_RETURN_CODE);
     and add RETURN;
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Abend0C4 in CEEPIPI when running the    *
  *                      sample DFHCSDUP EXTRACT program,        *
  *                      DFH$CRFP.                               *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  DFH$CRFP, the PL/I version of the CSD cross-referencing
  sample, is written as a PL/I function but is being called
  as a subroutine by DFHCSDUP. This results in an abend 0C4 in
  the CEEPIPI enclave and the following messages may be issued:
  DFH5287 E EXTRACT TERMINATED AT USER REQUEST RC=1003568,
  CEE0374C CONDITION=CEE3206S TOKEN=00030C86 59C3C5C5 00000000
           WHILE RUNNING PROGRAM CEEPLPKA
  USER COMPLETION CODE=4083 REASON CODE=00000003
  DFH5624 S THE EXTRACT EXIT PROGRAM HAS BEEN UNLOADED DURING
  CLEAN-UP PROCESSING FOLLOWING THE INTERCEPTION OF AN ABEND.
  DFH5623 S THE PRIMARY CSD HAS BEEN CLOSED DURING CLEAN-UP
  PROCESSING FOLLOWING THE INTERCEPTION OF AN ABEND.
  
  Additional keywords: abend0C4 S0C4 abendS0C4 msgDFH5287
  msgCEE0374C msgDFH5623 msgDFH5624 IBM0534S ONCODE=8094
  msgIBM0534S PROCESS_INITIAL_CALL SIBMAM24 PLI DFH½CRFP
  

Problem conclusion

• DFH$CRFP has been amended to make it a PL/I
  subroutine.
  

Temporary fix

• CICS AR402
  ++ APAR (AK44273).
  ++ VER (C150) FMID(JCI6402).
  ++ MACUPD (DFH$CRFP) DISTLIB(ADFHSAMP) SYSLIB(SDFHSAMP)
     /* MODULE: DFH$CRFP --- TYPE: PLI */.
  ./ CHANGE NAME=DFH$CRFP,SEQFLD=738
   /*                                 /* @BA44273D */ 01980000
   /*                                 /* @BA44273D */ 02040000
   /*                                 /* @BA44273D */ 02100000
   /* N.B This program must be link edited with the
                                stub  /* @BA44273A */ 02160000
   /*     DFHEXLE. It must be AMODE(24) RMODE(24).
                                      /* @BA44273A */ 02167000
   /*     See the CICS Customisation Guide 'Invoking a
                                      /* @BA44273A */ 02174000
   /*     user program from DFHCSDUP' for more details.
                                      /* @BA44273A */ 02181000
                  EXITKV_TEMP) OPTIONS(ASM RETCODE);
                                      /* @BA44273C */ 03300000
         PLIRETC,                     /* @BA44273A */ 17550000
   CALL PLIRETC(EXIT_RETURN_CODE);    /* @BA44273C */ 21600000
   RETURN;                            /* @BA44273A */ 21630000
  ./ ENDUP
  

Comments

APAR Information

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

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

  UK26880

Modules/Macros

•    DFH$CRFP
  

Fix information

• Fixed component name

  CICSTS 3.X Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R402 PSY UK26880

     UP07/07/11 P F707

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.