|
<![CDATA[
05 SORT-ZIP-9 PIC X(09).
05 SORT-NAME PIC X(16).
03 SORT-BILLING-REC.
]]>
<![CDATA[
***Modified so that bills sort by date within a
***student's account.
***Used fields in SI$SOURCE:BCBXRC.LIB as a
***guide.
]]>
<![CDATA[
***MOD BEGINS
**DD 05 SORT-BL-KEY PIC X(31).
05 SORT-BL-KEY.
07 HG-BX-EXT PIC X(01).
07 HG-BX-SID PIC X(09).
07 HG-BX-KEY-SEQ PIC S9(4) COMP.
07 HG-KEY-CURRENT PIC X(01).
07 HG-BX-KEY-BILL-SEQ PIC X(01).
07 HG-BX-KEY-SID PIC 9(9) COMP.
07 HG-BX-KEY-SUBC PIC 9(05) COMP-3.
07 HG-BX-KEY-DB-CR PIC X(01).
07 HG-BX-KEY-DATE PIC 9(08) COMP-3.
07 HG-BX-BD-SEQ PIC 9(04) COMP.
07 HG-BX-TEXT-SEQ PIC 9(02).
***MOD ENDS
05 FILLER PIC X(120).
**
.
.
.
PROCEDURE DIVISION.
0000-MAIN SECTION.
0000-MAIN-000.
PERFORM 11000-DBMS-CONNECT.
PERFORM 1000-INITIALIZE.
**
SORT SORT-FILE
ASCENDING KEY SORT-HIGH-KEY
]]>
<![CDATA[
***Modified so that bills sort by date within a
***student's account.
]]>
<![CDATA[
***MOD BEGINS
HG-BX-KEY-DATE
***MOD ENDS
SORT-BL-KEY
INPUT PROCEDURE 2000-SORT-INPUT
OUTPUT PROCEDURE 3000-SORT-OUTPUT
PERFORM 7000-EOJ.
0000-MAIN-EXIT.
PERFORM 11000-DBMS-CLOSEOUT.
STOP RUN.
]]>
|
Get your own Free Homepage 