SUBROUTINE GETLEN C*********************************************************************** C C Author: Nick Bourgeois Version: 91c20a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Extract the directory data field length from the byte buffer. C If the length is too great, set the error flag, display an error C message, and exit this subroutine. C C C Edit Record: C C 26-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 20-Mar-91: Module taken from the TAPEDR suite. C C C Calling sequence: C C ByteBf() = C BytPtr = C FlBfLn = C CALL GETLEN C C C Returns: C C BytPtr C Error C FldLnB() C C C Called By: C C GETDIR C GETXOR C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations FldLnB(1) = ByteBf(BytPtr) BytPtr = BytPtr + 1 FldLnB(2) = ByteBf(BytPtr) BytPtr = BytPtr + 1 IF (FldLnI .GT. FlBfLn) THEN Error = .TRUE. TYPE *, 'GETLEN: data too long for field' END IF RETURN END !GETLEN.FOR.