Estimados, arme un CLP, el cual adjunto, para validar Usuario y Password (el cual voy a ejecutar cuando funcione como un strore procedure desde una aplicación Web), pero ete aquí que lo ejecuto con el STRISDB y nunca se dispara el MONMSG aunque le ponga Usuario= PIRULO y Password=Pepe los cuales no existen en el AS/400 en el que pruebo.
Agradece cualquier ayuda que me puedan brindar.
Fernando.
/*******************************************************************/ /* */ /* Validacion de Usuario y Password llamado desde el Login de la */ /* Web de Inteligencia Comercial */ /* */ /*******************************************************************/
PGM PARM(&USERID &PWD &CPFNNNN)
/* Parametros: */
/* User ID Char 10 */
DCL VAR(&USERID) TYPE(*CHAR) LEN(10)
/* Contraseña Char 10 (Soporta hasta 50) */
/* la password es Case Sensitive */
DCL VAR(&PWD) TYPE(*CHAR) LEN(10)
/* Profile Handle Char 12 */
DCL VAR(&PRFHNDL) TYPE(*CHAR) LEN(12)
/* Codigos de Error de Retorno Char 8 */
DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(8)
DCL VAR(&CPFNNNN) TYPE(*CHAR) LEN(70)
DCL VAR(&msgdesc) TYPE(*CHAR) LEN(70)
DCL VAR(&msgid) TYPE(*CHAR) LEN(7)
DCL VAR(&PWDLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&PWDCCSID) TYPE(*CHAR) LEN(4)
CHGVAR VAR(%BIN(&PWDLEN)) VALUE(10)
CHGVAR VAR(%BIN(&PWDCCSID)) VALUE(284)
/* Ejecuta la API de validacion */
CALL PGM(QSYGETPH) PARM(&USERID &PWD &PRFHNDL +
&ERRCODE &PWDLEN &PWDCCSID)
MONMSG MSGID(CPF0000 CPF9999 MCH0000) EXEC(DO)
RCVMSG MSG(&MSGDESC) MSGID(&MSGID)
CHGVAR VAR(&CPFNNNN) VALUE(&MSGDESC)
ENDDO
FINPGM: ENDPGM
