结构推理 USE RCDA.DBF  EXCLUSIVE
   GO TOP
   SUM WHILE  性别="男" TO ZH
   ? "ZH=",STR(ZH,5)
   GO TOP
   RS=0
   DO WHILE NOT EOF()
   IF 工资现状＞=1800 AND 党员否
    RS=RS+1
   ENDIF
   SKIP 1
   ENDDO
   ? "RS=",STR(RS,2)
   USE
   CANCEL