def var x as char init "P,S,A".
def var y as char init "P,S,B,E,M".
def var a as char init "P,S,M".
def var b as char init "P,S,B,E,M".

FUNCTION my-check RETURNS LOGICAL
  (INPUT a-member AS CHAR, INPUT the-list AS CHAR):

DEF VAR i AS INTEGER.

  DO i = 1 TO NUM-ENTRIES(a-member):
      IF LOOKUP(ENTRY(i,a-member), the-list) = 0 THEN RETURN FALSE.
  END.

  RETURN TRUE.
END FUNCTION.



message my-check(x, y) skip x skip y view-as alert-box.

message my-check(a, b) skip a skip b view-as alert-box.