Figure A
ILE Cobol implementation

01 SqlStateType Pic X(5) Is TypeDef.



01 Mnemonics. 

   02 SqlStateWrnPfx Pic X(2)          Value "01".

   02 SqlStateWrnPfx Pic X(2)          Value "23".

   02 SqlStateWrnPfx Pic X(2)          Value "44".

   02 SqlStateOK     Type SqlStateType Value "00000".

   02 SqlStateNoRow  Type SqlStateType Value "02000".

   02 SqlStateDupKey Type SqlStateType Value "23505".