Hola otra vez: Existe un API muy sencilla de usar (no tengo un ejemplo para tí, lo siento) llamada "Convert Date and Time Format (QWCCVTDT)" que permite convertir fechas entre varios formatos, uno de ellos el *DTS. Revisa el siguiente artículo que te explica como utilizarla: http://www.mcpressonline.com/mc/.6b2154a8 Un saludo,
Javier Mora
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Javier Mora
Enviado el: miércoles, 29 de agosto de 2007 16:04
Para: forum.help400
Asunto: RE: API QSYRUSRI
Hola de nuevo:
La definición de la DS es correcta y a mí también me aparecen valores
extraños. Sin embargo, si te fijas en la descripción de los campos de la DS (en
el InfoCenter) encontrarás las siguiente definición:
Password change date. The date the user's password was last changed, in
*DTS (date-time stamp) format.
Me suena mucho el formato *DTS, si no recuerdo mal se codifica en
binario la fecha y hora. En estos momentos no encuentro cómo convertir este
formato a otro leible por los humanos. Si encuentro algo te lo diré.
Un saludo,
Javier Mora
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de
Sergio Bortolo
Enviado el: miércoles, 29 de agosto de 2007 15:10
Para: forum.help400
Asunto: RE: API QSYRUSRI
Javier:
aqui copio la DS completa. Tengo instalado V5R4
Un Saludos y Gracias!!!!
D RCVVAR DS
D* FORMAT USRI0300
D BYTRTN 10I 0
* Bytes returned
D BYTVAL 10I 0
* Bytes available
D OUSRNM 9 18
* User profile name
D PRVSGN 19 31
d cent 19 19
d dia 20 25
d hora 26 31
* Previous sign-on date and time
D RSV1 32 32
* Reserved
D SGNATE 10I 0
* Sign-on attempts not valid
D STATUS 37 46
* Status
D PASCHD 47 54a
* Password change date
D NOPWDI 55 55
* No password indicator
D RSV2 56 56
* Reserved
D PASEXD 10I 0
* Password expiration interval
D DPASEX 61 68
* Date password expires
D DUPAEX 10I 0
* Days until password expires
D SETPEX 73 73
* Set password to expire
D USRCLN 74 83
* User class name
D SPCAUT 84 98
* Special authorities
D GRPRNA 99 108
* Group profile name
D OWNER 109 118
* Owner
D GRPAUT 119 128
* Group authority
D ASSLEV 129 138
* Assistance level
D CURLIB 139 148
* Current library name
D INMENA 149 158
* Initial menu name
D INMELI 159 168
* Initial menu library name
D INPRNA 169 178
* Initial program name
D INPRLI 179 188
* Initial program library name
D LIMCAP 189 198
* Limit capabilities
D TXTDES 199 248
* Text description
D DSPSGI 249 258
* Display sign-on information
D LIDESE 259 268
* Limit device sessions
D KEYBUF 269 278
* Keyboard buffering
D RSV3 279 280
* Reserved
D MAALST 281 284B 0
* Maximum allowed storage
D STGUSE 285 288B 0
* Storage used
D JISCPR 289 289
* Highest scheduling priority
D JOBDNA 290 299
* Job description name
D JOBDLI 300 309
* Job description library name
D ACCCOD 310 324
* Accounting code
D MSGQNA 325 334
* Message queue name
D MSGQLI 335 344
* Message queue library name
D MSGQDM 345 354
* Message queue delivery method
D RSV4 355 356
* Reserved
D MSGQSE 357 360B 0
* Message queue severity
D OUTQNA 361 370
* Output queue name
D OUTQLI 371 380
* Output queue library name
D PRTDEV 381 390
* Print device
D SPCENV 391 400
* Special environment
D ATTKNA 401 410
* Attention-key-handling program name
D ATTKLI 411 420
* Attention-key-handling program library name
D LANID 421 430
* Language ID
D COREID 431 440
* Country or region ID
D CARCOD 441 444B 0
* Character code set ID
D USROPT 445 480
* User options
D SRTSEN 481 490
* Sort sequence table name
D SRTSEL 491 500
* Sort sequence table library name
D OBJAUV 501 510
* Object auditing value
D OBACAU 511 574
* User action audit level
D GRPATY 575 584
* Group authority type
________________________________
Date: Wed, 29 Aug 2007 13:49:23 +0200
From: [EMAIL PROTECTED]
To: [email protected]
Subject: RE: API QSYRUSRI
Hola Sergio:
¿Puedes enviar el trozo de código donde defines el
campo en la DS? O la DS entera.
¿En que versión estás?
Un saludo,
Javier Mora
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
En nombre de Sergio Bortolo
Enviado el: miércoles, 29 de agosto de 2007
13:21
Para: forum.help400
Asunto: API QSYRUSRI
Estimados:
estoy desarrollando una aplicacion en la cual
necesito recuperar datos del perfil del usuario, para tal fin estoy utilizando
el API QSYRUSRI.
Dentro del programa estoy utilizando una DS
donde estan las variables que contienen los datos.
El problema surge con algunos campos que tienen
fechas y seguin el manual del API de IBM dice que a esos campos hay que
definirlos como CHAR(8), como por ejemplo:
46 2E CHAR(8) Password change date
Cuando visualizo el contenido de esta variable
encuentro que tiene basura:
PASCHD = 'ý¥ÙIV#¢ '
He probado en definirla de distintas maneras,
pero el resultado no es el esperado.
Segun el manual esta es la definición de la
variable:
Password change date. The date the user's
password was last changed, in *DTS (date-time stamp) format.
Alguien tiene alguna idea de que se puede hacer
para que recupere el varlor en forma correcta????
Gracias por lo que puedan aportar.
Saludos a todos.
Sergio
________________________________
Descubre Live.com - tu propia página de inicio,
personalizada para ver rápidamente todo lo que te interesa en un mismo sitio.
todo en el mismo sitio. <http://www.live.com/getstarted>
________________________________
Comunícate al instante con Windows Live Messenger Windows Live
Messenger
<http://imagine-msn.com/messenger/launch80/default.aspx?locale=es-ar&source=joinmsncom/messenger>
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
