! COMLINK.COM: 				Command Procedure to compile MAIN and
! 					subroutines & create the shareable 
!					image library SCANLIB.
!					The order of modules in the LINK
!					statement is CRITICAL and must not
!					be changed.  The LINKER references
!					an OPTIONS file named OPTION_FILE.OPT
!					which controls the mapping of
!					subroutines and common blocks.
! 					Command Procedure also links the
!					MAIN program SCANNER to the
!					shareable library SCANLIB.
!					
!
! M. SHEEHAN
! UNC-Wilmington
! Systems Programming
!
! VERSION:		DATE:
! ========		=============
!   1.0			26-Feb-1986
!
!               
!
$ SET DEF [SCANNER.PROD]                                      
$ DELETE *.LIS;*,*.OBJ;*,*.MAP;*
$ MACRO/LIST SCN_XFER                                
$ FORTRAN SCANNER, SCN___SETDEVICE, SCN_INIT, SCN_STATUS,-
	SCN___QIO, SCN___OUTPUT_STATUS, SCN_GETREC,-
	SCN_REJECT, SCN_WRITE, SCN_DEINIT
$ LINK/MAP/FULL/CROSS/SHARE=SCANLIB SCN_XFER, SCN___SETDEVICE,-
	SCN_INIT, SCN_STATUS, SCN___OUTPUT_STATUS, SCN___QIO,-
	SCN_GETREC, SCN_REJECT, SCN_WRITE,-
	SCN_DEINIT, SCN_OPTIONS/OPTION
$ LINK/MAP/FULL/CROSS SCANNER, SYS$INPUT/OPTIONS
[SCANNER.PROD]SCANLIB/SHARE
$ COPY SCANLIB.EXE SYS$LIBRARY:*.*
$ PURGE SYS$LIBRARY:SCANLIB.EXE
$ WRITE SYS$OUTPUT "SCANLIB.EXE copied to SYS$LIBRARY"
$ EXIT