Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/libary.lib
There are 19 other files named libary.lib in the archive. Click here to see a list.
G>n)1 @G>n)1 Fa
ex2 za &(7 8g#)1 RiJ
;r riJ|z
T
02 CR-user-information.
03 CR-user-job-number PICTURE X(3).
03 CR-user-terminal-number PICTURE X(3).
( 03 CR-user-share-slot PICTURE X(2).
2 03 CR-user-application PICTURE X(8).
< 03 CR-user-identity PICTURE X(8).
F 03 CR-user-message PICTURE X(80).
P 03 CR-user-transaction-count PICTURE 9(4).
Z
d02 CR-transaction-number PICTURE S9(2).
n 88 CR-T01 value is 1.
x 88 CR-T02 value is 2.
88 CR-T03 value is 3.
88 CR-T04 value is 4.
88 CR-T05 value is 5.
88 CR-T06 value is 6.
* 88 CR-T07 value is 7.
4 88 CR-T08 value is 8.
> 88 CR-T09 value is 9.
H 88 CR-T10 value is 10.
R 88 CR-T11 value is 11.
\ 88 CR-T12 value is 12.
f 88 CR-OPEN-DATA-BASE value is 98.
p 88 CR-CLOSE-DATA-BASE value is 99.
z
* CR-T12 is value for printing the report.
"
, 02 CR-transaction-subtype PICTURE 9(1).
6
@ 88 CR-T08-do-everything value is 0.
J 88 CR-T08-verify-customer value is 1.
T 88 CR-T08-verify-meter value is 2.
^ 88 CR-T08-verify-cm-link value is 3.
h 88 CR-T08-update-cm-recs value is 4.
r 88 CR-T08-create-activity value is 5.
|
* As a result of processing--a return code is set upon return
$ 02 CR-return-code PICTURE 9(2).
. 88 CR-good-return value is 0.
8 88 CR-no-meter value is 1.
B 88 CR-already-meter value is 2.
L 88 CR-no-customer value is 3.
V 88 CR-already-customer value is 4.
` 88 CR-no-branch-po value is 5.
j 88 CR-meter-cust-now-linked value is 6.
t 88 CR-meter-branch-now-linked value is 7.
~ 88 CR-no-parent-po value is 8.
88 CR-branch-parent-now-linked value is 9.
88 CR-meter-customer-not-linked value is 10.
88 CR-already-parent-po value is 11.
& 88 CR-already-branch-po value is 12.
0 88 CR-data-base-error value is 99.
:
D
N* Basic information which may or may not be filled depending on
X* transaction type. Some items may be filled by caller on some
b* transactions and by this routine on others.
l
v 02 CR-basic-information.
03 CRB-meter-number PICTURE 9(5).
03 CRB-customer-number PICTURE 9(5).
03 CRB-branch-po-number PICTURE 9(4).
( 03 CRB-parent-po-number PICTURE 9(4).
2 03 CRB-date PICTURE X(6).
< 03 CRB-hhmm PICTURE X(4).
F 03 CRB-activity-code PICTURE X(3).
P
Z* The following area is overlayed depending on the transaction
d* type.
n
x 02 CR-per-transaction-type.
03 FILLER PICTURE X(96).
* 02 CR-T08-data REDEFINES CR-per-transaction-type.
4
> 03 CRT08-customer-update-count PICTURE 9(6).
H 03 CRT08-meter-update-count PICTURE 9(6).
R 03 FILLER PICTURE X(84).
\
f
p 02 CR-T09-data REDEFINES CR-per-transaction-type.
z 03 CRT09-number-of-activities PIC S9(6).
03 CRT09-date-activity OCCURS 10 TIMES.
04 CRT09-date PICTURE 9(6).
04 CRT09-activity-code PICTURE X(3).
"
,
6 02 CR-T10-data REDEFINES CR-per-transaction-type.
@
J 03 CRT10-customer-date PICTURE 9(6).
T 03 CRT10-meter-date PICTURE 9(6).
^ 03 CRT10-meter-update-count PICTURE 9(6).
h 03 FILLER PICTURE X(78).
r
|
02 CR-T12-data REDEFINES CR-per-transaction-type.
03 CRT12-report-file-name PICTURE X(9).
$ 03 FILLER PICTURE X(87).
.
8**********************************************************************
B* *
L* End of the description of the COMMUNICATION RECORD *
V* *
`**********************************************************************
j
t
************************************************************
* RECORD DESCRIPTION OF FORM PBLOAD
************************************************************
(
2 10 NUM-CUST
< PICTURE S9(5) DISPLAY-7.
F 10 NUM-METER
P PICTURE S9(5) DISPLAY-7.
Z 10 NUM-BRANCH
d PICTURE S9(4) DISPLAY-7.
n 10 NUM-PARENT
x PICTURE S9(4) DISPLAY-7.
10 METERS-TO-LINK
PICTURE S9(5) DISPLAY-7.
10 METERS-PER-CUST
PICTURE S9(2) DISPLAY-7.
* 10 METERS-PER-BRANCH
4 PICTURE S9(2) DISPLAY-7.
> 10 METER-FIRST
H PICTURE S9(5) DISPLAY-7.
R 10 METER-LAST
\ PICTURE S9(5) DISPLAY-7.
f 10 METER-INCR
p PICTURE S9(5) DISPLAY-7.
z 10 CUST-FIRST
PICTURE S9(5) DISPLAY-7.
10 CUST-LAST
PICTURE S9(5) DISPLAY-7.
" 10 CUST-INCR
, PICTURE S9(5) DISPLAY-7.
6 10 BRANCH-FIRST-M
@ PICTURE S9(5) DISPLAY-7.
J 10 BRANCH-LAST-M
T PICTURE S9(5) DISPLAY-7.
^ 10 BRANCH-INCR-M
h PICTURE S9(5) DISPLAY-7.
r 10 BRANCHES-TO-LINK
| PICTURE S9(4) DISPLAY-7.
10 BRANCHES-PER-PARENT
PICTURE S9(2) DISPLAY-7.
10 BRANCH-FIRST-P
$ PICTURE S9(5) DISPLAY-7.
. 10 BRANCH-LAST-P
8 PICTURE S9(5) DISPLAY-7.
B 10 BRANCH-INCR-P
L PICTURE S9(5) DISPLAY-7.
V 10 PARENT-FIRST
` PICTURE S9(5) DISPLAY-7.
j 10 PARENT-LAST
t PICTURE S9(5) DISPLAY-7.
~ 10 PARENT-INCR
PICTURE S9(5) DISPLAY-7.
10 FLD-001
PICTURE X(30) DISPLAY-7.
& 10 FLD-002
0 PICTURE X(40) DISPLAY-7.
: 10 FLD-003
D PICTURE X(40) DISPLAY-7.
N 10 FLD-004
X PICTURE X(25) DISPLAY-7.
b 10 FLD-006
l PICTURE X(25) DISPLAY-7.
v 10 FLD-008
PICTURE X(26) DISPLAY-7.
10 FLD-010
PICTURE X(26) DISPLAY-7.
10 FLD-012
( PICTURE X(30) DISPLAY-7.
2 10 FLD-013
< PICTURE X(40) DISPLAY-7.
F 10 FLD-015
P PICTURE X(43) DISPLAY-7.
Z 10 FLD-017
d PICTURE X(43) DISPLAY-7.
n 10 FLD-019
x PICTURE X(23) DISPLAY-7.
10 FLD-021
PICTURE X(6) DISPLAY-7.
10 FLD-023
PICTURE X(11) DISPLAY-7.
* 10 FLD-025
4 PICTURE X(23) DISPLAY-7.
> 10 FLD-027
H PICTURE X(6) DISPLAY-7.
R 10 FLD-029
\ PICTURE X(11) DISPLAY-7.
f 10 FLD-031
p PICTURE X(23) DISPLAY-7.
z 10 FLD-033
PICTURE X(6) DISPLAY-7.
10 FLD-035
PICTURE X(11) DISPLAY-7.
" 10 FLD-037
, PICTURE X(41) DISPLAY-7.
6 10 FLD-039
@ PICTURE X(43) DISPLAY-7.
J 10 FLD-041
T PICTURE X(23) DISPLAY-7.
^ 10 FLD-043
h PICTURE X(6) DISPLAY-7.
r 10 FLD-045
| PICTURE X(11) DISPLAY-7.
10 FLD-047
PICTURE X(23) DISPLAY-7.
10 FLD-049
$ PICTURE X(6) DISPLAY-7.
. 10 FLD-051
8 PICTURE X(11) DISPLAY-7.
02 T-TYPE.
03 T-TYPE-1 PIC X.
03 T-TYPE-2 PIC 9.
( 02 T-METER PIC 9(5).
2 02 T-CUST PIC 9(5).
< 02 T-BRANCH PIC 9999.
F 02 T-PARENT PIC 9999.
P 02 T-ACT PIC XXX.
Z 02 T-DATE PIC 9(6).
02 SP-MAX OCCURS 1024 TIMES PIC S9(10) COMPUTATIONAL.
( 02 SP-INFORMATION REDEFINES SP-MAX.
2
< 05 SP-STATUS-INFORMATION.
F
P 10 SP-FIRST-WORD PIC S9(10) COMP.
Z
d 10 SP-CLOSE-DOWN PIC S9(10) COMP.
n 10 SP-NUMBER-OF-USERS PIC S9(10) COMP.
x 10 SP-LAST-POST-TIME PIC S9(10) COMP.
10 SP-DATA-BASE-JOB-NUMBER PIC S9(10) COMP.
10 SP-DATA-BASE-JOB-SLOT PIC S9(10) COMP.
10 SP-RECEIVER-PRIORITY PIC S9(10) COMP.
10 SP-RECVR-PRI-FAIRNESS PIC S9(10) COMP.
* 10 SP-NEXT-FREE-USER PIC S9(10) COMP.
4 10 SP-NEXT-PRIORITY-USER PIC S9(10) COMP.
>
H 10 SP-SCHEDULAR-VARIABLES COMPUTATIONAL.
R 20 SP-SCHED-COUNT PIC S9(10).
\ 20 SP-SCHED-COUNT-SET PIC S9(10).
f 20 SP-SCHED-INTERVAL PIC S9(10).
p 20 SP-SCHED-PRIORITY PIC S9(10).
z 20 SP-SCHED-MAX-COUNT PIC S9(10).
20 SP-SCHED-CURRENT-COUNT PIC S9(10).
20 SP-SCHED-NEXT-TIME PIC S9(10).
20 SP-SCHED-TIME-BETWEEN PIC S9(10).
"
, 10 SP-LOCK-STATUS OCCURS 5 TIMES.
6 20 SP-LOCK PIC S9(10) COMP.
@ 20 SP-TIMES-LOCKED PIC S9(10) COMP.
J 20 SP-TIMES-TRIED PIC S9(10) COMP.
T 20 SP-TIME-LOST-WAITING PIC S9(10) COMP.
^
h 10 SP-SEND-RECEIVE-STATUS.
r 20 SP-SENDER PIC S9(10) COMP.
| 20 SP-RECEIVER PIC S9(10) COMP.
20 SP-MESSAGE-STATUS PIC X(6).
88 R-TO-S VALUE IS 'R-TO-S'.
88 S-TO-R VALUE IS 'S-TO-R'.
$ 88 R-WORKING-ON-IT VALUE IS 'RWORKG'.
.
8 05 SP-PER-USER-AREA OCCURS 10 TIMES.
B 10 SP-NEXT-USER PIC S9(10) COMP.
L 10 SP-USER-JOB-ACTIVE PIC S9(10) COMP.
V 10 SP-USER-JOB-NUMBER PIC S9(10) COMP.
` 10 SP-USER-PRIORITY PIC S9(10) COMP.
j 10 SP-USER-MESSAGE-STATUS PIC X(6).
t 10 SP-USER-RECEIVER-NUMBER PIC S9(10) COMP.
~ 10 SP-USER-COUNTS.
20 SP-USER-COUNTS-FALSE-WAKEUPS PIC S9(10) COMP.
20 SP-USER-COUNTS-CALLS PIC S9(10) COMP.
20 SP-USER-COUNTS-START-TIME PIC S9(7)V9(3) COMP.
& 10 SP-USER-TIME-WAITING.
0 20 SP-TIME-WAITING-IN-SLEEP PIC S9(7)V9(3) COMP.
: 20 SP-TIME-WAITING-FOR-SERVICE PIC S9(7)V9(3) COMP.
D 20 SP-TIME-WAITING-IN-SERVICE PIC S9(7)V9(3) COMP.
N 10 SP-USER-SERVICE-COUNT PIC S9(10) COMP.
X
b 10 SP-USER-PASSING-SPACE PIC X(240) SYNC LEFT.
l
v* 10 TIMES (LIKE NUMBER OF JOBS) -- X(240) LIKE COMMUNICATION-RECORD.
***
***
*** TRACOD - Library of TRAFFIC-20 routines - Version 1
(***
2***
<
FINITIALIZE-SCREEN.
P ENTER MACRO TFRINI USING TFRREC, FORM-FILE,
Z FIELD-IDS, ERROR-CODE.
d IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
n
xREAD-SCREEN.
ENTER MACRO TFRRD USING FIELD-IDS, END-INDICATOR, ERROR-CODE.
IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
WRITE-SCREEN.
* ENTER MACRO TFRWRT USING FIELD-IDS, ERROR-CODE.
4 IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
>
HCLEAR-SCREEN.
R ENTER MACRO TFRCLR USING FIELD-IDS, ERROR-CODE.
\ IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
f
pCLEAR-ENTIRE-SCREEN.
z ENTER MACRO TFRCLR.
DISPLAY-ERROR-MESSAGE.
ENTER MACRO TFRERR USING SCREEN-MESSAGE, FIELD-IDS,
" ERROR-CODE.
, IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
6
@ALLOW-LOWERCASE.
J SET VARIABLE-NUMBER TO 3.
T SET NEW-SETTING TO -1.
^ ENTER MACRO TFRSYS USING VARIABLE-NUMBER, NEW-SETTING,
h OLD-SETTING, ERROR-CODE.
r IF ERROR-CODE NOT = ZEROS GO TO ERROR-PARA.
|
ERROR-PARA.
IF ERROR-CODE = 1
DISPLAY '**ERROR - ILLEGAL DATA TYPE'
$ GO TO ERROR-EXIT.
. IF ERROR-CODE = 2
8 DISPLAY '**ERROR - NO FORM FILE'
B GO TO ERROR-EXIT.
L IF ERROR-CODE = 3
V DISPLAY '**ERROR - INVALID FIELD OR SECTION #'
` GO TO ERROR-EXIT.
j IF ERROR-CODE = 4
t DISPLAY '**ERROR - Field or section not on screen'
~ GO TO ERROR-EXIT.
IF ERROR-CODE = 5
DISPLAY '**ERROR - INVALID ATTRIBUTE FOR FIELD'
GO TO ERROR-EXIT.
& IF ERROR-CODE = 6
0 DISPLAY '**ERROR - Unrecoverable error'
: GO TO ERROR-EXIT.
D IF ERROR-CODE = 7
N DISPLAY '**ERROR - Form length does not equal record length'
X GO TO ERROR-EXIT.
b IF ERROR-CODE = 11
l DISPLAY '?Error - Value in VARIABLE-NUMBER is illegal'
v GO TO ERROR-EXIT.
IF ERROR-CODE = 12
DISPLAY '?Error - Value in NEW-SETTING is not 0 or -1'
GO TO ERROR-EXIT.
DISPLAY '**ERROR - TYPE UNKNOWN'
(
2ERROR-EXIT.
< STOP RUN.
***
***
*** TRAWST - Standard TRAFFIC working storage area - Version 1
(***
2***
<
F PIC X DISPLAY-7.
P77 FORM-FILE PIC X(10) DISPLAY-7.
Z77 FIELD-IDS PIC S9(10) COMP.
d77 END-INDICATOR PIC S9(10) COMP.
n77 ERROR-CODE PIC S9(10) COMP.
x77 RECORD-NAME PIC X(6) DISPLAY-7.
77 SCREEN-MESSAGE PIC X(80) DISPLAY-7.
77 VARIABLE-NUMBER PIC S9(10) DISPLAY-7.
77 NEW-SETTING PIC S9(10) DISPLAY-7.
77 OLD-SETTING PIC S9(10) DISPLAY-7.