Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
two record formats in one sort step

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
muthukumar

New User


Joined: 24 Mar 2004
Posts: 32
PostPosted: Tue Jun 29, 2004 10:40 am    Post subject: two record formats in one sort step
 Reply with quote
Hi,

Is it possible to create 2 different format of files for one input file in a single sort step

say if we have two OUTFIL statement for one input file with different include conditions. I want first 50 characters to be in the first file but i want the complete record in the second file. is it achievable


thanks
Muthu
Back to top
View user's profile Send private message
References
imvs

New User


Joined: 12 May 2004
Posts: 33
PostPosted: Tue Jun 29, 2004 3:57 pm    Post subject:
Reply with quote
muthukumar,

    //STEP1 EXEC PGM=ICETOOL
    //INDD DSN = INPUT FILE
    //OUTDD1 DSN =OUTPUT FILE CONTAINING WHOLE RECORD
    //OUTDD2 DSN= OUTPUT FILE CONTAINING FIRST 50 BYTES

    //TOOLIN DD *
    COPY FROM(INDD) TO(OUTDD1)
    COPY FROM(INDD) USING F50
    /*
    F50CNTL DD *
    OUTFIL FNAMES=OUTDD2,OUTREC=(1,50)
    /*
    //
Back to top
View user's profile Send private message
muthukumar

New User


Joined: 24 Mar 2004
Posts: 32
PostPosted: Tue Jun 29, 2004 4:46 pm    Post subject:
Reply with quote
thanks a lot
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4684
Location: San Jose, CA
PostPosted: Tue May 03, 2005 1:53 am    Post subject:
Reply with quote
You don't need two passes to do this. You can do it in one pass with DFSORT as follows:

Code:

//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file
//OUTDD1 DSN=... output file containing entire record
//OUTDD2 DSN=...  output file containing first 50 bytes
//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=OUTDD1
  OUTFIL FNAMES=OUTDD2,OUTREC=(1,50)
/*
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1