zOs/REXX.O08/P

/* REXX ***************************************************************/
ADDRESS ISREDIT "MACRO (par1)"

IF par1 = ''
THEN DO
     ADDRESS ISREDIT "(dsn)    = DATASET"
     ADDRESS ISREDIT "(member) = MEMBER"
     IF member ^= '' THEN member = '('member')'
     dsn = ''''||dsn||member||''''
     END
ELSE DO
     UPPER par1
     dsn = par1
     IF SUBSTR(dsn,1,1) ^= '''' ,
     THEN DO
          dsn = userid()||'.'||dsn
          dsn = ''''||dsn||''''
          end
     IF SYSDSN(dsn) ^= 'OK' ,
     THEN DO
          ZEDSMSG = "Dataset not found"
          ZEDLMSG = "Dataset "dsn" not found"
          ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
          EXIT
          END
     END

ADDRESS TSO
"PRINTDS DSNAME("dsn") CLASS(2) DEST(B610) NOTITLE PAGELEN(63)
                       FORMS(3820)"
ZEDLMSG = "Dataset "dsn" printed on printer B610"
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"

EXIT