*COMDECK SUPABH 
# 
 (PARTIAL) ARRAY OF SUPERVISOR MESSAGE APPLICATION BLOCK HEADER 
# 
 COMMON SUPABH; 
   BEGIN
   ARRAY SMABH S(ABHSIZE);
     BEGIN
     ITEM SMABT  U(0,0,6)   = [APPCMD]; # SUP MSG BLOCK TYPE           #
     ITEM SMADR  U(0,6,12)  = [0];
     ITEM SMABN  U(0,18,18) = [0];
     ITEM SMACT  U(0,36,4)  = [CT60TRANS]; # SUP MSG CHAR TYPE         #
     ITEM SMDBC  U(0,40,8)  = [0];
     ITEM SMABHW U(0,0,WL); 
     END
   END
