Google
 

Trailing-Edge - PDP-10 Archives - BB-4172H-BM - 4-1-sources/usag20.lib
There are 17 other files named usag20.lib in the archive. Click here to see a list.
kN
tH@kN
tHA
	02 FILLER				PIC X(200).
01 ENTRY-HEADER-RECORD.
	02 ENTRY-TYPE				PIC 9(4).
(	02 OPERATING-SYSTEM-ID			PIC 9.
2	02 REC-SEQUENCE-NUMBER			PIC 9.
<	02 DEC-REVISION-NUMBER			PIC 99.
F	02 CUSTOMER-REVISION-NUMBER		PIC 99.
P	02 FILLER				PIC X(10).
Z	02 EHR-JOB-NUMBER			PIC 9(4).
d	02 EHR-DATE-TIME			PIC 9(14).
n	02 EHR-TERMINAL-DESIGNATOR		PIC X.
x	02 EHR-LINE-NUMBER			PIC 9(4).
	02 EHR-PROGRAM-NAME			PIC X(6).

	02 EHR-PROGRAM-VERSION			PIC X(15).
	02 EHR-MODULE-VERSION			PIC X(15).
 	02 EHR-NODE-NAME			PIC X(6).
*
401 TOPS20-USER-ID-RECORD.
>	02 FILLER				PIC X(20).
H	02 T20-USER-NAME			PIC X(39).
R
\01 RESTART-RECORD.
f	02 FILLER				PIC X(20).
p	02 RR-SYSTEM-NAME			PIC X(39).
z	02 RR-MONITOR-VERSION			PIC X(15).
	02 RR-MONITOR-BUILD-DATE		PIC 9(14).
	02 RR-MONITOR-UPTIME			PIC 9(18).
	02 RR-CPU-COUNT				PIC 9.
"	02 RR-CPU0-SERIAL			PIC 9(4).
,	02 RR-CPU1-SERIAL			PIC 9(4).
6	02 RR-CPU2-SERIAL			PIC 9(4).
@	02 RR-CPU3-SERIAL			PIC 9(4).
J	02 RR-CPU4-SERIAL			PIC 9(4).
T	02 RR-CPU5-SERIAL			PIC 9(4).
^	02 RR-CHKPNT-DATE-TIME			PIC 9(14).
h01 SESSION-RECORD-1.
r	02 FILLER				PIC X(20).
|	02 SR1-ACCOUNT-STRING			PIC X(39).
	02 SR1-RUNTIME				PIC 9(9).
	02 SR1-START-DATE-TIME			PIC 9(14).
	02 SR1-JOB-TYPE				PIC 9.
$	02 SR1-BATCH-JOB-NAME			PIC X(6).
.	02 SR1-BATCH-SEQUENCE-NUMBER		PIC 9(6).
8	02 SR1-SESSION-REMARK			PIC X(39).
B	02 SR1-CONSOLE-CONNECT-TIME		PIC 9(7).
L01 DATE-TIME-CHANGE-RECORD.
V	02 FILLER				PIC X(20).
`	02 DTR-DAY-OFFSET			PIC S9(7).
j	02 DTR-TIME-OFFSET			PIC S9(7).
t	02 DTR-OLD-DATE-TIME			PIC 9(14).
~01 USAGE-FILE-HEADER-RECORD.
	02 FILLER				PIC X(20).
	02 UFH-SYSTEM-NAME			PIC X(39).
	02 UFH-MONITOR-VERSION			PIC X(15).
&	02 UFH-MONITOR-BUILD-DATE		PIC 9(14).
0	02 UFH-MONITOR-UPTIME			PIC 9(18).
:	02 UFH-CPU-COUNT				PIC 9.
D	02 UFH-CPU0-SERIAL			PIC 9(4).
N	02 UFH-CPU1-SERIAL			PIC 9(4).
X	02 UFH-CPU2-SERIAL			PIC 9(4).
b	02 UFH-CPU3-SERIAL			PIC 9(4).
l	02 UFH-CPU4-SERIAL			PIC 9(4).
v	02 UFH-CPU5-SERIAL			PIC 9(4).
	02 UFH-CHKPNT-DATE-TIME			PIC 9(14).

01 INPUT-SPOOLER-RECORD.
	02 FILLER				PIC X(20).
	02 ISR-ACCOUNT-STRING			PIC X(39).
(	02 ISR-RUNTIME				PIC 9(9).
2	02 ISR-CORE-TIME-INTEGRAL		PIC 9(11).
<	02 ISR-DISK-READS			PIC 9(8).
F	02 ISR-DISK-WRITES			PIC 9(8).
P	02 ISR-JOB-NAME				PIC X(6).
Z	02 ISR-QUEUE-NAME			PIC X(3).
d	02 ISR-DEVICE				PIC X(6).
n	02 ISR-SEQUENCE-NUMBER			PIC 9(6).
x	02 ISR-CARDS-READ			PIC 9(6).
	02 ISR-CREATION-DATE-TIME		PIC 9(14).

	02 ISR-DISPOSITION			PIC X(6).
	02 ISR-TEXT				PIC X(39).
 	02 ISR-PRIORITY				PIC 9(2).
*01 OUTPUT-SPOOLER-RECORD.
4	02 FILLER				PIC X(20).
>	02 OSR-ACCOUNT-STRING			PIC X(39).
H	02 OSR-RUNTIME				PIC 9(9).
R	02 OSR-CORE-TIME-INTEGRAL		PIC 9(11).
\	02 OSR-DISK-READS			PIC 9(8).
f	02 OSR-DISK-WRITES			PIC 9(8).
p	02 OSR-JOB-NAME				PIC X(6).
z	02 OSR-QUEUE-NAME			PIC X(3).
	02 OSR-DEVICE				PIC X(6).
	02 OSR-SEQUENCE-NUMBER			PIC 9(6).
	02 OSR-OUTPUT-UNITS			PIC 9(6).
"	02 OSR-FILES				PIC 9(5).
,	02 OSR-CREATTION-DATE-TIME		PIC 9(14).
6	02 OSR-SCHEDULED-DATE-TIME		PIC 9(14).
@	02 OSR-FORMS-TYPE			PIC X(6).
J	02 OSR-DISPOSITION			PIC X(6).
T	02 OSR-TEXT				PIC X(39).
^	02 OSR-PRIORITY				PIC 9(2).
h01 DISK-DIRECTORY-RECORD.
r	02 FILLER				PIC X(20).
|	02 DDR-RECORD-NUMBER			PIC 9(3).
	02 DDR-ALLOCATED-DISK			PIC 9(10).
	02 DDR-ACTUAL-DISK			PIC 9(10).
	02 DDR-TOTAL-FILES			PIC 9(5).
$	02 DDR-STRUCTURE-NAME			PIC X(6).
.	02 DDR-DIRECTORY-PPN			PIC X(39).
8	02 DDR-STRUCTURE-TYPE			PIC 9.
B	02 DDR-CONTROLLER-TYPE			PIC 9(3).
L	02 DDR-DEVICE-TYPE			PIC 9(3).
V	02 DDR-QUOTA-IN				PIC 9(6).
`	02 DDR-QUOTA-OUT			PIC 9(6).
j	02 DDR-LOGGED-DATE-TIME			PIC 9(14).
t	02 DDR-ACCOUNT-DATE-TIME		PIC 9(14).
~	02 DDR-EXPIRED-DIRECTORY-PPN		PIC X.
		02 DDR-FILES-ONLY-DIRECTORY		PIC X.
	01 DISK-ACCOUNT-RECORD.
		02 FILLER				PIC X(20).
	&	02 DAR-ACCOUNT-STRING			PIC X(39).
	0	02 DAR-PPN-DIRECTORY			PIC X(39).
	:	02 DAR-ALLOCATED-DISK			PIC 9(10).
	D	02 DAR-ACTUAL-DISK			PIC 9(10).
	N	02 DAR-FILE-NUMBER			PIC 9(5).
	X	02 DAR-STRUCTURE-NAME			PIC X(6).
	b	02 DAR-STRUCTURE-TYPE			PIC 9.
	l	02 DAR-CONTROLLER-TYPE			PIC 9(3).
	v	02 DAR-DEVICE-TYPE			PIC 9(3).