Skip to content

Commit 9b4108f

Browse files
martinkeenmartinkeen
authored
Add files via upload
1 parent 53e022f commit 9b4108f

39 files changed

+2102
-0
lines changed

‎Labs/$README.docx‎

14.2 KB
Binary file not shown.

‎Labs/cbl/ADDAMT‎

Lines changed: 37 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,37 @@
1+
IDENTIFICATION DIVISION.
2+
PROGRAM-ID.
3+
ADDAMT.
4+
*******************************************************
5+
* This program accepts input and displays output *
6+
*******************************************************
7+
DATA DIVISION.
8+
WORKING-STORAGE SECTION.
9+
01 KEYED-INPUT.
10+
05 CUST-NO-IN PIC X(15).
11+
05 AMT1-IN PIC 9(5).
12+
05 AMT2-IN PIC 9(5).
13+
05 AMT3-IN PIC 9(5).
14+
01 DISPLAYED-OUTPUT.
15+
05 CUST-NO-OUT PIC X(15).
16+
05 TOTAL-OUT PIC 9(6).
17+
01 MORE-DATA PIC X(3) VALUE 'YES'.
18+
PROCEDURE DIVISION.
19+
100-MAIN.
20+
PERFORM UNTIL MORE-DATA = 'NO '
21+
DISPLAY 'ENTER NAME (15 CHARACTERS)'
22+
ACCEPT CUST-NO-IN
23+
DISPLAY 'Enter amount of first purchase (5 digits)'
24+
ACCEPT AMT1-IN
25+
DISPLAY 'Enter amount of second purchase (5 digits)'
26+
ACCEPT AMT2-IN
27+
DISPLAY 'Enter amount of third purchase (5 digits)'
28+
ACCEPT AMT3-IN
29+
MOVE CUST-NO-IN TO CUST-NO-OUT
30+
ADD AMT1-IN AMT2-IN AMT3-IN
31+
GIVING TOTAL-OUT
32+
DISPLAY CUST-NO-OUT 'Total Amount = ' TOTAL-OUT
33+
DISPLAY 'MORE INPUT DATA (YES/NO)?'
34+
ACCEPT MORE-DATA
35+
INSPECT MORE-DATA CONVERTING 'noyes' to 'NOYES'
36+
END-PERFORM
37+
STOP RUN.

‎Labs/cbl/CBL0001‎

