Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - dbgetf.c06
There is 1 other file named dbgetf.c06 in the archive. Click here to see a list.
 REP 1/1	;06C1
		TITLE	DBGETF FOR COBOL V12B
		SUBTTL	GET NEXT FILE FOR DBMS (PHASE D)



	;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
	;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
	;
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION

 WIT
		TITLE	DBGETF

	;     This software is furnished under a license and may only be used
	;       or copied in accordance with the terms of such license.
	;
	; COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT COPRORATION, MAYNARD, MASS.


		SUBTTL	GET NEXT FILE FOR DBMS (PHASE D)
 REP 50/1	;06C2
		PUSHJ	PP,CVTCCL##	;[1413]
		PUSHJ	PP,CVTDPL##	;[1413]
		SETZM	CVTPLF##	;[1413]
 WIT
		PUSHJ	PP,CVTCCL##	;[1413] REPLACE PREVIOUS LINE WITH CURRENT LINE
		PUSHJ	PP,CVTDPL##	;[1413] COPY PREVIOUS LINE TO CVT FILE
		SETZM	CVTPLF##	;[1413] SIGNAL PREVIOUS LINE NOT WANTED
 INS 13/3	;06C3
		;[1467] after '$FUNCT (ALCMEM,...', add 1 definition
	ALCPA.=:ALCMEM			;[1467] make ALCPA. same as ALCME.
 SUM 216919