!Test program for PROGS.SBR

	MAP1 JOB'COUNT, F, 6
	MAP1 PROG'NAME(100),S,6
	MAP1 I, F, 6

	XCALL PROGS, JOB'COUNT, PROG'NAME(1)

	FOR I = 1 TO JOB'COUNT
		PRINT "Job"; I; "is running '"; PROG'NAME(I); "'"
		NEXT I