Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Nombre de campo dentro de variable. Alberto IBM Enterprise COBOL 10 11 de junio de 2020 16:04
[Sintaxis] Actualizar campo en una hoja de Excel orlando PowerCOBOL (ActiveX, v4 - v11) 1 17 de noviembre de 2019 20:57
[Windows 10] SqlServer Express 2014 / Win10 Home Edition Hrmcobol Microsoft Windows 1 1 de agosto de 2018 12:42
[Información] Reducir tamaño campo Gatomalo RM/COBOL 4 24 de noviembre de 2017 03:30
[Información] Tamaño de campo Josber PowerFORM 2 16 de diciembre de 2015 18:47
Respuesta
 
Herramientas

  #1
Antiguo 10 de abril de 2021, 21:28
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
70 años
01.03.2022 01:59
PROCEDURE DIVISION
Posts: 327
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 19
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado SqlServer Campo DateTime y Date

Estimados, como andan !!
Como los Trata el Amigo Covid? Yo me he vacunado con la Sputnic-5 Así que ahora hablo Ruso el perfectamente !!! jajajajaj
.
Tengo un problema con una tabla de SqlServer en la que tengo que grabar dos campos, uno DateTime y otro Date. Y no logro encontrar la compatibilidad con PW9.

Alguien sabe como declararlos?!

Abrazo a todos y disculpas por estar medio perdido pero me time uno tiempo de paz y tranquilidad y en abril he vuelto al COBOL.

Hrm
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 11 de abril de 2021, 00:53
IDENTIFICATION DIVISION
Nino
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Nino
DATA DIVISION
septiembre 2019
Santiago De Chile
23.11.2021 11:46
PROCEDURE DIVISION
Posts: 5
Enviado: 3
Recibido: 9
Soluciones: 1
Reputación: 0
Nino is an unknown quantity at this point
Predeterminado

Hola HRM
Me alegro muchísimo de poder colaborar.
He aquí la solución:
a) El campo a "estampar" debes PIC X(19).
b) Su composición debe ser llenada con esta estructura:
YYYY '/' MM '/' DD ' ' HOR ':' MIN ':' SEG *> Notar que se usa sólo hasta SEGUNDOS. La milésima de segundo NO SE ESTAMPA.
... entonces, el modelo de registro es:
Código COBOL:
  1. STRING
  2.       YYYY  '/' MM '/' DD ' ' HOR ':' MIN ':' SEG *> Notar que se usa sólo hasta SEGUNDOS. La milésima de segundo NO SE ESTAMPA.
  3.      DELIMITED SIZE
  4.      INTO WSS_FECHA_Y_HORA *> Este es el campo SQL definido en la WSS
c) Debes usar el separador de fecha "/". El separador "-" NO FUNCIONA !!

