/* REXX YNL Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
/***  REXX  **********************************************************/
/*  Funktion:  Next Line                                             */
/*  Aufruf:    YNL anzahl (Default 1)                                */
/*  Egebniss:  Sucht X Zeilen und entX die naechsten 'anzahl' Zeilen */
/*********************************************************************/
/* */
Address ISREDIT "MACRO (anz)"
Address ISPEXEC "CONTROL ERRORS RETURN"
Address ISREDIT "(TLINE) = LINENUM .ZLAST"
if datatype(anz) <> "NUM" then anz=1
doit="N"
do i = 1 to tline
  Address ISREDIT "(xstat) = XSTATUS "i
  if xstat = "X" then do
    if cnt>0 then do
      Address ISREDIT "XSTATUS "i" = NX"
      cnt=cnt-1
    end
  end
  else do
    doit="Y"
    cnt=anz
  end
end