Page 1 of 1

Abend S013 20

PostPosted: Wed Sep 22, 2010 7:50 pm
by GUI1504
I'm trying to redefines a table and i got this abend, can someone help me?

ERROR
SYSTEM COMPLETION CODE=013  REASON CODE=00000020         
TIME=10.11.24  SEQ=14920  CPU=0000  ASID=0026           
PSW AT TIME OF ERROR  075C1000   80E42346  ILC 2  INTC 0D
NO ACTIVE MODULE FOUND                                 
NAME=UNKNOWN                                           


JCL
//GUI1504R     JOB (GUI1504),GUI1504,CLASS=A,MSGCLASS=X,NOTIFY=GUI1504
//PROCLIB      JCLLIB ORDER=IBMMFS.PROC.IBMCOB                       
//STEP1        EXEC IGYWCG                                           
//COBOL.SYSIN  DD DSN=GUI1504.REDEFINE.COBOL,DISP=SHR                 
//ENTRADA      DD DSN=GUI1504.REDEFINE.ENTER,DISP=SHR                                                                                 
//SYSPRINT     DD SYSOUT=*                                           
/*                                                                   


ENTRADA -GUI1504.REDEFINE.ENTER
HNOME-DO-PROGRAMA000001             
D0123456789NOME-DO-CLIENTE2000092910
D0123456789NOME-DO-CLIENTE2000092810
D0123456789NOME-DO-CLIENTE2000092710
D0123456789NOME-DO-CLIENTE2000092610
D0123456789NOME-DO-CLIENTE2000092510
D0123456789NOME-DO-CLIENTE2000092410
D0123456789NOME-DO-CLIENTE2000092310
D0123456789NOME-DO-CLIENTE2000092210
D0123456789NOME-DO-CLIENTE2000092110
D0123456789NOME-DO-CLIENTE2000082910
D0123456789NOME-DO-CLIENTE2000092810
D0123456789NOME-DO-CLIENTE2000092710
D0123456789NOME-DO-CLIENTE2000092610
T000013                             


COBOL
000001        IDENTIFICATION DIVISION.     
000002        PROGRAM-ID. REDEFINE.       
000003       *                             
000004        ENVIRONMENT DIVISION.       
000005       *                             
000006        INPUT-OUTPUT SECTION.       
000007        FILE-CONTROL.               
000008            SELECT ENTRADA           
000009              ASSIGN TO ENTRADA     
000010                FILE-STATUS IS WS-FS.
000011      *                             
000012       DATA DIVISION.               
000013      *                             
000014       FILE SECTION.                 
000015      *                             
000016       FD ENTRADA                   
000017       LABEL RECORD IS STANDARD.     
000018      *                             
000019       01 REG-ENTRADA PIC X(200).   
 000020      *                                             
 000021       WORKING-STORAGE SECTION.                     
 000022      *                                             
 000023       01 WS-REG-FILE.                             
 000024            05 WS-REG-INDEX  PIC       X(1).       
 000025            05 WS-REG-ARQ    PIC       X(199).     
 000026            05 WS-REG-HEADER    REDEFINES WS-REG-ARQ
 000027               10 WS-NOME-PGM   PIC       X(16).   
 000028               10 WS-VERSAO-PGM PIC       9(6)     
 000029               10 FILLER        PIC       X(175).   
 000030            05 WS-REG-DETALHE   REDEFINES WS-REG-ARQ
 000031               10 WS-CONTA-CLI  PIC       9(10).   
 000032               10 WS-NOME-CLI   PIC       X(15).   
 000033               10 WS-VALOR-CTA  PIC       9(4).     
 000034               10 WS-DATA-CTA   PIC       9(6).     
 000035            05 WS-REG-TRAILER   REDEFINES WS-RG-ARQ
 000036               10 WS-REG-QTD    PIC       9(6).     
 000037               10 FILLER        PIC       X(193).   
 000038       *                                           
 000039        PROCEDURE DIVISION.                         
000040       *                             
000041        OPEN INPUT ENTRADA           
000042        READ ENTRADA INTO WS-REG-FILE.
000043       *                             
000044        IF WS-REG-INDEX = 'H'       
000045            PERFORM WS-REG-HEADER   
000046        ELSE                         
000047            IF WS-REG-INDEX = 'D'   
000048               PERFORM WS-REG-DETALHE
000049        ELSE                         
000050            IF WS-REG-INDEX = 'T'   
000051               PERFORM WS-REG-TRAILER
000052       ELSE                         
000053            DISPLAY "ERRO"           
000054         END-IF                     
000055        END-IF                       
000056       END-IF                       
000057      *                             
000058       DISPLAY WS-NOME-PGM           
000059       DISPLAY WS-VERSAO-PGM         
000060       DISPLAY WS-CONTA-CLI
000061       DISPLAY WS-NOME-CLI
000062       DISPLAY WS-DATA-CTA
000063       DISPLAY WS-REG-QTD
000064      *                   
000065       CLOSE ENTRADA     
000066       STOP RUN.         

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 8:10 pm
by MrSpock
Please post the description of the 013 system error message, as well as the content and description of the other message(s) it refers to for diagnostics.

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 8:15 pm
by Robert Sample
S013 is an open error. The 20 indicates multiple possibilities:
- LRECL=0 for fixed length data sets
- BLKSIZE not a multiple of LRECL for fixed length data sets
- BLKSIZE not at least 4 bytes more than LRECL for variable length data sets

The full IEC141I message provides the DD name, step name, and other details about the problem.

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 8:20 pm
by GUI1504
S013 - 20 - AN OPEN MACRO WAS ISSUED FOR A SEQUENTIAL DATASET USING THE QUEUED ACCESS TECHNIQUE WITH RECFM=FB, BUT BLKSIZE IS NOT A MULTIPLE OF LRECL, OR FOR VARIABLE-LENGTH RECORDS, BLKSIZE IS NOT 4 BYTES GREATER THAN THE LRECL.

JESMSGLG
10.30.17 JOB26021 ---- WEDNESDAY, 22 SEP 2010 ----                             
10.30.17 JOB26021  IRR010I  USERID GUI1504  IS ASSIGNED TO THIS JOB.           
10.30.20 JOB26021  ICH70001I GUI1504  LAST ACCESS AT 10:30:02 ON WEDNESDAY, SEPT
10.30.20 JOB26021  $HASP373 GUI1504R STARTED - INIT 1    - CLASS A - SYS SYS1   
10.30.26 JOB26021  IEC141I 013-20,IGG0191A,GUI1504R,COBOL,SYSIN,0AD8,FUSR18,GUI1
10.30.26 JOB26021  IEA995I SYMPTOM DUMP OUTPUT  743                             
   743             SYSTEM COMPLETION CODE=013  REASON CODE=00000020             
   743              TIME=10.30.26  SEQ=14925  CPU=0000  ASID=0026               
   743              PSW AT TIME OF ERROR  075C1000   80E42346  ILC 2  INTC 0D   
   743                NO ACTIVE MODULE FOUND                                   
   743                NAME=UNKNOWN                                             
   743                DATA AT PSW  00E42340 - 41003BB6  0A0D41F0  38A656F0     
   743                AR/GR 0: 80C9AB3E/00E42660   1: 00000000/A4013000         
   743                      2: 00000000/00013B14   3: 00000000/00E41AAA         
   743                      4: 00000000/009C8410   5: 00000000/009C87A4         
   743                      6: 00000000/009C874C   7: 00000000/009C87A4         
   743                      8: 00000000/009C876C   9: 00000000/009BC0C8         
   743                      A: 00000000/00F4E468   B: 00000000/00000000       
   743                      C: 00000000/00000050   D: 00000000/00000000       
   743                      E: 00000000/80E41BE2   F: 00000000/00000020       
   743              END OF SYMPTOM DUMP                                       
 10.30.28 JOB26021  IEF450I GUI1504R COBOL STEP1 - ABEND=S013 U0000 REASON=REASON=00000020
 10.30.40 JOB26021  $HASP395 GUI1504R ENDED                                     
0------ JES2 JOB STATISTICS ------                                             
-  22 SEP 2010 JOB EXECUTION DATE                                               
-           10 CARDS READ                                                       
-          183 SYSOUT PRINT RECORDS                                             
-            0 SYSOUT PUNCH RECORDS                                             
-           12 SYSOUT SPOOL KBYTES                                             
-         0.34 MINUTES EXECUTION TIME                                           


JESYSMSG
 STMT NO. MESSAGE                                                               
        3 IEFC001I PROCEDURE IGYWCG WAS EXPANDED USING SYSTEM LIBRARY SYSFAN.PRO
ICH70001I GUI1504  LAST ACCESS AT 10:30:02 ON WEDNESDAY, SEPTEMBER 22, 2010     
IEF236I ALLOC. FOR GUI1504R COBOL STEP1                                         
IEF237I 0A81 ALLOCATED TO STEPLIB                                               
IEF237I JES2 ALLOCATED TO SYSPRINT                                             
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )                                     
        DSN (SYS10265.T103019.RA000.GUI1504R.LOADSET.H01 )                     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )                 
        VOL SER NOS= WRK002                                                     
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )                                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135875    )                     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )                 
        VOL SER NOS= WRK000                                                     
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2  )                                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135876    )                     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )                 
        VOL SER NOS= WRK001                                                     
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3  )                                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135877    )     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= WRK003                                   
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4  )                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135878    )     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= WRK003                                   
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5  )                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135879    )     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= WRK003                                   
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6  )                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135880    )     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= WRK002                                   
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7  )                     
        DSN (SYS10265.T103019.RA000.GUI1504R.R0135881    )     
        STORCLAS (USER) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= WRK003                                   
IGD103I SMS ALLOCATED TO DDNAME SYSIN                         
IGD103I SMS ALLOCATED TO DDNAME ENTRADA                                         
IEC141I 013-20,IGG0191A,GUI1504R,COBOL,SYSIN,0AD8,FUSR18,GUI1504.REDEFINE.COBOL
IEA995I SYMPTOM DUMP OUTPUT                                                     
SYSTEM COMPLETION CODE=013  REASON CODE=00000020                               
 TIME=10.30.26  SEQ=14925  CPU=0000  ASID=0026                                 
 PSW AT TIME OF ERROR  075C1000   80E42346  ILC 2  INTC 0D                     
   NO ACTIVE MODULE FOUND                                                       
   NAME=UNKNOWN                                                                 
   DATA AT PSW  00E42340 - 41003BB6  0A0D41F0  38A656F0                         
   AR/GR 0: 80C9AB3E/00E42660   1: 00000000/A4013000                           
         2: 00000000/00013B14   3: 00000000/00E41AAA                           
         4: 00000000/009C8410   5: 00000000/009C87A4                           
         6: 00000000/009C874C   7: 00000000/009C87A4                           
         8: 00000000/009C876C   9: 00000000/009BC0C8                           
         A: 00000000/00F4E468   B: 00000000/00000000                           
         C: 00000000/00000050   D: 00000000/00000000                           
         E: 00000000/80E41BE2   F: 00000000/00000020                           
 END OF SYMPTOM DUMP                                                           
IEF472I GUI1504R COBOL STEP1 - COMPLETION CODE - SYSTEM=013 USER=0000 REASON=00000020
IEF285I   IGY330.SIGYCOMP                              KEPT                     
IEF285I   VOL SER NOS= Z6RES2.                                                 
IEF285I   GUI1504.GUI1504R.JOB26021.D0000101.?         SYSOUT                 
IGD106I SYS10265.T103019.RA000.GUI1504R.LOADSET.H01  PASSED,    DDNAME=SYSLIN 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135875     DELETED,   DDNAME=SYSUT1 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135876     DELETED,   DDNAME=SYSUT2 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135877     DELETED,   DDNAME=SYSUT3 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135878     DELETED,   DDNAME=SYSUT4 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135879     DELETED,   DDNAME=SYSUT5 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135880     DELETED,   DDNAME=SYSUT6 
IGD105I SYS10265.T103019.RA000.GUI1504R.R0135881     DELETED,   DDNAME=SYSUT7 
IGD104I GUI1504.REDEFINE.COBOL                       RETAINED,  DDNAME=SYSIN   
IGD104I GUI1504.REDEFINE.ENTER                       RETAINED,  DDNAME=ENTRADA
IEF373I STEP/COBOL   /START 2010265.1030                                       
IEF374I STEP/COBOL   /STOP  2010265.1030 CPU    0MIN 00.45SEC SRB    0MIN 00.00
IEF272I GUI1504R GO STEP1 - STEP WAS NOT EXECUTED.                             
IEF373I STEP/GO      /START 2010265.1030                                       
IEF374I STEP/GO      /STOP  2010265.1030 CPU    0MIN 00.00SEC SRB    0MIN 00.00
IEF237I 0AC2 ALLOCATED TO SYS00001                                             
IEF285I   SYS10265.T103035.RA000.GUI1504R.R0135882     KEPT                   
IEF285I   VOL SER NOS= WRK002.                                                 
IGD105I SYS10265.T103019.RA000.GUI1504R.LOADSET.H01  DELETED,   DDNAME=SYSLIN 
IEF375I  JOB/GUI1504R/START 2010265.1030                                       
IEF376I  JOB/GUI1504R/STOP  2010265.1030 CPU    0MIN 00.45SEC SRB    0MIN 00.00

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 8:32 pm
by Robert Sample
IEC141I 013-20,IGG0191A,GUI1504R,COBOL,SYSIN,0AD8,FUSR18,GUI1
Return code, module detecting error, job name, step name, DD name, unit, volser

So you need to look at GUI1504.REDEFINE.COBOL via ISPF to see the DCB characteristics.

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 8:36 pm
by GUI1504
DATA SET INFORMATION

 Data Set Name . . . . : GUI1504.REDEFINE.COBOL                           
                                                                         
 General Data                           Current Allocation               
  Management class . . : **None**        Allocated blocks  . : 8         
  Storage class  . . . : USER            Allocated extents . : 1         
   Volume serial . . . : FUSR18                                           
   Device type . . . . : 3390                                             
  Data class . . . . . : **None**       Current Utilization               
   Organization  . . . : PS              Used blocks . . . . : 1         
   Record format . . . : FB              Used extents  . . . : 1         
   Record length . . . : 200                                             
   Block size  . . . . : 27800                                           
   1st extent blocks . : 8                                               
   Secondary blocks  . : 24                                               
   Data set name type  :                 SMS Compressible  . : NO         
                                                                         
   Creation date . . . : 2010/09/21      Referenced date . . : 2010/09/22
   Expiration date . . : ***None***                                       

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 9:03 pm
by Robert Sample
Chapter 2.1.4.1.1 of the COBOL Programming Guide manual explicitly states that SYSIN to the compiler must be LRECL=80. Yours is 200. Since 27800 is not an even multiple of 80, COBOL is changing your LRECL-=200 to LRECL=80 and suddenly the block size for your input is not a multiple of the LRECL for the fixed length file. Instant S013-20 abend (note: details can be very critical in IT and the abend is S0!3, not S13 -- the abend code is S or U followed by three hexadecimal digits 000 to FFF).

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 10:02 pm
by steve-myers
An ABEND code is Shhh where hhh is 3 hexadecimal digits, or Unnnn, where nnnn is 1 to 4 decimal digits, with a maximum value of 4095. Most System ABEND codes have an associated reason code, usually two hexadecimal digits, so the code here is S013-20.

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 11:14 pm
by GUI1504
Thank you everybody, i put 3600 on block size and it works, thank you the tips too, they're very helpful

Re: Abend S13 20

PostPosted: Wed Sep 22, 2010 11:54 pm
by Robert Sample
Yeah, 3600 is a multiple of 80 so that would work.