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
 

 

Need to resolve an issue using JCL DFSORT command

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

New User


Joined: 01 Mar 2007
Posts: 2
Location: India

PostPosted: Thu Apr 26, 2007 12:38 pm    Post subject: Need to resolve an issue using JCL DFSORT command
Reply with quote

Hi,

I need to add 4 digits at the begning of my file in increasing order. How can I do this using DFSORT utility of JCL.

Example:
Suppose data in input file is
arun garg
amit mohan
manoj tyagi
ss s s s ssss

output file should be like
0000arun garg
0001amit mohan
0002manoj tyagi
0003ss s s s ssss

Please suggest any general solution......
Back to top
View user's profile Send private message

murmohk1

Senior Member


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

PostPosted: Thu Apr 26, 2007 12:51 pm    Post subject:
Reply with quote

Manoj,

Use the follwoing (DFSORT technique)-
Code:

//SYSIN DD *
   INREC FIELDS=(1:SEQNUM,4,ZD,      * SEQNUMBER
              5:1,80)       * YOUR ORIGINAL DATA (ASSUMED LRECL=80)
   OPTION COPY
/*
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 Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm


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