Hi, I'm Ask INFA!
What would you like to know?
ASK INFAPreview
Please to access Ask INFA.

Table of Contents

Search

  1. Preface
  2. Using the Designer
  3. Working with Sources
  4. Working with Flat Files
  5. Working with Targets
  6. Mappings
  7. Mapplets
  8. Mapping Parameters and Variables
  9. Working with User-Defined Functions
  10. Using the Debugger
  11. Comparing Objects
  12. Managing Business Components
  13. Creating Cubes and Dimensions
  14. Using the Mapping Wizards
  15. Appendix A: Datatype Reference

Designer Guide

Designer Guide

Importing COBOL Sources

Importing COBOL Sources

The Designer uses the data structures stored in the Data Division of a COBOL program to create a source definition. When you import a COBOL file, the Designer looks for a specific COBOL file format, which is different than the standard ANSI format.
The Designer looks for a COBOL file format similar to the following example:
       identification division.        program-id. mead.        environment division.            select file-one assign to "fname".        data division.        file section.        fd  FILE-ONE.         01  SCHOOL-REC.            02  SCHOOL-ID                PIC 9(15).            02  SCHOOL-NM                PIC X(25).            02  CLASS-REC                OCCURS 2 TIMES.                03  CLASS-ID             PIC 9(5).                03  CLASS-NM             PIC X(25).                03  STUDENT-REC       OCCURS 5 TIMES.                    04  STUDENT-ID       PIC 9(15).                    04  STUDENT-NM       PIC X(25).                    04  PARENT-REC    OCCURS 2 TIMES.                        05 PARENT-ID     PIC 9(15).                        05 PARENT-NM     PIC X(25).                 03  TEACHER-REC       OCCURS 3 TIMES.                    04  TEACHER-ID       PIC 9(15).                    04  TEACHER-NM       PIC X(25).              02  SPORT-REC             OCCURS 2 TIMES.                 03  SPORT-TEAM          PIC X(30).        working-storage section.        procedure division.            stop run.

0 COMMENTS

We’d like to hear from you!