/* REXX DISKR Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
meindat = "AAA.BBB.CCC(MEMBER)"
             /* Eigenen Data Set Namen eingeben          */
"ALLOCATE FI(MYFILE) DA('"meindat"') SHR"
IF rc <> 0 THEN DO
   SAY 'Falscher Data Set Name!' meindat
   EXIT
END
  /* */
ADDRESS MVS 'EXECIO * DISKR MYFILE (FINIS'
             /* Lesen aller Saetze des Data Sets MYFILE  */
             /* im Program-Stack in der FIFO Reihefolge  */
             /* das Data Set wird geschlossen            */
DO QUEUED()     /* Schleife fuer die Anzahl Saetze im Program-Stack */
  PARSE PULL satz
  SAY satz
END
'FREE FI(MYFILE)'
  /* */
/* REXX */
"ALLOCATE FI(MYFILE) DA('"meindat"') SHR"
ADDRESS MVS 'EXECIO 1 DISKR MYFILE (STEM inp.'
             /* Lesen eines Saetz des Data Sets MYFILE   */
             /* in STEM Variablen                        */
DO WHILE RC = 0 /* Schleife, solange der Return Code gleich 0 ist */
  SAY inp.1
  ADDRESS MVS 'EXECIO 1 DISKR MYFILE (STEM inp.'
             /* Lesen des naechsten Satzes               */
END
ADDRESS MVS 'EXECIO 0 DISKR MYFILE (FINIS'
             /* das Data Set wird geschlossen            */
'FREE FI(MYFILE)'
  /* */
/* REXX */
"ALLOCATE FI(MYFILE) DA('"meindat"') SHR"
ADDRESS MVS 'EXECIO * DISKR MYFILE (STEM satz. FINIS'
             /* Lesen aller Saetze des Data Sets MYFILE  */
             /* in den "satz" Variablen                  */
             /* das Data Set wird geschlossen            */
DO i=1 TO satz.0    /* Schleife von Satz 1 bis Anzahl Saetze */
  SAY satz.i
END
'FREE FI(MYFILE)'