Macro: CONSTRAINED_FIND

Module location: FMAC line 506 (view source)

  #IFSAME !1 NEXT
    #IF !0>1
      !A [] $0D0 !2   // QUERY ID
    #ENDIF
    !A [] $D8       // find NEXT
  #ELSE
    #IFSAME !1 FIRST
      CONSTRAINED_CLEAR GE !2 !3 !4
    #ELSE
      #IFSAME !1 LAST
        CONSTRAINED_CLEAR LE !2 !3 !4
      #ELSE
        #IF !0>0
          CONSTRAINT_INIT !1 !2 !3 !4
        #ENDIF
        // THIS USES RB DATA ,IT DOES NOT CLEAR THE rb.
      #ENDIF
    #ENDIF
    !A [] $D7  |CI0 // find init, sets found on status of constrained relates.
    !A [FOUND] $D8  // find NEXT (first)
  #ENDIF