Como no es molestia ahí lo tienes:
* ------------------------------------------------------------------------ * Example: Show Google Maps from a given Address * from iSeries Access 5250 session * * Note: Make sure Edit -> Preferences -> Active Areas -> 'Run URL' are marked * * Code License: Creative Commons 2.5 License * ------------------------------------------------------------------------ * By: José Alejandro Martínez Señoret * Translate to RPGLE: Vicente Aliaga Más * ------------------------------------------------------------------------ h debug cvtopt(*datetime) fgmaps1 cf e workstn d x s 3p 0 * * Google Maps * c dow not(*in03) c exfmt pinfo * replace with maps.google.es for Spain Maps c eval uri = 'http://maps.google.com/maps?q=' + c %trimr( a1 ) + ',%20' + c %trimr( a2 ) + ',%20' + c %trimr( ci ) + ',%20' + c %trimr( st ) + ',%20' + c %trimr( zi ) * Http Escape blanks as '%20' c eval x=%scan( ' ' : uri ) c dow x > 0 c eval uri = %replace( '%20' : uri : x : 1) c eval x=%scan( ' ' : uri ) c if x > %len(%trim( uri )) c leave c endif c enddo c enddo * Exit c eval *inlr = *on * Atentamente Vicente Aliaga
__________________________________________________ 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 visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
