length msg $ 200; length base createt jquota modifyt quota 8; length auth journal priv trans $ 10; length inst type $ 32; length label path $ 80; rc=0; CALL MSMQGETQPROP(qid, rc, "AUTHENTICATE,BASEPRIORITY,CREATE_TIME,INSTANCE,JOURNAL, JOURNAL_QUOTA,LABEL,MODIFY_TIME,PATHNAME,PRIV_LEVEL, QUOTA,TRANSACTION,TYPE", auth, base, createt, inst, journal, jquota, label, modifyt, path, priv, quota, trans, type); if rc ^= 0 then do; put 'MSMQGetQProp: failed'; msg = sysmsg(); put msg; end; else do; put 'MSMQGetQProp: succeeded'; put 'authenticate is ' auth; put 'base priority is ' base; /* convert MSMQ create time to SAS datetime format */ createt = createt + 10*365*24*3600 + 3*24*3600 - 5*3600; put 'create time was ' createt datetime.; put 'instance identifier is ' inst; put 'journal enablement is ' journal; put 'journal quota is ' jquota; put 'label is ' label; /* convert MSMQ modify time to SAS datetime format */ modifyt = modifyt + 10*365*24*3600 + 3*24*3600 - 5*3600; put 'last modification time was ' modifyt datetime.; put 'pathname is ' path; put 'privacy level is ' priv; put 'quota is ' quota; put 'transaction requirement is ' trans; put 'type of service is ' type; end;