Additional Standard File Facilities › Creating Variable Headings › Demonstration (2): Using the SORT/NOSORT Parameters

Demonstration (2): Using the SORT/NOSORT Parameters

Objective

This is the same report as that shown in Demonstration (1). In this example, the input file is presorted and an actual sort is not needed.

Procedure

• A sort with the NOSORT option occurs on BRANCH:
  • SORT BRANCH 1 creates the control break, which makes the current value of BRANCH available to the type 4 reference.
  • NOSORT prevents the resorting of the already sorted file.
• Type 4 parameters:
  • Place the word BRANCH on the subtitle line.
  • Obtain and print the current value of BRANCH.

Complete Code

col. 2
▼
IN 80 F 400
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
80SORT BRANCH 1 NOSORT           $Control break without a sort
803 ACCOUNT ACTIVITY BY BRANCH
80410001 'BRANCH'                    $Prints BRANCH
80410009  BRANCH                    $Prints the branch number
8051*020 ACCOUNT               HR
8051*030 NAME                  HR
8051*050 TRANS-AMT             HR
8051*060 TRANS-IND             HR
8051*070 TRANS-DATE  FD        HR

Results

REPORT NO. 80       ACCOUNT ACTIVITY BY BRANCH     80     mm/dd/yy PAGE     1
BRANCH  32
                                                                AMOUNT OF                DEPOSIT/
           ACCOUNT                    NAME                     TRANSACTION              WITHDRAWAL              DATE

            15060             SHARON ARMSTRONG                     10,099.01                D                 mm/dd/yy
            15060             SHARON ARMSTRONG                        990.11                W                 mm/dd/yy
            15060             SHARON ARMSTRONG                    100,990.11                D                 mm/dd/yy
            16070             ARTHUR LINK                           1,080.04                D                 mm/dd/yy
            19235             GARY NOBLES                              80.04                W                 mm/dd/yy
            21056             AMOS JOHNSON                              1.02                W                 mm/dd/yy
                                                                  113,240.33
REPORT NO. 80        ACCOUNT ACTIVITY BY BRANCH     80     mm/dd/yy PAGE     2
BRANCH  35
                                                                AMOUNT OF                DEPOSIT/
           ACCOUNT                    NAME                     TRANSACTION              WITHDRAWAL              DATE

            23055             JACK JACKSON                            500.00                W                 mm/dd/yy
            23055             JACK JACKSON                         50,000.00                D                 mm/dd/yy
            23055             JACK JACKSON                             30.00                D                 mm/dd/yy
            29557             IRWIN TRIMBLE                       500,001.00                D                 mm/dd/yy
                                                                  550,531.00

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