.; .;---------------------------------------------------------------------------- .; .; CMD-FILE: A N S D M P C B C .; .; PURPOSE: Command file for Compiling and Building ANSDMP, and .; Clearing (i.e. purging) directory. .; .; AUTHOR: Jan H. Belgraver .; Based on convention established long ago. .; .; DATE: 3-JAN-85 .; .; VERSION: 1.0 .; .; DESCRIPTION: .; .; CALLS TO: BLD, FOR .; .; MODIFIED BY: .; .;---------------------------------------------------------------------------- .; .; .enable quiet .SETF DCL .IF EQ "DCL" .SETT DCL .; If current CLI is DCL reset to MCR .IFT DCL SET TERMINAL/MCR .ONERR FINISH .disable quiet .; .; Compile program and all routines which make part of this program's .; private library. .; .; FOR starts the F77 compiler and .; subsequently purges the .OBJ and .LST files if terminated successful. .; FOR exits with status 4 if F77 detects an error. .; FOR ANSDMP .IF NE 1 .GOTO FINISH FOR RVOL1 .IF NE 1 .GOTO FINISH FOR RHDR1 .IF NE 1 .GOTO FINISH FOR RHDR2 .IF NE 1 .GOTO FINISH FOR RHDR3 .IF NE 1 .GOTO FINISH .; .; Build program if all went successful .; .; BLD tries to delete current .TSK and .MAP files. .; before starting taskbuilder. .; If TKB detects an error its exit status will be different to 1. .; BLD ANSDMP .IF NE 1 .GOTO FINISH .; .FINISH: .enable quiet .; If user CLI was DCL reset terminal. .IFT DCL SET /DCL=TI: .EXIT