COBOL - COPY0001 - DFHCOMMAREA- Tratamento de imagens no DB2


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com


COBOL - COPY0001 - DFHCOMMAREA - LINKAGE SECTION - Tratamento de imagens no DB2 
           02 STREAM.                                                   
              03 STREAM-IO-EXCECAO.                                     
                 05 STREAM-IO-ERRO-CICS        PIC 9(003).              
                 05 STREAM-IO-NU-MENSAGEM      PIC 9(004).              
                 05 STREAM-IO-NO-MENSAGEM      PIC X(078).              
                 05 STREAM-IO-NU-SQLCODE       PIC -9(3).               
              03 STREAM-IO-IDENTIFICACAO.                               
                 04 STREAM-IO-NOME-PGM         PIC X(008).              
                 04 STREAM-IO-CO-USUARIO       PIC X(008).              
                 04 STREAM-IO-CO-FUNCAO        PIC X(002).              
              03 STREAM-IO-ENTRADA-SAIDA.                               
                 04 STREAM-IO-CONTEUDO-TAM     PIC 9(005).              
                 04 STREAM-IO-CONTEUDO.                                 
                   05 FILLER  PIC X(001) OCCURS 1 TO 20000              
                              DEPENDING ON STREAM-IO-CONTEUDO-TAM.