!Test program for PROGS.SBR

	MAP1 JOB'COUNT, F, 6
        MAP1 JOB'NAME(100),s,6
	MAP1 PROG'NAME(100),S,6
        MAP1 USER'NAME(100),S,20   ! Don't ask for this prior to 1.3 AMOS/L
                                   ! or 1.0 AMOS/32.
	MAP1 I, F, 6

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

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