Using and Modifying Copied Code › Assigning Values to Symbolic Fields (USE Parameter) › Demonstration

Demonstration

Objective

This is a monthly report of branch office transactions created from code stored as RPT624. The report title and the dates printed in the heading of the report change each time the report code is run.

Procedure

• The USE parameter copies stored code (RPT624) containing symbolic parameters for values likely to change.
• The WITH VALUES clause provides arguments that are substituted for the symbolic parameters.

Complete Code

Below follows the job stream and the stored code:

The Job Stream

 USE RPT624
 WITH VALUES (mmddyy,mmddyy,mmddyy,MONTHLY REPORT)
/*

Note: The value would show actual dates in the format shown.

The Stored Code

col. 2
▼
IN 80 F
REC ACCOUNT     1     5          'ACCOUNT'
REC TRANS-IND   6     1          'DEPOSIT/' 'WITHDRAWAL'
REC TRANS-AMT   7    11  2 DP=2  'AMOUNT OF' 'TRANSACTION'
REC TRANS-DATE 18     6  2       'DATE'
REC BRANCH     24     2          'BRANCH'
REC NAME       26    20          'NAME'
80OUT 80
80SORT ACCOUNT 1 BRANCH  NAME  RPT-DAY  START  END
800  START &.&1.                       $First date (mmddyy)
800  END   &.&2.                       $Second date (mmddyy)
800  RPT-DAY &.&3.                     $Third date (mmddyy)
803 &.&4.                              $Title (MONTHLY REPORT)
80410010 NAME
80410030 ACCOUNT
80410040 BRANCH
80410050 RPT-DAY          FD
80420010 'PERIOD: FROM'
80420024 START            FD
80420034 'TO'
80420038 END              FD
8051*010 TRANS-DATE       FD   HR
8051*020 TRANS-IND             HR
8051*030 TRANS-AMT             HR
8051*070 TRANS-DATE  FD        HR
8061*0200'TOTAL TRANSACTIONS'
8061*030 TRANS-AMT

Note: The first, second and third dates would be the actual dates in the format shown.

The sequential parameter listing, which is produced in a CA Culprit run, shows the substitutions made for the symbolic parameters.

Sequential Parameter Listing

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

00 ** SYSIN **                            USE RPT624
                                          WITH VALUES (mmddyy,mmddyy,mmddyy,MONTHLY REPORT)
01 RPT624                                 IN 80 F
  C200138 INSTALLATION SECURITY OPTION IS NO
                                          REC ACCOUNT     1     5          'ACCOUNT'
                                          REC TRANS-IND   6     1          'DEPOSIT/' 'WITHDRAWAL'
                                          REC TRANS-AMT   7    11  2 DP=2  'AMOUNT OF' 'TRANSACTION'
                                          REC TRANS-DATE 18     6  2       'DATE'
                                          REC BRANCH     24     2          'BRANCH'
                                          REC NAME       26    20          'NAME'
                                          80OUT 80
                                          80SORT ACCOUNT 1 BRANCH  NAME  RPT-DAY  START  END
                                          800  START mmddyy                       $First date (mmddyy)
                                          800  END   mmddyy                       $Second date (mmddyy)
                                          800  RPT-DAY mmddyy                     $Third date (mmddyy)
                                          803 MONTHLY                              $Title (MONTHLY REPORT)
                                          80410010 NAME
                                          80410030 ACCOUNT
                                          80410040 BRANCH
                                          80410050 RPT-DAY          FD
                                          80420010 'PERIOD: FROM'
                                          80420024 START            FD
                                          80420034 'TO'
                                          80420038 END              FD
                                          8051*010 TRANS-DATE       FD   HR
                                          8051*020 TRANS-IND             HR
                                          8051*030 TRANS-AMT             HR
                                          8051*070 TRANS-DATE  FD        HR
                                          8061*0200'TOTAL TRANSACTIONS'
                                          8061*030 TRANS-AMT

Note: The first, second and third dates would be the actual dates in the format shown.

The Report

REPORT NO. 80  MONTHLY                      $Title  mm/dd/yy PAGE     1
         SHARON ARMSTRONG    15060     32        mm/dd/yy
         PERIOD: FROM  mm/dd/yy  TO  mm/dd/yy
                         DEPOSIT/             AMOUNT OF
        DATE            WITHDRAWAL           TRANSACTION          DATE

      mm/dd/yy              D                    10,099.01      mm/dd/yy
      mm/dd/yy              W                       990.11      mm/dd/yy
      mm/dd/yy              D                   100,990.11      mm/dd/yy

                    TOTAL TRANSACTIONS          112,079.23
REPORT NO. 80  MONTHLY                       $Title  mm/dd/yy PAGE     2
         ARTHUR LINK         16070     32        mm/dd/yy
         PERIOD: FROM  mm/dd/yy  TO  mm/dd/yy
                         DEPOSIT/             AMOUNT OF
        DATE            WITHDRAWAL           TRANSACTION          DATE

      mm/dd/yy              D                     1,080.04      mm/dd/yy

                    TOTAL TRANSACTIONS            1,080.04

Note: The reports would show actual dates in the format shown.