Google
 

Trailing-Edge - PDP-10 Archives - BB-D867C-BM - 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)1Fa
ex2za&(78g#)1RiJ
;rriJ|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.