ahorita si, tenia que setear correctamente el tama�o de la estructura
pasada, yo le estaba pasando un valor de zero, no se como no me di cuenta,
comparando los dos codigos me di cuenta,
muchas gracias Gerardo
> -----Mensaje original-----
> De: gerardo.santillana [SMTP:[EMAIL PROTECTED]
> Enviado el: Lunes, 05 de Enero de 2004 17:21
> Para: [EMAIL PROTECTED]
> Asunto: RE: API QSYGETPH
>
>
> Yo la utilizo en un programa estoy en V5R1 y la unica diferencia que
> encontre fue en los "overlay" que utilizas en la estructura de datos
> ERROR, el codigo en mi programa esta asi:
>
> D GetProfileHdl PR ExtPgm( 'QSYGETPH' )
>
>
> D pUserID 10
>
>
> D pPassword 10
>
>
> D pHdl 12
>
>
> D pAPIError 272
>
>
> ****************************************************************
>
>
> D APIError DS
>
>
> D BytesProvided 10I 0 Inz( 272 )
>
>
> D BytesAvail 10I 0 Inz( 0 )
>
>
> D MsgID 7 Inz( *Blanks )
>
>
> D Reserved 1 Inz( *Blanks )
>
>
> D MsgDta 256 Inz( *Blanks )
>
>
> ****************************************************************
>
>
>
> C Reset APIError
>
> C*
>
> C CallP GetProfileHdl( qusr01 :
>
> C pxpass :
>
> C Hdl :
>
> C APIError )
>
> *si el error es "User profile not found".
>
> C If msgid='CPF2204'
>
> C callp wrtsection('usernovalid')
>
> C*
>
> C Reset APIError
>
> ...
> ...
> ...
>
> Espero que esto te sirva, saludos
>
>
> Gerardo Santillana
> IT Department
> Delphi Mechatronic Systems
> US Ph: (956) 554.5832
> MX Ph: (88) 12.81.63/64/65 Ext. 5832
> e-mail [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
>
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of Dario Heinze
> Sent: Monday, January 05, 2004 12:11 PM
> To: Forum400
> Subject: API QSYGETPH
>
>
> 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]
>
> **************************************************************************
> **************
>
> Note: The information contained in this message may be privileged and
> confidential and thus protected from disclosure. If the reader of this
> message is not the intended recipient, or an employee or agent responsible
> for delivering this message to the intended recipient, you are hereby
> notified that any dissemination, distribution or copying of this
> communication is strictly prohibited. If you have received this
> communication in error, please notify us immediately by replying to the
> message and deleting it from your computer. Thank you.
>
>
> **************************************************************************
> **************
>
> _____________________________________________________
> 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]
_____________________________________________________
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]
