IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Is there an INFIL command like the OUTFIL?


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Tue Dec 05, 2006 2:22 am
Reply with quote

Is there an INFIL command like the OUTFIL, with INREC, INCLUDE and OMIT for multiple input files?

Currently I need separate job steps to reformat each input file into a common format and then another step to sort/process the reformated files concatenated together. If I could use INFIL with a separate INREC for each input file I could do this all in 1 step.
Back to top
View user's profile Send private message
Hritam

New User


Joined: 27 Jun 2005
Posts: 36
Location: India

PostPosted: Tue Dec 05, 2006 3:21 am
Reply with quote

Douglas,
Please mention your requirements with more details, with its Input and expected output file structure.
Yes, I think the solution you are looking for can be acheived by Icetool but with more details it will be easier to provide the solution.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Tue Dec 05, 2006 3:39 am
Reply with quote

Quote:
Is there an INFIL command like the OUTFIL, with INREC, INCLUDE and OMIT for multiple input files?


No, there isn't.

You can do what you want in one step with DFSORT's ICETOOL, but not in one pass.

If you want more help, indicate the RECFM and LRECL of each input file
and show your current job with the separate steps.
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Dec 06, 2006 4:48 am
Reply with quote

Currently I use multiple sort steps something like this:

Code:

//STEP10  EXEC PGM=SORT
//SORTIN    DD DSN= ... FILE 1,DISP=SHR        (FB/200)
//SORTOUT   DD DSN= ... FILE 1A, . . .
//             DCB=(RECFM=FB,DSORG=PS,LRECL=100,BLKSIZE=0)
//SYSOUT    DD SYSOUT=*
//SYSIN     DD *
  SORT FIELDS=COPY
  INCLUDE COND=(195,2,EQ,C'AB'),FORMAT=CH
  INREC FIELDS=(1:50,10,11:100,89,100:C'1')
/*
//***************************************************
//STEP20  EXEC PGM=SORT
//SORTIN    DD DSN= ... FILE 2,DISP=SHR        (FB/300)
//SORTOUT   DD DSN= ... FILE 2A, . . .
//             DCB=(RECFM=FB,DSORG=PS,LRECL=100,BLKSIZE=0)
//SYSOUT    DD SYSOUT=*
//SYSIN     DD *
  SORT FIELDS=COPY
  OMIT COND=(50,2,EQ,C'DE'),FORMAT=CH
  INREC FIELDS=(1:60,10,11:210,89,100:C'2')
/*
//***************************************************
//STEP30  EXEC PGM=SORT
//SORTIN    DD DSN= ... FILE 1A,DISP=SHR        (FB/100)
//          DD DSN= ... FILE 2A,DISP=SHR        (FB/100)
//SORTOUT   DD DSN= ... FILE 3, . . .
//             DCB=(RECFM=FB,DSORG=PS,LRECL=100,BLKSIZE=0)
//SYSOUT    DD SYSOUT=*
//SYSIN     DD *
  SORT FIELDS=(1,10,CH,A)
  SUM  FIELDS=NONE
/*


I have more than 2 input files but I use sort to reformat each each input file similar to this.
It would be nice if we could do this in one step instead of 3, with an INFIL with an INREC for each input file.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Wed Dec 06, 2006 5:21 am
Reply with quote

Oh, I see. Since the two input files have different LRECLs, you'd like to be able to use INFIL to reformat them for the sort/sum.

You can, of course, do this in one step with ICETOOL (COPY operator, COPY operator, ..., SORT operator). What I think you really want though is to be able to do it in one pass with INFIL and that function isn't available.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts LTJ command CA Products 4
Search our Forums:

Back to Top