/* REXX DISKRU Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
meindat = "AAA.BBB.CCC"
             /* Gleicher Data Set Name wie DISKW eingeben */
"ALLOCATE FI(MYFILE) DA('"meindat"(Y1)') SHR"
IF rc <> 0 THEN DO
   SAY 'Falscher Data Set Name!' meindat
   EXIT
END
  /* */
ADDRESS MVS 'EXECIO 1 DISKRU MYFILE 12'
             /* Lesen des 12. Satzes des Data Set MYFILE  */
             /* im Program-Stack                          */
PARSE PULL . stxt snum  /* Satz einlesen aus dem Program-Stack */
SAY stxt snum           /* Satz Text und Nummer: "Satz 12"     */
QUEUE "Text" snum       /* Stapeln von "Text 12" im Stack      */
ADDRESS MVS 'EXECIO 1 DISKW MYFILE (FINIS'
             /* Ueberschreiben des gelesenen Satzes       */
             /* das Data Set wird geschlossen            */
'FREE FI(MYFILE)'
  /* */