sorry i did not get:( . my first record will contain a "divisor" at 40,7 position. am not aware how to extend the push command.could you please help me in this regard
The final IFTHEN is doing your "rounding up". For any number which is not exactly divisible by +6, one will be added to the result.
The MOD is used to work out the "exactly divisible", since if exactly divisble 14,2,ZD will be zero.
I don't know how it is "working" but not correct, but there we go.
You have no equivalent final IFTHEN, so you are just getting the straight output from DFSORT's DIV. Without the IFTHEN you don't need the MOD, but you won't get the "rounding up", you'll get the "rounding" from DIV.
You haven't used MOD instead of DIV, you've used both. As it stands, nothing is using the result of the MOD.