【Informatica PWC】如何利用copybook導入cobol,vsam文件

cobol系統導出的數據集一般爲vsam文件,沒法用普通工具直接打開查看,

爲cobol文件建立源(source)時不能經過普通文件(flat file)的方式直接導入。

須要藉助cobol文件格式描述文件(.cbl)，裏面包含cobol固定的格式段描述和copybook(包含源的字段類型長度和層組)，

copybook通常在cobol提供cobol文件時會提供的能夠直接用記事本打開的ascii文件,內容以下面的橙色部分或test.cpy,

在Mapping Designer->Source -> Import COBOL files中選中此描述文件纔可導入cobol文件的源表(source).

格式描述文件主體內容以下:

        identification division. 
        program-id.mead. 
        environment division. 
        select file-1 assign to "fname". 
        data division. 
        file section. 
        fd FILE-1. 
        * --------COPYBOOK GOES HERE------- 
        procedure division. 
        stop run.

identification division 標識部

environment division 環境部

data division 數據部

procedure division 過程部

file-1 爲導入後的source name 中劃線-將被被替換爲下劃線_

file section 文件節
*----copybook 此處用實際copy句替換掉
stop run. 描述文件終止結束運行

注意:每行前八位爲空格 結尾爲英文句號,copy語句中的中劃線在導入以後會被替換爲下劃線.

第八行註釋,經過copy句或copybook替換掉，例如test.cbl

橙色爲copy句或者copybook,此文件能夠把橙色替換爲實際的copy句以後直接導入.

        Identification division. 
        Program-id.mead. 
        environment division. 
        select cr3872-file assign to "cr3872.dat". 
        organization sequential. 
        data division. 
        file section. 
        fd cr3872-file. 
        01 EXPERT. 
        05 SPOUSE-CHILD. 
        10 SPOUSE-INFO. 
        15 SP-CHILD 
        PIC X. 
        15 SPOUSE-NAME. 
        20 SPOUSE-FNAME 
        PIC X(14). 
        20 SPOUSE-LNAME 
        PIC X(20). 
        10 CHILD-INFO OCCURS 6 TIMES. 
        15 CHILD-NAME. 
        20 CHILD-FNAME 
        PIC X(14). 
        20 CHILD-LNAME 
        PIC X(20). 
        15 CHILD-RELATIONSHIP 
        PIC X(15). 
        15 CHILD-BDATE PIC 9(6). 
        15 CHILD-AGE PIC 9(2). 
        working-storage section. 
        01junk PIC x(100). 
        procedure division. 
        stop run.

可是,實際應該用中的copy句或者copybook文件會有不少行,並且會有多個文件，

例如test.cpy(從第8列到第74列才爲真正的數據部)

00550001 EXPERT. 
099500 05 SPOUSE-CHILD. 
099600 10 SPOUSE-INFO. 
099700 15 SP-CHILD 
099800 PIC X. 
099900 15 SPOUSE-NAME. 
100000 20 SPOUSE-FNAME 
100100 PIC X(14). 
100400 20 SPOUSE-LNAME 
100500 PIC X(20). 
105600 10 CHILD-INFO OCCURS 6 TIMES. 
105700 15 CHILD-NAME. 
105800 20 CHILD-FNAME 
105900 PIC X(14). 
106100 20 CHILD-LNAME 
106200 PIC X(20). 
106300 15 CHILD-RELATIONSHIP 
106400 PIC X(15). 
106500 15 CHILD-BDATE PIC 9(6). 
106700 15 CHILD-AGE PIC 9(2).

這樣咱們能夠改寫以前的數據描述文件test.cbl 爲以下:

        environment division. 
        select cr3872-file assign to "cr3872.dat" 
        organization sequential. 
        data division. 
        file section. 
        fd cr3872-file. 
        copy"test.cpy". 
        working-storage section. 
        01 junk PIC x(100). 
        procedure division. 
        stop run. 
        end.

 

copy"test.cpy". 引用copybook

如此，把test.cbl 和test.cpy放在同一目錄,經過這兩個文件能夠建立cobol文件的源(source)了。
test.cbl

test.cpy

cobol file source

 

 

 本文參考引用了以下連接:

https://kb.informatica.com/whitepapers/1/Pages/15301.aspx

https://kb.informatica.com/whitepapers/1/Pages/15159.aspx