Demonstration (1): Providing Symbolic Parameter Values

Using and Modifying Copied Code › Copying and Modifying Code (=MACRO Parameter) › Demonstration (1): Providing Symbolic Parameter Values

Demonstration (1): Providing Symbolic Parameter Values

Objective

This report uses copied code that contains symbolic fields to list employees with salaries less than $60,000 in all departments except Brainstorming.

Procedure

The =MACRO * parameter provides the values for the symbolic parameters.

Complete Code

 col. 2
 ▼
 IN  200 F 400 PS(TAPE)
 REC EMP-NAME      5   25           'EMPLOYEE NAME'
 REC DEPARTMENT  115   45           'DEPARTMENT'
 REC SALARY      160    5  3  DP=2
 013 EMPLOYEE SALARY LISTING
 010 COUNT 1
=MACRO * (DEPARTMENT 'BRAIN STORMING     ' EMP-NAME SALARY 60000)
=MEND
 0151*000 COUNT
 0151*010 &.&3.                     $EMP-NAME
 0151*020 &.&4.        SZ=7 F2  HF  $SALARY
 0161*010 'TOTAL COUNT'
 0161*020 COUNT      SZ=8
 017010 IF &.&1. EQ &.&2. DROP     $If DEPARTMENT equal BRAINSTORMING
 017    IF &.&4. GE &.&5. DROP     $If SALARY greater than 60000

Result

In the sequential parameter listing, below:

A plus sign (+) identifies the substitutions made.
An asterisk (*) indicates a continuation line for parameters having more than one substitution.

Sequential Parameter Listing

mm/dd/yy SEQUENTIAL PARAMETER LISTING volser Vnn.n PAGE 1 00 ** SYSIN ** IN 200 F 400 PS(TAPE) C200138 INSTALLATION SECURITY OPTION IS NO REC EMP-NAME 5 25 'EMPLOYEE NAME' REC DEPARTMENT 115 45 'DEPARTMENT' REC SALARY 160 5 3 DP=2 013 EMPLOYEE SALARY LISTING 010 COUNT 1 =MACRO * (DEPARTMENT 'BRAIN STORMING ' EMP-NAME SALARY 60000) + =MEND + 0151*000 COUNT + 0151*010 &.&3. $EMP-NAME ++ 0151*010 EMP-NAME $EMP-NAME + 0151*020 &.&4. SZ=7 F2 HF $SALARY ++ 0151*020 SALARY SZ=7 F2 HF $SALARY + 0161*010 'TOTAL COUNT' + 0161*020 COUNT SZ=8 + 017010 IF &.&1. EQ &.&2. DROP $If DEPARTMENT equal BRAINSTORMING ++ 017010 IF DEPARTMENT ++*EQ 'BRAIN STORMING ' ++*DROP $If DEPARTMENT equal BRAINSTORMING + 017 IF &.&4. GE &.&5. DROP $If SALARY greater than 60000 ++ 017 IF SALARY ++*GE 60000 ++*DROP $If SALARY greater than 60000

Report

REPORT NO. 01 EMPLOYEE SALARY LISTING mm/dd/yy PAGE 1 SALARY JUNE BLOOMER 15,000.00 EDWARD HUTTON 44,000.00 MARIANNE KIMBALL 45,000.00 DORIS KING 14,500.00 BRIAN NICEMAN 14,000.00 JANE FERNDALE 22,500.00 GEORGE FONRAD 14,750.00 ROBIN GARDNER 14,000.00 DOUGLAS KAHALLY 20,000.00 TERENCE KLWELLEN 43,000.00 SANDY KRAAMER 14,000.00 JAMES GALLWAY 33,000.00 PERCY GRANGER 34,500.00 VLADIMIR HEAROWITZ 33,000.00 JAMES JACOBI 55,000.00 JULIE JENSEN 37,000.00 LARRY LITERATA 37,500.00 KATHERINE O'HEARN 42,500.00 RALPH TYRO 20,000.00 TOTAL COUNT 44