search cancel

IDI0123S Processing of abend U4039 terminated due to unsupported execution environment: TCB Not protect KEY 8 or 9

book

Article ID: 253320

calendar_today

Updated On:

Products

Spool

Issue/Introduction

Spool allocates a dataset but retains exclusive control of the dataset in 3.4.  

Report data is sent from Control-D.  Once captured by Spool, the report can be viewed under the 'Display All Files' panel.  But when we attempt to

browse the dataset in 3.4, Spool has exclusive control of the file.  If we recycle Spool, the file is released and when it is browsed,

the dataset is empty.
Additional symptoms in the Spool joblog:

08.00.16 STC23052  IEA995I SYMPTOM DUMP OUTPUT  635
    635               USER COMPLETION CODE=4039 REASON CODE=00000000
    635              TIME=08.00.16  SEQ=02039  CPU=0000  ASID=008E
    635              PSW AT TIME OF ERROR  073D1400   9D9839EA  ILC 2  INTC 0D
    635                ACTIVE MODULE           ADDRESS=00000000_1D8B6BD8  OFFSET=000CCE12
    635                NAME=CEEPLPKA
    635                DATA AT PSW  1D9839E4 - 00181610  0A0D58D0  D00498EC
    635                AR/GR 0: 00BFEA2C/00010000_84000000   1: 00000000/00000000_84000FC7
    635                      2: 00000000/00000000_1E1BA958   3: 00000000/00000000_00000000
    635                      4: 00000000/00000000_1D936810   5: 00000000/00000000_1D9839EA
    635                      6: 00000000/00000000_1E1B18B0   7: 00000000/00000000_1E1AA4C0
    635                      8: 00000000/00000000_1E1BA958   9: 00000000/00000000_1E1BA420
    635                      A: 00000000/00000000_1E1BB26F   B: 00000000/00000000_9D983910
    635                      C: 00000000/00000000_1E1B31D8   D: 00000000/00000000_1E1BDBA8
    635                      E: 00000000/00000000_9D983946   F: 00000000/00000000_00000000
    635              END OF SYMPTOM DUMP

Environment

Release : 14.0

Resolution

The file had PRMODE=PAGE due to its record length and this was causing Spool to treat it as binary data. Although the LRECL was big the actual line data was not longer than 133 bytes.
As a work around, a DESTID statement was added to reduce the size of the record to allow the usage of PRMODE=LINE:

DESTID QDEST=DISKNODE,FNAME=JOBNAME,FLRECL=133,FPRMODE=LINE

Final resolution is to change the application to create the output with a smaller record length.