SOURCELINE - Inhalt Kommandozeile

REXX Built-In Funktionen
Fehler Behandlung

Syntax:                                 
SOURCELINE(<nummer>)
SOURCELINE() - Anzahl Zeilen in REXX Prozedur
SOURCELINE(nummer) - Inhalt Zeile "nummer"

/* REXX SOURCELINE Copyright YCOS Yves Colliard Software 1990-2009 */
  /* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
DO i=2 WHILE LEFT(SOURCELINE(i),2)="/*"
  SAY SOURCELINE(i)    /* Ausgabe: Zeile 2 bis 7 */
END
  /* */
a2 = "Yves Colliard Software"
  /* */
a1 = SOURCELINE()      /* Anzahl Zeilen in REXX Prozedur           */
SAY a1                 /* Ausgabe: 21                              */
SAY SOURCELINE(a1-4)   /* Ausgabe: 'a2 = "Yves Colliard Software"' */