View previous topic :: View next topic
Author
Message
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hello,
So, have you changed it back. . .?
What happens?
Back to top
charavind17 New User Joined: 24 Sep 2008Posts: 30 Location: chennai
When I changed it 60 Step 1 Executed fine...but am getting problem in step 2.
Code:
MVS0010I SZRYDLL 09.112 D S1 ** R0000 **
IEC141I 013-20,IGG0191A,SZRYDLL,S2,SYMNAMES,4797,RMP002,UDEM.MTNK.MT1060C
+WER999A SZRYDLL ,S2 , - UNSUCCESSFUL SORT 013 S REASON=00000020
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
Quote:
I got below error message.
What error message? I don't see one. All I see are B and I (informational) messages - no A (error) message. The SYMNAMES file must have RECFM=FB and LRECL=80 so you can't use 60. That's the reason for the error in step 2.
Back to top
CICS Guy Senior Member Joined: 18 Jul 2007Posts: 2146 Location: At my coffee table
CICS Guy wrote:
How about posting the entire sysout?
Back to top
charavind17 New User Joined: 24 Sep 2008Posts: 30 Location: chennai
SYSout is here...
Code:
$HASP373 SZRYDLJ STARTED - INIT 1 - CLASS D - SYS S21
ACF9CCCD USERID SZRYDL IS ASSIGNED TO THIS JOB - SZRYDLJ
IEF403I SZRYDLJ - STARTED - TIME=06.48.05
MVS0010I SZRYDLJ 09.112 D S1 ** R0000 **
IEC141I 013-20,IGG0191A,SZRYDLJ,S2,SYMNAMES,47B9,RMP010,SYS09112.T064805.RA000.
+WER999A SZRYDLJ ,S2 , - UNSUCCESSFUL SORT 013 S REASON=00000020
OPS4320H SZRYDLJ OPSS *LOCAL* AOF VERB ENABLE COMMAND ENABLE *DYNAMIIC.DMPCNT
IEA995I SYMPTOM DUMP OUTPUT 270
SYSTEM COMPLETION CODE=013 REASON CODE=00000020
TIME=06.48.06 SEQ=00209 CPU=0000 ASID=0174
PSW AT TIME OF ERROR 075C1000 80D7D7DE ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
IEF450I SZRYDLJ S2 - ABEND=S013 U0000 REASON=00000020 273
TIME=06.48.06
MVS0010I SZRYDLJ 09.112 D S2 ** S013 **
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
The SYMNAMES file must have RECFM=FB and LRECL=80 so you can't use 60. That's the reason for the error in step 2. Please go back and read my previous posts.
Back to top
charavind17 New User Joined: 24 Sep 2008Posts: 30 Location: chennai
is it that the regions whatever jobs am running are invoking syncsort i believe. how to invoke DFSORT...am getting U0016 abend when i used LREC as 80 and the jCl you have used...
Back to top
CICS Guy Senior Member Joined: 18 Jul 2007Posts: 2146 Location: At my coffee table
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
charavind17,
If Syncsort is installed at your shop, then you can't invoke DFSORT unless your site has a license for both products (which it probably doesn't).
I can't help you with Syncsort.
Back to top
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hello,
I believe your problem is not a sort problem, but rather understanding how files and jcl work together.
The 013-20 is simply a dcb conflict.
What happens if you run the job exactly as Frank posted? Rather than changing things around, it would be better to work thru the already proven solution.
Submit the unchanged job and post the jcl, control statements and all messages created byt he sort (including the message ids).
Back to top
charavind17 New User Joined: 24 Sep 2008Posts: 30 Location: chennai
Dick,
i have used JCL whatever frank has mentioned and below is the JCL
Code:
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=UDEM.MTAR.MT1060C,DISP=SHR
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(2,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
INREC BUILD=(C'TARG,+',11,4,ZD,ADD,+1,TO=ZD,LENGTH=4,80:X)
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=UDEM.MTAR.MT1060IS.TEST,DISP=SHR
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY,STOPAFT=1
OUTFIL NULLOFL=RC16,INCLUDE=(70,4,ZD,EQ,TARG)
/*
13.25.15 JOB13681 IEF403I SZRYDLO - STARTED - TIME=13.25.15
13.25.16 JOB13681 MVS0010I SZRYDLO 09.112 D S1 ** R0000 **
13.25.16 JOB13681 IEF450I SZRYDLO S2 - ABEND=S000 U0016 REASON=00000000 479
479 TIME=13.25.16
13.25.16 JOB13681 MVS0010I SZRYDLO 09.112 D S2 ** U0016 **
13.25.16 JOB13681 IEF404I SZRYDLO - ENDED - TIME=13.25.16
13.25.16 JOB13681 $HASP395 SZRYDLO ENDED 142 LINES 0 CARDS
sysout of s1
OPTION COPY
INREC BUILD=(C'TARG,+',11,4,ZD,ADD,+1,TO=ZD,LENGTH=4,80:X)
WER276B SYSDIAG= 95318, 411286, 411286, 1125750
WER164B 6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,025,480 BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 60; BLKSIZE= 4620
WER257I INREC RECORD LENGTH = 80
WER238I POTENTIALLY INEFFICIENT USE OF INREC
WER110I SORTOUT : RECFM=FB ; LRECL= 80; BLKSIZE= 27920
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
sysout of s2
TARG,+816D
*
*** SYNTAX ERROR ***
WER470A SYMNAMES ERRORS FOUND
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
With DFSORT, you get:
TARG,+8164
which is valid.
TO=ZDF instead of TO=ZD should get you the same thing for Syncsort. (Shouldn't the Syncsort person be helping with Syncsort questions here?)
Back to top
Please enable JavaScript!