ACF2 CPF CPFC1IJL INITJNL to create Journal file gets IEC031I D37-04
Article ID: 206929
Updated On:
Products
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.
Feedback
