PDA

View Full Version : Programmaufruf über Schlüsselwort:EXTPROC ?



Gimli
10-04-03, 13:58
Hallo Forum,

ich möchte aus einem RPGIV-Programm eine C-Funktion aufrufen (system) und habe dafür folgendes Beispiel bekommen:
D System PR 10i 0 extproc('system')
D Cmd * value´options(*string)
D CpfMsgId S 7 import('_EXCP_MSGID')
D RunCmdIn S 50

C *ENTRY PLIST
C Parm RunCmdIn
C If System(RunCmdIn) <> 0
C CpfMsgId dsply
C Endif
C Eval *inLR = *on

Dieses Programm funktioniert einwandfrei.
Meine Frage ist jetzt, wann wird das Programm 'system' aufgerufen ? Mit welchem Befehl ?
Wenn ich diesen Programmaufruf für andere Programme abwandeln möchte, wie kann ich den Programmaufruf steuern ?

Danke im voraus für Eure Hilfe, Marc

B.Hauser
10-04-03, 14:34
Das "Programm" System ist eine Funktion.
Funktionen sind Prozeduren mit Rückgabe-Wert und werden über:
EVAL/EVALR
IF / SELECT WHEN
DOU /DOW / FOR
oder Built-In-Funktionen aufgerufen.

In deinem Fall erfolgt der Aufruf im IF-Statement:
C If System(RunCmdIn) <> 0

Birgitta

Gimli
10-04-03, 14:36
Danke Birgitta :-)