*..1....+....2....+....3....+....4....+....5....+....6....+....7...+.... C* C* In the following example, the initial field values are: C* D A s 3p 0 inz(1) D B s 3p 1 inz(10.0) D C s 2p 0 inz(32) D D s 2p 0 inz(-10) D E s 3p 0 inz(6) D F s 3p 0 inz(10) D G s 3p 2 inz(2.77) D H s 3p 0 inz(70) D J s 3p 1 inz(0.6) D K s 2p 0 inz(25) D L s 2p 1 dim(3) D V s 5p 2 D W s 5p 1 D X s 8p 4 D Y s 6p 2 D Z s 5p 3 /FREE L(1) = 1.0; L(2) = 1.7; L(3) = -1.1; A = A + 1; // A = 002 V = B + C; // V = 042.00 V = B + D; // V = 0 V = C; // V = 032.00 E = E - 1; // E = 005 W = C - B; // W = 0022.0 W = C - D; // W = 0042.0 W = - C; // W = -0032.0 F = F * E; // F = 060 X = B * G; // X = 0027.7000 X = B * D; // X = -0100.0000 H = H / B; // H = 007 Y = C / J; // Y = 0053.33 eval(r) Z = %sqrt(K); // Z = 05.000 Z = %xfoot(L); // Z = 01.600 dump(a); *inlr = *on; /END-FREE
*...1....+....2....+....3....+....4....+....5....+....6....+....7... CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....Comments C* C* In the following example, the initial field values are: C* C* A = 1 C* B = 10.0 C* C = 32 C* D = -20 C* E = 6 C* F = 10.0 C* G = 2.77 C* H = 70 C* J = .6 C* K = 25 C* L = 1.0, 1.7, -1.1 Result: C* C ADD 1 A 3 0 A = 002 C B ADD C V 5 2 V = 042.00 C B ADD D V V = -10.00 C Z-ADD C V V = 032.00 C SUB 1 E 3 0 E = 005 C C SUB B W 5 1 W = 0022.0 C C SUB D W W = 0052.0 C Z-SUB C W W = -0032.0 C MULT E F 3 0 F = 060 C B MULT G X 8 4 X = 0027.7000 C B MULT D X X = -0200.0000 C DIV B H 3 0 H = 007 C C DIV J Y 6 2 Y = 0053.33 C MVR Z 5 3 Z = 00.002 C SQRT K Z Z = 05.000 C XFOOT L Z Z = 01.600
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.