*DECK FTNLIB
USETEXT CCTTEXT 
          PROC  FTNLIB; 
*CALL LDSET 
*CALL TABLETYP
          ITEM  INDEX;
          ITEM  FTNFLAG  B = FALSE; 
          XREF  FUNC VIRTUAL; 
          BEGIN 
          IF  FTNFLAG  THEN RETURN; 
          CCTLDSETLEN = CCTLDSETLEN + 1;
          INDEX = VIRTUAL(TABLETYPE"LDSET$",CCTLDSETLEN); 
          LDSETNAME[INDEX] = "FTN5LIB"; 
          LDSETTYPE[INDEX] = S"LIBRARY";
          FTNFLAG = TRUE; 
          RETURN; 
          END 
          TERM
