Iniciado por
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
COBOL Código:
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.
Marcadores