View previous topic :: View next topic
|
Author |
Message |
kalyan.v
New User
Joined: 04 Feb 2008 Posts: 65 Location: Hyd
|
|
|
|
Hi All,
Please find the below sort card, where i am trying to copy input data into output.
Code: |
//STEP060 EXEC PGM=SYNCSORT,PARM='SIZE(MAX)'
//SORTIN DD DSN=FILEIN,DISP=SHR
//SORTOUT DD DSN=FILEOUT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(500,200),RLSE),
// DCB=*.SORTIN
//SYSIN DD *
SORT FIELDS=COPY,
STOPAFT=5000
/*
|
But it abended due to the the sort out RECFM=U.
How the sortout RECFM=U instead of FB where we are giving DCB=*.SORTIN???
Find the error message which i am getting below.
Code: |
SYSIN :
SORT FIELDS=COPY,
STOPAFT=5000
WER276B SYSDIAG= 3169261, 4781232, 4781232, 2832159
WER164B 5,880K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,012K BYTES USED
WER146B 12K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 187; BLKSIZE= 32725
WER141A SORTOUT RECFM IS U
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
|
Thanks for ur help,
Kalyan V |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
HJave you tried by specifying the same DCB attributes as the SORTIN.
In fact, I would only code
RECFM=FB,LRECL=187 |
|
Back to top |
|
|
kalyan.v
New User
Joined: 04 Feb 2008 Posts: 65 Location: Hyd
|
|
|
|
If i specify DCB parameters same as SORTIN( RECFM=FB,LRECL=187), then it is working fine.
But if i give DCB=*.SORTIN then i got above error.
Thanks,
Kalyan |
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
I'm assuming from the blocksize the input dataset resides on tape/cart and that SYNCSORT does not handle this.
It would be interesting to copy the input file to disk and then rerun the JCL.
Gerry |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
I agree with Gerry -- just for another experiment, please try to use BLKSIZE=0 with DCB=*.SORTIN and tell us what happens. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What happens if you run it without any DCB references, either coded of *.SORTIN |
|
Back to top |
|
|
|