Control Data Corporation 3300 Reference Manual page 220

> 00179
000119
01 REt:-L.
I
00180
000120
02
FILLE~
PIC
XX.
~
00181
000121
02
pRClJueT-LEVEL
PIC
X(lO) •
00182 066122
62
CP-SYS-LF.VEL PIC X (6) •
00183
D00123
02
SUPPCRT-LI:.VEL
PIC
x.
00184
000124
02
FILLER
PIC X(fll).
00185
,OQQ125 01
REC-U.
00186
000126
02
FILLER PIC X.
00187
006127
02
U-F"IELO
PIC
X<1S).
0018A
000128
t)~
U-tHAS PIC 9
(~)
•
00189
060129 02
F
ILLEi~ PIC X(S9).
00190 000130
01 REC-R.
00191
000131
02
FILLF.R f-iIC X.
00192
00Q132
02
CS-fIELO.
00193
000133
03 OS-FtELOI.
00194
000134
04 8S-FIEL02 PIC X (4) •
00195
000135
04
GS-FIELD3 PIC
x.
00196
000136
03 OS-FtE.LD4 PIC
x.
00197
000137
02
PROD-FIELD PIC
X(13).
00}98
OQ9
138
02
WHICH-FIELD PIC X (10) •
00199
000139
02 AGE-FIELD PIC
X (5) •
00200
OQQ1
4
O
02
QUANTITY-fIELD PIC X (7) •
00201
Do0141
02
FILLE~ PtC X (48) •
00202
SO
C;OQT-FILE
00203
RECORD CeNT
~
I f-JS
AO
CHARACTERS
00204
Dt\TI.\ RECORD
IS SCRT-FILF.-QEC.
00205
01](1143
01 <;CqT-FILE-HI::r:.
00206
000]44
02
so~r-CCDE-l
PIc
x.
00207
nOO145
02
SCRT-COOE-2
PIC
x.
00208
000146
02
SCRT-CCOF-3
PIC X
(r;) •
00209
060147
02 FILLER
PIc
X
(73).
00210
FD
N-FILE
00211
RLeCK CONTAINS 42 REcORDS
00212
REcORD CONTAINS 12
CHM=1 J\C
TER5
00213
LAAEL HECCHDS ARE STANDARD VALUE OF
00214
10
Is
tTEMPCRY-PSR-LTST~
00215
OWNER
I~
;tPSR;!
00216
ACCESS-PRIVACY IS
;iAPSR;i
00217
~GnIFICATION-PRIVACY
IS
;iMPSR;t
00218
EDrTION-NUtvlI:jEI-< IS 04
0')
00219
nATA RECORD
15
T-RF.C-1.
<:>
00220
oe0149 01 T-~EC-1
PIC 9 (12).
l'o:)
00221
FO P-C;-LIST
l'o:)
;€
00222
RLnCK CONTAIN!.) 24 RECORDS
0
00223
REcORD CONT A I I'JS 82
CHARACTERS
0