Control Data Corporation 3300 Reference Manual page 189

USASI COdOl l.t
I
MAS1~~ 2.1
00014
00015
00016
000 1 7
00018
OOOllj
OO()20
00021
00022
00023
00024
0002~
0002h
00027
00028
00029
000 3 0
00031
00032
00033
00031+
00035
00036
00037
00038
00039
00040
000
4
1
00042
0001+3
00044
00045
000 4 0
00041
0004~
00049
00050
00051
00052
000 5 3
00054
00055
00056
DGOO.l.v
uc-nO.l.1
[Juno
1,:
J (Ph) .I.
,j
u':
0 0.1.
<+
UA1A
DIVISION.
tILE SECTION-
rU FILE-A
LA8EL ~ECO~OS A~~ O~ITTE0
OATA
RFCORU IS
CA~O-IMAGE.
01
CA~O-IMAGE-
02 OEPT-NO PICfURE X(5).
02 SECT-NO PlcrURE ~(~).
02 GROUP-NO PIC
xes).
02 AMNT-NO PIC 9(3}Vq(2).
fo!)
FILE-B
LAd!L REtOHOS ~HE OMITTEo
REPORT IS
~EPowT-A.
HEtJu,·H SEC T I Of-J.
~o HEPORT-A
cONTkOLS A~E FI
N
4L. DEPT-NO.
SECT-NO
PA~E
LIMIT 15 bO lINES
HEADIN(~
1
FIRST
!)ETAIL
10
LAST
DFT~IL
SO
FOOTINc; 5S-
01
TYPE
IS HEPJHT HEAOl~G LINE
n2.
02 COLu~N 02 ~IC xx
VALUE
IS ,RH_.
10/14/68
02 COLUMN 5~ tJIC ~(15) VALU~ 'EXPENSE ACCOUNT-.
U1 TytJE IS PAGE HEADING LINE PLuS 2.
02
COLUMN
i
PIC X~ JALUE
_Pri_
02 COLUMN 110 PIC X(4) VALUE -PAGE-.
f)?
COLUMN 11 5 PIC
9qq
SOURCE IS PAGE-COUNTER.
02 LINE PLUS 1 COLUMN 90 PIC X(8) VALUE
~GROUP
NO_.
02
COLUMN 100 PIC X(7) VALUE
.EXPENSE~.
01 TYPE IS
CO!H~OL ~EAUING
FINAL LINE PLUS 2-
02 COLUMN
4
PIC XXX VALUE *CHF-.
02 COLUMN bO
PIC X(}7)
VALUE 'ITEMIZED BY GROUP,.
U1 TyPE IS
CO~TROl ~EADING
DEPT.NO LINE PLUS 2.
02 COLUMN 5 pIC
X~X
VALUE
_~HA_.
02 COLUMN 70 tJIC X(7) VALUE
,DEPT.NO_.
01 TYP~
IS
CO~T~OL HEADING SECT_NO LINE PLUS 1
NEXT GROUP PLUS 2.
02
COLUMN
6 PIC XXX
VALUE
-CHS-.
02
COLUMN
80
PIC X(1) VALUE _SECTION_.
01
DETAIL-ITEM
TyPE
DETAIL
LINE PLUS 1.
02 COLUMN 7 PIC XX VhLUE -DE-.
02
nEPT
PIC X(S)
COLU~N
70 SOURCE DEPT-NO
GROUP
INDICATE.