1 execute_dcl
The utility SNL$EXECUTE_DCL allows the user to execute DCL commands from
within an image. The DCL commands are executed and the image is re-entered. 
The user may enter a series of DCL commands, separated by commas, or no 
commands at all. If no commands are entered, the user is in DCL until he 
either enters LOGOUT, EXIT or STOP. The routine SNL$EXECUTE_DCL must be 
declared external to the program.

	Format: call snl$execute_dcl('dir','@proc','show system')
			
			or
		
		call snl$execute_dcl()





2 Linking
Use the following command to link SNL$EXECUTE_DCL to your program:

	LINK myprog,SNLLIB:/LIB


2 Example
The following FORTRAN programs uses SNL$EXECUTE_DCL to get a directory, 
copy a file, and show all global symbols. Then DCL is entered until you 
give the command STOP.

	PROGRAM TESTDCL
	CALL SNL$EXECUTE_DCL('DIR','COPY DCL.DAT [MYDIR]','SHOW SYM/G/A')
	CALL SNL$EXECUTE_DCL()
	END

2 Using_EDT
If you wish to use SNL$EXECUTE_DCL to enter the EDT editor, or to execute 
any image that gets input from SYS$INPUT, you must do the following:

Fortran Code for TESTEDT.FOR		Command Proc TESTEDT.COM

PROGRAM TESTEDT			$ deassign SYS$INPUT
					$ assign 'f$logical("SYS$OUTPUT")-
TYPE *,'Reading file FOR011.DAT'	  SYS$INPUT
READ (11,*) A,B,C,D,E,F		$ edit/edt 'p1'
CLOSE (UNIT=11)			$ exit
TYPE *,A,B,C,D,E,F
TYPE *,'Editing file FOR011.DAT'	
CALL SNL$EXECUTE_DCL('@TESTEDT FOR011.DAT')
TYPE *,'Reading file FOR011.DAT'
READ (11,*) A,B,C,D,E,F
CLOSE (UNIT=11)
TYPE *,A,B,C,D,E,F
END

