home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / MArb92a.zip / Reverse.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-03  |  606b  |  19 lines
  1. /* REXX */
  2.  
  3. /*  Function     : Fictional agent always returning a value
  4.                    of true. Used to build and test selection trees.
  5.                    Functions as a "stand-in" for an agent yet to be
  6.                    built, but whose value is nonetheless required
  7.                    to test the selection tree.
  8.     Created      : February 10, 1996
  9.     Modifications:
  10. */
  11.     
  12. /* Return true. 
  13. */
  14.     DO I1 = Children("Count") BY -1 TO 1,
  15.             WHILE Children("Result",,
  16.                            I1) == "N"
  17.     END
  18.     RETURN \Children("Result",,
  19.                      I1)