Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to make a outfile bigger than input file using dfsort?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
nmc0307

New User


Joined: 23 Aug 2006
Posts: 4

PostPosted: Mon Apr 21, 2008 4:33 pm    Post subject: How to make a outfile bigger than input file using dfsort?
Reply with quote

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
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Apr 21, 2008 4:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
nmc0307

New User


Joined: 23 Aug 2006
Posts: 4

PostPosted: Mon Apr 21, 2008 5:13 pm    Post subject:
Reply with quote

I want to make an output file(FB, LRECL=5000) from an input file(VB, LRECL=390) using DFSORT/ICETOOL.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Mon Apr 21, 2008 5:20 pm    Post subject: Reply to: How to make a outfile bigger than input file using
Reply with quote

Just wondering..
what is the business reason for such a waste of dasd space... more than 1000% increase
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Mon Apr 21, 2008 5:26 pm    Post subject:
Reply with quote

i was told to do it.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Apr 21, 2008 5:58 pm    Post subject:
Reply with quote

What problems have you had in processing the VB file ?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Apr 21, 2008 9:57 pm    Post subject:
Reply with quote

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
View user's profile Send private message
nmc0307

New User


Joined: 23 Aug 2006
Posts: 4

PostPosted: Tue Apr 22, 2008 10:03 am    Post subject:
Reply with quote

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
View user's profile Send private message
nmc0307

New User


Joined: 23 Aug 2006
Posts: 4

PostPosted: Tue Apr 22, 2008 12:44 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Apr 22, 2008 8:31 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us