Hätte gerne meinen Code ganz in free geschrieben, bin aber da auf ein Problem gestossen.
Ich habe eine Parameterliste(CHK03R) die 50 lang ist.
Im aufgerufenen Programm ist aber die *entry-Parameter 51 lang.
Kann ich in free den Parameter RC „dazuhängen“, falls ja bitte wie?
Habe es so versucht ging aber leider nicht:
CheckCode(CHK03R:RC);
Kann ich beim Aufruf einen EXTPGM auf fehlerhafte Beendigung abfragen,
oder muss ich es in einen MONITOR-Anweisung schreiben.
Code:
D CheckCode PR EXTPGM('CHKCD01R')
D CHK03R DS 50 INZ
D PaSL3 1 2 0
D PaCD3 3 5
D PaBZ3 6 30
D PaKB3 31 35
C CALL 'CHKCD01R'
C PARM CHK03R
C PARM RC
Aufgerufenes Programm hat in der *entry-Anweisung:
Code:
*ENTRY PLIST
PARM PARAMS 50
PARM RC 1
Dank im Voraus
Bookmarks