Este programa lo fabriqué para probar. Funciona tanto para Postgres SQL como para SQL Server (los probé en ambos).

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 TODAY PIC X(16).
  5.  01 FECHA-Y-HORA REDEFINES TODAY.
  6.    05 FECHA-HOY.
  7.      10 YYYY PIC X(4).
  8.      10 MM   PIC X(2).
  9.      10 DD   PIC X(2).
  10.    05 HORA-HOY.
  11.      10 HOR  PIC 99.
  12.      10 MIN  PIC 99.
  13.      10 SEG  PIC 99.
  14.      10 MDS  PIC 99.
  15.  
  16.      EXEC SQL BEGIN DECLARE SECTION END-EXEC.
  17.  01 WSS_FECHA_Y_HORA         PIC X(19).
  18.      EXEC SQL END DECLARE SECTION END-EXEC.
  19.  
  20.  PROCEDURE       DIVISION.
  21.      MOVE FUNCTION CURRENT-DATE TO TODAY *> Función para obtener la fecha y la hora deseada
  22.      DISPLAY TODAY '<-TODAY luego de ejecutar MOVE FUNCTION CURRENT-DATE TO TODAY'
  23.      MOVE SPACES TO WSS_FECHA_Y_HORA
  24.      STRING
  25.       YYYY  '/' MM '/' DD ' ' HOR ':' MIN ':' SEG *> Notar que se usa sólo hasta SEGUNDOS. La milésima de segundo NO SE ESTAMPA.
  26.      DELIMITED SIZE
  27.      INTO WSS_FECHA_Y_HORA
  28.      DISPLAY WSS_FECHA_Y_HORA '<- Así queda el campo luego de llenado'
  29.  *>**************************
  30.  *> CONECTAMOS SERVIDOR SQL *
  31.  *>**************************
  32.      EXEC SQL CONNECT TO DEFAULT END-EXEC
  33.      CALL "Analiza-Mensaje-Error-SQL"
  34.  *>************************
  35.  *>************************
  36.      MOVE 76080362          TO MRP_SLC_ID_GIMNASIO   *> Usado para probar el programa ejemplo. Debes usar tus propios elementos de registro.
  37.      MOVE 16963676          TO MRP_SLC_RUT           *> Usado para probar el programa ejemplo. Debes usar tus propios elementos de registro.
  38.      MOVE 1                 TO MRP_SLC_ID_SOLICITUD  *> Usado para probar el programa ejemplo. Debes usar tus propios elementos de registro.
  39.     *>  fecha_solicitud es el campo DateTime de la tabla SQL que se requiere actualizar (UPDATE)
  40.      EXEC SQL
  41.       UPDATE solicitud
  42.        SET fecha_solicitud = :WSS_FECHA_Y_HORA
  43.       WHERE id_gimnasio    = :MRP_SLC_ID_GIMNASIO AND
  44.             rut            = :MRP_SLC_RUT         AND
  45.             id_solicitud   = :MRP_SLC_ID_SOLICITUD
  46.      END-EXEC
  47.      CALL "Analiza-Mensaje-Error-SQL". *> Esta es una rutina que valida la acción sobre la tabla.
  48.  *>*****************************
  49.  *> DESCONECTAMOS SERVIDOR SQL *
  50.  *>*****************************
  51.      EXEC SQL DISCONNECT DEFAULT END-EXEC
  52.      CALL "Analiza-Mensaje-Error-SQL".
  53.  *>*****************************
  54.  *>*****************************

Mensaje de MODERADOR

Usa los botones de resalto de sintaxis
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  Captura1.JPG
Vistas: 90
Tamaño:  47,3 KB   Pulsar la imagen para la versión amplia
Nombre:  Captura2.JPG
Vistas: 92
Tamaño:  22,4 KB   Pulsar la imagen para la versión amplia
Nombre:  Captura3.JPG
Vistas: 92
Tamaño:  43,7 KB   Pulsar la imagen para la versión amplia
Nombre:  Captura4.JPG
Vistas: 93
Tamaño:  63,6 KB  

Última edición por Kuk fecha: 11 de abril de 2021 a las 13:31. Razón: Resalto de sintaxis
Nino no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
David (23 de mayo de 2021), Hrmcobol (30 de mayo de 2021), Josber (11 de abril de 2021)
  #3
Antiguo 26 de mayo de 2021, 10:45
IDENTIFICATION DIVISION
David
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de David
DATA DIVISION
junio 2020
El Vendrell
68 años
25.02.2022 12:37
PROCEDURE DIVISION
Posts: 5
Enviado: 9
Recibido: 0
Soluciones: 0
Reputación: 0
David is an unknown quantity at this point
Predeterminado

Hola Nino.

Estupendo tu aporte sobre el campo FECHA HORA.
He tenido un pequeño inconveniente con el, lo atribuyo a la configuración de SQL-Server

La instruccion:
Código COBOL:
  1.       STRING   YYYY  '/' MM '/' DD ' ' HOR ':' MIN ':' SEG  DELIMITED SIZE INTO WSS_FECHA_Y_HORA

La he Tenido que cambiar por:
Código COBOL:
  1.      STRING   YYYY  '-' MM '-' DD 'T' HOR ':' MIN ':' SEG  DELIMITED SIZE INTO WSS_FECHA_Y_HORA

Cambiando el "/" por "-" y El " " por "T" como delimitadores.


Mensaje de MODERADOR

Usa los botones de resalto de sintaxis


Saludos

Última edición por Kuk fecha: 26 de mayo de 2021 a las 11:21. Razón: Usa los botones de resalto de sintaxis ;)
David no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 07:56.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.