Demonstration (4): Using the RENUMBER Clause

Using and Modifying Copied Code › Modifying Code (USE Parameter) › Demonstration (4): Using the RENUMBER Clause

Demonstration (4): Using the RENUMBER Clause

Objective

This example renumbers type 7 sequence numbers in inline code to produce a current Account Activity Report.

Procedure

The RENUMBER clause is used to change type 7 sequence numbers from 010, 020, 040, and 050 to 100, 200, 300, and 400, respectively.

Complete Code

col. 2
▼
IN 80 F
USE *
    CHANGE 'ACCOUNT ACTIVITY BY BRANCH' TO 'ACCOUNT ACTIVITY'
    DROP  'BRANCH' AND 'NAME'
    RENUMBER 7 1/100 TO 100 BY 100
REC ACCOUNT     1     5          'ACCOUNT'
REC TRANS-IND   6     1          'DEPOSIT/' 'WITHDRAWAL'
REC TRANS-AMT   7    11  2 DP=2  'AMOUNT OF' 'TRANSACTION'
REC MMDDYY     18     6  2
REC BRANCH     24     2
REC NAME       26    20          'NAME'
01OUT D
01SORT NAME 0
010 MMDD
010 YY
010 YYMMDD
013 ACCOUNT ACTIVITY BY BRANCH                              $Changed
0151*010 BRANCH                                             $Dropped
0151*020 ACCOUNT               HR
0151*030 NAME                  HR                           $Dropped
0151*050 TRANS-AMT             HR
0151*060 TRANS-IND             HR
0151*070 YYMMDD  FD            HH 'DATE'
017010 IF TRANS-AMT LE 100  DROP                            $Renumbered
017020 COMPUTE TRUNC MMDDYY / 100  MMDD
017040 COMPUTE MMDDYY - (MMDD X 100) YY
017050 COMPUTE (YY X 10000) + MMDD YYMMDD
END

Result

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 'ACCOUNT ACTIVITY BY BRANCH' TO 'ACCOUNT ACTIVITY' DROP 'BRANCH' AND 'NAME' RENUMBER 7 1/100 TO 100 BY 100 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' REC MMDDYY 18 6 2 01OUT D 010 MMDD 010 YY 010 YYMMDD 013 ACCOUNT ACTIVITY $Changed 0151*020 ACCOUNT HR 0151*050 TRANS-AMT HR 0151*060 TRANS-IND HR 0151*070 YYMMDD FD HH 'DATE' 017100 IF TRANS-AMT LE 100 DROP $Renumbered 017200 COMPUTE TRUNC MMDDYY / 100 MMDD 017300 COMPUTE MMDDYY - (MMDD X 100) YY 017400 COMPUTE (YY X 10000) + MMDD YYMMDD END

Report

REPORT NO. 01 ACCOUNT ACTIVITY $Ch mm/dd/yy PAGE 1 AMOUNT OF DEPOSIT/ ACCOUNT TRANSACTION WITHDRAWAL DATE 15060 10,099.01 D yy/mm/dd 15060 990.11 W yy/mm/dd 15060 100,990.11 D yy/mm/dd 16070 1,080.04 D yy/mm/dd 23055 500.00 W yy/mm/dd 23055 50,000.00 D yy/mm/dd 29557 500,001.00 D yy/mm/dd 30115 500,001.00 D yy/mm/dd 30115 50,001.00 D yy/mm/dd 31275 5,000,000.00 D yy/mm/dd 33470 7,590,001.30 D yy/mm/dd 34440 195.01 W yy/mm/dd 34440 2,000.01 D yy/mm/dd 36682 4,000.78 W yy/mm/dd 69876 9,009,901.15 D yy/mm/dd 69876 637.55 D yy/mm/dd 99083 50,001.30 D yy/mm/dd 99083 6,468.52 D yy/mm/dd

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