Using and Modifying Copied Code › Copying and Modifying Code (=COPY Parameter) › Demonstration

Demonstration

Objective

This example copies stored record descriptions and parameters.

Procedure

• An =COPY parameter is used to copy record descriptions from the file RECS.
• An =COPY parameter is used to copy parameters
• The report number of PARAMS is changed to 02 (RPTNO=02).

Complete Code

 col. 2
 ▼
=COPY RECS
=COPY PARAMS RPTN0=O2
/*

Result

A plus sign (+), in the sequential parameter listing below, identifies copied lines:

Sequential Parameter Listing

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

00 ** SYSIN **                           =COPY RECS
   C200138 INSTALLATION SECURITY OPTION IS NO


                                        +  IN 200
                                        +  REC EMPLOYEE        5   20
                                        +  REC FIRST-NAME      5   10
                                        +  REC LAST-NAME      15   10
                                        +  REC DEPARTMENT    115   25
                                        +  REC SALARY        160    5  3  DP=2
                                        +  REC TITLE         171   20

                                          =COPY PARAMS RPTNO=02
                                        +  02$"PARAMS"
                                        +  023 EMPLOYEE SALARY LISTING BY DEPARTMENT
                                        +  02SORT DEPARTMENT - SALARY D EMPLOYEE
                                        +  0251*010 DEPARTMENT      HH 'DEPARTMENT NAME'
                                        +  0251*020 LAST-NAME       HH '                    EMPLOYEE NAME'
                                        +  0251*025 FIRST-NAME
                                        +  0251*030 TITLE           HH 'JOB TITLE'
                                        +  0251*040 SALARY          HH '    ANNUAL SALARY'

Report

REPORT NO. 02            EMPLOYEE SALARY LISTING BY DEPARTMENT                  mm/dd/yy PAGE     1
          DEPARTMENT NAME                             EMPLOYEE NAME                       JOB TITLE              ANNUAL SALARY

     ACCOUNTING AND PAYROLL                   JENSON                   RUPERT        MGR ACCTNG/PAYROLL            82,000.00
     ACCOUNTING AND PAYROLL                   KIMBALL                  MARIANNE      ACCOUNTANT                    45,000.00
     ACCOUNTING AND PAYROLL                   HUTTON                   EDWARD        FINANCIAL ANALYST             44,000.00
     ACCOUNTING AND PAYROLL                   BLOOMER                  JUNE          PAYROLL CLERK                 15,000.00
     ACCOUNTING AND PAYROLL                   KING                     DORIS         AR CLERK                      14,500.00
     ACCOUNTING AND PAYROLL                   NICEMAN                  BRIAN         AP CLERK                      14,000.00

                                                                                                                  214,500.00
     THERMOREGULATION                         WILCO                    ROGER         MGR THERMOREGULATION          80,000.00
     THERMOREGULATION                         FINN                     PHINEAS       KEEPER OF BALLOONS            45,000.00
     THERMOREGULATION                         CLOTH                    TERRY         HUMIDITY CONTROL CLK          38,000.00
     THERMOREGULATION                         TIME                     MARK          WINTERIZER                    33,000.00
     THERMOREGULATION                         KASPAR                   JOE           WINTERIZER                    31,000.00

                                                                                                                  227,000.00

                                                                                                                2,522,500.00