*COMDECK  SETPIDA 
SETPIDA   SPACE  4,20 
          IDENT  SETPIDA
          ENTRY  SETPIDA
*CALL     COMCMAC 
 .NOS     IFEQ   OS$NOS 
          XTEXT  COMCCMD
          XTEXT  COMSSFM
 .NOS     ENDIF 
SETPIDA   SPACE  4,20 
**        SETPIDA - SET PID ATTRIBUTES. 
* 
*         SETPIDA SETS THE PID ATTRIBUTES TO LID TABLE. 
*         THE FORMAT IS 
* 
*         SETPIDA(BUFFER,BASED);
* 
*         ENTRY  (A1)/(X1) = FWA OF PARAMETER LIST. 
*                (BASED) = 1, IF THE BUFFER IS A BASED ARRAY. 
*                SEE COMCCMD FOR DETAIL DESCRIPTION OF THE PARAMETERS.
* 
*         EXIT   COMPLETE FLAG *C* SET. 
* 
*         USES   B - 1. 
* 
*         MACROS - SETPIDA. 
  
  
 SETPIDA  SUBR               ENTRY/EXIT 
 .NOS     IFEQ  OS$NOS
          SB1    1
          SA2    A1+B1
          SA2    X2 
          ZR     X2,SET1     IF THE BUFFER IS NOT A BASED ARRAY 
          SA1    X1 
 SET1     SETPIDA  X1        REQUEST LID TABLE
 .NOS     ENDIF 
          EQ     SETPIDA     RETURN 
  
 .NOS     IFEQ   OS$NOS 
  
          XTEXT  COMCSFM
 .NOS ENDIF 
  
          END 
