Abend S13 20



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Abend S13 20

Postby GUI1504 » Wed Sep 22, 2010 7:50 pm

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.         
GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time

Re: Abend S13 20

 

Re: Abend S13 20

Postby MrSpock » Wed Sep 22, 2010 8:10 pm

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.
User avatar
MrSpock
Global moderator
 
Posts: 810
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 2 times

Re: Abend S13 20

Postby Robert Sample » Wed Sep 22, 2010 8:15 pm

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.
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times

Re: Abend S13 20

Postby GUI1504 » Wed Sep 22, 2010 8:20 pm

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
GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time

Re: Abend S13 20

Postby Robert Sample » Wed Sep 22, 2010 8:32 pm

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.
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times

Re: Abend S13 20

Postby GUI1504 » Wed Sep 22, 2010 8:36 pm

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***                                       
GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time

Re: Abend S13 20

Postby Robert Sample » Wed Sep 22, 2010 9:03 pm

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).
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times

Re: Abend S13 20

Postby steve-myers » Wed Sep 22, 2010 10:02 pm

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.
steve-myers
Global moderator
 
Posts: 1885
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 197 times

Re: Abend S13 20

Postby GUI1504 » Wed Sep 22, 2010 11:14 pm

Thank you everybody, i put 3600 on block size and it works, thank you the tips too, they're very helpful
GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time

Re: Abend S13 20

Postby Robert Sample » Wed Sep 22, 2010 11:54 pm

Yeah, 3600 is a multiple of 80 so that would work.
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post