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 Tape file issue abdulrafi JCL & VSAM 2 Thu Feb 08, 2018 12:01 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts Formatting using DFsort Guru Nandu DFSORT/ICETOOL 5 Thu Nov 30, 2017 7:33 am
No new posts Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm

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