Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50126/congen.sav
There are no other files named congen.sav in the archive.
h'@7	t+x-8	x.8xp0	H07@+:	U	j	jPUti1[[M-7UVd3gxz]?4I1pG>\G
`S-mM&8J;SNM{GaJ||PZ6LC@|(1r8CW%y;wOpm:7\g#I$S;e'&I7PI$S17H8elUf8
WOJ'&I7H1&:<[F(-K;5W]6-mI'5t68pS;]W&S2)[zhY>0;$7fe|Rf}CC3,PLLI7i&5pi&}`fMc7C6)`C3,PLLI7i&5pi&}`f~]]lS@ DFekN
y SLJ9a2  D}:J,0kN
y SLJ9a2 `p 8$5KHS
'$N#9k4S
6$'o?:7N7KyC(
rGRM{G.\F]lPS

4J H[p.\}::

4J z_p.\kfe0S
6$"@Hw[@paJ|92kJ(	m'w.\;wiJ}C:R
6$"`H
9}\gR-ap
7aWS2)Z7apziC.@S2)[zh8KPkfe0^T\WKP;wiJ}C:R
7J,0^~]e`e'$PkPn)1KPkfe0`KP;wiJ}C:RSOH<:y\RGL`@e|RfpSOH<}m0nKzC0`@i?$`pi?
Z\8pM&dS7kPx 
Ap!H@*x#H 6H%-<	J ">	b+8 <|->-8B:5-<	j7x<7`=+Gggge}g#X@AINX7oX6@5>O@5 \58,	L@G>ty7,	L@~,: *(` ` `0`+O`0 +P*j+Sh H& T66@@@
,	L@B" 3B+]" 3B+]" 2B+]+^@+T,	L@B@@Z(AH <(,D .0@+e+f@1+^2,	L
@7B78 91@+l 90@+m+n@:+g ;0@+p*<j< =0@+s*>j>,	L
@CBD"D,	L@HBI"I`J1 +{`J1`+|@M+u`N N@SBTT@V V0@+\(`AHO+!,	L@\B]]@@Z(AH <f,D l0@+	+
@p+p,	L@uBvv w1@+ x0@++@y+
y0@+*zj{+*|j|,	L@B""2B+!`0@+!"2B+!`0@+!@@@@@&,	L@'@,@2B2340@+(*5j5+<@<@=B=>U(AH,	L@CBD"D`EdE2$+0@H++IdI. J,	L@NBN"O`O1`	+7@S+2`SdT. T`UdU2$+<@Z+2,	L0Z [d\He@]HQ@^ [dH5@He@` [daH=@b [dcH@c [ddHe@e [dfHe@f [dgH=@ [ D* h*(2H@h [diH5@ j1@+\j [dkH5@ [ D* l*(2H@l [dmH=@n [doH=@ [ D* o*(2H@p [dqH=@`q5@k+mr [dsH
He@ [ D* 	*(2H@	H5@ 	
1@++	[d	H[D*	*(2H@	[d	HQ@+[D*+	*(2H@	1\f	H%@	He@@	1@+@	[d	Hy@	He@d	0@+D+F	 [d	H@	&H%@	' [d	(HQ@ 	)1@+f	)HQ@	* [d	+H
Ip{{{8} H@~H%$$00cG$H$H%0H@ H@  * BEGIN BUILD COBOL PROGRAM *  (V3)HB( H@
INPUTHFILE<ISONNDSK,HSYS,HOR6MTA?$H6[R$HH6?H@ENTER INPUT FILNAM.EXT FOR CONGEN-GENERATED PROGRAM: H(H@PHHPHH!p"Hp$Hp%Hp'  h(!p*#$x,&yP-<FILENAME MUST CONTAIN PERIODHA`.HH[MODE IS:  A = ASCII,  S = SIXBIT  ? H 3H@H
LLL?H@:L.<;LL,<=LBLOCKING FACTOR: 0-999 (0 = UNBLOCKED) ? HH?@0ARECORD LENGTH: (CHARACTERS) ?  HxE@ H H H INVALID RECORD LENGTHHA(KH 0 PDO YOU WANT TO COPY THE ABOVE FILE? (Y-N)  HXOH@HH H@U<ENTER OUTPUT FILNAM.EXT FOR CONGEN-GENERATED PROGRAM: H0WH@PHHPHH_paHpbHpdHpe ^hg`piacxjddHl<FILENAME MUST CONTAIN PERIODHA`mHH_MODE IS :  A = ASCII,  S = SIXBIT  ? H(qH@H
OOO?H@xO.<zO,<{OBLOCKING FACTOR:  0-999  (0 = UNBLOCKED) ? HX}@HC.<L0A.<OHC%CONGEN STRIPS CARRIAGE CONTROL CHARACTERS FROM UNBLOCKED ASCII FILES.HD0%THE CONGEN PROGRAM YOU HAVE JUST CREATED SHOULD NOT BE USED TO COPYHD    PRINT FILES.H@x%TO COPY UNBLOCKED ASCII AND RETAIN CARRIAGE CONTROL CHARACTERS,HD   (E.G., AS NEEDED TO RUN COUNT FOR COM APPLICATIONS), USE COPYIT.HD H@&RECORD COUNT IS AUTOMATIC;  HOWEVER, IN ADDITION, HC'DO YOU WANT TO CONTROL ON SPECIFIC FIELD  (Y-N) ? H-H@HH<\<4<DESCRIBE THE FIELD TO BE ACCUMULATED (IN 25 CHAR OR LESS)HCH6*H<HAHHHHLEFT POSITION OF FIELD TO BE CONTROLLED ? HP?@ H SH SH ? OUT-SIDE OF RECORD ?HA0FH SH SNUMBER OF POSITIONS IN FIELD ? HxJ@ H VH VMAXIMUM FIELD 18 POSITIONSHAPPH VH SH H H ? CONTROL FIELD GOES OFF END OF RECORD?HB8VHH@*      ,HH *H HP*X.H#HH*H&Hp* +H'H *<1H-H(*t,H/H0*X,H1Hh*<+E(+H3HH*t.OH6H`* .E(+H:Hp* +H<Hh*<+E(+H=H`*X+0AH@Hx*t-HCH@*E(+HJHx*t-<H H SHQHp*H SHQHp*HTHp*H SH VH H H H SH SHQHp*E(+OH>Hh*<+HCHC0AH@Hx*t-HGHH*t.E(+HMH`* .E(+HVH@* ,E(+HXHh*OH\Hh*H`H*<-HeHP*X.E(+HcH* ,E(+HiH0*T+HiHH*OHlHP*t-HnHH*<HqHx*t-E(+HtH(*p+HtH@*OHxH`*<-HzH* ,H|HH*<HH *t.HH*t,E(+HHH*HH* ,OHH *HH*<-<HHx*<0HHp* +[R$H	/H6 H@	1NOTE:  INPUT FILE WILL BE ON  MTAHB	2 H@	6O H@	7NOTE:  OUTPUT FILE WILL GO TO  DEVOUTHB(	8 H@	=EXECUTE H@	>HH0H@0- - - - WHEN JOB IS DONE - - -   DELETE H@	AHH0H0.*H@	G{p	I R	I @	I ^	H N	H+pZxZp[p4	n`\6+	T<	l7A	l+	T.	m XaX+	TXV	k+	TXV	l.Tx,~,>,>,>,><	l7A	l+	aZ	k7@+	a(	n.		l
&	o,	c
&	qZ	l7@+	a
&	r(	n.		l,	c
&	q,^,^,^,^,~[ Z: Q:A@4X	i.81X 8
"`zp+	e=|	e,~,~+p(	m$$<p  *FAILING PARAGRAPH* <<>>
   IN SECTION  x	s<<+7