Lets assume that we have a sequential dataset with records as below:
ONE TWO THREE FOUR FIVE
I want to reformat the records for output as follows:
NUMBER 'ONE' NUMBER 'TWO' NUMBER 'THREE' NUMBER 'FOUR' NUMBER 'FIVE'
You can do this quite easily with DFSORT’s JFY function as follows:
INREC BUILD=(1,13,JFY=(SHIFT=LEFT,LEAD=C’NUMBER “‘, TRAIL=C”“)
SHIFT=LEFT left-justifies the data. LEAD inserts the hard coded text NUMBER ‘ before the value with no intervening blanks.
TRAIL inserts ‘ after the value with no intervening blanks.