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 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 Sum the fields in particular format f... sharana64 DFSORT/ICETOOL 9 Fri Jan 05, 2018 1:11 am
No new posts COB2 file processing rizwanaccy COBOL Programming 8 Tue Jan 02, 2018 1:00 pm
No new posts KSDS and Index file in cobol deepak14450 COBOL Programming 9 Fri Dec 22, 2017 9:36 am
No new posts Preserve order in Input File pshongal DFSORT/ICETOOL 13 Thu Dec 21, 2017 4:20 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm

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