jcl sort to add leading zeroes

[sasanka]

Dear all,

i have the following input ps

76453627
0097865432
00065499234
00012342345
12301231233
.......
....
i want a jcl which adds leading zeroes to all the numbers in the ps where the number of digits are not equal to 11

i.e for the first number 76453627(8 digits) to be as 00076453627(11 digits)

if the numbers is of 11 digits 00065499234(11 digts)
it should not add leading zeroes

[Anuj Dhawan]

For the given example, try this:

Code: Select all

//STEP001  EXEC PGM=SORT               
//SORTIN DD *                          
76453627                               
0097865432                             
00065499234                            
00012342345                            
12301231233                            
//SORTOUT DD SYSOUT=*                  
//SYSIN DD *                           
  OPTION COPY                          
  INREC BUILD=(1,11,UFF,M11,LENGTH=11) 
//SYSOUT DD SYSOUT=*                   
//*

[sasanka]

For the given example, try this:

Code: Select all

//STEP001  EXEC PGM=SORT               
//SORTIN DD *                          
76453627                               
0097865432                             
00065499234                            
00012342345                            
12301231233                            
//SORTOUT DD SYSOUT=*                  
//SYSIN DD *                           
  OPTION COPY                          
  INREC BUILD=(1,11,UFF,M11,LENGTH=11) 
//SYSOUT DD SYSOUT=*                   
//*

can u please explain the following
uff
m11

[Anuj Dhawan]

UFF stands for unsigned free form and M11 would tell SORT to use leading zeros, e.g. 27 would be displayed as '0000000027'. DFSORT has 27 edit masks as well as an EDIT parameter that lets you design your own masks.

[Frank Yaeger]

sasanka,

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss? ... g3T7000080

[academyindia4]

<< Content deleted By Admin >>

[academyindia4]

<< Content deleted By Admin >>