MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Abend S013 with Reason Code 68 with ICETOOL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
phed
Beginner


Joined: 10 Jan 2018
Posts: 1
Topics: 1

PostPosted: Thu Jan 11, 2018 9:30 am    Post subject: Abend S013 with Reason Code 68 with ICETOOL Reply with quote

I have two VB files.
File1 is 406 bytes long, and the key is in position 401 to 406.
File2 is 565 bytes long, and the key is in position 87 to 92.
I would like the result file to have all the 406 bytes from file1 plus 8 bytes from file2 starts from column 42.

I have the following codes:

Code:
//COPY01   EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN01     DD DSN=CCSY.CCSYAC.BNS.C2,DISP=SHR
//IN02     DD DSN=CCSY.CCSYAC.UID.XBAS,DISP=SHR
//OUT01    DD DSN=CCSY.CCSYAC.BNS.C2.ID,DISP=(,CATLG,DELETE),
//            DCB=(RECFM=FB,LRECL=410,BLKSIZE=41000),
//            SPACE=(CYL,(200,100),RLSE)
//TOOLIN   DD *
  COPY JKFROM TO(OUT01) VSAMTYPE(V) USING(BNSC)
/*
//BNSCCNTL DD *
  JOINKEYS F1=IN01,FIELDS=(401,6,A)
  JOINKEYS F2=IN02,FIELDS=(87,6,A)
  REFORMAT FIELDS=(F1:5,402,F2:42,8)
/*


I got S013. Anyone would like to help? I'll appreciate.

Code:
JESMSGLG:
13.02.33 JOB38364 ---- WEDNESDAY, 10 JAN 2018 ----
13.02.33 JOB38364  IRR010I  USERID CCSYAC   IS ASSIGNED TO THIS JOB.
13.02.34 JOB38364  ICH70001I CCSYAC   LAST ACCESS AT 12:56:19 ON WEDNESDAY, JANUARY 10, 2018
13.02.34 JOB38364  $HASP373 CCSYAC02 STARTED - INIT 68   - CLASS J        - SYS SY07
13.02.34 JOB38364  IEF403I CCSYAC02 - STARTED - TIME=13.02.34
13.02.35 JOB38364  IEC141I 013-68,IFG0196L,CCSYAC02,COPY01,OUT01,B275,STRP49,  005
   005             CCSY.CCSYAC.BNS.C2.ID
13.02.35 JOB38364  IEA995I SYMPTOM DUMP OUTPUT  006
   006             SYSTEM COMPLETION CODE=013  REASON CODE=00000068
   006              TIME=13.02.35  SEQ=61720  CPU=0000  ASID=0058
   006              PSW AT TIME OF ERROR  075C1000   80E70476  ILC 2  INTC 0D
   006                NO ACTIVE MODULE FOUND
   006                NAME=UNKNOWN
   006                DATA AT PSW  00E70470 - 4100302C  0A0D010D  A7E5014B
   006                AR/GR 0: 008FE990/00E70780   1: 00000000/A4013000         
   006                      2: 00000000/0000DCC8   3: 00000000/00E70754
   006                      4: 00000000/008C4388   5: 00000000/008C471C
   006                      6: 00000000/008C46C4   7: 00000000/008C471C
   006                      8: 00000000/008C46E4   9: 00000000/008D1C50
   006                      A: 00000000/80E72A62   B: 00000000/00E73622
   006                      C: 00000000/80E7387E   D: 00000000/7F59FCE8
   006                      E: 00000000/80E6FCD4   F: 00000000/00000068
   006              END OF SYMPTOM DUMP
13.02.47 JOB38364  IEF450I CCSYAC02 COPY01 - ABEND=S013 U0000 REASON=00000068  011
   011                     TIME=13.02.47
13.02.47 JOB38364  IEF404I CCSYAC02 - ENDED - TIME=13.02.47
13.02.47 JOB38364  $HASP395 CCSYAC02 ENDED - ABEND=S013
------ JES2 JOB STATISTICS ------
  10 JAN 2018 JOB EXECUTION DATE
           26 CARDS READ
          563 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
           54 SYSOUT SPOOL KBYTES
         0.22 MINUTES EXECUTION TIME
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Jan 11, 2018 10:45 am    Post subject: Re: ICETOOL joins two files Reply with quote

phed wrote:
I got S013. Anyone would like to help? I'll appreciate.


Phed,

Clue # 1

Joblog wrote:

13.02.35 JOB38364 IEC141I 013-68,IFG0196L,CCSYAC02,COPY01,OUT01,B275,STRP49, 005
005 CCSY.CCSYAC.BNS.C2.ID
006 SYSTEM COMPLETION CODE=013 REASON CODE=00000068


Clue # 2

Joblog wrote:

//OUT01 DD DSN=CCSY.CCSYAC.BNS.C2.ID,DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=410,BLKSIZE=41000),


Now look at the message IEC141I

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieam700/ee141i.htm

read the reason code 68

IEC141I wrote:
An OPEN macro instruction was issued for a data set for which the DCB or DCBE specified a block size and key length whose sum is greater than the maximum allowed for the allocated device. For information about the maximum block size and key length, see z/OS DFSMS Using Data Sets.


Now look at the Blocksize parameter coded in JCL. The output is not a Tape dataset you cannot have a Blocksize greater than 32760.

And Just for the record, you really don't the DCB coded in the JCL for DFSORT jobs. It can calculate on it's own. So simply remove the entire DCB line and re-run your job and it should run fine.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group