Demonstration (2): Modifying Code Using WITH VALUES and CHANGE

Using and Modifying Copied Code › Listing the Contents of a Data File › Demonstration (2): Modifying Code Using WITH VALUES and CHANGE

Demonstration (2): Modifying Code Using WITH VALUES and CHANGE

Objective

This report is generated from the source code used for Demonstration (1). Three fields from the first ten records of the input file are listed.

Procedure

The USE parameter is coded with the AMLIST routine.
The WITH VALUES clause specifies a subtitle for the report by enclosing the literal that is to appear on the generated type 4 parameter ('COMPANY EMPLOYEES') in double quotation marks.
The CHANGE clause changes the report number from 03 to 01.
The SORT parameter sorts the data by employee title.
A subtotal prints for every title.
Type 7 process code selects the first ten records in the file in which the salary amount is less than or equal to $25,000.
Note: CA Culprit sorts process parameters in ascending order by sequence number. Therefore, be sure to code a sequence number that reflects the sequence in which record selection is to occur.

Complete Code

 col. 2
 ▼
 IN  200
 REC EMP-NAME   5   25
 REC SALARY   160    5  3 DP=2
 REC TITLE    171   20
USE AMLIST3
WITH VALUES (10 "'COMPANY EMPLOYEES'" EMP-NAME TITLE SALARY)
CHANGE RPTNO TO 01          $Change the report number
 01SORT TITLE -                   $Sort the data
 017010 SALARY GT 25000 DROP         $Select the salary amounts
 0161*030 SALARY                   $Total the salary amounts

Input Parameter Listing

mm/dd/yy INPUT PARAMETER LISTING volser Vnn.n PAGE 3 ******** PROCESS USER INTERNAL LABEL SEQUENCE PROCESS STATEMENT ******** 01 7 010 1 SALARY GT 25000 DROP $Select the salary amounts 01 7 110 2 SEQUENCE + 1 SEQUENCE $ COUNT RECORDS READ 01 7 3 M 10 ALL $ GET MAXIMUM 01 7 4 ALL EQ 0 TAKE $ TAKE ALL RECORDS 01 7 5 SEQUENCE GT 10 DROP $ DROP IF OVER MAXIMUM

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 USE AMLIST3 WITH VALUES (10 "'COMPANY EMPLOYEES'" EMP-NAME TITLE SALARY) CHANGE RPTNO TO 01 $Change the report number 01 AMLIST3 01$00****CULPRIT ROUTINE-AMLIST3 010 SEQUENCE ALL 013DETAIL LIST 014100010'COMPANY EMPLOYEES' 01420001 ' ' 0151*010 EMP-NAME HF 0151*020 TITLE HF 0151*030 SALARY HF 0168*001 ' ' 017110SEQUENCE A 1 SEQUENCE $ COUNT RECORDS READ 017 M 10 ALL $ GET MAXIMUM 017 ALL EQ 0 TAKE $ TAKE ALL RECORDS 017 SEQUENCE GT 10 DROP $ DROP IF OVER MAXIMUM 00 ** SYSIN ** 01 SORT TITLE - $ Sort the data 017 010 SALARY GT 25000 DROP $ Select the salary amounts 0161*030 SALARY $ Total the salary amounts

Report

REPORT NO. 01 DETAIL LIST mm/dd/yy PAGE 1 COMPANY EMPLOYEES EMP-NAME TITLE SALARY BRIAN NICEMAN AP CLERK 14,000.00 14,000.00 DORIS KING AR CLERK 14,500.00 14,500.00 JANE FERNDALE COMPUTER OPERATOR 22,500.00 DOUGLAS KAHALLY COMPUTER OPERATOR 20,000.00 HERBERT LIPSICH COMPUTER OPERATOR 18,500.00 61,000.00 GEORGE FONRAD DATA ENTRY CLERK 14,750.00 ROBIN GARDNER DATA ENTRY CLERK 14,000.00 SANDY KRAAMER DATA ENTRY CLERK 14,000.00 NANCY TERNER DATA ENTRY CLERK 13,000.00 55,750.00 JUNE BLOOMER PAYROLL CLERK 15,000.00 15,000.00 160,250.00