Guia do Usuário do Navegador

10.5.6
- 10.5.5
- 10.5.4
- 10.5.3
- 10.5.2
- 10.5.1
- 10.5
- 10.4.1
- 10.4.0 HotFix 1
- 10.4.0

Anterior Avançar

Exemplo de saída de rastreamento para um mapa de memória COBOL

Se você especificar a instrução TRACE=(COBDTL,0,99) no arquivo de configuração DBMOVER, o Navegador do PowerExchange poderá gerar uma saída de rastreamento que descreve o mapa de memória do registro de dados de origem ao importar um copybook COBOL em um mapa de dados no Navegador do PowerExchange.

Por exemplo, suponha que você esteja importando o seguinte copybook COBOL:

      01  TESTREC1.                                      
         02  REC1-1.                                      
           05  ITEM-1.                                    
               10  ITEM-1-1            PIC  X(4).         
               10  ITEM-1-2            PIC  X(4).         
           05  ITEM-2.                                    
               10  ITEM-2-1            PIC  X(4).         
           05  ITEM-3.                                    
               10  ITEM-3-1            OCCURS 4 TIMES.    
                   15  ITEM-3-1-1      PIC XX.            
           05  FILLER REDEFINES ITEM-3.                   
                   15  ITEM-4-1-1      PIC XX.            
                   15  ITEM-4-1-2      PIC XX.            
                   15  ITEM-4-1-3      PIC XX.            
                   15  ITEM-4-1-4      PIC XX. 
           ...

Com base nesse copybook COBOL, o Navegador do PowerExchange gera a seguinte saída de rastreamento:

COBOL Memory Map for TESTREC1

 1  01 TESTREC1                                0CL121       pad 0    type G occurs 0       00000000 (     0) last NEW_2
... 2  02 REC1_1                               0CL42        pad 0    type G occurs 0       00000000 (     0) last ITEM_8_1_2
...... 3  05 ITEM_1                            0CL8         pad 0    type G occurs 0       00000000 (     0) last ITEM_1_2
......... 4  10 ITEM_1_1                       CL4          pad 0    type D occurs 0       00000000 (     0)
......... 4  10 ITEM_1_2                       CL4          pad 0    type D occurs 0       00000004 (     4)
...... 3  05 ITEM_2                            0CL4         pad 0    type G occurs 0       00000008 (     8) last ITEM_2_1
......... 4  10 ITEM_2_1                       CL4          pad 0    type D occurs 0       00000008 (     8)
****** 3  05 ITEM_3                            0CL8         pad 22   type R occurs 0       0000000C (    12) last ITEM_3_1_1
......... 4  10 ITEM_3_1                       0CL8         pad 0    type O occurs 4       0000000C (    12) last ITEM_3_1_1
............ 5  15 ITEM_3_1_1                  CL2          pad 0    type D occurs 0       0000000C (    12)
====== 3  05 FILLER                            0CL8         pad 22   type R occurs 0       0000000C (    12) last ITEM_4_1_4
......... 4  15 ITEM_4_1_1                     CL2          pad 0    type D occurs 0       0000000C (    12)
......... 4  15 ITEM_4_1_2                     CL2          pad 0    type D occurs 0       0000000E (    14)
......... 4  15 ITEM_4_1_3                     CL2          pad 0    type D occurs 0       00000010 (    16)
......... 4  15 ITEM_4_1_4                     CL2          pad 0    type D occurs 0       00000012 (    18)
...

Essa saída de rastreamento inclui as seguintes informações:

Posição hierárquica seguida pelo nível COBOL. Por exemplo, na linha a seguir, "1" é a posição hierárquica e "01" é o nível COBOL:

1  01 TESTREC1

Nome do registro. Por exemplo: TESTREC1.

Comprimento do item ou do grupo. Por exemplo: OCL8 para um grupo e CL4 para um item.

Preenchimento. Os valores de preenchimento refletem qualquer campo FILLER_REDEF_nn que o PowerExchange adiciona ao mapa de dados quando REDEFINE tem muitas redefinições de comprimentos variados. O preenchimento e os deslocamentos devem ser consistentes.

Tipo de item: G para grupo, D para exibição ou R para um grupo REDEFINES.

O primeiro grupo de redefinições é precedido por uma série de asteriscos (*). Grupos de redefinições subsequentes são precedidos por sinais de igual (=).

Valor OCCURS ou 0 se nenhuma cláusula OCCURs for definida.

Deslocamento em formatos hexadecimais e decimais. O deslocamento decimal é colocado entre parênteses.

Último item dependente em um grupo.

Compare a saída de rastreamento com a seguinte saída do compilador COBOL:

Source   Hierarchy and                                    Base      Displacement  Asmblr Data                      Data Def     
LineID   Data Name                                        Locator     Structure   Definition        Data Type      Attributes   
     2  PROGRAM-ID UAMC--------------------------------------------------------------------------------------------------------*
    17   1  TESTREC1. . . . . . . . . . . . . . . . . . .             000000000   DS 0CL121         Group                       
    18     2  REC1-1. . . . . . . . . . . . . . . . . . .             000000000   DS 0CL42          Group                       
    19       3  ITEM-1. . . . . . . . . . . . . . . . . .             000000000   DS 0CL8           Group                       
    20         4  ITEM-1-1. . . . . . . . . . . . . . . .             000000000   DS 4C             Display                     
    21         4  ITEM-1-2. . . . . . . . . . . . . . . .             000000004   DS 4C             Display                     
    22       3  ITEM-2. . . . . . . . . . . . . . . . . .             000000008   DS 0CL4           Group                       
    23         4  ITEM-2-1. . . . . . . . . . . . . . . .             000000008   DS 4C             Display                     
    24       3  ITEM-3. . . . . . . . . . . . . . . . . .             00000000C   DS 0CL8           Group                       
    25         4  ITEM-3-1. . . . . . . . . . . . . . . .             00000000C   DS 0CL2           Group          O            
    26           5  ITEM-3-1-1. . . . . . . . . . . . . .             00000000C   DS 2C             Display                     
    27       3  FILLER. . . . . . . . . . . . . . . . . .             00000000C   DS 0CL8           Group          R            
    28         4  ITEM-4-1-1. . . . . . . . . . . . . . .             00000000C   DS 2C             Display                     
    29         4  ITEM-4-1-2. . . . . . . . . . . . . . .             00000000E   DS 2C             Display                     
    30         4  ITEM-4-1-3. . . . . . . . . . . . . . .             000000010   DS 2C             Display                     
    31         4  ITEM-4-1-4. . . . . . . . . . . . . . .             000000012   DS 2C             Display
...

Observe que o rastreamento fornece as seguintes informações adicionais: nível COBOL, preenchimento, valor OCCURS, deslocamento no formato decimal e nome do último item em um grupo. Ele também identifica claramente os itens de redefinição.

Apêndice G: Rastreamento para criar um mapa de memória ao importar um copybook COBOL

Baixar guia

Enviar comentários

Communities

Knowledge Base

Portal de Sucesso

Rename Saved Search

Sumário

Guia do Usuário do Navegador

Guia do Usuário do Navegador

Exemplo de saída de rastreamento para um mapa de memória COBOL

Exemplo de saída de rastreamento para um mapa de memória COBOL