creating HCD mapping for COBOL copybook - Asmita's blog - Site Home

cobol copybook :

       01 DTS-LAYOUT.
          05   OUT1-BOOL               PIC S9(3) COMP-3.
          05   OUT1-BYTE1              PIC S9(3) COMP-3.
          05   OUT1-DATE1              PIC X(10).
          05   OUT1-DECIMAL1        PIC S9(15)V9(03).
          05   OUT1-DECIMAL2        PIC S9(15)V9(03).
          05   OUT1-DOUBLE1         COMP-2.
          05   OUT1-DOUBLE2         PIC S9(09)V9(09).
          05   OUT1-INT1                  PIC S9(09) COMP.
          05   OUT1-INT2                  PIC S9(09) COMP-3.
          05   OUT1-INT3                  PIC S9(10) DISPLAY.
          05   OUT1-SHORT1            PIC S9(04) COMP.
          05   OUT1-SHORT2            PIC S9(04) COMP-3.
          05   OUT1-SINGLE1           COMP-1.
          05   OUT1-SINGLE2           PIC S9(05)V9(10).
          05   OUT1-STRING1           PIC X(4000).
          05   OUT1-TIME1               PIC X(08).
          05   OUT1-TSTAMP1         PIC X(26).

The corresponding HCD will be :

[Stats]
CreatedOn=06/29/06 15:18:50
[Files]
USERID.KSDS.BOOL=1
USERID.KSDS.BYTE=1
USERID.KSDS.DATE1=1
USERID.KSDS.DECIMAL2=1
USERID.KSDS.DECIMAL=1
USERID.KSDS.DOUBLE=1
USERID.KSDS.INT1=1
USERID.KSDS.INT2=1
USERID.KSDS.DOUBLE22=1
USERID.KSDS.INT3=1
USERID.KSDS.SHORT2=1
USERID.KSDS.SHORT=1
USERID.KSDS.SINGLE1=1
USERID.KSDS.SINGLE2=1
USERID.KSDS.STRING12=1
USERID.KSDS.TIME=1
USERID.KSDS.TSTAMP=1
[USERID.KSDS.DATE1]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;Y;
Col2=0;COL2;COL2;0;0;10;DATE;DATE;N;37; ;Y;
[USERID.KSDS.DOUBLE]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;0;0;8;DOUBLE;DOUBLE;N;37; ;N;
[USERID.KSDS.DECIMAL2]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;18;3;18;ZONED;NUMERIC;N;37; ;N;
[USERID.KSDS.INT1]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;10;0;4;LONG;LONG;N;37; ;N;
[USERID.KSDS.INT2]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;10;0;4;LONG;LONG;N;37; ;N;
[USERID.KSDS.DOUBLE22]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;18;9;18;ZONED;DOUBLE;N;37; ;N;
[USERID.KSDS.SHORT2]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;4;0;4;PACKED;DECIMAL;N;37; ;N;
[USERID.KSDS.SHORT]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;4;0;4;SHORT;SHORT;N;37; ;N;
[USERID.KSDS.SINGLE1]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;0;0;4;SINGLE;FLOAT;N;37; ;N;
[USERID.KSDS.SINGLE2]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;15;10;15;ZONED;NUMERIC;N;37; ;N;
[USERID.KSDS.STRING12]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;0;0;4;SINGLE;FLOAT;N;37; ;N;
Col2=0;COL2;COL2;0;0;4000;CHAR;CHAR;N;37; ;N;
[USERID.KSDS.TIME]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;0;0;8;TIME;TIME;N;37; ;N;
[USERID.KSDS.TSTAMP]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;0;0;26;TIMESTAMP;TIME;N;37; ;N;
[USERID.KSDS.BOOL]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;5;0;2;SHORT;SHORT;N;37; ;N;
[USERID.KSDS.BYTE]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;0;0;8;BINARY;BINARY;N;37; ;N;
[USERID.KSDS.DECIMAL]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;18;3;18;ZONED;DECIMAL;N;37; ;N;
[USERID.KSDS.INT3]
UseForFileTransfer=0
DelimiterField=
DelimiterRecord=
TextQualifier=
FileCreationType=0
KeyPosition=0
KeyLength=0
KeySort=A
Col1=0;COL1;COL1;10;0;4;LONG;LONG;N;37; ;N;
Col2=0;COL2;COL2;10;0;4;LONG;LONG;N;37; ;N;

Find more details of OLE DB data types that result from the mapping of the host data types by the Microsoft OLE DB Provider for AS/400 and VSAM :

http://msdn2.microsoft.com/en-us/library/ms967931.aspx