free Format RPG und Zyklus-Verarbeitung nach last record

[MarcG]

Hallo Forum,

ich habe ein bestehendes Zyklus-Programm im free-Format RPG und soll eine Verarbeitung nach der kompletten Verarbeitung der IP-Datei anfügen.

Die von mir erstellte Routine soll einmalig NACH der Verarbeitung des letzten Satzes der IP-Datei verarbeitet werden.

ich habe es mit folgenden Statements versucht:

if *INLR;
exsr UAKD;
endif;

leider ignoriert der Zyklus die EXSR - Anweisungen komplett und beendet das Programm ohne abschließende Verarbeitung.

Wer kann mir bitte sagen wie ich meine Subroutine zum Ende der Verarbeitung noch aufrufen kann.

Unser Release ist V6R1 (falls das ausschlaggebend ist).

Vielen Dank schon mal im Voraus für Eure Hilfe.

[Fuerchau]

In diesem Fall musst du das Free-Format beenden und tatsächlich

C LR _______ EXSR UAKD

verwenden.

[MarcG]

Vielen Dank für die schnelle Antwort, das hat mich zum gewünschten Programmablauf gebracht.