SUBROUTINE GETID C*********************************************************************** C C Author: Nick Bourgeois Version: 90l03a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Extract the directory data field identification from the byte C buffer. C C C Edit Record: C C 26-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 03-Dec-90: Module taken from the TAPEDR suite. C C C Calling sequence: C C ByteBf() = C BytPtr = C CALL GETID C C C Returns: C C BytPtr C FldIdB() C C C Called By: C C GETDIR C GETXOR C C*********************************************************************** INCLUDE 'SVSTDR.DAT' !Common & variables declarations FldIdB(1) = ByteBf(BytPtr) BytPtr = BytPtr + 1 FldIdB(2) = ByteBf(BytPtr) BytPtr = BytPtr +1 RETURN END !GETID.FOR.