Hola forum, tengo un cobol que tiene que
actualizar una dtaara y no hay manera. El código
fuente es el siguiente: ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER.
AS-400. OBJECT-COMPUTER.
AS-400.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA LOCAL-DATA IS
CONTROLCOB REQUESTOR IS
USUARIO. INPUT-OUTPUT SECTION. FILE-CONTROL. * DATA DIVISION. FILE SECTION. * WORKING-STORAGE
SECTION. 01
DATOS-DTAARA.
03 CAMPO1 PIC X.
01 MISDATOS PIC X. **** PROCEDURE DIVISION. ACCEPT DATOS-DTAARA FROM CONTROLCOB.
…….. …….. ……. DISPLAY
DATOS-DTAARA UPON CONTROLCOB. Gracias y un saludo a todos. |