Demonstration (2): Modifying Parameters and the Report Number

Using and Modifying Copied Code › Copying and Modifying Code (=MACRO Parameter) › Demonstration (2): Modifying Parameters and the Report Number

Demonstration (2): Modifying Parameters and the Report Number

Objective

This example modifies the report number and parameter of copied code to produce a report on employee salaries.

Procedure

An =DROP clause is used to omit the INPUT and type 6 parameters.
An =CHANGE clause is used to change the report number from 01 to 07.

Complete Code

 col. 2
 ▼
 IN  200
=MACRO RPT631A (DEPARTMENT 'BRAIN STORMING     ' EMP-NAME SALARY 60000)
=DROP INPUT  TYPE=6  $Drop INPUT and type 6 parameters
=CHANGE RPTNO=07     $Change the report number
=MEND
/*

Result

In the sequential parameter listing below:

A plus sign (+) indicates copied parameters.
A double plus sign (++) indicates a copied parameter and a value substitution.
An asterisk (*) indicates a continuation line when more than one substitution occurs.

Sequential Parameter Listing

mm/dd/yy SEQUENTIAL PARAMETER LISTING volser Vnn.n PAGE 1 00 ** SYSIN ** IN 200 C200138 INSTALLATION SECURITY OPTION IS NO =MACRO RPT631A (DEPARTMENT 'BRAIN STORMING ' EMP-NAME SALARY 60000) =DROP INPUT TYPE=6 =CHANGE RPTNO=07 =MEND + IN 200 W C200052 INPUT CARD DROPPED + REC EMP-NAME 5 25 'EMPLOYEE NAME' + REC DEPARTMENT 115 45 'DEPARTMENT' + REC SALARY 160 5 3 DP=2 + 073 EMPLOYEE SALARY LISTING + 070 COUNT 1 + 0751*010 &.&3. HR ++ 0751*010 EMP-NAME HR + 0751*020 &.&4. SZ=7 F2 HF ++ 0751*020 SALARY SZ=7 F2 HF + 0761*010 'TOTAL COUNT' + 0761*020 COUNT SZ=8 + 077010 IF &.&1. EQ &.&2. DROP ++ 077010 IF DEPARTMENT ++*EQ 'BRAIN STORMING ' ++*DROP + 077 IF &.&4. GE &.&5. DROP ++ 077 IF SALARY ++*GE 60000 ++*DROP

Report

REPORT NO. 07 EMPLOYEE SALARY LISTING mm/dd/yy PAGE 1 EMPLOYEE NAME 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 HERBERT LIPSICH 18,500.00 NANCY TERNER 13,000.00 BETH CLOUD 52,750.00 TERRY CLOTH 38,000.00 PHINEAS FINN 45,000.00 JOE KASPAR 31,000.00 MARK TIME 33,000.00 JANE DOUGH 33,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 93,500.00