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 splitting a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm


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