PROGRAM SUBMITDR
C***
C	PROGRAM TO SUBMIT A BATCH JOB USING THE $SNDJBC SERVICE
C
C	S.R. BERMAN, MAY 5, 1988
C
C	THE ARGUMENTS ARE AS FOLLOWS:
C
C		AIFLNM: NAME OF THE FILE TO BE SUBMITTED (CHARACTER*30)
C		AIQNM : NAME OF THE QUEUE TO USE (CHARACTER*12)
C			DEFAULTS TO SYS$BATCH IF BLANK OR OMITTED
C		AINMPR: NUMBER OF PARAMETERS THAT FOLLOW
C		AIPRMS: PARAMETERS TO BE SENT TO THE BATCH JOB (CHARACTER*12)
C
C	THIS PROGRAM IS INTENDED TO BE LINKED WITH THE (SUPPLIED) SUBMIT ROUTINE
C***
	IMPLICIT INTEGER*4 (A-Z)
	CHARACTER*5 PARAMS(2)
	PARAMS(1) = '123'
	PARAMS(2) = '45'
	CALL SUBMIT ('DRB1:[BERMAN.SUBMIT]TEMP.COM;1','SYS$BATCH',2,PARAMS)
	END