SUBROUTINE GTFLNM C*********************************************************************** C C Author: Nick Bourgeois Version: 91f04a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Get the I/O file names. C C Call a routine to prompt for and accept the name of the file C whose records are to be converted. If no entry is made, display C an error message and loop back for another try. If the entry is C made in lower case, convert it to upper case. If the entry is C too long, display an error message and loop back for another C try. Call a routine to test the components of the ASCII C dev:filnam.ext. If an error condition is returned, loop back C for another try. C C C Edit Record: C C 25-Apr-91: Original creation started. C 04-Jun-91: Original creation completed. C C C Calling sequence: C C CALL GTFLNM C C C Returns: C C FilNam C FlNmLn C C C Called By: C C CRINIT C C C Routines Called: C C GTLIN C TSFLNM C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations 100 CONTINUE Answer = ' ' CALL GTLIN (Answer,'Enter the DEV:FILNAM.EXT to be converted') IF (AnsweB(1) .EQ. 0) THEN TYPE *, 'You MUST enter a DEV:FILNAM.EXT' TYPE * GOTO 100 END IF FlNmLn = 1 200 CONTINUE IF (AnsweB(FlNmLn) .EQ. 0) GOTO 300 IF ((AnsweB(FlNmLn) .GE. 97) .AND. * (Answeb(FlNmLn) .LE. 122)) THEN AnsweB(FlNmLn) = AnsweB(FlNmLn) - 32 END IF FlNmLn = FlNmLn + 1 IF (FlNmLn .GT. 15) THEN TYPE *, 'DEV:FILNAM.EXT is too long' TYPE * GOTO 100 END IF GOTO 200 300 CONTINUE FilNam = Answer FlNmLn = FlNmLn - 1 CALL TSFLNM !Convert file name IF (Error) GOTO 100 900 CONTINUE RETURN END !GTFLNM.FOR.