HE - Halt Execution

REXX TSO und MVS Instruktionen

Syntax:                                 
EXECUTIL HE
PA1
nur TSO

/* REXX HE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
tx1 = "REXX"
tx2 = "KURS "
tx3 = "Yves Colliard Software"
tx4 = "Please press PA1 - ATTENTION"
  /* */
SAY "Trace einschalten"         /* Ausgabe: Trace einschalten      */
SAY "Einfach ENTER Druecken..."
"TS"
  /* */
SAY tx1                         /* Ausgabe: REXX                   */
SAY tx2                         /* Ausgabe: KURS                   */
SAY "Trace ausschalten"         /* Ausgabe: Trace ausschalten      */
"TE"
  /* */
SAY tx3                         /* Ausgabe: Yves Colliard Software */
"EXECUTIL HT"                   /* Halt Typing - keine SAY         */
  /* */
SAY tx1                         /* keine Ausgabe - HT              */
"EXECUTIL RT"                   /* Resume Typing - again SAY       */
  /* */
SAY tx4                         /* Please press PA1 - ATTENTION    */
PARSE EXTERNAL resp
/* Ausgabe */
/*      IRX0920I ENTER HI TO END, A NULL LINE TO CONTINUE,         */
/*      OR AN IMMEDIATE COMMAND */
  /* */
SAY tx2                         /* Ausgabe: KURS                   */
"EXECUTIL HI"                   /* Ende der Prozedur               */
  /* */
SAY tx3                         /* keine Ausgabe                   */
  /* */