Objective
This example changes inline code to produce a report of individual account activity.
Procedure
A KEEP clause is used to retain the title and three type 5 fields (ACCOUNT, TRANS-AMT, and TRANS-IND). All other fields are dropped.
Complete Code
col. 2
▼
IN 80 F
USE *
CHANGE RPTNO TO 01 AND
'ACCOUNT ACTIVITY BY BRANCH' TO 'ACCOUNT ACTIVITY'
KEEP 3 AND 'ACCOUNT' AND 'TRANS-AMT' AND 'TRANS-IND'
REC ACCOUNT 1 5 'ACCOUNT'
REC TRANS-IND 6 1 'DEPOSIT/' 'WITHDRAWAL'
REC TRANS-AMT 7 11 2 DP=2 'AMOUNT OF' 'TRANSACTION'
REC DATE 18 6 2 'DATE'
REC BRANCH 24 2
REC NAME 26 20 'NAME'
80OUT D $Report number changed
80SORT NAME 0
803 ACCOUNT ACTIVITY BY BRANCH $Title changed
8051*010 BRANCH
8051*020 ACCOUNT HR $Kept
8051*030 NAME HR
8051*050 TRANS-AMT HR $Kept
8051*060 TRANS-IND HR $Kept
8051*070 DATE FD HR
END
Sequential Parameter Listing
mm/dd/yy SEQUENTIAL PARAMETER LISTING volser Vnn.n PAGE 1 00 ** SYSIN ** IN 80 F C200138 INSTALLATION SECURITY OPTION IS NO USE * CHANGE RPTNO TO 01 AND 'ACCOUNT ACTIVITY BY BRANCH' TO 'ACCOUNT ACTIVITY' KEEP 3 AND 'ACCOUNT' AND 'TRANS-AMT' AND 'TRANS-IND' 01 ** SYSIN ** REC ACCOUNT 1 5 'ACCOUNT' REC TRANS-IND 6 1 'DEPOSIT/' 'WITHDRAWAL' REC TRANS-AMT 7 11 2 DP=2 'AMOUNT OF' 'TRANSACTION' 013 ACCOUNT ACTIVITY $Title changed 0151*020 ACCOUNT HR $Kept 0151*050 TRANS-AMT HR $Kept 0151*060 TRANS-IND HR $Kept
Report
REPORT NO. 01 ACCOUNT ACTIVITY mm/dd/yy PAGE 1 AMOUNT OF DEPOSIT/ ACCOUNT TRANSACTION WITHDRAWAL 15060 10,099.01 D 15060 990.11 W 15060 100,990.11 D 16070 1,080.04 D 19235 80.04 W 21056 1.02 W 23055 500.00 W 23055 50,000.00 D 23055 30.00 D 29557 500,001.00 D 30115 500,001.00 D 30115 50,001.00 D 31113 36.00 W 31113 36.00 D 31275 5,000,000.00 D 33470 7,590,001.30 D 33470 1.30 D 34440 195.01 W 34440 2,000.01 D 34440 95.01 D 34440 100.00 D 36682 4,000.78 W 69876 9,009,901.15 D 69876 637.55 D 99083 50,001.30 D 99083 6,468.52 D 22,877,247.26
|
Copyright © 2014 CA.
All rights reserved.
|
|