SUBROUTINE CRWORK 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 Control the conversion of VMS ASCII record structure to RT-11 C ASCII record structure. C C Call a routine to read the first block from the input file. Go C into a loop and call a routine to convert a VMS style ASCII data C record to an RT-11 style ASCII data record. If error flag is C set, exit the loop. If the end-of-file flag is set, fill the C output buffer with nulls, call a routine to write the buffer to C the output file, and exit this subroutine. C C C Edit Record: C C 24-Apr-91: Original creation started. C 04-Jun-91: Original creation completed. C C C Calling sequence: C C CALL CRWORK C C C Called By: C C CVRCDS C C C Routines Called: C C CVTRCD C RDRCD C WTRCD C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations CALL RDRCD !Read the 1st record. OBfPtr = 1 100 CONTINUE CALL CVTRCD !Convert an ASCII record. IF (Error) GOTO 900 IF (EOFFlg) THEN DO 200 BytPtr = OBfPtr,512 OtBufB(BytPtr) = 0 200 CONTINUE CALL WTRCD !Write the ASCII record. GOTO 900 END IF GOTO 100 900 CONTINUE RETURN END !CRWORK.FOR.