Using The Collating Sequence Is Phrase - Compaq COBOL AAQ2G1FTK User Manual

Using the SORT and MERGE Statements
9.3 Sample Programs Using the SORT and MERGE Statements
Example 9–9 (Cont.) Using the INPUT PROCEDURE and OUTPUT
450-COMPARE-ACCOUNT-NUM.
IF S-ACCOUNT-NUM = SR-ACCOUNT-NUM
500-WRITE-THE-OUTPUT.
MOVE SAVE-SORT-REC TO OUT-REC.
WRITE OUT-REC.
ADD 1 TO OUTPUT-COUNT.
550-GET-A-REC.
MOVE SORT-REC TO SAVE-SORT-REC.
GO TO 400-READ-SORT-FILE.
600-DONE-CREATE SECTION.
650-EXIT-PARAGRAPH.
EXIT.
Example 9–10 shows how to use the COLLATING SEQUENCE IS phrase.
Example 9–10 Using the COLLATING SEQUENCE IS Phrase
IDENTIFICATION DIVISION.
PROGRAM-ID. SORTD.
**************************************************
* This program sorts a file into a non-ASCII
* collating sequence. The collating sequence
* is defined by the alphabet-name MYSEQUENCE
* in the SPECIAL-NAMES paragraph of the
* ENVIRONMENT DIVISION.
* The collating sequence is:
*
*
**************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
ALPHABET MYSEQUENCE IS
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "INPFIL".
SELECT OUTPUT-FILE ASSIGN TO "OUTFIL".
SELECT SORT-FILE ASSIGN TO "SRTFIL".
DATA DIVISION.
FILE SECTION.
SD SORT-FILE.
01 SORT-REC.
03 S-KEY-1.
03 S-KEY-2.
9–16 Using the SORT and MERGE Statements
PROCEDURE Phrases
MOVE "N" TO INITIAL-SORT-READ
GO TO 400-READ-SORT-FILE.
ADD S-AMOUNT TO SR-AMOUNT
GO TO 400-READ-SORT-FILE.
1. The letters A to Z
2. The digits 0 to 9
"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ".
05 S-ACCOUNT-NAME
05 S-AMOUNT
*
*
*
*
*
*
*
*
PIC X(23).
PIC S9(5)V99.
(continued on next page)