REXX Built-In Funktionen

REXX Instruktionen
Program Stack

Syntax:                                 
QUEUED()

/* REXX QUEUED Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "REXX"
a2 = "Yves Colliard Software"
a3 = "REXX TSOISPF KURS"
a4 = "TSOISPF"
  /* */
PUSH a1                 /* Stack LIFO fuellen  */
PUSH a2                 /* Stack LIFO fuellen  */
PUSH a3                 /* Stack LIFO fuellen  */
PUSH a4                 /* Stack LIFO fuellen  */
  /* */
SAY QUEUED()                      /* Ausgabe: 4               */
  /* */
DO QUEUED()             /* Ausgabe: "TSOISPF"                 */
  PULL txt              /* Ausgabe: "REXX TSOISPF KURS"       */
  SAY txt               /* Ausgabe: "YVES COLLIARD SOFTWARE"  */
END                     /* Ausgabe: "REXX"                    */