Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Wenn der Rückgabewert vom Ausgabebereich getrennt ist, müssen Sie den Füllwert zwischen dem Rückgabewert und dem Ausgabebereich berechnen und manuell angeben.
Das folgende Beispiel zeigt die Berechnung für den Füller aus dem ursprünglichen COBOL, der im Import-Assistenten verwendet wird (die Byteanzahl auf der rechten Seite wird als Veranschaulichung 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 Füllbereich dem letzten Ausgabeparameter hinzugefügt werden. Führen Sie dazu die folgenden Schritte aus.
Entsperren Sie die Methode.
Klicken Sie im Detailbereich auf FELD2.
Klicken Sie im Menü "Datei" auf "Eigenschaften" und dann auf die Registerkarte "COBOL-Definition".
Geben Sie im Feld Von Host 14 als abschließenden Füllwert ein.
Klicke auf OK.
Verwenden Sie zum Überprüfen des geänderten Codes in TI Project den Befehl " Exportieren " im Menü "Datei ". Anschließend können Sie Ihren Code in Notepad anzeigen.
Es folgt die Ausgabe mit dem hinzugefügten Füllfeld:
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]