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
 
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 Rexx command to open an another text ... Bharath Vikraman PC Guides & IT News 7 Sat May 12, 2018 4:34 pm
No new posts IBM Pcomm macro startmacro command do... JGregoire IBM Tools 0 Wed May 09, 2018 12:16 pm
No new posts How to use STDPARM with df command maxsubrat JCL & VSAM 5 Fri May 04, 2018 7:57 pm
No new posts Need urgent suggestion on DFSORT subratarec DFSORT/ICETOOL 6 Wed Mar 21, 2018 8:46 pm
No new posts CICS-MQ connection setup issue kaushikv CICS 3 Wed Mar 21, 2018 8:10 pm

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