SPL,L,M,O,T,C 
       NAME FKDCB(8) "REV G 770321" 
! 
!      SUBROUTINE TO FAKE DATA CONTROL BLOCK POINTERS FOR TYPE 0 FILES
! 
FKDCB: SUBROUTINE(DCB,LU,EOFCD,BSPCO,RWCOD) GLOBAL
       LET EXEC BE SUBROUTINE,EXTERNAL
       DCB,$(@DCB+2)_0                 !SET"FAKED DCB" FLAG.TYPE =0 
       $(@DCB+3)_LU OR 400K            !LOGICAL UNIT
       $(@DCB+4)_EOFCD                 !EOF CODE
       $(@DCB+5)_BSPCO                 !BACKSPACE CODE
       $(@DCB+6)_RWCOD                 !READ/WRITE CODE 
       $(@DCB+7)_100000K               !OPENED "SUCCESSFULLY" 
       $(@DCB+9)_$1717K                !ID SEGMENT ADDRESS
       CALL EXEC(3,700K+LU)             !SET END-OF-TAPE
       RETURN 
       END
       END
       END$ 
                  