IBM Mainframe Forum

by **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

Select all

//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

Select all

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

Select all

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.

by **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.

by **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.

by **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

Select all

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

Select all

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

by **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.

by **GUI1504** » Wed Sep 22, 2010 8:36 pm

DATA SET INFORMATION

Select all

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***

by **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).

by **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.

by **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

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

Yeah, 3600 is a multiple of 80 so that would work.

IBM Mainframe Forum

Abend S013 20

Abend S013 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20

Re: Abend S13 20