HPKahn
02-04-07, 14:10
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
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