[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | Datamart & Datawarehouse tools support |
|
| Moderator: | HERON::ROWLANDS |
|
| Created: | Thu Nov 28 1996 |
| Last Modified: | Wed Jun 04 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 45 |
| Total number of notes: | 155 |
34.0. "COBOL files" by HERON::ROWLANDS (Rob Rowlands @vbo 828 5480) Fri Apr 04 1997 16:29
Note that for Informatica to use VSAM sources in the SOURCE ANALYZER, you need
to supply a COBOL PROGRAM formatted in ANSI mode - that is to say with all the
columns offset correctly inthe old traditional way.
Many cobol compilers (like Digital's) allow you write code in 'terminal'
format, where the column positioning has no importance. To convert these
terminal format programs to ANSI format, the DEC COBOL compiler provides a
utility called 'reformat'. Just $MC reformat on VMS or on UNIX 'reformat' to
change the format of the code.
You can copy the VMS version of reformat from any VMS node SYS$SYSTEM directory
where the COBOL compiler is installed - such as DELOS:: ...
Here's an example of a file which Informatica successfully analyzes:
000010 From: Unknown[SMTP:Unknown] ACMSMASF
000020 Sent: vendredi 4 avril 1997 11:22 ACMSMASF
000030 Subject: A:\CMSMASF2.CBL ACMSMASF
000040 ACMSMASF
000050 Identification DIVISION. ACMSMASF
000060 PROGRAM-ID. CARDDEL. ACMSMASF
000070 ACMSMASF
000080 ENVIRONMENT DIVISION. ACMSMASF
000090 CONFIGURATION SECTION. ACMSMASF
000100 SOURCE-COMPUTER. TANDEM. ACMSMASF
000110 OBJECT-COMPUTER. TANDEM. ACMSMASF
000120 ACMSMASF
000130 INPUT-OUTPUT SECTION. ACMSMASF
000140 FILE-CONTROL. ACMSMASF
000150 ACMSMASF
000160 SELECT CMSMASF-FILE ACMSMASF
000170 ASSIGN TO DYNAMIC ACMSMASF
000180 ORGANISATION IS INDEXED. ACMSMASF
000190* ACCESS MODE IS DYNAMIC ACMSMASF
000200* RECORD KEY IS MAS-KEY OF CMSMASF-RECORD ACMSMASF
000210* ALTERNATE RECORD KEY IS CAN OF CMSMASF-RECORD ACMSMASF
000220* FILE STATUS IS FILESTAT. ACMSMASF
000230 ACMSMASF
000240 ACMSMASF
000250* Record CMSMASF created on 03/24/94 at 12:03 ACMSMASF
000260 ACMSMASF
000270 DATA DIVISION. ACMSMASF
000280 FILE SECTION. ACMSMASF
000290 ACMSMASF
000300 FD CMSMASF-FILE ACMSMASF
000310 LABEL RECORDS ARE STANDARD. ACMSMASF
000320 01 CMSMASF-RECORD. ACMSMASF
000330 ACMSMASF
000340 05 CMSMASF. ACMSMASF
000350 06 CMS. ACMSMASF
000360 07 MAS-KEY. ACMSMASF
000370 08 FI-ID PIC X(10). ACMSMASF
000380 08 CAN PIC 9(16). ACMSMASF
000390 08 CAN-RED REDEFINES CAN. ACMSMASF
000400 09 CAN-RED-1 PIC 9(6). ACMSMASF
000410 09 CAN-RED-2 PIC 9(2). ACMSMASF
000420 09 CAN-RED-3 PIC 9(8). ACMSMASF
000430 07 CARD-SN PIC X(16). ACMSMASF
000440 07 CARD-STATUS PIC 9(2). ACMSMASF
000450 07 STATUS-DATE PIC 9(8). ACMSMASF
000460 07 ISSUE-DATE PIC 9(8). ACMSMASF
000470 07 SALE-DATE PIC 9(8). ACMSMASF
000480 07 MERCHANT-ID PIC 9(12). ACMSMASF
000490 07 LAST-TRAN-TYPE PIC 9(2). ACMSMASF
000500 07 LAST-TRAN-DATE PIC 9(8). ACMSMASF
000510 07 LAST-TRAN-AMT PIC S9(7)V9(2) COMP. ACMSMASF
000520 07 CARD-BALANCE PIC S9(7)V9(2) COMP. ACMSMASF
000530 07 MAX-CARD-AMT PIC S9(7)V9(2) COMP. ACMSMASF
000540 07 CARD-DEP-AMT PIC S9(7)V9(2) COMP. ACMSMASF
000550 07 ORIGINAL-DEP-AMT PIC S9(7)V9(2) COMP. ACMSMASF
000560 07 DEBIT PIC S9(16)V9(2) COMP. ACMSMASF
000570 07 CREDIT PIC S9(16)V9(2) COMP. ACMSMASF
000580 07 LAST-DEBIT-DATE PIC 9(8). ACMSMASF
000590 07 LAST-DEBIT-AMT PIC S9(7)V9(2) COMP. ACMSMASF
000600 07 TRANS-LIMIT PIC 9(7). ACMSMASF
000610 07 TRANS-COUNT PIC 9(7). ACMSMASF
000620 07 BL-MERCHANT-ID PIC 9(12). ACMSMASF
000630 07 POS-TERM-ID PIC X(8). ACMSMASF
000640 07 SHARED-KEY-SET-INDEX PIC 9(2). ACMSMASF
000650 07 BANK-SPECIFIC-KEY-SET-INDEX PIC 9(2). ACMSMASF
000660 07 FILEMAINT. ACMSMASF
000670 08 LOGON-ID. ACMSMASF
000680 09 LOGON-ID-1 PIC X(8). ACMSMASF
000690 09 LOGON-ID-2 PIC X(8). ACMSMASF
000700 08 ACTION-FLAG PIC X. ACMSMASF
000710 08 DATE-TIME PIC 9(14). ACMSMASF
000720 ACMSMASF
000730* record cmsmasf. ACMSMASF
000740* ACMSMASF
000750*file is "cmsmasf" key-sequenced. ACMSMASF
000760* ACMSMASF
000770* 02 cms type cmsmasf-rec. ACMSMASF
000780* ACMSMASF
000790*key is mas-key. ACMSMASF
000800*key "CA" is can DUPLICATES NOT ALLOWED. ACMSMASF
000810*end ACMSMASF
000820 ACMSMASF
000830 WORKING-STORAGE SECTION. ACMSMASF
000840 ACMSMASF
000850 PROCEDURE DIVISION. ACMSMASF
000860 ACMSMASF
000870 MAIN SECTION. ACMSMASF
000880 ACMSMASF
000890 000-EXIT. ACMSMASF
000900 EXIT. ACMSMASF
| T.R | Title | User | Personal
Name | Date | Lines
|
|---|