Google
 

Trailing-Edge - PDP-10 Archives - BB-5372D-BM - traffic/binary/tfr.exe
There are 2 other files named tfr.exe in the archive. Click here to see a list.
?p0@0`?hX?x " 
 
<++2	`D0b2b+<xp .4  $HH$HH<H06$$$H
F:0m0	8:PLxCUp0T8c@TXcpXxr s8HPt`$x:u ?0GPK`Z`Dp	=	A	(E	8L	H	pJ
B
/
0]
@ 
P
`0
h
x( ?@P` $`(p(@(@B H^@HH_@HH`@HHa 8{HbHd ({He RH[ :Hg =Hi :Hg =Hi @` HkNHZ0
MHlHU `(Ho`8HoHD  Hq  Hs  Hu  Hy  H{34P @r@@
	,=S
X
 J,o 
`d+r@ "  ::24P`b+	Z,+ar:`r+	 
3J+:,>,>,;,l\"	
 "   &J4P7@	+8\"	\$7 " @f4P\"	
 "   &J4P,;,^,^ 
 J\"	
,~\"	4	 B'4P@&	 
	0F+Fl2 
 JG,  4	ar,~\"	 
	 J] "]@4	 B 	4	,;,~\"	 " Zx< &J4T,;ar: " "  	+ + ,;,~ & 	!$A`X@jd27@,~
6@1J+g0*0j+bl2+e0* 0j-+el2+el2J<9]@
J<,~ \$ &
 (,~\$ "  &
@4P,~ " $|24P,~ar@+	`r+	%ar+	*,C,\"\9@hd84P,g 
4J\"	- "   &J4P\"	-+,,,",A< 
0.
t1X+
2.
 
l 

2.
l.L 
4.
\"7\9@hd4P,gar + 
95.jV2b
95.jq2b
2b`T 
1.
b,^ 
9 
4.
l,I,~ar@,~7j	,~j7  	/4	0$*.* ..A.~<
(J{ Z
9Z,:/
.<
(J{v7j8 	1S6Fl&84P 	1SQ&.6Fl&84P Q" 	2 	24PQ"O 4P,~ 
	3,i \$G &
 (4P,~O	4P,~,> " ${24P+G,>`r,=,^,~ 2.( 
9Q*A`aT+Q`T+P 0@1@+	3b	6+ +Rb	7+  ,r,g,~`T+	;`T+	@`T+	E,CdT+	Jl,,~aT+_*9+(\+a+_+a+_+a+	P`T+	U,CdT+	Zl,,~aT+h*9+(e+h+k+h+k+h+	a`T+	f`T+	m,CdT+	rdT+	x,~ " $
24P`b+	~Q&0F
Z,Clr+
d6,~`T+
 " $24P`b+
1d1d+
,C7,k7@
$D
+
3$V+
3$q+
!,~ 
0.
 " $z24P,C,
#6@/,lr+
&l,~"r$+
* *,Z,~`r+
2
5
6b	7+ @ 	.$ (	b
7+ @B " $,$,~,C * J,@tf
7l2 * J	@@q@@V@@
@@;@@
	0j
+
;1X 8~.8 *7,Z H;,~24P 	!&@
0*00j=+)+
<0* 0j-+++
=0*0j+-+
?1J+
A0J1J+
C0J1J+34J3+:*f&`@
j`h+
Iah+
OaH+
S ( 0h+
Z:x,~+
`+
g,CdT+
ml ,~,CdT +
sl,~,Cd0,~,Cl@,~,Cd@,~,Cd,~,Cl,~,Cd,~,Cl,~,Cl,~,Cd 
.
16 " $x24P`b+
yQ&1F{+W1d1d+
,<(LGL,~ " $24P`b+,CdT+
lZd9+_+c+e+b+e+c+c $,{+h $,{+h $,{+i,X,,~,a,,~,k,,~ar+u,> \$
"&4P,"C,^+&J4P,>,\$"&4P,^,~1"1$v24P`b+Q&1F{+1d1$+ar+~,ulr@+B 
3.
d 
3.
v,~lr+G " $2`b+L1d1d+Q  " $2`b+V1d1d+\,C V
 D
,~,CdT+bl $,{,h,~,CdT+hl $,{,f,~1X+m " $z24P`b+r,Cl lr +v *<,Z HV *V,v`r,~ ,{,~1X+{ " $z24P`b+
,Cl@lr+
 *W,Z Hq *q,v`r,~ ,{,~  *a J " $24P`b+
	,C D **,Zmr@,~+
,k,~  *h J " $24P`b+
,C D *,Zmr ,~+
,k,~  *o J " $24P`b+
$,C D *,Zmr,~+
,,k,~ " $}24P`b+
3,C66Z *(JG*Gv6,~1X+
9 " $z24P`b+
>,C *r,Z H
lr+
A *
,v`r+
C ,{,~ad`8d$pl$@8 D9,~ 	4P,~@
4FpjJ=fn+r@
,7@j@
J,~,Cl,~?@	d2,~ 
A

E M 
aT,~"
aj+al+}aT+,~aT+,~`T+
H+
L@
`Tl,`Tl,`T\.4`T\.6ar+	 

A
6@+	`T+
P+
Tar + 
VA
6@+`T+
Y+
]ar+ 
qA
6@+`T+
b+
g,~ar,~  	4
n \$
o"&4P \$
v"&4P \$@ (4P"&\$	
4P \$
y"& 4P@v .26	+l 
4.
* \$
"&4P \@ (4P 
2.
*.J 
0.
4\$aT+@@
*9+(4+7+:+=+:+7+7 \$
2.
*3J+L\$/&J4P\\$
2.
@
*&J4P\$4P"&\$	
4P \$
o"&4P@v\.@\$4P \$
4.
*\$.\@(4P\\$	
4Par@+)\"* @
)\$4P \$*@ (4P"&\$	
4Par +3\" @
*\$4P \$@ (4P"&\$	
4Par+>\" @
,\$4P \$@ (4P"&\$	
4Par+^\$E  &J4P+H \$U"&4P \$
4P 
 \$
4P 
F
 \$
4PP&J4PJ\$\$
4.
*\$ \@(4P\\$
"&4P@
 
3.
*\$  @&J4P \$
 
3.
*J4P \$
 
2.
*JJ4P@
 
0.
*4J\$\ 4P \$
"&4P@j 
4.
*(abx+\$
0.
44T\$+%+\$\$	O"&4PaT+7\\$4P+t \$X"&4P+t \$X"&4P+t \$Y"&4P+t \$Z"&4P+t \$V"&4P+taT +x \$
r"&4P+\\$
"&4P@
 
1.
*4J\$+ ,7(J4JaJ9
  $4P  &J4P9
 \$	
"&4P,~@
 
5.
*7@+\$ 
5.
*7@+'\$+),~ERROR-LINEFORMOUTPUT-FILERECORD-DESCRIPTION-FILESUMMARY-FILETERMINALS-ALLOWEDAA-NALPHABETICALPHANUMERICDATEEXITFIELDFILLERFULL-FIELDLEADING-ZEROSLENGTHLOWER-RANGEMASTER-DUPEMONEYNO-DUPENO-LEADING-ZEROSNO-SPACESOPTIONALPOSITIONPREVIOUS-DUPEPROTECTEDREQUIREDSECTIONSOCIAL-SECURITY-NUMBERSPACESUNPROTECTEDUPPER-RANGEVALUEYES-NOBOTTOMTOPCANADADASHDECJULIANMILITARYSLASHALLVT50HVT100VT52FORM-SPECFORM-DATAFORM-LISTFORM-DESCDECIMAL NUMBER OR2SECTION NUMBER (1 TO 28)form-wide command;field command;QUOTED STRINGLINE TO USE FOR ERRORS ORCOBOL variable nameFIELD LENGTHLINE NUMBER OF FIELDCOLUMN NUMBER WHERE FIELD BEGINSMAX LENGTH OF SCREENMAX NUMBER OF COLUMNS ON SCREEN|c: "b+!?AMBIGUOUS OR UNDEFINED COMMAND\"	,'+"1B+	+	,;,~ON LINE ; FIELD  + 

FORM SPECIFICATION FILE: ,U+=$$LOG COMMANDS IN FILE: L,T+I? ERROR AT PC @H*%NO OUTPUT FILE SPECIFIED
%DATA FILE WILL NOT BE CREATED\"	,(+s?COMMAND IGNORED; POSITION + LENGTH REQUIRED\"	 ,'`r,~+t?FORM NAME MUST BE SPECIFIED\"	','`r,~+u
?  ERRORS DETECTEDH,T,~@B@N|HG`1@  @<=P`@?DATE FIELD CAN NOT BE ALPHA\"	8,',~?MONEY FIELD CAN NOT BE ALPHA\"	=,',~?SOCIAL SECURITY FIELD CAN NOT BE ALPHA\"	A,',~%REDEFINED FROM NUMERIC TO ALPHA\"	G,(+Y?THIS TYPE OF DATE FIELD CAN NOT BE NUMERIC\"	L,',~?YES-NO FIELD CAN NOT BE NUMERIC\"	R,',~%REDEFINED FROM ALPHA TO NUMERIC\"	W,(+b?THIS TYPE OF DATE FIELD CAN NOT BE ALPHA-NUMERIC\"	\,',~?MONEY FIELDS CAN NOT BE ALPHA-NUMERIC\"	b,',~?SOCIAL SECURITY FIELD CAN NOT BE ALPPHA-NUMERIC\"	h,',~%REDEFINED FROM ALPHA TO APHANUMERIC\"	n,(+l%REDEFINED FROM NUMERIC TO ALPHANUMERIC\"	t,(+m?INVALID ARGUEMENT FOR ERROR-LINE COMMAND\"	y,',~%ERROR-LINE REDEFINED\"	,(+s%COMMAND IGNORED - LENGTH IS ALREADY SET\"
,(,~?NUMBER REQUIRED IN LENGTH COMMAND\"
	,',~?RANGE FOR LENGTH COMMAND IS 1 TO 255\"
,',~%LENGTH REDEFINED\"
,(+~%VALUE TRUNCATED\"
,(+%LOWER RANGE TRUNCATED\"
,(+%UPPER RANGE TRUNCATED\"
,(+:*%FILL CHARACTER REDEFINED\"
#,(+%FORM name redefined.\"
(,(+and LENGTH missing for current field--command ignored.\"
,,',~FIELD-H
4HD@_?Too many FIELDs specified.\"
8,',~/*jd(l(.(+2d(.(+2aH+9l(.(+2`H+3+2?COBOL variable may not end with '-'.\"
E,',~?COBOL variable may not contain all digits.\"
J,',~?No COBOL variable specified.\"
P,',~?COBOL variable may not be longer than 30 characters.\"
U,',~?COBOL variable may not begin with '-'.\"
\,',~?COBOL variable may contain only letters, digits, or '-'.\"
a,',~%REDEFINED FROM PREVIOUS DUPE TO MASTER-DUPE\"
i,(+<%REDEFINED FROM MASTER-DUPE TO PREVIOUS-DUPE\"
o,(+>?NUMBER REQUIRED FOR SECTION COMMAND\"
u,',~?SECTION NUMBERS MUST BE IN RANGE 1 TO 28\"
z,',~?TYPE OF DATE FIELD MUST BE SPECIFIED\",',~%FIELD REDEFINED TO BE A DATE FIELD\",(+] [LENGTH SET TO ]
?NUMBERSREQUIREDNINOMONEYRCOMMAND\",',~$+{?RANGERIS 0OTOL7NFORUMONEYCOMMAND\",',~?LENGTHETOOMSMALLSFORTMONEYFIELD\",',~%FIELDRTYPEOREDEFINEDNTOBBEMONEY\",(+?NUMBERUREQUIREDRFOR LINE NUMBERINPOSITION~COMMAND\"#,',~?RANGELISE1UTOT63NFORELINENUMBER,INPOSITIONICOMMAND\"*,',~?NUMBEREREQUIREDFORCOLUMN"NUMBER INNPOSITIONACOMMAND\"1,',~?RANGEISV1LTO 255UFORDCOLUMNONUMBERNINPOSITION,COMMAND\"8,',~%POSITION"REDEFINED\"@,(+E ILLEGAL IN DEFAULTS\"w,',~?VALUE REQUIRED FOR UPPER-RANGE\"|,',~%UPPER-RANGE REDEFINED\"
,(+5?FILE NAME REQUIRED IN OUTPUT COMMAND " Q$@+ + \"
,',~%OUTPUT FILE REDEFINED\"
,(+B?FILE NAME REQUIRED IN SUMMARY-FILE COMMAND " Q$@+ + \"
,',~%SUMMARY FILE REDEFINED\"
,(+K?FILE NAME REQUIRED IN RECORD-DESCRIPTION-FILE COMMAND " Q$@+ + \"
,',~%RECORD-DESCRIPTION FILE REDEFINED\"
),(+T?INVALID TERMINAL TYPE SPECIFIED IN TERMINAL COMMAND\"
.,',~?VALUE NOT ALLOWED IN DEFAULT FIELDS\"
5,',~?STRING REQUIRED IN VALUE COMMAND\"
:,',~%VALUE REDEFINED\"
?,(+d2h
,~0?DATA IS NOT NUMERIC\"
E,',~?DATA IS NOT ALPHABETIC\"
I,',~?VALUE IS NOT ALPHABETIC\"
M,'+	?VALUE IS NOT NUMERIC\"
Q,'+	?LOWER RANGE IS NOT ALPHABETIC\"
U,'+?LOWER RANGE IS NOT NUMERIC\"
Z,'+?UPPER RANGE IS NOT ALPHABETIC\"
_,'+?UPPER RANGE IS NOT NUMERIC\"
d,'+?RECORD DESCRIPTION FILE WILL NOT BE CREATED\"
h,',~,T+
m************************************************************
* RECORD DESCRIPTION OF FORM ************************************************************

	10  
			PICTURE 9(6X(79(5S9()V9(A(X( DISPLAY-7.


************************************************************
* FIELD NUMBER TABLE OF FORM 01 FN- COMPUTATIONAL.
    10 FN-
			PICTURETS9(6) VALUE IS ?SUMMARY FILETWILLINOT0BE-WRITTENM" Q$@+ + \"

FORM		:OUTPUT-FILE	:SUMMARY-FILE	:RECORD-DESC-FILE:ERROR-LINE	:




SECTIONS IN USE:     SECTIONS NOT IS USE: ?TOTAL RECORD SIZE:   
LAST  FIELD NUMBER:  








FIELD:  FIELD NUMBER: POSITION: ,  LENGTH:   FILLER: "VALUE: ""
ATTRIBUTES:  ALPHANUMERIC ZERO-FILLED ALPHABETIC ALLOW-SPACES NO-SPACES OPTIONAL FULL-FIELD NOT-FULL-FIELD PROTECTED UNPROTECTED YES-NO SOCIAL-SECURITY-NUMBER MONEY ( DEC. POSITIONS) DATE- MASTER-DUPE NO-DUPESECTION:LOWER RANGE: "UPPER RANGE: "!HHH
H* TFR> 66`L34VH5O
tyO
tx
t(O
tNZ6?ee9>O8I\9 L1OOrc OOqh /g0jS29Z1)]?7H5vFG3v-H2W\B:/OXk[8100o4O/L`O#p.O#Ltzk6O.`)]P7e!c3OOwONs3ON`wONK]ON@^ON@ION36ON-ONkPHhePJY  P
Y~JhJ9hIo_J9_J
~J
}J
}	J	\uN.{y(#oWJw	h@WJ.Sg@WJ.PWJ.DWJ.B. WJ.;2WJ.0BWJ.+WJ.|WJ.x@WJ-r;WJ-q?WJ-qWJ-l MPMOpJzk*I5c@I5_ @H9T9G#XFQ9 FIr=WF.HwWF-v% U#WB Kf_ao0@o^@o]@o\_e?@o[_@o[]@o[I@62?Q-WP9l9WP9l8WP9khWP9kWs=L
y|s<xs<Qs;Ns;JL
)Hs:DL
AL
bL
^L
[s:=L
;s97L	m4L	k>L	k3L	j)L	jc	%L	iL	iL	h's9-PP)IPP$mPP#nPPPPPKPPRPPQPPpMGm,jw{'@
HT+@qrhslmos7Tmos"Rmon.TlgxfO%40>Uf
fG;/euwxkc)snNc)smMc)gRc(~GNPYPYPW$eLV`2H:bnc
zk9sQkRQGQZQ(UO1=i94Dhx4}ex4|cx4{bx3(i94=fM/CM/<w;)R7;L	1;,~*[35!5kLk4z09#4z!Lvm2#kl)
(*b)4Z(P&{
=N3uIM	3[@HaL3\e=3\e:3\d7PWx$[q$Zn$Zk$Yh$Ye$XbyP
J-G]9	]<KrT[#kfZ7hF^Y5[fLY3#OW9cH0
z0	FItX4'lX/ @*b<X0[]?7A$	Z`A$b@A#]A]A#+@gA#$siA#CZTA{Fa8apH
8aox
8a9
Me8R5"->Lb->EePM-WO@V+#0,(Qj)=(Q)L
vq%
K'on
^ucL^(X`waXQx{fsHkX%XSE
W@8
Ql <
l

k[LK1+G\ K+lu_K+lj,K+l>@K+l)k(TI<I(T6H=(z'
%#9_#x"h.Xw.W{}.E3z.9.2w..Bv.3jx.-.-.$H.I|-D-?-z!
-z
-q+-m-m-lm-kk{KF%V|P6MG`	L	K{P^0U]mbT	KHY4	K4P	t'gscEe77Re!t@JhA2o1a
M]KwkDKw?KYWRl:RK6nRn+l4	^[#uu=[	IifPPPPWkPWkPWjPWiPWhPPP>ZHRPaNP^/?	OniCM2bQ=Oni/=2bQ:O=zkJUjd@;)RQ)MG2LgGL6#-KG( Ktx']&wBKs\~/KqUKp7CKo`-Ko>7Ko!sLKo!oNKo!kWKm*E%w2LKjAKj<=KitmKh @:Kh$DKf%:ZKe~E?KduKc/3:Kb
#KTmKrKTI;m%'\rKRn\(KRC&KR)<FKRIoKQ~'KQ}GCKQe?XKP@3KP@2KP@&%$KP:KP9CHcKL;QTJL=AJL  JLzU JLmf`JLaU#ll	KZAJSa(J4
JP?EJGz#,PYPR\]$}?*PI*R\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0