|
View previous topic :: View next topic
|
| Author |
Message |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 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 2008
Posts: 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 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 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 2006
Posts: 19243
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 2008
Posts: 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 2005
Posts: 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
