Muy buen feliz a�o, para todos los participantes.
Agradecere cualquier aporte al problema que estoy teniendo con esta API,
tengo el siguiente codigo.
d getProfile pr ExtPgm('QSYGETPH')
d 10a const
d 10a const
d 12a
d 32766a options(*varsize: *nopass)
d Error ds
d BytesUsados 10i 0 overlay(Error: 01) inz(*zeros)
d BytesDispon 10i 0 overlay(Error: 05) inz(*zeros)
d id_Excepcion 7a overlay(Error: 09)
d txt_Excepcion 512a overlay(Error: 17)
c CallP(e) getProfile(User:
c PassWord:
c hProfile:
c Error)
c If %error
c Return
c EndIf
c If BytesUsados > 0
c Select
c*Contrase�a incorrecta.
c When id_Excepcion = 'CPF22E2'
c* Solicito contrase�a nuevamente/cancelo.
c* Usuario deshabilitado.
c When id_Excepcion = 'CPF22E3' or
c id_Excepcion = 'CPF1124'
c* Solicito otro usuario/cancelo
c EndSl
mi problema es que si le saco el control de error con (e) cancela por alguno
de los CPF's que quiero controlar, si lo dejo al control el programa cancela
pero no me devuelve la informacion de error en la estructura.
no se que puedo estar haciendo mal, revise la deficion de la API, y
aparentemente esta correcta.
Como dato estoy en V4R4,
Si alquien tiene una idea o ve donde estoy metiendo la pata...
Saludos,
Dario.-
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
