Sumário

Search

  1. Prefácio
  2. Introdução aos Utilitários do PowerExchange
  3. createdatamaps - Utilitário de Criação do Mapa de Dados
  4. DTLCCADW - Utilitário Adabas PCAT
  5. DTLCUIML - Utilitário Marcador do Log do IMS
  6. DTLINFO - Utilitário de Informações de Liberação
  7. DTLREXE - Utilitário de Execução Remota
  8. DTLUAPPL - Utilitário de Token de Reinicialização
  9. DTLUCBRG - Utilitário de Registro em Lotes
  10. DTLUCDEP - Utilitário de Manutenção CDEP
  11. DTLUCSR2 - Utilitário de Registros IDMS SR2 e SR3
  12. DTLUCUDB - Utilitário do DB2 para Linux, UNIX e Windows CDC
  13. DTLULCAT e DTLULOGC - Utilitários de Catálogo de Logs IDMS
  14. DTLURDMO - Utilitário de Mapa de Dados
  15. DTLUTSK - Utilitário de Controle de Tarefa
  16. EDMLUCTR - Utilitário de Digitalização e Impressão de Log
  17. EDMXLUTL - Utilitário do Marcador de Eventos
  18. HOSTENT - Utilitário Gerador de Relatórios de Endereços TCP/IP
  19. PWXCATMY - Utilitários de catálogo do MySQL
  20. PWXUCCLPRT - Utilitário de resumo de log de impressão
  21. PWXUCDCT - Utilitário do Agente de Log do PowerExchange para Linux, UNIX e Windows
  22. PWXUCREG - Utilitário de Suspensão de Registro de Captura
  23. PWXUCRGP - Utilitário de Impressão de Registros de Captura
  24. PWXUDMX - Utilitário de Memória ECSA de Hora de Atualização dos Mapas de Dados
  25. PWXUGSK - Utilitário de Relatório SSL do z/OS
  26. PWXUMAP - Utilitário de lista de mapas
  27. PWXUSSL - Utilitário de Relatório SSL do PowerExchange

Exemplo: Copybooks COBOL com Campos de RID

Exemplo: Copybooks COBOL com Campos de RID

Os exemplos a seguir mostram copybooks COBOL com redefinições e campos de RID. Para ambos desses exemplos, você pode configurar o utilitário createdatamaps para localizar o campo de RID ou usar o deslocamento de campo especificado e associar os valores RID com layouts de registro diferentes.
O exemplo a seguir mostra um copybook COBOL com um único nível 01, instruções REDEFINE e um campo de RID:
00001 * TRAIN6 EXAMPLE COBOL COPYBOOK 00002 01 MASTER_REC. COL 73-80 00003 05 ACCOUNT_NO PIC X(9). COL 73-80 00004 05 REC_TYPE PIC X. COL 73-80 00005 05 AMOUNT PIC S9(4)V99 COMP-3. COL 73-80 00006 05 BIN-NO PIC S9(8) COMP. COL 73-80 00007 05 BIN-NO-X REDEFINES BIN-NO PIC XXXX. COL 73-80 00008 05 DECIMAL-NO PIC S999. COL 73-80 00009 05 MASTER-DATE. COL 73-80 00010 10 DATE-YY PIC 9(2). COL 73-80 00011 10 DATE-MM PIC 9(2). COL 73-80 00012 10 DATE-DD PIC 9(2). COL 73-80 00013 05 MASTER-DOB REDEFINES MASTER-DATE. COL 73-80 00014 10 YYMMDD PIC XXXXXX. COL 73-80 00015 05 ACT_TYPE PIC X. COL 73-80 00016 05 OTHER-DATE. COL 73-80 00017 10 ODATE-YY PIC 9(2). COL 73-80 00018 10 ODATE-MM PIC 9(2). COL 73-80 00019 10 ODATE-DD PIC 9(2). COL 73-80 00020 05 OTHER-DOB REDEFINES OTHER-DATE. COL 73-80 00021 10 OYYMMDDTT PIC 9(8). COL 73-80 00022 05 OTHER_TYPE PIC X. COL 73-80
O utilitário createdatamaps pode identificar o campo de RID, REC_TYPE. Além disso, para cada layout de registro correspondente a todos os registros de dados que têm determinado valor RID, o utilitário pode atribuir um valor RID ao registro no mapa de dados.
O exemplo a seguir mostra um copybook COBOL com vários níveis 01, em que cada nível 01 define um tipo de registro e tem um campo de RID:
* train3.cob, fixed length records 60 bytes long 01 NAME_REC. 04 ACCOUNT PIC 9(3). 04 RECTYPE PIC 9(2). 04 NAME PIC X(20). 04 SEX PIC X. 04 ITEMCT PIC 9. 04 ITEMS OCCURS 3 DEPENDING ON ITEMCT PIC X(10). 04 FILLER PIC XXX. 01 ACCOUNT_REC. 04 ACCOUNT PIC 9(3). 04 RECTYPE PIC 9(2). 04 AMOUNT PIC 9(9)V99. 04 POLICY_DATE PIC X(8). 04 FILLER PIC X(36).
O utilitário createdatamaps pode identificar o campo de RID, RECTYPE, para cada tipo de registro e associar o tipo de registro a um valor RID.