Si no puedes tocar el fuente de pantalla, puedes asignarle en la especificación F del fichero de pantalla una estructura de datos de información de archivo: INFDS. En esa estructura de datos tienes un campo binario que te indica la posición en que está situado el cursor:
linpos 370 371b 0 Luego con una pequeña rutina sabes la línea y columna: Eval lin=%div(linpos:256); Eval col=%rem(linpos:256) Si pudieras tocar el fuente de pantalla, es aún más sencillo. Define a nivel de registro la palabra clave RTNCSRLOC(&RCDCSR &FLDCSR) donde &RCDCSR te devuelve el nombre del formato de registro activo y &FLDCSR el nombre de campo en el que está situado el cursor. Estos campos debes definirlos como alfanuméricos de 10 posiciones y ocultos. Espero que te sirva. Un saludo. Juan Carlos. De: Marvin Correa Montenegro [mailto:[email protected]] Enviado el: viernes, 03 de octubre de 2014 4:50 Para: [email protected]; FORO_400 Asunto: consulta / desde que campo se llamo la tecla de funcion Sres Foristas, buenas noches. Yo quiero consultar si alguno de ustedes me podría indicar un manual y la pagina donde puedo hayar la siguiente información CampoA CampoB CampoC Tres campos de una pantalla el cursor se encuentra en uno de ellos, se presiona la tecla de función F4 esta llama a otro programa, la pregunta es como saber desde cual de los campos se invoco la tecla de funcion el programa esta hecho en RPG. El problema es que tengo 2 años sin tocar un programa, y necesito modificar uno, en la empresa son muy estrictos y solo me dieron el fuente a modificar, no tengo acceso a otros fuentes. Gracias y disculpen la molestia Marvin Correa [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.
