Table of Contents

Search

  1. Preface
  2. Introduction to PowerExchange Utilities
  3. createdatamaps - Data Map Creation Utility
  4. DTLCCADW - Adabas PCAT Utility
  5. DTLCUIML - IMS Log Marker Utility
  6. DTLINFO - Release Information Utility
  7. DTLREXE - Remote Execution Utility
  8. DTLUAPPL - Restart Token Utility
  9. DTLUCBRG - Batch Registration Utility
  10. DTLUCDEP - CDEP Maintenance Utility
  11. DTLUCSR2 - IDMS SR2 and SR3 Records Utility
  12. DTLUCUDB - DB2 for Linux, UNIX, and Windows CDC Utility
  13. DTLULCAT and DTLULOGC - IDMS Log Catalog Utilities
  14. DTLURDMO - Data Map Utility
  15. DTLUTSK - Task Control Utility
  16. EDMLUCTR - Log Scan and Print Utility
  17. EDMXLUTL - Event Marker Utility
  18. HOSTENT - TCP/IP Address Reporter Utility
  19. PWXCATMY - MySQL Catalog Utility
  20. PWXUCCLPRT - Print Log Summary Utility
  21. PWXUCDCT - Logger for Linux, UNIX, and Windows Utility
  22. PWXUCREG - Capture Registration Suspend Utility
  23. PWXUCRGP - Capture Registrations Print Utility
  24. PWXUDMX - Data Maps Update Time ECSA Memory Utility
  25. PWXUGSK - SSL Reporting Utility for z/OS
  26. PWXUMAP - Map List Utility
  27. PWXUSSL - PowerExchange SSL Reporting Utility

Example COBOL Copybooks with RID Fields

Example COBOL Copybooks with RID Fields

The following examples show COBOL copybooks with redefinitions and RID fields. For both of these examples, you can configure the createdatamaps utility fo find the RID field, or use the field offset that you specify, and associate RID values with different record layouts.
The following example shows a COBOL copybook with a single 01 level, REDEFINE statements, and an RID field:
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
The createdatamaps utility can identify the RID field, REC_TYPE. Also, for each record layout that matches all of the data records that have a given RID value, the utility can assign an RID value to the record in the data map.
The following example shows a COBOL copybook with multiple 01 levels, where each 01 level defines a record type and has an RID field:
* 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).
The createdatamaps utility can identify the RID field, RECTYPE, for each record type and associate the record type with an RID value.

0 COMMENTS

We’d like to hear from you!