COBOL - Trabalhando na Working-Storage Section


Volta a página anterior

Volta ao Menu Principal


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

Tabela de meses na WORKING-STORAGE 
       Codificação antiga
       
         1         2         3         4         5         6         7         8
12345678901234567890123456789012345678901234567890123456789012345678901234567890

       01  WS-AUXILIARES.                                               
           05 TAB-NOME-MES.
              10  FILLER                 PIC X(009) VALUE "JANEIRO  ".
              10  FILLER                 PIC X(009) VALUE "FEVEREIRO".
              10  FILLER                 PIC X(009) VALUE "MARCO    ".
              10  FILLER                 PIC X(009) VALUE "ABRIL    ".
              10  FILLER                 PIC X(009) VALUE "MAIO     ".
              10  FILLER                 PIC X(009) VALUE "JUNHO    ".
              10  FILLER                 PIC X(009) VALUE "JULHO    ".
              10  FILLER                 PIC X(009) VALUE "AUGUSTO  ".
              10  FILLER                 PIC X(009) VALUE "SETEMBRO ".
              10  FILLER                 PIC X(009) VALUE "OUTUBRO  ".
              10  FILLER                 PIC X(009) VALUE "NOVEMBRO ".
              10  FILLER                 PIC X(009) VALUE "DEZEMBRO ".
           05 TAB-NOME-MES-R             REDEFINES  TAB-NOME-MES.
              10  NOME-MES               PIC X(009) OCCURS 12 TIMES.
       
       Nova codificação
		 
       01  WS-AUXILIARES.                                               
           05  TAB-NOME-MES              VALUE                                
               "JANEIRO  FEVEREIROMARCO    ABRIL    MAIO     JUNHO    JU
      -        "LHO    AGOSTO   SETEMBRO OUTUBRO  NOVEMBRO DEZEMBRO ".  
               10  NOME-MES              PIC X(009) OCCURS 12 TIMES.