View previous topic :: View next topic
|
Author |
Message |
nmc0307
New User
Joined: 23 Aug 2006 Posts: 4
|
|
|
|
Dears,
I tried the below JCL.
The input file is VB but its maximum record length could be various,
because the input file is generated by vendor tool.
Code: |
//SORTIN DD DISP=SHR,DSN=input_file
//SORTOUT DD DSN=out_file,UNIT=3390,RECFM=FB,LRECL=5000,
// DISP=(,CATLG,CATLG),SPACE=(CYL,(500,500),RLSE)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,
VTOF,OUTREC=(5,5004),VLFILL=C' '
|
but it doesn't work as following...
Code: |
ICE201I 0 RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE027A 9 END OF SORTOUT FIELD BEYOND MAXIMUM RECORD LENGTH
ICE052I 3 END OF DFSORT
|
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What exactly are you trying to achieve ? and why ?
Surely the file has the correct attributes otherwise it would not have been created. |
|
Back to top |
|
|
nmc0307
New User
Joined: 23 Aug 2006 Posts: 4
|
|
|
|
I want to make an output file(FB, LRECL=5000) from an input file(VB, LRECL=390) using DFSORT/ICETOOL. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Just wondering..
what is the business reason for such a waste of dasd space... more than 1000% increase |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
i was told to do it. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What problems have you had in processing the VB file ? |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
nmc,
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=input_file (VB/390)
//SORTOUT DD DSN=out_file,UNIT=3390, (FB/5000)
// DISP=(,CATLG,CATLG),SPACE=(CYL,(500,500),RLSE)
//SYSIN DD *
OPTION COPY
OUTFIL VTOF,BUILD=(5,386,5000:X)
/*
|
|
|
Back to top |
|
|
nmc0307
New User
Joined: 23 Aug 2006 Posts: 4
|
|
|
|
Afternoon! Mr. Yaeger,
Thank you for your kind answer, but the result is as below...
Code: |
ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 13:27 ON TUE APR 22, 2008 -
OPTION COPY
OUTFIL VTOF,BUILD=(5,386,5000:X)
$
ICE213A 0 INVALID OUTFIL STATEMENT OPERAND
ICE052I 3 END OF DFSORT |
|
|
Back to top |
|
|
nmc0307
New User
Joined: 23 Aug 2006 Posts: 4
|
|
|
|
Mr. Yaeger's solution worked on z/OS DFSORT V1R5 !!
I think the previous error is a matter of a dfsort version or applied ptf.
One last question !!
I want to make an output file(FB, LRECL=5000) from an input file(VB, LRECL=don't know cause not always the same but below 5000) using DFSORT/ICETOOL. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
That error indicates you are missing some very old PTFs on DFSORT R14 - BUILD has been available since Dec, 2004.
If you want to create an FB/5000 output file from a VB input file, just use:
Code: |
OPTION COPY
OUTFIL VTOF,BUILD=(5,m,5000:X)
|
where m = LRECL-4 for whatever the input LRECL is. |
|
Back to top |
|
|
|