ADABASのファイル定義→DB2のDDLコンバージョン・サービス

ADABASのファイル定義(DDM形式とADACMP形式)をDB2のDLLに変換します。

以下にADABASのファイル定義(DDM形式とADACMP形式)をDB2のDLLに変換した例を掲載します。

プログラム例

変換前 ファイル定義(DDM形式)

      
100 - SMP01
  1  A0  FLD01                            A    5    D
  1  A1  FLD02                            A    1
  1  A2  FLD03                            A   50  N
  1  A3  FLD04                            A    3  N
  1  A4  FLD05                            A  100  N
  1  A5  FLD06                            A   20  N
  1  A6  FLD07                            A   25  N
  1  A7  FLD08                            A    1  N
  1  A8  FLD09                            A    5  N D
  1  A9  FLD10                            A    1  N
  1  AA  FLD11                            A    1  N
  1  AB  FLD12                            A    4  N
      
    

変換前 ファイル定義(ADACMP形式)

      
ADACMP COMPRESS
ADACMP FNDEF='01,A0,5,A,DE'                  FLD01 
ADACMP FNDEF='01,A1,1,A'                     FLD02 
ADACMP FNDEF='01,A2,50,A,NU'                 FLD03 
ADACMP FNDEF='01,A3,3,A,NU'                  FLD04   
ADACMP FNDEF='01,A4,100,A,NU'                FLD05  
ADACMP FNDEF='01,A5,20,A,NU'                 FLD06 
ADACMP FNDEF='01,A6,25,A,NU'                 FLD07 
ADACMP FNDEF='01,A7,1,A,NU'                  FLD08   
ADACMP FNDEF='01,A8,5,A,DE,NU'               FLD09 
ADACMP FNDEF='01,A9,1,A,NU'                  FLD10   
ADACMP FNDEF='01,AA,1,A,NU'                  FLD11   
ADACMP FNDEF='01,AB,4,A,NU'                  FLD12   
      
    

このページのトップへ戻る

変換後 COBOLソース(一部割愛)

      
  DROP TABLE SCM01.SMP01;
CREATE TABLE SCM01.SMP01(
   FLD01      CHAR(5) DEFAULT ' ' NOT NULL
 , FLD02      CHAR(1) DEFAULT ' ' NOT NULL
 , FLD03      CHAR(50) DEFAULT ' ' NOT NULL
 , FLD04      CHAR(3) DEFAULT ' ' NOT NULL
 , FLD05      CHAR(100) DEFAULT ' ' NOT NULL
 , FLD06      CHAR(20) DEFAULT ' ' NOT NULL
 , FLD07      CHAR(25) DEFAULT ' ' NOT NULL
 , FLD08      CHAR(1) DEFAULT ' ' NOT NULL
 , FLD09      CHAR(5) DEFAULT ' ' NOT NULL
 , FLD10      CHAR(1) DEFAULT ' ' NOT NULL
 , FLD11      CHAR(1) DEFAULT ' ' NOT NULL
 , FLD12      CHAR(4) DEFAULT ' ' NOT NULL
 , ISN        NUMERIC GENERATED ALWAYS AS IDENTITY
               (START WITH 1  INCREMENT BY 1  NOCACHE)
 , PRIMARY KEY(ISN) );

CREATE INDEX SCM01.SMP01_IX01 ON SCM01.SMP01
  (FLD01 );

CREATE INDEX SCM01.SMP01_IX02 ON SCM01.SMP01
  (FLD09 );








      
    

このページのトップへ戻る