View previous topic :: View next topic
|
Author |
Message |
gbalaa_007
New User
Joined: 24 May 2007 Posts: 10 Location: Los angeles, CA
|
|
|
|
I want to copy a 273 bytes VB file to another VB file of 271 bytes.
SORT FIELDS=COPY
OUTFIL FNAMES=01,
OUTREC FIELDS=(5:5,269)
I am getting the SOC abend.
Pls help...
Bala |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
I've seen S0C1, S0C4, S0C7, etc. but never an SOC. Please post ALL your error messages and indicate which sort product you use. |
|
Back to top |
|
|
gbalaa_007
New User
Joined: 24 May 2007 Posts: 10 Location: Los angeles, CA
|
|
|
|
correction to my earlier post....
VB 275bytes to VB 273bytes....
Code: |
SORT FIELDS=COPY
OUTFIL FNAMES=01,
OUTREC FIELDS=(5:5,269)
|
error code USER COMPLETION CODE=0007
Code: |
ICE000I 1 - CONTROL STATEMENTS FOR
SORT FIELDS=COPY
OUTFIL FNAMES=01,
$
ICE007A 0 SYNTAX ERROR
OUTREC FIELDS=(5:5,269)
|
|
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Boy, that's a lot of mistakes for so few control statements.
The flagged error is FNAMES=01. You either need FNAMES=ddname or FILES=nn. FILES=01 would be valid and associated with a SORTOF01 DD. FNAMES=OUT1 would be valid and associated with an OUT1 DD. But FNAMES=01 is invalid.
OUTREC FIELDS=(5:5,269) should be OUTREC=(1,4,5:5,269) or BUILD=(1,4,5:5,269).
A correct version of your DFSORT job would be:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (VB/275)
//OUT1 DD DSN=... output file (VB/273)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,
BUILD=(1,4,5:5,269)
/*
|
However, note that 5,269 will only work if every record is at least 273 bytes long. Is that the case? |
|
Back to top |
|
|
gbalaa_007
New User
Joined: 24 May 2007 Posts: 10 Location: Los angeles, CA
|
|
|
|
Thanks a lot Frank Yaeger !!
it worked fine... |
|
Back to top |
|
|
|