ACF2 CPF CPFC1IJL INITJNL to create Journal file gets IEC031I D37-04

book

Article ID: 206929

calendar_today

Updated On:

Products

CA ACF2

Issue/Introduction

Running ACF2 CPF  INITJNL job program  CPFC1IJL to create the ACF2 CPF Journal file getting:

 12.58.01 JOB15476  IEC031I D37-04,IFG0554P,SDSFDDDD,INITJNL,CPFJRNL,9831,REC202,  293
    293             SYS1.CPF.JRNLRECV.C200
 12.58.01 JOB15476  IEA995I SYMPTOM DUMP OUTPUT  295
    295             SYSTEM COMPLETION CODE=D37  REASON CODE=00000004
    295              TIME=12.58.01  SEQ=00921  CPU=0000  ASID=0038
    295              PSW AT TIME OF ERROR  075C1000   80E58A92  ILC 2  INTC 0D
    295                NO ACTIVE MODULE FOUND
    295                NAME=UNKNOWN
    295                DATA AT PSW  00E58A8C - 4100303C  0A0DB20A  00509808
    295                AR/GR 0: 007FE990/00E58CFC   1: 00000000/A4D37000
    295                      2: 00000000/00006420   3: 00000000/00E58CC0
    295                      4: 00000000/007B4208   5: 00000000/00E71000
    295                      6: 00000000/007B44AC   7: 00000000/007B4504
    295                      8: 00000000/007B44CC   9: 00000000/007C9B38
    295                      A: 00000000/00FA4C40   B: 00000000/00E5871E
    295                      C: 00000000/00000000   D: 00000000/7F5ABCE8
    295                      E: 00000000/00E5871E   F: 00000000/00000004
    295              END OF SYMPTOM DUMP

Environment

Release : 16.0

Component : CA ACF2 for z/OS

Resolution

The IEC031I D37-04 error is occurring because the number of blocks for CPF journal file allocation must be the same as the BLOCKS= for SYSIN:

//INITJNL      EXEC  PGM=CPFC1IJL                 
//STEPLIB      DD    DSN=&CAI.CAX1LINK,DISP=SHR    
//SYSPRINT     DD    SYSOUT=*                     
//CPFJRNL      DD    DSN=&HL.CPFJRNL,              
//             SPACE=(133,(&BLOCKS)),UNIT=&SYSDA, 
//             DISP=(,CATLG,DELETE),VOL=SER=&VOLSER
//SYSIN        DD       *                         
BLOCKS=&BLOCKS                                     
/*  

If the SPACE allocation has  'SPACE=(133,(133)),' and the SYSIN BLOCKS  does not equal 133 the IEC031I D37-04 error will occur. 

To correct the error specify the same  SPACE &BLOCKS as the SYSIN BLOCKS= specification.