Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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'&I7
PI$S17H8elUf8

WOJ'&I7
H1&:<[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 \5
8,	L@G>ty7,	L@~,: *(` ` 
`
0`+O`0 +P*j+Sh H
& T6
6@@@

,	L@B
" 3B+]" 3B+]" 2B+]+^@+T,	L@B
@@Z(AH <(,D .0@+e+f@1+^
2,	L
@7B7
8 91@+l 90@+m+n@:+g ;0@+p*<j< =0@+s*>j>,	L

@CBD"D,	L@HBI"I`J1 +{`J1`+|@M+u`N N@SBT
T@V V0@+\(`AHO+!,	L@\B]
]@@Z(AH <f,D l0@+	+
@p+
p,	L@uBv
v w1@+ x0@++@y+
y0@+*zj{+*|j|,	L@
B""2B+!`0@+!"2B+!`0@+!@@@@@&,	L@'@,@2B2
340@+(*5j5+<@<@=B=
>U(AH,	L@CBD"D`EdE2$+0@H++IdI.
 J,	L@NBN"O`O1`	+7@S+2`SdT.
 T`UdU2$+<@Z+2,	L0
Z [d\He@
]HQ@
^ [dH
5@
He@
` [daH=@
b [dcH@
c [ddHe@
e [dfHe@
f [dgH=@ [ D* h*(2H@
h [diH
5@ j1@+\
j [dkH
5@ [ D* l*(2H@
l [dmH=@
n [doH=@ [ D* o*(2H@
p [dqH=@`q5@k+m
r [dsH

He@ [ D* 	*(2H@
	H
5@ 	

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%H
p'  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) ?  H
xE
@ 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_paHpbHpdH
pe ^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<HAHHH
HLEFT POSITION OF FIELD TO BE CONTROLLED ? HP?
@ H SH SH ? OUT-SIDE OF RECORD ?HA0FH SH SNUMBER OF POSITIONS IN FIELD ? H
xJ
@ H VH VMAXIMUM FIELD 18 POSITIONSHAPPH VH SH H H ? CONTROL FIELD GOES OFF END OF RECORD?HB8VHH
@*      ,HH
 *H HP*X.H#H
H*H&Hp* +H'H *<1H-H
(*t,H/H
0*X,H1Hh*<+E(+H3HH*t.OH6H`* .E(+H:Hp* +H<Hh*<+E(+H=H`*X+0AH@H
x*t-HCH@*E(+HJH
x*t-<H H SHQH
p*H SHQH
p*HTH
p*H SH VH H H H SH SHQH
p*E(+OH>Hh*<+HCHC0AH@H
x*t-HGHH*t.E(+HMH`* .E(+HVH
@* ,E(+HXHh*OH\Hh*H`H*<-HeHP*X.E(+HcH
* ,E(+HiH0*T+HiH
H*OHlH
P*t-HnH
H*<HqH
x*t-E(+HtH(*p+HtH@*OHxH
`*<-HzH
* ,H|H
H*<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 X
aX+	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