! EFLINK.COM ! ! ! Author: Nick Bourgeois Version: 91c21a ! 9605 Giddings Ave. NE ! Albuquerque, NM 87109 ! (505) 828-9566 ! ! ! Description: ! ! Link the modules for the EXTFLS.SAV program. ! ! ! Edit Record: ! ! 16-Jan-91: Original creation started. ! 21-Mar-91: Original creation completed. ! !*********************************************************************** ! DATE TIME ! SET ERROR NONE DEL EXTFLS.(MAP,SAV) SET ERROR ERROR ! COPY/CONC (EFINIT+GTSSNM+MNTTAP+POSTAP+RDVOL1).OBJ INIT.OBJ COPY/CONC (INIT+SLSVST).OBJ INIT.OBJ COPY/CONC (EFWORK+GETDIR+GETFIL+GETFLD+GETID).OBJ WORK.OBJ COPY/CONC (WORK+GETLEN+GETXOR+LSTDIR+SELFIL).OBJ WORK.OBJ COPY/CONC (WORK+XFRFIL).OBJ WORK.OBJ ! RUN SY:LINK EXTFLS,EXTFLS=EXTFLS,MTLIB,SY:F77OTS/A/G/W// CLRSCR,INIT/O:1 WORK/O:1 EFQUIT/O:1 // ^C ! DEL (INIT,WORK).OBJ ! TIME ! ! End of file, EFLINK.COM.