Tema: [Aporte] Google Maps localización
Ver Mensaje Individual
  #8
Antiguo 11 de diciembre de 2018, 19:09
IDENTIFICATION DIVISION
Galileo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Galileo
DATA DIVISION
Forero desde (Registrado)junio 2015
España
UbicaciónMurcia
Última Actividad13.12.2018 19:27
PROCEDURE DIVISION
PostsPosts: 37
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 34
Mejores respuestasSoluiones: 7
ReputaciónReputación: 0
Galileo is on a distinguished road Galileo is on a distinguished road Galileo is on a distinguished road
Predeterminado

Esto funciona en PowerCOBOL 3.0:

Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 LLAMADA.
  5.     02  FILLER  PIC X(9) VALUE "explorer ".
  6.     02  FILLER  PIC X(1) VALUE QUOTE.
  7.     02  FILLER  PIC X(69) VALUE "http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@".
  8.     02  DIRECC  PIC X(80) VALUE SPACES.
  9.     02  FILLER  PIC X(13) VALUE "@&ie=UTF8&t=m".
  10.     02  FILLER  PIC X(1) VALUE QUOTE.
  11.  PROCEDURE   DIVISION.
  12.     MOVE "fuenlabrada+madrid" TO DIRECC.
  13.     CALL EXECAPL OF SHEET1 USING LLAMADA.

En DIRECC pueden quedar muchos espacios al final, pero se gestionan automáticamente, por lo que no es un problema.
Galileo no ha iniciado sesión   Responder Con Cita