Copied Code Parameters › USE Parameter Overview

USE Parameter Overview

The USE parameter provides all the capabilities of the =COPY and =MACRO parameters, as well as special capabilities that are unique to USE. The amount of coding required to process stored code is reduced with the USE parameter compared with =COPY and =MACRO parameters, and the number of tasks handled internally is increased.

Capabilities that are unique to the USE parameter appear below:

• Keywords and key values that correspond to symbolic parameters can be coded; these expressions can be used to assign values to the symbolic parameters. Symbolic parameters appear in copied code in the form &&1 through &&9 and &&A through &&Z.
• Default values can be defined for symbolic parameters. If no user-coded value is provided for the symbolic parameter, the default value is used during processing.
• Null values can be defined in character strings that can be used as values for symbolic parameters.
• Character strings can be replaced.
• CA Culprit parameters can be eliminated based on the processing requirements of a particular report.
• USE parameters can be nested; that is, the USE parameter can appear in the code that is copied.

The following table provides an overview of the parameters and clauses associated with the USE parameter.

One or more USE parameters can be nested in copied code. Each USE parameter in the copied code is added to the nesting hierarchy; the hierarchy determines the number of levels of CA Culprit processing. There is no limit to the number of nesting levels.

The following two figures illustrate the CA Culprit input parameters that include nested USE parameters and the Sequential Parameter Listing for these input parameters respectively. CA Culprit modifies the code and outputs the changes on the Sequential Parameter Listing. CA Culprit also outputs a two-digit number that indicates the level of nesting and the source of the modified code; in this example, SYSIN indicates that the source of code is inline. The nesting information is output following each USE statement and, in this example, following each END clause.

Inline Code Containing Nested USE Parameters

 USE * CHANGE 'TITLE' TO 'PRINCE'
  IN  80 DD=EMPFILE
  REC EMP-NAME    1 25         'EMPLOYEE' 'NAME'
  REC EMP-LNAME  11 15
  REC SALARY     70 10 3 DP=2
  REC TITLE      50 20         'TITLE'
 USE *
 CHANGE 'AVG-SAL' TO 'AVERAGE-SAL' AND R TO 22
  010 COUNT 1
  010 AVG-SAL DP=2 0
 USE * CHANGE ',0,' TO ',-,'
  013EMPLOYEE SALARY REPORT
  01SORT TITLE,0,EMP-LNAME
 END
  01510000 COUNT
  0151*010 TITLE HR   SZ=20
  0151*020 EMP-NAME HR
  0151*030 SALARY F$ SZ=10 HF
 USE * DROP '62'
  0161*030 SALARY SZ=10 F$
  0162*010 LABEL.2
  0162*030 COUNT SZ=10
 END
 USE * RENUMBER 8
  018500   SALARY / COUNT  AVG-SAL
 END
 END
 END

Sequential Parameter Listing of Code Modified by Nested

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

 00 ** SYSIN **                           USE * CHANGE 'TITLE' TO 'PRINCE'
 01 ** SYSIN **                            IN  80 DD=EMPFILE
   INSTALLATION SECURITY OPTION IS NO
                                           REC EMP-NAME    1 25         'EMPLOYEE' 'NAME'
                                           REC EMP-LNAME  11 15
                                           REC SALARY     70 10 3 DP=2
                                           REC PRINCE      50 20         'PRINCE'
                                          USE *
                                          CHANGE 'AVG-SAL' TO 'AVERAGE-SAL' AND R TO 22
 02 ** SYSIN **                            220 COUNT 1
                                           220 AVERAGE-SAL DP=2 0
                                          USE * CHANGE ',0,' TO ',-,'
 03 ** SYSIN **                            223EMPLOYEE SALARY REPORT
                                           22SORT PRINCE,-,EMP-LNAME
                                          END
 02 ** SYSIN **                            22510000 COUNT
                                           2251*010 PRINCE HR   SZ=20
                                           2251*020 EMP-NAME HR
                                           2251*030 SALARY F$ SZ=10 HF
                                          USE * DROP '62'
 03 ** SYSIN **                            2261*030 SALARY SZ=10 F$
                                          END
 02 ** SYSIN **                           USE * RENUMBER 8
 03 ** SYSIN **                           END
                                           228001   SALARY / COUNT  AVERAGE-SAL
 02 ** SYSIN **                           END
 01 ** SYSIN **                           END
 ▲      ▲
 │      │
 │      └─────────── Indicates source of code
 │
 └────────────────── Indicates level of nesting

USE parameter syntax appears on the following page.