IBM Mainframe Forum

by **surajpatel01** » Tue Jan 15, 2013 12:41 pm

Hi,

I am getting ABEND S0C4 while executing the below JCL:

//GRENAME JOB (TPSA),'RENAME DATASET',
// MSGLEVEL=(1,1),MSGCLASS=H,
// CLASS=H,NOTIFY=PATSUR
//STEP00 EXEC PGM=EZACFSM1
//SYSOUT DD SYSOUT=(*,INTRDR)
//SYSIN DD DATA,DLM=@@
//CURDATE1 JOB (TPSA),'SURAJE DATASET',MSGLEVEL=(1,1),MSGCLASS=H,
// CLASS=H,NOTIFY=PATSUR
//S10 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER 'TOP1.PPS30706.TEST1' -
NEWNAME('TOP1.PPS30706.D&YR2&MON&DAY')
/*
//PSSRTS15 EXEC PGM=SORT
//SORTJNF1 DD DISP=SHR,
// DSN=TOP1.PPS30706.D&YR2&MON&DAY
//SORTJNF2 DD DISP=SHR,
// DSN=TOP1.PPS30706.TEST2
//SORTOUT DD DSN=TOP1.PPS30706.DUP,
// DISP=(NEW,CATLG,DELETE),
// DCB=*.SORTJNF2,
// SPACE=(CYL,(500,100),RLSE),UNIT=SYSDA
//SORTWK01 DD UNIT=SYSDA,
// SPACE=(CYL,(500,100),RLSE)
//SORTWK02 DD UNIT=SYSDA,
// SPACE=(CYL,(500,100),RLSE)
//SORTWK03 DD UNIT=SYSDA,
// SPACE=(CYL,(500,100),RLSE)
//SORTWK04 DD UNIT=SYSDA,
// SPACE=(CYL,(500,100),RLSE)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
JOINKEYS FILE=F1,FIELDS=(01,12,A,46,1,A,144,16,A)
JOINKEYS FILE=F2,FIELDS=(01,12,A,46,1,A,144,16,A)
REFORMAT FIELDS=(F1:1,680)
/*
@@

while executing the job CURDATE1 alone its working file...while submitting as a whole it giving SOC4 abend.

Please advice something and help me with this.

Code'd

by **BillyBoyo** » Tue Jan 15, 2013 1:25 pm

Please show the sysout from both jobs, in the Code tags as have been added to you post above.

by **surajpatel01** » Tue Jan 15, 2013 2:55 pm

Select all

IDCAMS SYSTEM SERVICES TIME: 15:

ALTER 'TOP1.PPS30706.TEST1' -
NEWNAME('TOP1.PPS30706.D130114')
IDC0531I ENTRY TOP1.PPS30706.TEST1 ALTERED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0

SYNCSORT FOR Z/OS 1.4.1.0R U.S. PATENTS: 4210961, 5117495 (C) 2010 SYNCS
GOLDMAN SACHS CO. z/OS 1.13.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 71B86, MODEL 2817 608 LICE
SYSIN :
OB CURDATE1 STEP PSSRTS15 TIME 152914 DATE 13014 ID = 255

PSW AT ENTRY TO SNAP 078D1000 8000A1B0 ILC 02 INTC 0033

ASCB: 00FB8B80
+0000 ASCB..... ASCB FWDP..... 00FB8D00 BWDP..... 00FB8E80 LT
+0014 00000000 IOSP..... 00000000 R01C..... 0000 WQ
+0024 ASID..... 01F4 R026..... 00 SRMF..... 00 LL
+002A DPH...... 00E4 TCBE..... 00000000 LDA...... 7FF19E10 RS
+0036 R036..... 0000 CSCB..... 0FAF6B00 TSB...... 00000000 EJ

RTM2WA SUMMARY
--------------
+001C COMPLETION CODE 840C4000
+008C ABENDING PROGRAM NAME/SVRB ADDRESS SYNCSORT
+0094 ABENDING PROGRAM ADDR 0000BE58

GPRS AT TIME OF ERROR
0-3 00011EA9 0005DFC0 0000000C 0005DF50
4-7 0000004F 0005DFC0 0005DF5C 0003DEB4
8-11 0005DFC0 00012048 00012078 00016288
12-15 0000E000 0000E000 0001634C 0000E000

+06D8 PSW AT TIME OF ERROR: 07850000 00000000 00000000 000165AA
+0084 INSTRUCTION LENGTH CODE: 0004 INTERRUPTION CODE: 0011
+06C8 TRANSLATION EXCEPTION IDENTIFICATION: 00000000 0005E800
+00DC SDWACOMP 00000000

+00E8 RETURN CODE FROM RECOVERY ROUTINE-00
CONTINUE WITH TERMINATION-IMPLIES PERCOLATION
+00E0 RETRY ADDRESS RETURNED FROM RECOVERY EXIT 00000000
+00E4 RB ADDRESS FOR RETRY 00000000

+000C CVT ADDRESS 00FD56B8
+0038 RTCT ADDRESS 00F57B20
+00C8 SCB ADDRESS 00AFFE40
+0354 SDWA ADDRESS 000061A0
+0014 SVRB ADDRESS 00AFD450
+016C PREVIOUS RTM2WA FOR THE TASK 00000000
+0170 PREVIOUS RTM2WA FOR RECURSION 00000000

+00B8 ASID OF ERROR IF CROSS MEMORY ABTERM 0000
+036C ERROR ASID 01F4

Select all

RTM2WA SUMMARY
--------------
+001C COMPLETION CODE 840C4000
+008C ABENDING PROGRAM NAME/SVRB ADDRESS SYNCSORT
+0094 ABENDING PROGRAM ADDR 0000BE58

GPRS AT TIME OF ERROR
0-3 00011EA9 0005DFC0 0000000C 0005DF50
4-7 0000004F 0005DFC0 0005DF5C 0003DEB4
8-11 0005DFC0 00012048 00012078 00016288
12-15 0000E000 0000E000 0001634C 0000E000

+06D8 PSW AT TIME OF ERROR: 07850000 00000000 00000000 000165AA
+0084 INSTRUCTION LENGTH CODE: 0004 INTERRUPTION CODE: 0011
+06C8 TRANSLATION EXCEPTION IDENTIFICATION: 00000000 0005E800
+00DC SDWACOMP 00000000

+00E8 RETURN CODE FROM RECOVERY ROUTINE-00
CONTINUE WITH TERMINATION-IMPLIES PERCOLATION
+00E0 RETRY ADDRESS RETURNED FROM RECOVERY EXIT 00000000
+00E4 RB ADDRESS FOR RETRY 00000000

+000C CVT ADDRESS 00FD56B8
+0038 RTCT ADDRESS 00F57B20
+00C8 SCB ADDRESS 00AFFE40
+0354 SDWA ADDRESS 000061A0
+0014 SVRB ADDRESS 00AFD450
+016C PREVIOUS RTM2WA FOR THE TASK 00000000
+0170 PREVIOUS RTM2WA FOR RECURSION 00000000

+00B8 ASID OF ERROR IF CROSS MEMORY ABTERM 0000
+036C ERROR ASID 01F4

For the 1st job its giving proper MAX CC =0

Above i have pasted the job optput of the second job...(Spool sysout has 89,650 lines of codes so i have pasted whatever seems relevent).

by **MrSpock** » Wed Jan 16, 2013 1:19 am

Tip:

When using PGM=EZACFSM1 make sure to set the output DD SYSOUT to the required RECFM and LRECL for your follow-up application. In your case, since the output is a JCL stream, I'd suggest that you set it to

Select all

//SYSOUT DD SYSOUT=(*,INTRDR),RECFM=FB,LRECL=80

I'm wondering if your Syncsort control records aren't FB,80-byte records.

by **surajpatel01** » Wed Jan 16, 2013 12:13 pm

thanks it worked now

by **halfteck** » Thu Jan 17, 2013 3:20 pm

Hi all, this post initially confused me, i was wondering why someone would use the internal reader to submit a job when they could just submit that job. Thn i noticed the symbolics used in the JCL going through the internal reader, and was thinking, this could be useful. So for the uninitiated (me), how do the variables get resolved in the above example?

by **Akatsukami** » Thu Jan 17, 2013 4:26 pm

You will probably want to start here.

by **halfteck** » Thu Jan 17, 2013 8:47 pm

Thank you very much Akatsukami much appreciated

IBM Mainframe Forum

Getting ABEND S0C4 in the JCl while using EZACFSM1

Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1

Re: Getting ABEND S0C4 in the JCl while using EZACFSM1