![]() |
| IR | Sätze aus zweiter Datei einfügen |
| Mischen von zwei sequentiellen Dateien | |
| In der zu erzeugenden Ausgabedatei soll Satz 1 von Datei-1 vor Satz 1 von Datei-2 stehen, usw. | |
| ONXCONV' '='.ISAM',FCBTYPE=ISAM,IK (IK: Insert Keys) | |
| Die sequentiellen Dateien 1 und 2 werden mit der Variablen Action ONXCONV zunächst in zwei ISAM-Dateien konvertiert. | |
| Action-Code M (Modify) bei der ersten der erzeugten ISAM-Dateien (Datei-1) eintragen. DUPKEY-Modus einschalten durch Kommando DUPK. | |
| IR 9999,datei-2,K | |
| Sätze der zweiten ISAM-Datei schlüsselgerecht hinter die entsprechenden Sätze von ISAM-Datei-1 einfügen. | |
| ONXCONV'.ISAM'='.SAM',FCBTYPE=SAM,EK | |
| Display von Datei-1 durch Betätigung der K1-Taste beenden und in eine sequentielle Datei konvertieren. Die ISAM-Schlüssel werden dabei gelöscht (EK). | |
| In einer ISAM-Datei (Keypos=10, Keylen=20) soll die Zeichenfolge 'ABC' in den Schlüsseln durch 'XYZ' ersetzt werden. Die sich ergebenden Datensätze sollen ihrem neuen Schlüssel entsprechend eingereiht werden. Die dazu nötige Vorgehensweise wird i | |
| S9999,:6-13:'ABC'=W CFS.DAT3 | |
| S9999,:6-13:'ABC'=D | |
| ONXCONV' '='.SAM',FCBTYP=SAM | |
| S9999,:6-13:'ABC'='XYZ' | |
| ONXCONV'.SAM'='',FCBTYP=ISAM,KEYPOS=10,KEYLEN=20 | |
| IR9999,CFS.DAT3,K | |
| Alle Datensätze aus der Display-Datei, die die Zeichenfolge 'ABC' enthalten, werden in die Datei CFS.DAT3 übertragen. Danach müssen diese Datensätze aus der Display-Datei gelöscht werden, da im letzten Schritt die gleichen Datensätze mit veränderten Schlüsseln an anderen Stellen wieder in die Datei eingefügt werden. | |
| Datei CFS.DAT3 kann gesondert bearbeitet werden. Da sie vom Fcbtyp ISAM ist, können Schlüssel im CFS-Editor nicht mit Suchen und Ersetzen verändert werden. Letzteres ist nur möglich, falls die ISAM-Datei in eine sequentielle Hilfsdatei CFS.DAT3.SAM konvertiert und die ISAM-Schlüssel als normale Daten mit Suchen und Ersetzen verändert werden. Die sequentielle Hilfsdatei ist danach wieder in eine ISAM-Datei mit dem ursprünglichen Datenformat zurückzukonvertieren. Das Einbringen der so veränderten Datei CFS.DAT3 in die ursprüngliche Display-Datei erfolgt durch das Kommando IR 9999,CFS.DAT3,K. | |