!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