Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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