Read Big Files - nnnn records a time

Sample

Beispiel:                                 

/* REXX YREADBIG Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
proread = 1000
             /* Anzahl Zeilen pro Read eingeben          */
  /* */
meindat = "AAA.BBB.CCC"
             /* Eigenen Data Set Namen eingeben          */
"ALLOCATE FI(MYFILE) DA('"meindat"') SHR REUSE"
IF rc <> 0 THEN DO
   SAY 'Falscher Data Set Name!' meindat
   EXIT
END
  /* */
totrec=0
  /* */
DO UNTIL saverc<>0  /* Bis DISKR RC > 0 */
  ADDRESS MVS "EXECIO "proread" DISKR MYFILE (STEM satz."
             /* Lesen nnnnn Saetze des Data Sets MYFILE  */
             /* in STEM Variablen                        */
  saverc=rc
  DO i=1 to satz.0 /* Schleife, alle Saetze */
    totrec=totrec+1
    SAY totrec "-" strip(satz.i)
    /* oder andere Bearbeitung ... */
  END
end
ADDRESS MVS 'EXECIO 0 DISKR MYFILE (FINIS'
             /* das Data Set wird geschlossen            */
'FREE FI(MYFILE)'
  /* */
SAY "Total Records:" totrec