Trailing-Edge
-
PDP-10 Archives
-
TRAFFIC-20_V4_840514
-
traffic-demonstrations/libary.lib
There are 19 other files named libary.lib in the archive. Click here to see a list.
Ij @Ij FIj <Ij0 &Ij@ Ij` !Ijp
<
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM1
(*
2* SPECIFICATION FILE: DEM1.FRM.1
<*
F* DATE OF COMPILATION: 30-Apr-84 10:38:33
P*
Z************************************************************
d01 FM-DEM1 USAGE IS DISPLAY-7.
n 10 THIS
x PICTURE X(7).
10 TRAFFIC
PICTURE X(10).
10 VERSION
PICTURE X(2).
* 10 QGO
4 PICTURE A(1).
>
H************************************************************
R*
\* FIELD NUMBER TABLE OF FORM: DEM1
f*
p* SPECIFICATION FILE: DEM1.FRM.1
z*
* DATE OF COMPILATION: 30-Apr-84 10:38:33
*
************************************************************
"01 FN-DEM1 USAGE IS COMPUTATIONAL.
, 10 FN-THIS
6 PICTURE S9(6) VALUE IS 1.
@ 10 FN-TRAFFIC
J PICTURE S9(6) VALUE IS 2.
T 10 FN-VERSION
^ PICTURE S9(6) VALUE IS 3.
h 10 FN-QGO
r PICTURE S9(6) VALUE IS 4.
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM2
(*
2* SPECIFICATION FILE: DEM2.FRM.1
<*
F* DATE OF COMPILATION: 30-Apr-84 10:38:36
P*
Z************************************************************
d01 FM-DEM2 USAGE IS DISPLAY-7.
n 10 FILL21
x PICTURE X(10).
10 FILL22
PICTURE X(72).
10 FILL23
PICTURE X(72).
* 10 FILL24
4 PICTURE X(72).
> 10 FILL25
H PICTURE X(53).
R 10 FILL26
\ PICTURE X(72).
f 10 FILL27
p PICTURE X(70).
z 10 BADGE2
PICTURE S9(5).
10 FNAME2
PICTURE A(12).
" 10 SNAME2
, PICTURE A(12).
6 10 HOTEL2
@ PICTURE A(33).
J 10 ROOM2
T PICTURE S9(4).
^ 10 COMMENT2
h PICTURE X(80).
r 10 TA
| PICTURE X(9).
10 QAGEN2
PICTURE A(1).
$************************************************************
.*
8* FIELD NUMBER TABLE OF FORM: DEM2
B*
L* SPECIFICATION FILE: DEM2.FRM.1
V*
`* DATE OF COMPILATION: 30-Apr-84 10:38:36
j*
t************************************************************
~01 FN-DEM2 USAGE IS COMPUTATIONAL.
10 FN-FILL21
PICTURE S9(6) VALUE IS 1.
10 FN-FILL22
& PICTURE S9(6) VALUE IS 2.
0 10 FN-FILL23
: PICTURE S9(6) VALUE IS 3.
D 10 FN-FILL24
N PICTURE S9(6) VALUE IS 4.
X 10 FN-FILL25
b PICTURE S9(6) VALUE IS 5.
l 10 FN-FILL26
v PICTURE S9(6) VALUE IS 6.
10 FN-FILL27
PICTURE S9(6) VALUE IS 7.
10 FN-BADGE2
PICTURE S9(6) VALUE IS 8.
( 10 FN-FNAME2
2 PICTURE S9(6) VALUE IS 9.
< 10 FN-SNAME2
F PICTURE S9(6) VALUE IS 10.
P 10 FN-HOTEL2
Z PICTURE S9(6) VALUE IS 11.
d 10 FN-ROOM2
n PICTURE S9(6) VALUE IS 12.
x 10 FN-COMMENT2
PICTURE S9(6) VALUE IS 13.
10 FN-TA
PICTURE S9(6) VALUE IS 14.
10 FN-QAGEN2
* PICTURE S9(6) VALUE IS 15.
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM3
(*
2* SPECIFICATION FILE: DEM3.FRM.1
<*
F* DATE OF COMPILATION: 30-Apr-84 10:38:42
P*
Z************************************************************
d01 FM-DEM3 USAGE IS DISPLAY-7.
n 10 FILL31
x PICTURE X(10).
10 FILL32
PICTURE X(66).
10 FILL33
PICTURE X(66).
* 10 FILL34
4 PICTURE X(66).
> 10 FILL35
H PICTURE X(21).
R 10 FILL36
\ PICTURE X(57).
f 10 FNAME3
p PICTURE X(12).
z 10 SNAME3
PICTURE X(12).
10 FILL37
PICTURE X(15).
" 10 TOGO
, PICTURE S9(4).
6 10 ININ
@ PICTURE S9(3).
J 10 GIVES3
T PICTURE S9(2)V9(2).
^ 10 COST3
h PICTURE S9(2)V9(2).
r 10 TOTAL3
| PICTURE S9(7)V9(2).
10 QCHANGE3
PICTURE A(1).
$************************************************************
.*
8* FIELD NUMBER TABLE OF FORM: DEM3
B*
L* SPECIFICATION FILE: DEM3.FRM.1
V*
`* DATE OF COMPILATION: 30-Apr-84 10:38:42
j*
t************************************************************
~01 FN-DEM3 USAGE IS COMPUTATIONAL.
10 FN-FILL31
PICTURE S9(6) VALUE IS 1.
10 FN-FILL32
& PICTURE S9(6) VALUE IS 2.
0 10 FN-FILL33
: PICTURE S9(6) VALUE IS 3.
D 10 FN-FILL34
N PICTURE S9(6) VALUE IS 4.
X 10 FN-FILL35
b PICTURE S9(6) VALUE IS 5.
l 10 FN-FILL36
v PICTURE S9(6) VALUE IS 6.
10 FN-FNAME3
PICTURE S9(6) VALUE IS 7.
10 FN-SNAME3
PICTURE S9(6) VALUE IS 8.
( 10 FN-FILL37
2 PICTURE S9(6) VALUE IS 9.
< 10 FN-TOGO
F PICTURE S9(6) VALUE IS 10.
P 10 FN-ININ
Z PICTURE S9(6) VALUE IS 11.
d 10 FN-GIVES3
n PICTURE S9(6) VALUE IS 12.
x 10 FN-COST3
PICTURE S9(6) VALUE IS 13.
10 FN-TOTAL3
PICTURE S9(6) VALUE IS 14.
10 FN-QCHANGE3
* PICTURE S9(6) VALUE IS 15.
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM4
(*
2* SPECIFICATION FILE: DEM4.FRM.23
<*
F* DATE OF COMPILATION: 30-Apr-84 10:38:48
P*
Z************************************************************
d01 FM-DEM4 USAGE IS DISPLAY-7.
n 10 FILL41
x PICTURE X(65).
10 FILL42
PICTURE X(65).
10 FILL43
PICTURE X(65).
* 10 FILL44
4 PICTURE X(65).
> 10 FILL45
H PICTURE X(65).
R 10 FILL46
\ PICTURE X(20).
f 10 FILL47
p PICTURE X(10).
z 10 FILL48
PICTURE X(65).
10 FILL49
PICTURE X(66).
" 10 FILL410
, PICTURE X(65).
6 10 FILL411
@ PICTURE X(65).
J 10 MULTIPLE-RECORD OCCURS 50 TIMES.
T 12 DATE4
^ PICTURE 9(6).
h 12 QTY4
r PICTURE S9(2).
| 12 PARTNO4
PICTURE X(12).
12 DESC4
PICTURE X(20).
$ 12 COST4
. PICTURE S9(4)V9(2).
8 12 INDX4
B PICTURE S9(2).
L 10 QGO4
V PICTURE A(1).
`
j************************************************************
t*
~* FIELD NUMBER TABLE OF FORM: DEM4
*
* SPECIFICATION FILE: DEM4.FRM.23
*
&* DATE OF COMPILATION: 30-Apr-84 10:38:48
0*
:************************************************************
D01 FN-DEM4 USAGE IS COMPUTATIONAL.
N 10 FN-FILL41
X PICTURE S9(6) VALUE IS 1.
b 10 FN-FILL42
l PICTURE S9(6) VALUE IS 2.
v 10 FN-FILL43
PICTURE S9(6) VALUE IS 3.
10 FN-FILL44
PICTURE S9(6) VALUE IS 4.
10 FN-FILL45
( PICTURE S9(6) VALUE IS 5.
2 10 FN-FILL46
< PICTURE S9(6) VALUE IS 6.
F 10 FN-FILL47
P PICTURE S9(6) VALUE IS 7.
Z 10 FN-FILL48
d PICTURE S9(6) VALUE IS 8.
n 10 FN-FILL49
x PICTURE S9(6) VALUE IS 9.
10 FN-FILL410
PICTURE S9(6) VALUE IS 10.
10 FN-FILL411
PICTURE S9(6) VALUE IS 11.
* 10 FN-DATE4
4 PICTURE S9(6) VALUE IS 12.
> 10 FN-QTY4
H PICTURE S9(6) VALUE IS 13.
R 10 FN-PARTNO4
\ PICTURE S9(6) VALUE IS 14.
f 10 FN-DESC4
p PICTURE S9(6) VALUE IS 15.
z 10 FN-COST4
PICTURE S9(6) VALUE IS 16.
10 FN-INDX4
PICTURE S9(6) VALUE IS 17.
" 10 FN-QGO4
, PICTURE S9(6) VALUE IS 18.
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM6
(*
2* SPECIFICATION FILE: DEM6.FRM.1
<*
F* DATE OF COMPILATION: 30-Apr-84 10:38:53
P*
Z************************************************************
d01 FM-DEM6 USAGE IS DISPLAY-7.
n 10 FIL61
x PICTURE X(64).
10 FIL62
PICTURE X(64).
10 FIL63
PICTURE X(64).
* 10 FIL64
4 PICTURE X(64).
> 10 FIL65
H PICTURE X(64).
R 10 QSEE6
\ PICTURE A(1).
f 10 FIL66
p PICTURE X(19).
z 10 ONAME6
PICTURE A(12).
10 TIME6
PICTURE S9(4).
" 10 FIL67
, PICTURE X(72).
6 10 FIL68
@ PICTURE X(72).
J 10 FIL610
T PICTURE X(15).
^ 10 FIL611
h PICTURE X(18).
r 10 PNAME
| PICTURE A(20).
10 PADD1
PICTURE X(20).
10 PADD2
$ PICTURE X(20).
. 10 PADD3
8 PICTURE X(20).
B 10 PPHONE
L PICTURE X(20).
V 10 FIL620
` PICTURE X(19).
j 10 FIL621
t PICTURE X(18).
~ 10 KNAME
PICTURE A(20).
10 KADD1
PICTURE X(20).
& 10 KADD2
0 PICTURE X(20).
: 10 KADD3
D PICTURE X(20).
N 10 KPHONE
X PICTURE X(20).
b 10 KINFO
l PICTURE A(1).
v 10 FIL630
PICTURE X(15).
10 FIL631
PICTURE X(17).
10 XRAY
( PICTURE A(1).
2 10 WARD
< PICTURE X(20).
F 10 DOCTOR
P PICTURE A(20).
Z 10 QAGEN6
d PICTURE A(1).
n
x************************************************************
*
* FIELD NUMBER TABLE OF FORM: DEM6
*
* SPECIFICATION FILE: DEM6.FRM.1
**
4* DATE OF COMPILATION: 30-Apr-84 10:38:53
>*
H************************************************************
R01 FN-DEM6 USAGE IS COMPUTATIONAL.
\ 10 FN-FIL61
f PICTURE S9(6) VALUE IS 1.
p 10 FN-FIL62
z PICTURE S9(6) VALUE IS 2.
10 FN-FIL63
PICTURE S9(6) VALUE IS 3.
10 FN-FIL64
" PICTURE S9(6) VALUE IS 4.
, 10 FN-FIL65
6 PICTURE S9(6) VALUE IS 5.
@ 10 FN-QSEE6
J PICTURE S9(6) VALUE IS 6.
T 10 FN-FIL66
^ PICTURE S9(6) VALUE IS 7.
h 10 FN-ONAME6
r PICTURE S9(6) VALUE IS 8.
| 10 FN-TIME6
PICTURE S9(6) VALUE IS 9.
10 FN-FIL67
PICTURE S9(6) VALUE IS 10.
$ 10 FN-FIL68
. PICTURE S9(6) VALUE IS 11.
8 10 FN-FIL610
B PICTURE S9(6) VALUE IS 12.
L 10 FN-FIL611
V PICTURE S9(6) VALUE IS 13.
` 10 FN-PNAME
j PICTURE S9(6) VALUE IS 14.
t 10 FN-PADD1
~ PICTURE S9(6) VALUE IS 15.
10 FN-PADD2
PICTURE S9(6) VALUE IS 16.
10 FN-PADD3
& PICTURE S9(6) VALUE IS 17.
0 10 FN-PPHONE
: PICTURE S9(6) VALUE IS 18.
D 10 FN-FIL620
N PICTURE S9(6) VALUE IS 19.
X 10 FN-FIL621
b PICTURE S9(6) VALUE IS 20.
l 10 FN-KNAME
v PICTURE S9(6) VALUE IS 21.
10 FN-KADD1
PICTURE S9(6) VALUE IS 22.
10 FN-KADD2
PICTURE S9(6) VALUE IS 23.
( 10 FN-KADD3
2 PICTURE S9(6) VALUE IS 24.
< 10 FN-KPHONE
F PICTURE S9(6) VALUE IS 25.
P 10 FN-KINFO
Z PICTURE S9(6) VALUE IS 26.
d 10 FN-FIL630
n PICTURE S9(6) VALUE IS 27.
x 10 FN-FIL631
PICTURE S9(6) VALUE IS 28.
10 FN-XRAY
PICTURE S9(6) VALUE IS 29.
10 FN-WARD
* PICTURE S9(6) VALUE IS 30.
4 10 FN-DOCTOR
> PICTURE S9(6) VALUE IS 31.
H 10 FN-QAGEN6
R PICTURE S9(6) VALUE IS 32.
************************************************************
*
* RECORD DESCRIPTION OF FORM: DEM7
(*
2* SPECIFICATION FILE: DEM7.FRM.2
<*
F* DATE OF COMPILATION: 30-Apr-84 10:39:26
P*
Z************************************************************
d01 FM-DEM7 USAGE IS DISPLAY-7.
n 10 FIL71
x PICTURE X(10).
10 FIL72
PICTURE X(59).
10 FIL73
PICTURE X(27).
* 10 FIL74
4 PICTURE X(32).
> 10 FIL710
H PICTURE X(1).
R 10 FIL75
\ PICTURE X(21).
f 10 QDUN7
p PICTURE A(1).
z
************************************************************
*
* FIELD NUMBER TABLE OF FORM: DEM7
"*
,* SPECIFICATION FILE: DEM7.FRM.2
6*
@* DATE OF COMPILATION: 30-Apr-84 10:39:26
J*
T************************************************************
^01 FN-DEM7 USAGE IS COMPUTATIONAL.
h 10 FN-FIL71
r PICTURE S9(6) VALUE IS 1.
| 10 FN-FIL72
PICTURE S9(6) VALUE IS 2.
10 FN-FIL73
PICTURE S9(6) VALUE IS 3.
$ 10 FN-FIL74
. PICTURE S9(6) VALUE IS 4.
8 10 FN-FIL710
B PICTURE S9(6) VALUE IS 5.
L 10 FN-FIL75
V PICTURE S9(6) VALUE IS 6.
` 10 FN-QDUN7
j PICTURE S9(6) VALUE IS 7.