U3000 abend with a CA1 TMSEARL job

Products

• Earl
• CA 1 Flexible Storage

Issue/Introduction

During the job execution, all dataset allocations were done, the following message emitted:

TMSEARL03 - INITIALIZING FOR SEQUENTIAL PROCESSING  

And then the abend occurred:

IEA995I SYMPTOM DUMP OUTPUT                                                     
  USER COMPLETION CODE=3000                                                     
 TIME=20.41.56  SEQ=03324  CPU=0000  ASID=0138                                  
 PSW AT TIME OF ERROR  078D1000   00008CE8  ILC 2  INTC 0D                      
   ACTIVE MODULE           ADDRESS=00000000_00007528  OFFSET=000017C0           
   NAME=EARL                                                                    
   DATA AT PSW  00008CE2 - 00181610  0A0D58D0  C24C5880                         
   GR 0: 80000000   1: 80000BB8                                                 
      2: 000D7F24   3: 000091D4                                                 
      4: 00018F78   5: 00000000                                                 
      6: 000000F9   7: 000096E0                                                 
      8: 00000000   9: 00000000                                                 
      A: 00008C50   B: 00009010                                                 
      C: 00009010   D: 00008D48                                                 
      E: 40008C9A   F: 00000000                                                 
 END OF SYMPTOM DUMP                                                            
IEF472I TMDEARL STEP010 - COMPLETION CODE - SYSTEM=000 USER=3000 REASON=00000000

JCL:

 4 //STEP010  EXEC PGM=EARL                                 
 5 //EARLLIB  DD  DISP=SHR,DSN=SYS1.CAI.CAISRC              
 6 //TAPEDB   DD DISP=SHR,DSN=SYSS.CA1.TMC                  
 7 //SYSIN    DD  DISP=SHR,DSN=TMUSP.SSTAPE.PARMLIB(EARLDLY)
 8 //SYSEARL  DD  DISP=(,PASS),DSN=TMUSP.TMDEARL.TEMP,      
   //             DATACLAS=LARGE,DSORG=PS,RECFM=FB,LRECL=250
 9 //SYSOUT   DD  SYSOUT=*                                  
10 //SYSPRINT DD  SYSOUT=*                                  
11 //SYSUDUMP DD  SYSOUT=*                                  
12 //EARLOBJ  DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
13 //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
14 //SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
15 //SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
16 //SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
17 //SYSUT5   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
18 //SYSUT6   DD  UNIT=SYSDA,SPACE=(CYL,(100,100))          
19 //SORTIN   DD  UNIT=SYSDA,SPACE=(CYL,(100,50))           
20 //SORTOUT  DD  UNIT=SYSDA,SPACE=(CYL,(100,50))           
21 //WORK1    DD  UNIT=SYSDA,SPACE=(CYL,(100,50))           
22 //SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(500,500))          
23 //SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(500,500))
24 //SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(500,500))         
   //*                                                     
 

 

Environment

Release : 6.1 - Component : EARL-MVS COMMON COMPONENT
CA/1 R14.0 : TMSEARL

Cause

SYSEARL DD LRECL has been set too large causing the abend.

Resolution

The maximum size for the printer width is 216, which is coded in the Earl program:
OPTION PRINTER=216

The SYSEARL's LRECL can not be greater than LRECL=220. 
Otherwise, a U3000 ABEND will occur.