Lines changed: 76 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
*-----------------------
2+
IDENTIFICATION DIVISION.
3+
*-----------------------
4+
PROGRAM-ID. CBL0001
5+
AUTHOR. Otto B. Fun.
6+
*--------------------
7+
ENVIRONMENT DIVISION.
8+
*--------------------
9+
INPUT-OUTPUT SECTION.
10+
FILE-CONTROL.
11+
SELECT PRINT-LINE ASSIGN TO PRTLINE.
12+
SELECT ACCT-REC ASSIGN TO ACCTREC.
13+
*-------------
14+
DATA DIVISION.
15+
*-------------
16+
FILE SECTION.
17+
FD PRINT-LINE RECORDING MODE F.
18+
01 PRINT-REC.
19+
05 ACCT-NO-O PIC X(8).
20+
05 ACCT-LIMIT-O PIC $$,$$$,$$9.99.
21+
05 ACCT-BALANCE-O PIC $$,$$$,$$9.99.
22+
05 LAST-NAME-O PIC X(20).
23+
05 FIRST-NAME-O PIC X(15).
24+
05 COMMENTS-O PIC X(50).
25+
*
26+
FD ACCT-REC RECORDING MODE F.
27+
01 ACCT-FIELDS.
28+
05 ACCT-NO PIC X(8).
29+
05 ACCT-LIMIT PIC S9(7)V99 COMP-3.
30+
05 ACCT-BALANCE PIC S9(7)V99 COMP-3.
31+
05 LAST-NAME PIC X(20).
32+
05 FIRST-NAME PIC X(15).
33+
05 CLIENT-ADDR.
34+
10 STREET-ADDR PIC X(25).
35+
10 CITY-COUNTY PIC X(20).
36+
10 USA-STATE PIC X(15).
37+
05 RESERVED PIC X(7).
38+
05 COMMENTS PIC X(50).
39+
*
40+
WORKING-STORAGE SECTION.
41+
01 FLAGS.
42+
05 LASTREC PIC X VALUE SPACE.
43+
*------------------
44+
PROCEDURE DIVISION.
45+
*------------------
46+
OPEN-FILES.
47+
OPEN INPUT ACCT-REC.
48+
OPEN OUTPUT PRINT-LINE.
49+
*
50+
READ-NEXT-RECORD.
51+
PERFORM READ-RECORD
52+
PERFORM UNTIL LASTREC = 'Y'
53+
PERFORM WRITE-RECORD
54+
PERFORM READ-RECORD
55+
END-PERFORM
56+
.
57+
*
58+
CLOSE-STOP.
59+
CLOSE ACCT-REC.
60+
CLOSE PRINT-LINE.
61+
STOP RUN.
62+
*
63+
READ-RECORD.
64+
READ ACCT-REC
65+
AT END MOVE 'Y' TO LASTREC
66+
END-READ.
67+
*
68+
WRITE-RECORD.
69+
MOVE ACCT-NO TO ACCT-NO-O.
70+
MOVE ACCT-LIMIT TO ACCT-LIMIT-O.
71+
MOVE ACCT-BALANCE TO ACCT-BALANCE-O.
72+
MOVE LAST-NAME TO LAST-NAME-O.
73+
MOVE FIRST-NAME TO FIRST-NAME-O.
74+
MOVE COMMENTS TO COMMENTS-O.
75+
WRITE PRINT-REC.
76+
*

‎Labs/cbl/CBL0002‎

Lines changed: 76 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
*-----------------------
2+
IDENTIFICATION DIVISION.
3+
*-----------------------
4+
PROGRAM-ID. CBL0001
5+
AUTHOR. Otto B. Fun.
6+
*--------------------
7+
ENVIRONMENT DIVISION.
8+
*--------------------
9+
INPUT-OUTPUT SECTION.
10+
FILE-CONTROL.
11+
SELECT PRINT-LINE ASSIGN TO PRTLINE.
12+
SELECT ACCT-REC ASSIGN TO ACCTREC.
13+
*-------------
14+
DATA DIVISION.
15+
*-------------
16+
FILE SECTION.
17+
FD PRINT-LINE RECORDING MODE F.
18+
01 PRINT-REC.
19+
05 ACCT-NO-O PIC X(8).
20+
05 ACCT-LIMIT-O PIC $$,$$$,$$9.99.
21+
05 ACCT-BALANCE-O PIC $$,$$$,$$9.99.
22+
05 LAST-NAME-O PIC X(20).
23+
05 FIRST-NAME-O PIC X(15).
24+
05 COMMENTS-O PIC X(50).
25+
*
26+
FD ACCT-REC RECORDING MODE F.
27+
01 ACCT-FIELDS.
28+
05 ACCT-NO PIC X(8).
29+
05 ACCT-LIMIT PIC S9(7)V99 COMP-3.
30+
05 ACCT-BALANCE PIC S9(7)V99 COMP-3.
31+
05 LAST-NAME PIC X(20).
32+
05 FIRST-NAME PIC X(15).
33+
05 CLIENT-ADDR.
34+
10 STREET-ADDR PIC X(25).
35+
10 CITY-COUNTY PIC X(20).
36+
10 USA-STATE PIC X(15).
37+
05 RESERVED PIC X(7).
38+
05 COMMENTS PIC X(50).
39+
*
40+
WORKING-STORAGE SECTION.
41+
01 FLAGS.
42+
05 LASTREC PIC X VALUE SPACE.
43+
*------------------
44+
PROCEDURE DIVISION.
45+
*------------------
46+
OPEN-FILES.
47+
OPEN INPUT ACCT-REC.
48+
OPEN OUTPUT PRINT-LINE.
49+
*
50+
READ-NEXT-RECORD.
51+
PERFORM READ-RECORD
52+
PERFORM UNTIL LASTREC = 'Y'
53+
PERFORM WRITE-RECORD
54+
PERFORM READ-RECORD
55+
END-PERFORM
56+
.
57+
*
58+
CLOSE-STOP.
59+
CLOSE ACCT-REC.
60+
CLOSE PRINT-LINE.
61+
STOP RUN.
62+
*
63+
READ-RECORD.
64+
READ ACCT-REC
65+
AT END MOVE 'Y' TO LASTREC
66+
END-READ.
67+
*
68+
WRITE-RECORD.
69+
MOVE ACCT-NO TO ACCT-NO-O.
70+
MOVE ACCT-LIMIT TO ACCT-LIMIT-O.
71+
MOVE ACCT-BALANCE TO ACCT-BALANCE-O.
72+
MOVE LAST-NAME TO LAST-NAME-O.
73+
MOVE FIRST-NAME TO FIRST-NAME-O.
74+
MOVE COMMENTS TO COMMENTS-O.
75+
WRITE PRINT-REX.
76+
*

