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 IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 11 Tue Apr 17, 2018 10:42 pm
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts converting a mainframe file with ASA ... Lynne Schuler All Other Mainframe Topics 5 Wed Apr 04, 2018 9:44 am
No new posts VSAM File free space sancraig16 JCL & VSAM 13 Fri Mar 30, 2018 1:02 am
No new posts Detect break in the sequence tuxama DFSORT/ICETOOL 6 Tue Mar 20, 2018 1:35 pm

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