Control Data Corporation 3300 Reference Manual page 222

>
00269 000177
77
GO-KEY PIC 9.
I
00270 OQ017B
77 SA\lE-SAK
PIC
9(12).
00
00271 000179
77 nELETE-SU8
PIC 9.
00272
DQ<)180
77
BACK-SAVE
PIC 9(12).
00273
000181 77 RACK-SAVE
PIC q
(12) •
00274 000]82
77
I
PIC
9.
00275 DOO183 77
rEM-KEY-1
pre
9 (12).
00276 nOO184
77
TE~-1-KEY-2 PIC
9(l?).
00277 000]85
77 TEf\1-KEY-3
PIC
9(12).
00278
060186
77
rr:~-1-KE Y-4
PIC
9 (12) •
00279
DOO181
77 TEM-KEY-c;
PI~ 9(12).
00280
D0.0188
77 TE~-1-KEY-6 PIc
9(12).
00281
D00189
77
TE~~-Kt:: Y-7
PIC
9(12).
00282
DOo190 77 TEM-KEY-8
PIC
9 (7) •
00283
D00191 77 Rr.PT-HEADI"JG PIC
X(l7).
00284
nOO192
77 CC; .. NUMBER
PIc
9.
00285
DO('193
77 T~nAYS-DATE
pIC
9 (4).
00286
000194 77 ntF="F-DATE PIC 9 (4) •
00287
D(10195 77 nE~C-CTR PIC
9.
00288 D00196
77 TE"-1-HOLD-l
PIC X (R2) •
00289 D;;0197
11 TI"'1E-STORt:: PIC
X (8) •
00290
D(jOI9~
77 nATF.-STORE PIC
x un •
00291 0OO19Q
01 P-KEV PIC
9(12).
00292
000200 01 N-KEv PIC 9 (1
~)
•
00293
066201
01 '- I <;T -M~EA-F I ELO.
00294
D
I1
0202
02
LIST-AREA OCCURS
6
TIMES
PICTURE
IS 9 (6) •
00295 n(io203
01 FIQST-DATE.
00296
000204
02
MM pIC 99.
00297
nOO?05
o~
FILLER
pIC
x.
00298
000?06
02
DO
p{C Q9.
00299
on0207 I')~
FILLF::R
piC
X.
00300
000208
02
YY pIC Q9.
00301
000?O9
01
M"1TAB.
00302
000210
O~
FILI..ER
pIC
X(36) VALUE IS
00303
¢OOO0310~90901201S1181212243273304334¢.
00304 006211
01
TAR REUt::FINES MMTAH.
00305
000212 02
MTAti
pIC 999
OCCuRS 12 TIMEs.
00306
060213 01 UP-KEY1.
00307 OQQ214
02
U-tiLK PIC 9 (7) •
00308 D(l0215
f)2
u-Cri PIC
9 (5) •
00309
OQQ216
01
IJP-KEY REDEFINES UP-KEYl PIC 9 (12) •
0')
00310
000217 01 R-C PIC Q(7)V999.
0
00311
000218 01
R-cl
REOEFtNES
d-C.
t\:)
t\:)
00312 066219
02
aLI<.
PIC
9
(7) • CD
~
00313 000220
02
CHAR
PIC 999.
g