Tema: Leer archivo .ini
Ver Mensaje Individual
  #3
Antiguo 6 de septiembre de 2017, 23:27
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 30.09.2026 19:12
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243
Predeterminado
1
Likes

Fito

 Inactivo Inactivo
Estas lineas que mando lee un archivo . ini donde se lee los baudios y la puerta de comunicacion
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  PARM1      PIC X(128).
  3.  01  PARM2      PIC X(128).
  4.  01  PARM3      PIC S9(9) COMP-5.
  5.  01  PARM4      PIC X(128).
  6.  01  PARM5      PIC S9(9) COMP-5.
  7.  PROCEDURE       DIVISION.
  8.      MOVE   "Comunica"  to  PARM1       *> Application name
  9.      MOVE   "baud"          to  PARM2       *> Key Name
  10.      MOVE   2               TO  PARM3       *> Default value
  11.      MOVE   strIniFile      to  PARM4
  12.      CALL   "GetPrivateProfileIntA" WITH STDCALL LINKAGE
  13.             USING   BY REFERENCE    PARM1
  14.                                     PARM2
  15.                     BY VALUE        PARM3
  16.                     BY REFERENCE    PARM4
  17.                     RETURNING       PARM5
  18.                     
  19.      EVALUATE   PARM5
  20.             WHEN    1
  21.                     MOVE    "9600"  TO  "TEXT"  OF  CMTEXT2
  22.             WHEN    3
  23.                     move    "38400" TO  "TEXT"  OF  CMTEXT2
  24.             WHEN    OTHER
  25.                     MOVE    "19200" TO  "TEXT"  OF  CMTEXT2
  26.      END-EVALUATE
  27.  
  28.      MOVE   "Comunica"  to  PARM1       *> Application name
  29.      MOVE   "puerta"            to  PARM2       *> Key Name
  30.      MOVE   1               TO  PARM3       *> Default value
  31.      MOVE   strIniFile      to  PARM4
  32.      CALL   "GetPrivateProfileIntA" WITH STDCALL LINKAGE
  33.             USING   BY REFERENCE    PARM1
  34.                                     PARM2
  35.                     BY VALUE        PARM3
  36.                     BY REFERENCE    PARM4
  37.                     RETURNING       PARM5
  38.                     
  39.      MOVE   PARM5   TO      "TEXT"  OF  CMTEXT1.
fastpho is offline   Responder Con Cita