[Sintaxis] Calculo entre dos fecha

[jmeza]

Hola, alguien me podría ayudar con una rutina de calculo entre dos fechas para RMCOBOL85
Tengo una pero no es exacta.
La que tengo de PawercobolV9 no funciona en Rmcobol

Saludos

[Kuk]

❞ La que tengo de PawercobolV9 no funciona en Rmcobol

Raro... A ver ese código, porque me extraña mucho que no funcione en RM. Salvo que sea alguna función puramente Fujitsu.

[jmeza]

❞ Raro... A ver ese código, porque me extraña mucho que no funcione en RM. Salvo que sea alguna función puramente Fujitsu.

Kuk, este es el código en rmcobol85, se cae en esta línea, CALL "DIFERMES" USING LNK-DIFER.
error 234 (no object file found) error loading subprogram DIFERMES.

Esta rutina la baje de la pagina y en powercobolv9 funciona sin problemas

WORKING-STORAGE SECTION.
       01 DIA PIC 99.
       01 MES PIC 99.
       01 ANO PIC 99.
       01 N-FECHA   PIC X(100).
       01 F-INICIAL PIC X(10).
       01 F-FINAL   PIC X(10).
       01 SV-FECHA    PIC X(10).     
       01 status-code PIC S9(4) COMP-5. 
       01 LNK-DIFER.
          COPY "CPY-DIFER.COB". 
 
PROCEDURE DIVISION.
       CALCULO-FECHA-CONTRATO.
           MOVE 1 TO DIF-OPCION.
           MOVE REM02-FECCONT TO F-INICIAL.
           MOVE F-INICIAL TO SV-FECHA.          
           MOVE SV-FECHA(1:2)       TO DIF-FECHA-1(1:2).
           MOVE SV-FECHA(4:2)       TO DIF-FECHA-1(3:2).
           MOVE SV-FECHA(7:4)       TO DIF-FECHA-1(5:4).
    
           MOVE AC-FECING TO F-FINAL.
           MOVE F-FINAL TO SV-FECHA.
           MOVE SV-FECHA(1:2)       TO DIF-FECHA-2(1:2).
           MOVE SV-FECHA(4:2)       TO DIF-FECHA-2(3:2).
           MOVE SV-FECHA(7:4)       TO DIF-FECHA-2(5:4).
     
           CALL "DIFERMES" USING LNK-DIFER.
           MOVE DIF-ANIOS TO ANO.
           MOVE DIF-MESES TO MES.
           MOVE DIF-DIAS  TO DIA.
           STRING ANO DELIMITED BY SIZE
                  " Años " DELIMITED BY SIZE
                  MES DELIMITED BY SIZE
                  " Meses " DELIMITED BY SIZE
                  DIA DELIMITED BY SIZE
                  " Dias" DELIMITED BY SIZE
                  INTO N-FECHA.
           DISPLAY N-FECHA LINE 18 POSITION 3.

[JCantero]

Es porque no te encuentra el programa "difermes".

Debes de localizarlo e intentar compilarlo para ver si te funciona.

[Kuk]

@JCantero, es una DLL, viene on una LIB pero no sé como se hará en RM para utilizarla.

[jmeza]

❞ Es porque no te encuentra el programa "difermes". Debes de localizarlo e intentar compilarlo para ver si te funciona.

JCantero, ya lo compile cero error, se cae al momento de ejecutar

Difermes, es un archivo oculto que no reconoce el Rmcobol

[Kuk]

@jmeza, yo tenía una rutina hecha hace muchos años, creo que la publiqué en el antiguo foro, y se llamaba así, DIFERMES

Bueno, al caso, coge este fuente y no necesitas librerías: [Aporte] DLL de cáculo de fecha y hora - COBOL Foro

[jmeza]

❞ @jmeza, yo tenía una rutina hecha hace muchos años, creo que la publiqué en el antiguo foro, y se llamaba así, DIFERMES Bueno, al caso, coge este fuente y no necesitas librerías: [Aporte] DLL de cáculo de fecha y hora - COBOL Foro

Lo resolví de este modo, para lo que necesitaba, saber la cantidad de años entre dos fechas

WORKING-STORAGE SECTION.
 
01 FECHA-INGRESO.
         02 AC-FECING      PIC 9(08).
         02 R-AC-FECING REDEFINES AC-FECING.
                  03  AA-FECING PIC 9(04).
                  03  MM-FECING PIC 9(02).
                  03  DD-FECING PIC 9(02).
01  VARI-ANTIGUEDAD.
           02 AC-FECCON      PIC 9(08).
           02 R-AC-FECCON REDEFINES AC-FECCON.
               03  AA-FECCON PIC 9(04).
               03  MM-FECCON PIC 9(02).
               03  DD-FECCON PIC 9(02).
           02 AC-DIATOT     PIC 9(05)V999.
           02 AC-MESTOT   PIC 9(03)V999.
           02 AC-ANOTOT   PIC 9(02)V999.
           02 FECHA1         PIC 9(08).
           02 FECHA2         PIC 9(08).
 
PROCEDURE DIVISION.
       CALCULO-FECHA-CONTRATO.
           MOVE 0 TO AC-DIATOT AC-MESTOT AC-ANOTOT
           MOVE REM02-FECCONT TO AC-FECCON 
           COMPUTE FECHA1 = (AA-FECCON * 365.25) + DANO(MM-FECCON) +
                             DD-FECCON
           COMPUTE FECHA2 = (AA-FECING * 365.25) + DANO(MM-FECING) +
                             DD-FECING
           IF  FECHA1 > FECHA2
               MOVE " !! Fecha < a la Primera !! " TO MENSAJE
               PERFORM EMITE-MENSAJE
           ELSE 
               COMPUTE AC-DIATOT ROUNDED = FECHA1 - FECHA2
               COMPUTE AC-MESTOT ROUNDED = (AC-DIATOT / 30) 
               COMPUTE AC-ANOTOT ROUNDED = (AC-DIATOT / 365.25).

Comentario de Moderador Usa los botones de resalto de sintaxis