Using and Modifying Copied Code › Listing the Contents of a Data File › Procedure

Procedure

• =MACRO is used to copy the input file.
• AMLIST3 calls the AMLIST routine to print three fields (EMP-NAME, TITLE, and SALARY) from the first ten records in the input file.
• The heading of the report is COMPANY EMPLOYEES.
• Column headings are the field names.
• =MEND signals the end of the code affected by the =MACRO parameter.

Complete Code

 col. 2
 ▼
 IN  200
 REC EMP-NAME   5   25
 REC SALARY   160    5  3 DP=2
 REC TITLE    171   20
=MACRO AMLIST3 (10 'COMPANY EMPLOYEES' EMP-NAME TITLE SALARY)
=MEND
/*

Sequential Parameter Listing

mm/dd/yy                    SEQUENTIAL PARAMETER LISTING                        volser  Vnn.n  PAGE     1

00 ** SYSIN **                            IN  200
  C200138 INSTALLATION SECURITY OPTION IS NO
                                          REC EMP-NAME   5   25
                                          REC SALARY   160    5  3 DP=2
                                          REC TITLE    171   20
                                         =MACRO AMLIST3 (10 'COMPANY EMPLOYEES' EMP-NAME TITLE SALARY)
                                         =MEND
                                       +  03$00****CULPRIT ROUTINE-AMLIST3
                                       +  030 SEQUENCE ALL
                                       +  033DETAIL LIST
                                       +  034100010&.&2.
                                       ++ 034100010'COMPANY EMPLOYEES'
                                       +  03420001 ' '
                                       +  0351*010 &.&3.         HF
                                       ++ 0351*010 EMP-NAME      HF
                                       +  0351*020 &.&4.         HF
                                       ++ 0351*020 TITLE         HF
                                       +  0351*030 &.&5.         HF
                                       ++ 0351*030 SALARY        HF
                                       +  0368*001 ' '
                                       +  037110SEQUENCE A  1        SEQUENCE      $  COUNT RECORDS READ
                                       +  037            M  &.&1.    ALL           $  GET MAXIMUM
                                       ++ 037            M  10       ALL           $  GET MAXIMUM
                                       +  037   ALL      EQ 0        TAKE          $  TAKE ALL RECORDS
                                       +  037   SEQUENCE GT &.&1.    DROP          $  DROP IF OVER MAXIMUM
                                       ++ 037   SEQUENCE GT 10       DROP          $  DROP IF OVER MAXIMUM

Report

REPORT NO. 03                    DETAIL LIST                                    mm/dd/yy PAGE     1

COMPANY EMPLOYEES

                                        EMP-NAME                             TITLE                         SALARY

                               JUNE      BLOOMER                      PAYROLL CLERK                        15,000.00
                               EDWARD    HUTTON                       FINANCIAL ANALYST                    44,000.00
                               RUPERT    JENSON                       MGR ACCTNG/PAYROLL                   82,000.00
                               MARIANNE  KIMBALL                      ACCOUNTANT                           45,000.00
                               DORIS     KING                         AR CLERK                             14,500.00
                               BRIAN     NICEMAN                      AP CLERK                             14,000.00
                               HERBERT   CRANE                        MGR COMPUTER OPS                     75,000.00
                               JANE      FERNDALE                     COMPUTER OPERATOR                    22,500.00
                               GEORGE    FONRAD                       DATA ENTRY CLERK                     14,750.00
                               ROBIN     GARDNER                      DATA ENTRY CLERK                     14,000.00