How to sort an input file with a space

[deepu]

Hi,

My input is having 3 records say..
12345
1425
56478
.
.
.
.
so on..

Now the requirement is..

i will be checking for the 5th character in my input file..

If it is not a space than it should be written to the output as it is in the same order

If it is a space than the 3rd character in my output should be space and should write to the output file in the same order..

i am expecting the output as..

12345
14 25
56478
.
.
.
Can some one help me on the above scenarion using DFSORT/ICETOOL...

Thanks in Advance.
deepu.

[nachi]

Here is the Sort JCL which may satisfy your requirement.

Code: Select all

//STEP010N EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN1      DD *
12345
1425
56478
//OUT      DD SYSOUT=*
//TOOLIN   DD *
  COPY FROM(IN1) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
 OUTREC IFOUTLEN=05,
 IFTHEN=(WHEN=(5,1,CH,EQ,C' '),
   BUILD=(1:1,2,3:C' ',4:3,2)),
 IFTHEN=(WHEN=NONE,
   BUILD=(1,5))

Assumption: LRECL = 5

- Nachi

[skolusu]

deepu,

The following DFSORT JCL will give you the desired results

Code: Select all

//STEP0100 EXEC PGM=SORT                                   
//SYSOUT   DD SYSOUT=*                                     
//SORTIN   DD *                                            
12345                                                      
1425                                                       
56478                                                      
//SORTOUT  DD SYSOUT=*                                     
//SYSIN    DD *                                            
  SORT FIELDS=COPY                                         
  INREC IFTHEN=(WHEN=(5,1,CH,EQ,C' '),OVERLAY=(4:3,2,3:X)) 
//*

[deepu]

Thanks a bunch guys..it's working fine....