MAP1    terminal'name,S,8,""

               XCALL TDVNAM,terminal'name
               PRINT "This JOB's terminal is "terminal'name
               END