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)
