SUBROUTINE DORCD1 C*********************************************************************** C C Author: Nick Bourgeois Version: 90l06a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Report the directory data from saveset record number one. C C Go into a loop. Call a routine to get the data field length. C If an error condition is returned, exit this subroutine. If the C field length returned is zero, exit the loop. Call a routine to C get the data field itentification. If the length equals 256 and C the identification equals 3, exit the loop. Call a routine to C get the data field information. Call a routine to write the C information out to the output directory file. If an error C condition is returned, exit this subroutine. Loop back for C another pass. C C C Edit Record: C C 25-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 06-Dec-90: Cleaned up documentation. C C C Calling sequence: C C ByteBF() = C CALL DORCD1 C C C Returns: C C Error C C C Called By: C C TDWORK C C C Routines Called: C C GETFLD C GETID C GETLEN C WRTDIR C C*********************************************************************** INCLUDE 'TAPEDR.DAT' !Common & variables declarations BytPtr = 275 100 CONTINUE CALL GETLEN IF (Error) GOTO 900 IF (FldLnI .EQ. 0) GOTO 900 CALL GETID IF ((FldLnI .EQ. 256) .AND. (FldIdI .EQ. 3)) GOTO 900 CALL GETFLD CALL WRTDIR IF (Error) GOTO 900 GOTO 100 900 CONTINUE RETURN END !DORCD1.FOR.