To Find out the total of particular field – Sort

This can be used to find out the total of a particular field from the input file.
 
//STEP0100 EXEC PGM=ICEMAN               
//SYSOUT   DD SYSOUT=*                   
//SORTIN   DD *                         
111111111 EMPLOYEENAME01 0000000010     
222222222 [...]

Read Full Post »

DFSORT Tips: To add Whole number with fractional number

To add Whole number with fractional number 
Whole-No PIC S9(17) COMP-3.
fract-No PIC SV9(09) COMP-3.
To add there are some ways to do that in DFSORT,
Option 1:
OPTION COPY                                                    
INREC BUILD=(1,9,PD,MUL,+1000000000,ADD,10,5,PD,TO=PD,LENGTH=14)
 Option 2:
OPTION COPY                                                 
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,9,PD,TO=ZD,10,5,PD,TO=ZD)),
    IFTHEN=(WHEN=INIT,BUILD=(1,26,ZD,TO=PD,LENGTH=14))   
 Option 3:
1,9,add,(10,5,multiply,+0.0000000000000000001)

Read Full Post »