Ver Mensaje Individual
  #8
Antiguo 11 de diciembre de 2018, 19:09
Galileo
Forero Junior
Última Actividad 22.01.2021 11:39
Posts Posts: 38
Likes enviados Enviados: 20
Likes recibidos Recibidos: 41

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 is offline   Responder Con Cita