'<PCODE "COMMUD">

<PACKAGE "COMMUD"> 

<ENTRY COMMUD> 

<SETG FILE "SYS;TS MUDCOM"> 

<SETG ERRS ["Self Comparison" "Bad JCL" "Syntax Error" "Open Fail" "BUG" 
"No Differences" "No Similarities"]> 

<SETG COMMUD  %<RSUBR!- '[ %<PCODE!- "COMMUD" 0> COMMUD #DECL ("VALUE" <OR FALSE
LIST> STRING) OPENF JOB (FIX) "More than 1 COMMUD?" %<RGLOC FILE T> "INFERIOR" 
%<RGLOC HANDY T> WAIT (ACTIVATION) %<RGLOC ERRS T> T "COMMUD" "PRINTB" "USR" %<
RGLOC SNM T> #FALSE ("MODE NOT AVAILABLE") "READB" CORBLK-FAILED!-ERRORS 
LOAD-FAILED!-ERRORS]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COMMUD PGLUE ![805306367 -268435456!]>> 


<SETG HANDY %<RSUBR-ENTRY '[COMMUD HANDY #DECL ("VALUE" ANY FIX)] 258>> 

<SETG OPENF %<RSUBR-ENTRY '[COMMUD OPENF #DECL ("VALUE" ANY "TUPLE" ANY)] 353>> 

<ENDPACKAGE>