SUBROUTINE GETFIL C*********************************************************************** C C Author: Nick Bourgeois Version: 91c21a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Control the transfer of a selected file. C C Open the output file. If an error occurs, display an error C message, set the error flag, and exit this subroutine. Adjust C the byte buffer pointer and call a routine to transfer the file. C Close the output file. C C C Edit Record: C C 20-Mar-91: Original creation started. C 21-Mar-91: Original creation completed. C C C Calling sequence: C C BytPtr = C FilNam = C OutLun = C CALL GETFIL C C C Returns: C C BytPtr C Error C C C Called By: C C EFWORK C C C Routines Called: C C XFRFIL C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations OPEN * ( * ACCESS = 'SEQUENTIAL', * CARRIAGECONTROL = 'NONE', * DISPOSE = 'SAVE', * ERR = 850, * FILE = FilNam, * INITIALSIZE = -1, * STATUS = 'NEW', * UNIT = OutLun * ) BytPtr = BytPtr + 16 CALL XFRFIL CLOSE (UNIT = Outlun) GOTO 900 850 CONTINUE Error = .TRUE. TYPE *, 'GETFIL: OPEN error' TYPE * 900 CONTINUE RETURN END !GETFIL.FOR. !