Define the car type as a 5-character key beginning in column 19.
Use statement DO CALLUSER to invoke the SETKEY function of the Reconciliation facility and define car type as the key.
Print the system user code to the Rule Activity report.
Specify the transaction amount as the field to be summed. This field is a 7 character packed decimal field beginning in column 35.
Use statement DO CALLUSER to invoke the SUM function of the Reconciliation facility to perform the summation.
Print the system user code to the Rule Activity report.
Scan all records in the file referenced by DD statement SORTOUT. This file contains the summary records written as output of the SUM function in the previous block.
For each summary record:
Parent Topic |