‎Labs/cbl/CBL0004‎

Lines changed: 135 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,135 @@
1+
*-----------------------
2+
IDENTIFICATION DIVISION.
3+
*-----------------------
4+
PROGRAM-ID. CBL0004
5+
AUTHOR. Otto B. Formatted
6+
*--------------------
7+
ENVIRONMENT DIVISION.
8+
*--------------------
9+
INPUT-OUTPUT SECTION.
10+
FILE-CONTROL.
11+
SELECT PRINT-LINE ASSIGN TO PRTLINE.
12+
SELECT ACCT-REC ASSIGN TO ACCTREC.
13+
*-------------
14+
DATA DIVISION.
15+
*-------------
16+
FILE SECTION.
17+
FD PRINT-LINE RECORDING MODE F.
18+
01 PRINT-REC.
19+
05 ACCT-NO-O PIC X(8).
20+
05 FILLER PIC X(02) VALUE SPACES.
21+
05 LAST-NAME-O PIC X(20).
22+
05 FILLER PIC X(02) VALUE SPACES.
23+
05 ACCT-LIMIT-O PIC $$,$$$,$$9.99.
24+
05 FILLER PIC X(02) VALUE SPACES.
25+
05 ACCT-BALANCE-O PIC $$,$$$,$$9.99.
26+
05 FILLER PIC X(02) VALUE SPACES.
27+
*
28+
FD ACCT-REC RECORDING MODE F.
29+
01 ACCT-FIELDS.
30+
05 ACCT-NO PIC X(8).
31+
05 ACCT-LIMIT PIC S9(7)V99 COMP-3.
32+
05 ACCT-BALANCE PIC S9(7)V99 COMP-3.
33+
05 LAST-NAME PIC X(20).
34+
05 FIRST-NAME PIC X(15).
35+
05 CLIENT-ADDR.
36+
10 STREET-ADDR PIC X(25).
37+
10 CITY-COUNTY PIC X(20).
38+
10 USA-STATE PIC X(15).
39+
05 RESERVED PIC X(7).
40+
05 COMMENTS PIC X(50).
41+
*
42+
WORKING-STORAGE SECTION.
43+
01 FLAGS.
44+
05 LASTREC PIC X VALUE SPACE.
45+
*
46+
01 HEADER-1.
47+
05 FILLER PIC X(20) VALUE 'Financial Report for'.
48+
05 FILLER PIC X(60) VALUE SPACES.
49+
*
50+
01 HEADER-2.
51+
05 FILLER PIC X(05) VALUE 'Year '.
52+
05 HDR-YR PIC 9(04).
53+
05 FILLER PIC X(02) VALUE SPACES.
54+
05 FILLER PIC X(06) VALUE 'Month '.
55+
05 HDR-MO PIC X(02).
56+
05 FILLER PIC X(02) VALUE SPACES.
57+
05 FILLER PIC X(04) VALUE 'Day '.
58+
05 HDR-DAY PIC X(02).
59+
05 FILLER PIC X(56) VALUE SPACES.
60+
*
61+
01 HEADER-3.
62+
05 FILLER PIC X(08) VALUE 'Account '.
63+
05 FILLER PIC X(02) VALUE SPACES.
64+
05 FILLER PIC X(10) VALUE 'Last Name '.
65+
05 FILLER PIC X(15) VALUE SPACES.
66+
05 FILLER PIC X(06) VALUE 'Limit '.
67+
05 FILLER PIC X(06) VALUE SPACES.
68+
05 FILLER PIC X(08) VALUE 'Balance '.
69+
05 FILLER PIC X(40) VALUE SPACES.
70+
*
71+
01 HEADER-4.
72+
05 FILLER PIC X(08) VALUE '--------'.
73+
05 FILLER PIC X(02) VALUE SPACES.
74+
05 FILLER PIC X(10) VALUE '----------'.
75+
05 FILLER PIC X(15) VALUE SPACES.
76+
05 FILLER PIC X(10) VALUE '----------'.
77+
05 FILLER PIC X(02) VALUE SPACES.
78+
05 FILLER PIC X(13) VALUE '-------------'.
79+
05 FILLER PIC X(40) VALUE SPACES.
80+
*
81+
01 WS-CURRENT-DATE-DATA.
82+
05 WS-CURRENT-DATE.
83+
10 WS-CURRENT-YEAR PIC 9(04).
84+
10 WS-CURRENT-MONTH PIC 9(02).
85+
10 WS-CURRENT-DAY PIC 9(02).
86+
05 WS-CURRENT-TIME.
87+
10 WS-CURRENT-HOURS PIC 9(02).
88+
10 WS-CURRENT-MINUTE PIC 9(02).
89+
10 WS-CURRENT-SECOND PIC 9(02).
90+
10 WS-CURRENT-MILLISECONDS PIC 9(02).
91+
*------------------
92+
PROCEDURE DIVISION.
93+
*------------------
94+
OPEN-FILES.
95+
OPEN INPUT ACCT-REC.
96+
OPEN OUTPUT PRINT-LINE.
97+
*
98+
WRITE-HEADERS.
99+
MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-DATA.
100+
MOVE WS-CURRENT-YEAR TO HDR-YR.
101+
MOVE WS-CURRENT-MONTH TO HDR-MO.
102+
MOVE WS-CURRENT-DAY TO HDR-DAY.
103+
WRITE PRINT-REC FROM HEADER-1.
104+
WRITE PRINT-REC FROM HEADER-2.
105+
MOVE SPACES TO PRINT-REC.
106+
WRITE PRINT-REC AFTER ADVANCING 1 LINES.
107+
WRITE PRINT-REC FROM HEADER-3.
108+
WRITE PRINT-REC FROM HEADER-4.
109+
MOVE SPACES TO PRINT-REC.
110+
*
111+
READ-NEXT-RECORD.
112+
PERFORM READ-RECORD
113+
PERFORM UNTIL LASTREC = 'Y'
114+
PERFORM WRITE-RECORD
115+
PERFORM READ-RECORD
116+
END-PERFORM
117+
.
118+
*
119+
CLOSE-STOP.
120+
CLOSE ACCT-REC.
121+
CLOSE PRINT-LINE.
122+
STOP RUN.
123+
*
124+
READ-RECORD.
125+
READ ACCT-REC
126+
AT END MOVE 'Y' TO LASTREC
127+
END-READ.
128+
*
129+
WRITE-RECORD.
130+
MOVE ACCT-NO TO ACCT-NO-O.
131+
MOVE ACCT-LIMIT TO ACCT-LIMIT-O.
132+
MOVE ACCT-BALANCE TO ACCT-BALANCE-O.
133+
MOVE LAST-NAME TO LAST-NAME-O.
134+
WRITE PRINT-REC.
135+
*

0 commit comments

Comments
 (0)