Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to break one file into multiple file

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

New User


Joined: 21 Jun 2005
Posts: 3
Location: delhi

PostPosted: Fri Apr 06, 2007 11:39 am    Post subject: How to break one file into multiple file
Reply with quote

I have one file which needs to be broken into 13 different files on the basis of some value.
The value is contained by original file in the form of rows.
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Apr 06, 2007 1:02 pm    Post subject:
Reply with quote

Navindra,

DFSORT can be used for this. Here is the sample JCL what you wanted -

Assumption: Your condition starts at column 1, length 10.

Code:
//STEPNAME EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=YOUR.INFILE,DISP=SHR
//*
//COND1 DD DSN=YOUR.FIRST.CONDFILE,DISP=....
//   LRECL=....,SPACE=.....
//*
//COND2 DD DSN=YOUR.SECOND.CONDFILE,DISP=....
//   LRECL=....,SPACE=.....
//*
//COND3 DD DSN=YOUR.THIRD.CONDFILE,DISP=....
//   LRECL=....,SPACE=.....
//*
//SYSIN DD *
  SORT FIELDS=COPY
**
  OUTFIL FNAMES=COND1,
  INCLUDE=(1,10,CH,EQ,C'FIRST COND')
**
  OUTFIL FNAMES=COND2,
  INCLUDE=(1,10,CH,EQ,C'SECND COND')
**
  OUTFIL FNAMES=COND3,
  INCLUDE=(1,10,CH,EQ,C'THRD COND')
/*
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us