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.

Responder a