@@ -6,17 +6,17 @@ ENVIRONMENT DIVISION.
66 INPUT-OUTPUT SECTION .
77 FILE-CONTROL .
88 *> The file to sort
9- SELECT Input-File ASSIGN TO " Input.txt "
9+ SELECT Input-File ASSIGN TO " Input.csv "
1010 ORGANISATION LINE SEQUENTIAL
1111 ACCESS SEQUENTIAL .
1212
13- *> Sort work file (internal to SORT statement)
14- SELECT Sort-File ASSIGN TO " SortWork.txt "
13+ *> Sort work file
14+ SELECT Sort-File ASSIGN TO " SortWork.csv "
1515 ORGANISATION LINE SEQUENTIAL
1616 ACCESS SEQUENTIAL .
1717
1818 *> Sort output file
19- SELECT Out-File ASSIGN TO " Output.txt "
19+ SELECT Out-File ASSIGN TO " Output.csv "
2020 ORGANISATION LINE SEQUENTIAL
2121 ACCESS SEQUENTIAL .
2222
@@ -25,23 +25,35 @@ DATA DIVISION.
2525 FD Input-File.
2626 01 Input-Rec.
2727 05 In-UID PIC 9 (4 ).
28- 05 In-Username PIC X (25 ).
28+ 05 FILLER PIC X VALUE " ," .
29+ 05 In-Username PIC X (45 ).
30+ 05 FILLER PIC X VALUE " ," .
2931 05 In-User-Age PIC 999.
3032
3133 SD Sort-File.
3234 01 Sort-Rec.
3335 05 Sf-UID PIC 9 (4 ).
34- 05 Sf-Username PIC X (25 ).
36+ 05 FILLER PIC X VALUE " ," .
37+ 05 Sf-Username PIC X (45 ).
38+ 05 FILLER PIC X VALUE " ," .
3539 05 Sf-User-Age PIC 999.
3640
3741 FD Out-File.
3842 01 Out-Rec.
3943 05 Out-UID PIC 9 (4 ).
40- 05 Out-Username PIC X (25 ).
44+ 05 FILLER PIC X VALUE " ," .
45+ 05 Out-Username PIC X (45 ).
46+ 05 FILLER PIC X VALUE " ," .
4147 05 Out-User-Age PIC 999.
4248
4349PROCEDURE DIVISION .
44- DISPLAY " Hello, World!" .
50+ SORT Sort-File
51+ ON ASCENDING KEY Sf-UID
52+ USING Input-File
53+ GIVING Out-File.
54+
55+ DISPLAY " File Sorted" .
56+
4557 STOP RUN .
4658
4759END PROGRAM Sorting-Files .
0 commit comments