Ejemplo para compartir variables entre programas . Declarar las variables en WORKING del mainform.
Program A
Código COBOL:
DATA-WORKING-STORAGE
01 PROCESO-FECHA IS EXTERNAL GLOBAL.
03 FED-DD PIC 99.
03 FED-MM PIC 99.
03 FED.
05 FED-SG PIC 99.
05 FED-AA PIC 99.
PROCEDURE DIVISION.
MOVE 06 TO FED-DD.
MOVE 04 TO FED-MM.
MOVE 20 TO FED-SG.
MOVE 22 TO FED-AA.
Program B
Código COBOL:
DATA-WORKING-STORAGE
01 PROCESO-FECHA IS EXTERNAL GLOBAL.
03 FED-DD PIC 99.
03 FED-MM PIC 99.
03 FED.
05 FED-SG PIC 99.
05 FED-AA PIC 99.
Opened del mainform
Código COBOL:
display "Fecha Proceso" , FED-DD , FED-MM , FED.
Saludos....