Arithmetic operations using DFSORT

[MF Tips]

Using DFOSRT, we can perform arithmetic operations on input fields.

OUTFIL OUTREC now allows you to combine fields, decimal constants (+n and -n), operators (MIN, MAX, MUL, DIV, MOD, ADD, SUB) and parentheses to form arithmetic expressions, and place the results in your records as BI, FI, PD, ZD, FS or edited CH values.

Syntax:
term,operator,term<,operator,...>

Where:
Term is a field (Start position, Number of characters, Format) or a decimal constant (+n or -n). You can use BI, FI, PD, PD0, ZD, FS, DTn and

Operator is MIN (minimum), MAX (maximum), MUL (multiplication), DIV (division), MOD (modulus), ADD (addition) or SUB (subtraction).

The order of evaluation precedence for the operators is as follows unless it is changed by parentheses:
1. MIN and MAX
2. MUL, DIV and MOD
3. ADD and SUB

The intermediate or final result of a DIV operation is rounded down to the nearest integer. The intermediate or final result of a MOD operation is an integer remainder with the same sign as the dividend. If an intermediate or final result of an arithmetic expression overflows 15 digits, the overflowing intermediate or final result will be truncated to 15 digits. If an intermediate or final result of an arithmetic expression requires division or modulus by 0, the intermediate or final result will be set to 0.

Example 1: [(First 2 digits) * (-10)] + 10, and the output is formatted by edit mask (M0 – M26), and is truncated to a length of 5

//SYSIN DD *
SORT FIELDS=(1,2,CH,A)
OUTREC FIELDS=(1,3,
(1,2,ZD,MUL,-10,ADD,+10),M6,LENGTH=5,
15X)
//*

Example 2, Divide the first field (positions 1, 2) by the second field (position 3), and the output is converted to packed decimal format

//SYSIN DD *
SORT FIELDS=(1,2,CH,A)
OUTREC FIELDS=(1,3,
(1,2,ZD,DIV,3,1,ZD),TO=PD,
15X)
//*

 

Thanks,

MFTIPS

http://mftips.blogspot.com/