*COMDECK PBMEMBER 
_$J+? 
_*****************************
*                            *
*  TEST ASCII SET MEMBERSHIP *     NON-INTERRUPTABLE
*                            *
*****************************?
_$R-,G-,I+? 
FUNCTION PBMEMBER(R1CHAR : B0OVERLAY; VAR R1SET : JSASCIISET): BOOLEAN; 
BEGIN 
  WITH R1CHAR DO
    PBMEMBER := (BACHROVLY.BABITPOS IN R1SET[BACHROVLY.BAINDEX])
END;
