Hallo AS400-Gemeinde,

folgendes Problem stellt sich:

Ich möchte ein CL-Programm aus einer VB-Applikation starten.

Dies ist ein Steuerungs-Programm aus dem weitere verschiedene CL's und RPG-Programme aufgerufen werden.

Im Batch mit Job-Description und Bibliotheksliste läuft es einwandfrei.

Bei Aufruf aus VB wird es zwar gestartet kann jedoch die aufzurufenden Programme nicht finden.

****Aufruf aus VB
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = dba.GetConnection

cmd.CommandText = "{{CALL /QSYS.LIB/EDVKAHN1.LIB/GETPRJMAIN.PGM}}"
cmd.Prepared = True
cmd.CommandType = adCmdText

cmd.Execute

Set cmd = Nothing
*****

hier das CL
/******************** PM-NUTZER VERARBEITEN **************/
CHGVARVAR(&RETVAL)VALUE('0')
CALLPGM(GETPMNTZ)PARM(&RETVAL)
IFCOND(&RETVAL='0')THEN(DO)
GOTOCMDLBL(ABBRUCH)
ENDDO

jetzt kann ich natürlich den Aufruf ändern
in
CALLPGM(EDVKAHN1/GETPMNTZ)

was ja auch funktionieren würde, allerdings nur im Develpoment und Test.

Produktiv müsste allerdings wieder alles verändert werden , da die Bibliothek eine andere ist (Flexibilität).

Was kannn, muss ich ändern damit der VB-Aufruf funktioniert?


Grüsse
HP Kahn