FILLER für nicht zusammenhängende Ausgabebereiche und Rückgabewerte
Wenn der Rückgabewert nicht vom Ausgabebereich entfernt ist, müssen Sie den Füllstoff zwischen dem Rückgabewert und dem Ausgabebereich berechnen und manuell angeben.
Das folgende Beispiel zeigt die Berechnung für den Füllstoff aus dem ursprünglichen COBOL, der in den Import-Assistenten wechselt (die Bytezählungen auf der rechten Seite werden als Abbildung hinzugefügt):
01 OUTPUT-AREA.
05 SELECTED-OUTPUT-AREA.
10 FIELD1 PIC S9(4) COMP. [2 Bytes]
10 FIELD2 PIC S9(9) COMP. [4 Bytes]
05 DISCONTIG-UNSELECTED-AREA.
10 NOTSELECTED PIC X(10). [10 Bytes]
10 ALSO-NOTSELECTED PIC S9(9) COMP. [4 Bytes]
05 RETVAL PIC S9(9) COMP. [4 Bytes]
Da in diesem Fall der Rückgabewert dem Ausgabebereich folgt, muss der Filler dem letzten Ausgabeparameter hinzugefügt werden. Führen Sie dazu die folgenden Schritte aus.
Entsperren Sie die -Methode.
Klicken Sie im Detailbereich auf FIELD2.
Klicken Sie im Menü Datei auf Eigenschaften, und klicken Sie dann auf die Registerkarte COBOL-Definition .
Geben Sie im Feld Vom Host den Wert 14 als nachfolgenden Füllstoff ein.
Klicken Sie auf OK.
Verwenden Sie zum Überprüfen des geänderten Codes im TI-Projekt den Befehl Exportieren im Menü Datei . Anschließend können Sie Ihren Code in Editor anzeigen.
Im Folgenden wird die Ausgabe mit dem hinzugefügten Filler angezeigt:
01 DISCONTIGCBL-OUTPUT-AREA.
05 LL PIC S9(4) COMP. OUTPUT [2 Bytes]
05 ZZ PIC S9(4) COMP. OUTPUT [2 Bytes]
05 FIELD1 PIC S9(4) COMP. OUTPUT [2 Bytes]
05 FIELD2 PIC S9(9) COMP. OUTPUT [4 Bytes]
05 RETVAL PIC S9(9) COMP. OUTPUT [4 Bytes]