Estoy intentando llamar una CL en un AS400 , si ejecuto el codigo sin parametros ya se ejecuta la CL pero al colocar los parametros me manda el sig mensaje el explorer
ADODB.Command (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/llamacl/llampro.ASP, línea 10
mi codigo es el siguiente :
<%
private cnx
Private cmd
Private PA1
Private PA2
cnx ="Provider=IBMDA400;Data Source=xxx.xxx.xxx.x;User ID=a ;Password=e"
set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cnx
cmd.CommandText = "{{ CALL PROYECTO/CMS001(?,?)}}"
cmd.Parameters.Append cmd.CreateParameter("PA1", adChar, adParaminput, 1, A )
cmd.Parameters.Append cmd.CreateParameter("PA2", adChar, adParaminput, 1, 1 )
cmd.execute
response.write "Código ejecutado"
%>
sin parametros se ejecuta sin problema la cl es la sig
*************** Principio de datos **********************************
PGM PARM(&PA1 &PA2)
DCL VAR(&PA1) TYPE(*CHAR) LEN(1)
DCL VAR(&PA2) TYPE(*CHAR) LEN(1)
IF COND(&PA1 *EQ 'A') THEN(GOTO CMDLBL(PASO1))
PASO1: IF COND(&PA2 *EQ '1') THEN(GOTO CMDLBL(BORRA))
GOTO CMDLBL(FINPGM)
BORRA: CLRPFM FILE(PROYECTO/ARCHIVO)
FINPGM:
ENDPGM
****************** Fin de datos *************************************
ADODB.Command (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/llamacl/llampro.ASP, línea 10
mi codigo es el siguiente :
<%
private cnx
Private cmd
Private PA1
Private PA2
cnx ="Provider=IBMDA400;Data Source=xxx.xxx.xxx.x;User ID=a ;Password=e"
set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cnx
cmd.CommandText = "{{ CALL PROYECTO/CMS001(?,?)}}"
cmd.Parameters.Append cmd.CreateParameter("PA1", adChar, adParaminput, 1, A )
cmd.Parameters.Append cmd.CreateParameter("PA2", adChar, adParaminput, 1, 1 )
cmd.execute
response.write "Código ejecutado"
%>
sin parametros se ejecuta sin problema la cl es la sig
*************** Principio de datos **********************************
PGM PARM(&PA1 &PA2)
DCL VAR(&PA1) TYPE(*CHAR) LEN(1)
DCL VAR(&PA2) TYPE(*CHAR) LEN(1)
IF COND(&PA1 *EQ 'A') THEN(GOTO CMDLBL(PASO1))
PASO1: IF COND(&PA2 *EQ '1') THEN(GOTO CMDLBL(BORRA))
GOTO CMDLBL(FINPGM)
BORRA: CLRPFM FILE(PROYECTO/ARCHIVO)
FINPGM:
ENDPGM
****************** Fin de datos *************************************