.;
.;----------------------------------------------------------------------------
.;
.;	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	<CLI> 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	<EXSTAT> NE 1	.GOTO	FINISH
	FOR	RVOL1
.IF	<EXSTAT> NE 1	.GOTO	FINISH
	FOR	RHDR1
.IF	<EXSTAT> NE 1	.GOTO	FINISH
	FOR	RHDR2
.IF	<EXSTAT> NE 1	.GOTO	FINISH
	FOR	RHDR3
.IF	<EXSTAT> 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	<EXSTAT> NE 1	.GOTO	FINISH
.;
.FINISH:
	.enable	quiet					
	.;	If user CLI was DCL reset terminal.	
	.IFT	DCL	SET /DCL=TI:
.EXIT
