Citación del post de
Kuk
|
❞
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
Código COBOL:
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.