Muchas gracias por tu ayuda, funcionó excelente.
Roberto Palomino Madueño
----- Reply message -----
De: "Juan Carlos Paredes" <[email protected]>
Para: "forum.help400" <[email protected]>
Asunto: Punteros en rpg
Fecha: mar., jun. 17, 2014 3:17 AM
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]
Sent: Tuesday, June 17, 2014 5:19
AM
To:
forum.help400
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.
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.
