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;