/* REXX */
Parse Arg filcmd
  /* get input command to be invoked repetively */
Parse Pull _inrec_
  /* _inrec_ will contain the input from stdin */
Do Until _inrec_ == ''
   Interpret filcmd
   If Datatype(RC) = 'NUM' & RC \= 0 then Exit RC
   Parse Pull _inrec_
   End
Exit 0