>
00359
000266
02
FILLER PIC X(34).
I
~
00360
000267
02
R-SAKT PIC 9(12) OCCURS 3 TIMES.
0
00161
Dn026R
02
FILLER PIC X(12).
OQ362
000269
01
SE~ONOARY-RECCRDT.
00363
000270
02
FORWARO-LKT
pIC 9(12).
00364
0;;0271
02
BACKWARO-LKT
pIC 9(12).
00365
000272
02
PSH-NUMRERT PIC XeS).
00366
066273
02
PSR-SAKT PIC 9(12).
00367
006274
02
PRCD.NAMET
PIC X (10) •
00368
0002715
02
FILLER
pIC XX.
00369
060276
02
OP-SYS-NAMET
PIC X (6) •
00370
OQQ277
02
FILLER
pIC XX.
00371
000278
02
LIST-LITERALT
PIC X(9) VALUE
- PSR-LINK;6.
00372
060279
02
HEADER-ST
pIC
9(12).
00373
D00280
01
PSR-FILE-RECT.
00374
OQ0281
02
PSR-FILEI-MOVET.
00375
OQQ282
03
PSR-NCT
pIC
9 (5) •
00376
000283
03
DATE-INT
pIC
X(8).
00377
000284
03
PROO.NMT
pIC
X(10).
00378
000285
03
vERSION-NCT
pIC 9V9.
00379
000286
03
PROO-NCT
pIC
X(4).
00380
OQ0287
03
CP-svS-IT
pIC
x.
00381
000288
03 VER-IT
pIC 9V9.
00382
060289
03
OP-svS-2T
pIC
x.
00383
000290
03 VER-2T
pIC 9V9.
00384
060291
03
OP-SvS-3T
pIC
x.
00385
D60292
03 VER-3T
pIC 9V9.
00386
000293
03
REPORT-CRGT
pIC
X(14).
00387
000294
03
EQUAL-PSRT
pIC
9 (S) •
00388
000295
02
PSR-FILE2-MOVET.
00389
060296
03
OUT-DTOT
pIC
X (8) •
00390
006297
03
SCHED-IMPLT.
00391
060298
04 syS-AT
pIC 9V9.
00392
060299
04 VEI'<-AT
PIC 9V9.
00393
066300
04 SVS-BT
PIC 9V9.
00394
000301
04 VER-BT
pIC 9V9.
00395
000302
04 SyS-CT
pIC 9V9.
00396
000303
04 VEH-CT
pIC 9V9.
00397
000304
03
TESTED-T
PIC
X.
00398
060305
03
SUM-NCT
pIC
999.
en
00399
000306
02
OESCRIPTICNT.
0
00400
000307
03
OESCT
pIC
X(73) OCCURS 5 TIMES.
t-:>
t-:>
00401
D00308
02
PSR-FIL3-MCVET.
co
~
00402
000309
03
AS-OTT
pIC
9 (4) •
0
0
00403
000310
03
PSR-AK-FORWT
pIC
9(12).
Need help?
Do you have a question about the 3300 and is the answer not in the manual?