*COMDECK SSIDDCLS 
  
  
*         DEFINE MICRO SS$CODE TO BE THE SUBSYSTEM ID CODE. 
*         DEFINE MICRO SS$NAME TO BE THE SUBSYSTEM NAME.
  
NOSBE     IFC    EQ,$"OS.NAME"$SCOPE $
SS$NAME   MICRO  1,, CDCS2
LEN       MICRO  1,, 5
SS$CODE   MICRO  1,, 1
NOSBE     ENDIF 
NOS       IFC    EQ,$"OS.NAME"$KRONOS$
SS$NAME   MICRO  1,, CDCS 
LEN       MICRO  1,, 4
OPL       XTEXT  COMSSSD
SS$CODE   DECMIC CDSI        CDCS SUBSYSTEM ID
NOS       ENDIF 
          IFC    NE,*"PCOMMENT"*                              * 
SS$NAME   MICRO  1,, "PCOMMENT" 
LEN       MICCNT  SS$NAME 
LEN       DECMIC  LEN 
SS$CODE   MICRO  LEN+1,,*"PCOMMENT"*
SS$CODE   MICRO  1,,"SS$CODE" 
          ENDIF 
  
