Podrías probar desde un RPG activando en el Client Access los botones
El ejemplo adjunto lo encontré en internet publicado hace tiempo. Yo estoy en v4.5 de Client Access y Funciona perfectamente. * ------------------------------------------------------------------------ * 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 * A*%%TS SD 20070608 121519 ALEX REL-V5R4M0 5722-WDS A*%%EC A DSPSIZ(24 80 *DS3) A CHGINPDFT(HI UL) A R PINFO A*%%TS SD 20070608 121519 ALEX REL-V5R4M0 5722-WDS A CF03(03) A 1 24'USING GOOGLE MAPS - FIRST EXAMPLE' A DSPATR(HI) A 2 2'1.- PLEASE, FILL THIS FORM' A DSPATR(UL) A 3 2'ADDRESS 1 :' A A1 50A B 3 15 A 4 2'ADDRESS 2 :' A A2 50A B 4 15 A 5 2'CITY . . :' A CI 50A B 5 15 A 6 2'STATE . . :' A ST 50A B 6 15 A 7 2'ZIP CODE :' A ZI 10A B 7 15 A 9 2'2.- AND CLICK THIS URI' A DSPATR(UL) A 10 2'GOOGLE URI:' A URI 226A O 10 15DSPATR(HI) A 23 3'F3=EXIT' Atentamente, P Antes de imprimir este e-mail piense bien si es necesario hacerlo. P . -----Mensaje original----- De: [email protected] [mailto:[email protected]] En nombre de CARLOS Enviado el: martes, 16 de marzo de 2010 18:07 Para: 'forum.help400' Asunto: PROBLEMA CON STRPCCMD Os comento un problema que tengo Tengo una clp, para poder arrancar el google maps desde una 5250 PGM PARM(&DIRECCION) DCL VAR(&DIRECCION) TYPE(*CHAR) LEN(100) STRPCO MONMSG MSGID(CPF0000) MONMSG MSGID(IWS0000) MONMSG MSGID(IWS4010) STRPCCMD PCCMD('C:\ARRMAP.BAT' *BCAT &DIRECCION) PAUSE(*NO) MONMSG MSGID(CPF5192) ENDPGM El arrmap.bat tiene lo siguiente @echo off ECHO ARRANCAR GOOGLE MAPS rem si no se da parámetro terminar if "%1" == "" ECHO DEBE INTRODUCIR LA DIRECCION if "%1" == "" pause if "%1" == "" goto fin REM *** VISUALIZACION DE GOOGLE MAPS.**** cls cd c:\archiv~1\intern~1 START IEXPLORE.EXE http://maps.google.es/maps?q=%1 :FIN cd c:\windows exit Cuando lo ejecuto, se queda en la ventana del DOS,y no arranca el google maps. Por otra parte, si en la cp le quito el MONMSG MSGID(CPF5192) me da el siguiente error: Los datos enviados al dispositivo CSM01 no son válidos. El código de respuesta negativo es 1005012B. La información solicitada no puede volcarse. El puntero no hace referencia a ninguna ubicación. Error de función. MCH3601 no supervisado por QDMBKOUT en la sentencia *N, instrucción X'00AF'. El programa por omisión QDMBKOUT de *LIBL para el mensaje CPF5192 no está utilizable. ARRMAPA ha recibido CPF5192 en la sentencia 200. (C D I R) Estoy en versión V5R4. El iseries access es la versión 5.8 Alguien sabe qué hago mal?? Gracias
____________________________________________________ © 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
