Control Data Corporation 3300 Reference Manual page 190

USASI CO~OL 1.0
I
MAST~4 2.1
0005'7
000S8
0005i.i
00060
00001
00062
00063
00064
00065
00060
00067
OOObH
00069
00070
00071
00012
0007.3
00074
0007S
00076
00071
00078
00079
00080
00081
00082
0008]
0001:34
00085
00086
OOOtH
00088
OOOd9
OUOC;;O
00U91
00092
OO(i93
10/14/68
02 SECT PIC
xes)
COLU~N
aD SOURCE
SECTwNO
GROUP INDICATE.
02
G~P-N
PIC
xes)
COLUMN gO
SOURCE GROUP-NO.
02 AMOUNT PIC ZZZ.ZZ COLUMN 100 SOURCE AMNT-NO.
01 TYPE IS CO~TROL FOOTING SEcT-NO LINE PLUS 2.
02 COLUMN
b
PIC XXX VALUE -CFS-.
02 COLUMN b~
PIC
ACIO) VALUE
-SEC
TOTAL_.
02 COLUMN 100 PIC llZZlZ~Zl SUM AMNT-NO.
01
TYPE IS
CONTHOL FOOTING DEPT-NO LINE
PLUS 2.
02
COLUMN
5 PIC XXX
VALUE ~CFA-.
02
COLUMN
10
PIC A(ll) VALUE
-OEPT.
TOTAL-.
02
COLUMN
100
PIC
ZlZlZZ~ZZ
SUM AMNT.NO.
01
TYPE
IS
CO~TkOL
FOOTING FINAL LINE
PLUS
2.
02 cOLUMN
1+
PIC XXX VALUE -cFF-.
02
COLUMN
bO
PIC X(ll) VALUE
-G~AND
T8TAL-.
02
COLUMN 100 PIC
llZZZZ~ZZ
SUM AMNT.N •
01
TYPE
IS PAG~
FOOTING
LINE PLUS 2.
02 COLUMN 3 PIC
xx
VALUE
_P~
••
02 COLUMN 110 PIC X(4) VALUE
~PAGE-.
02
COLUMN 115 PIC 999 SOURCE IS PAGEwCOUNT[R.
01 TYPE IS REPORT FOOTING LINE PLUS 2.
02 COLUMN 2 PIC XX VALUE _RF_.
02
COLUMN
30 pIC X(41)
VA~uE
IS
_THIS COMPLETES
THE MONTHLY
EXPENSE REPORT ••
PROCEDURE DIVISION.
START.
STOP"'IT.
OPEN
INPUT
FILE-A.
OPEN OUTPUT
FILE-8.
INITIATE REPORT-A.
READ FILE-A AT ENO GO TO
STOP-IT.
GENERATE DETAIL-ITEM
o
GO 1'0
STEP-2.
TERMINATE
REPOAT-~,
CLOSE
FILE-A.
FILE-Bo
STOP RUN.
END PROGRAM,