Te envío un ejemplo que yo uso habitualmente con las teclas de función y los
indicadores
d Ind s * inz(%addr(*in))
d Indicadores ds based(Ind)
d TeclaF3 3 3n
d TeclaF12 12 12n
d Error 99 99n
El puntero Ind se inicializa con la posición de memoria de la serie *in(xx). La
estructura de datos basada en ese puntero contendrá los valores de cada uno de
los elementos de dicha serie. La variable TeclaF3 contendrá el valor del *in03,
la TeclaF12 el de *in12 y la variable Error el valor de *in99.
No sé si esto te sirve.
Saludos.
Juan Carlos.
From: [email protected]<mailto:[email protected]>
Sent: Tuesday, June 17, 2014 5:19 AM
To: forum.help400<mailto:[email protected]>
Subject: Punteros en rpg
buenas noches agradeceré su apoyo en lo siguiente. Se que para obtener
dirección de memoria de una variable de la siguiente manera: ptr=%DDR(var1)
pero como hago lo contrario var1=%xxx(ptr) ósea como obtengo el valor o el
contenido a partir de una posición de memoria?.
De antemano Gracias.
Roberto Palomino
________________________________
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png]
<http://es-es.facebook.com/editorialeverest>
[http://www.everest.es/img/mailings/imgfirma_08.png]
<http://twitter.com/ed_everest>
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de
Datos de Carácter Personal, le informamos que los datos que nos facilite
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales,
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas
del Grupo Everest dedicadas a actividades de impresión, encuadernación,
edición, publicación, distribución y venta de libros y otra clase de
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n,
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST,
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y "COMERCIAL
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el
correo electrónico y las comunicaciones por medio de Internet no permiten
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad
alguna por tales circunstancias. Si no consintiese en la utilización del correo
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido,
de manera exclusiva, a su destinatario y contiene información confidencial y
sujeta al secreto profesional, cuya divulgación no está permitida por la ley.
En caso de haber recibido este mensaje por error, le rogamos que, de forma
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra
atención o a través del teléfono 902123400 y proceda a su eliminación, así como
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la
distribución, copia o utilización de este mensaje, o de cualquier documento
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la
ley. El uso y contenido de los correos electrónicos remitidos con direcciones
bajo el dominio de "everest .es" serán exclusivamente de ámbito profesional.
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad
a la empresa.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
