Demonstration (1): Using a Literal Subscript

Using Subscripts › Explicit Subscripts › Demonstration (1): Using a Literal Subscript

Demonstration (1): Using a Literal Subscript

Objective

This report lists the interest due on loans. Based on the size of the loan, there are three possible interest rates. Literal subscripts are used to reference each specific interest rate occurrence.

Procedure

Interest rates are stored in a work field INTEREST.3.
Type 7 logic references each occurrence of the work field.
INTEREST.3 has a DP=4 specification, which translates each occurrence into a 16-byte packed decimal.
The size of the printed interest rate is controlled by using SZ=4 on line 0151*030.

Complete Code

col. 2
▼
IN 200 F 400 PS(TAPE)
REC NAME      5 20
REC LOAN    160  7  3  DP=2
01OUT D
010 INTEREST.3  DP=4 0.0525  0.0550  0.0575 $The subscripted work field
010 AMOUNT DP=2
010 INT DP=4
0151*010 NAME               HH 'CUSTOMER'
0151*020 LOAN   SZ=8        HH 'LOAN AMOUNT'
0151*030 INT    SZ=4  DP=4  HH 'INTEREST' 'RATE'
0151*040 AMOUNT SZ=7  DP=2  HH 'INTEREST' 'AMOUNT'
017    IF LOAN GT 50000.00 100
017    IF LOAN EQ (20000.00 TO 49999.99) 200
017    IF LOAN LT 20000.00 300
017100 COMPUTE ROUND (LOAN X INTEREST.1)  AMOUNT $Use the first occurrence
017    MOVE INTEREST.1 TO INT
017    TAKE
017200 COMPUTE ROUND (LOAN X INTEREST.2)  AMOUNT $Use the second occurrence
017    MOVE INTEREST.2 TO INT
017    TAKE
017300 COMPUTE ROUND (LOAN X INTEREST.3)  AMOUNT $Use the third occurrence
017    MOVE INTEREST.3 TO INT
017    TAKE

Result

CUSTOMER LOAN AMOUNT RATE AMOUNT JUNE BLOOMER 15,000.00 .0575 862.50 EDWARD HUTTON 44,000.00 .0550 2,420.00 RUPERT JENSON 82,000.00 .0525 4,305.00 MARIANNE KIMBALL 45,000.00 .0550 2,475.00 DORIS KING 14,500.00 .0575 833.75 BRIAN NICEMAN 14,000.00 .0575 805.00 HERBERT CRANE 75,000.00 .0525 3,937.50 JANE FERNDALE 22,500.00 .0550 1,237.50 GEORGE FONRAD 14,750.00 .0575 848.13 ROBIN GARDNER 14,000.00 .0575 805.00 DOUGLAS KAHALLY 20,000.00 .0550 1,100.00 TERENCE KLWELLEN 43,000.00 .0550 2,365.00 SANDY KRAAMER 14,000.00 .0575 805.00 HERBERT LIPSICH 18,500.00 .0575 1,063.75 NANCY TERNER 13,000.00 .0575 747.50 BETH CLOUD 52,750.00 .0525 2,769.38 ALAN DONOVAN 33,500.00 .0550 1,842.50 DANIEL MOON 72,000.00 .0525 3,780.00 ROY ANDALE 33,500.00 .0550 1,842.50 HARRY ARM 46,000.00 .0550 2,530.00 C. BREEZE 38,000.00 .0550 2,090.00 CAROLYN CROW 37,500.00 .0550 2,062.50 BURT LANCHESTER 54,500.00 .0525 2,861.25 RENE MAKER 85,000.00 .0525 4,462.50 RICHARD MUNYON 36,000.00 .0550 1,980.00 RICHARD WAGNER 47,000.00 .0550 2,585.00 TOM FITZHUGH 13,000.00 .0575 747.50 CYNTHIA JOHNSON 13,500.00 .0575 776.25 MADELINE ORGRATZI 39,000.00 .0550 2,145.00 ELEANOR PEOPLES 80,000.00 .0525 4,200.00

MICHAEL ANGELO 18,000.00 .0575 1,035.00 MONTE BANK 80,000.00 .0525 4,200.00 CHARLES BOWER 38,500.00 .0550 2,117.50 JOCK JACKSON 34,000.00 .0550 1,870.00 CAROL MCDOUGALL 18,000.00 .0575 1,035.00 LAURA PENMAN 39,000.00 .0550 2,145.00 BETSY ZEDI 37,000.00 .0550 2,035.00 TERRY CLOTH 38,000.00 .0550 2,090.00 PHINEAS FINN 45,000.00 .0550 2,475.00 JOE KASPAR 31,000.00 .0550 1,705.00 MARK TIME 33,000.00 .0550 1,815.00 ROGER WILCO 80,000.00 .0525 4,200.00 JANE DOUGH 33,000.00 .0550 1,815.00 JAMES GALLWAY 33,000.00 .0550 1,815.00 JENNIFER GARFIELD 65,000.00 .0525 3,412.50 PERCY GRANGER 34,500.00 .0550 1,897.50 VLADIMIR HEAROWITZ 33,000.00 .0550 1,815.00 JAMES JACOBI 55,000.00 .0525 2,887.50 JULIE JENSEN 37,000.00 .0550 2,035.00 LARRY LITERATA 37,500.00 .0550 2,062.50 KATHERINE O'HEARN 42,500.00 .0550 2,337.50 RALPH TYRO 20,000.00 .0550 1,100.00 HENRIETTA HENDON 240,000.00 .0525 12,600.00 THEMIS PAPAZEUS 100,000.00 .0525 5,250.00 JOHN RUPEE 80,000.00 .0525 4,200.00 ROBBY WILDER 90,000.00 .0525 4,725.00