https://wiki.cps4it.de//index.php?action=history&feed=atom&title=Beispiel_SORT_VB 2026-05-06T17:32:58Z Versionsgeschichte dieser Seite in cps4it-Wiki MediaWiki 1.35.1 https://wiki.cps4it.de//index.php?title=Beispiel_SORT_VB&diff=1137&oldid=prev 2015-08-20T13:06:04Z

<p>Neuanlage</p> <p><b>Neue Seite</b></p><div>===Beispiel SORT VB===<br /> <br /> Eingabe ist eine Datei, die teilweise Schrottdaten enthält. Die Zeilen mit Schrottdaten sollen eliminiert werden. Besonderheit: Die Datei ist eine VB Datei. Unterscheiden kann ich es nur an einem Byte, das bei den Schrottdaten nicht mehr vorhanden ist. <br /> <br /> Dateiauszug: Format VB - Steuerungsnummer steht ab Stelle 28<br /> 000001 AK6 07V20O9R1JXIZJAS 00001 6095918 <br /> 000002 AK6 07V20KVR8MRH3ZAS 00001 6095919 <br /> 000003 AK6 23EZ0AVIHXBAEVAS 00001 3681680 <br /> 000004 AK6 23EZ0AUQXMV247AS 00001 17082015RH1 <br /> 000005 AK6 23EZ0AV4PS369JAS 00001 17082015RH1 <br /> 000006 AK6 10EJ053RHS2H5BAS 00001 5Q7MRR4MEHT00001<br /> 000007 AK6 10EJ05459XALANAS 00001 5Q7MRR4MEHT00001<br /> 000008 AK6 10EJ053DPMUCZZAS 00001 &lt;&lt;&lt; Hier fehlt die Steuerungsnummer, der Satz soll in eine zweite Datei<br /> 000009 AK6 10EJ0534IVCY8FAS 00001 5Q7MRR4MEHT00001<br /> =COLS&gt; ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-<br /> <br /> Versuche mit FileAid MVS Batch waren nicht erfolgreich. Das Folgende hat geklappt:<br /> <br /> //STEP01 EXEC BZZSORT <br /> //SYSOUT DD SYSOUT=* <br /> //SORTIN DD DISP=SHR,DSN=&lt;&lt;EingabeDatei&gt;&gt; <br /> //AUS1 DD DISP=(NEW,CATLG,DELETE),LRECL=255,RECFM=VB, <br /> // DSN=&lt;&lt;AusgabeDatei1&gt;&gt;,SPACE=(CYL,(1,999)) <br /> //AUS2 DD DISP=(NEW,CATLG,DELETE),LRECL=255,RECFM=VB, <br /> // DSN=&lt;&lt;AusgabeDatei2&gt;&gt;,SPACE=(CYL,(1,999))<br /> //SYSIN DD * <br /> OPTION COPY <br /> OUTFIL INCLUDE=(32,1,CH,NE,C' '),FNAMES=AUS1<br /> OUTFIL SAVE,FNAMES=AUS2</div>

Rts