IC66521: DB2 DO NOT SUPPORT THE DECIMAL DATA TYPE ON COBOL ON DB2V95

DB2 Version 9.8 Fix Pack 3 for Linux, UNIX, and Windows
DB2 Version 9.8 Fix Pack 4 for AIX and Linux
DB2 Version 9.8 Fix Pack 5 for AIX and Linux

APAR status

• Closed as program error.

Error description

• For Cobol procedure creation, we always reproduced this problem
  on db2v9.5:
  Store Procedure Testing in DB2 V9.5
  =====================================
  1.Using language Cobol
  
  create procedure tp.crossbrd (
   in    lic_user_id            char(8),
   in    lic_pgm_id             char(8),
   in    lic_upd_mode           char(1),
   in    lic_upd_ind            char(12),
   out   lic_ret_cd             integer,
   in    anml_key               integer,
   in    brd_cd                 char(2),
   in    portion_16th           smallint,
   in    anml_reg_cd            decimal(1,0),
   in    hdbk_sect_cd           char(1),
   in    hdbk_sect_sts_cd       char(1),
   in    bsoc_proc_date         char(10),
   in    frgn_hdbk_anml_num     char(13),
   in    stud_fee_ind           decimal(1,0),
   in    hdbk_vol               char(8),
   in    frgn_hdbk_name         char(30),
   in    hdbk_sect_sts_id       integer
  )
         external name 'H80002'
         language cobol
         PARAMETER STYLE GENERAL WITH NULLS
         modifies sql data
  
  
  Result
  ===
  DB21034E  The command was processed as an SQL statement because
  it was
  not a
  valid Command Line Processor command.  During SQL processing it
  returned:
  SQL0451N  The "PARAMETER #9" definition, in the statement that
  defines
  routine
  "TP      .CROSSBRD", contains a data type "DECIMAL" that is not
  appropriate
  for a non-sourced routine written in the given language.  LINE
  NUMBER=21.
  SQLSTATE=42815
  
  SQL0451N  The "PARAMETER #9" definition, in the statement that
  defines
  routine "TP      .CROSSBRD", contains a data type "DECIMAL
  " that is not appropriate for a non-sourced routine written in
  the given
  language.
  
  But above test works fine on db2 v82 and db2 v91.
  

Local fix

• Change Decimal type to float type
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * ALL                                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * See Error Description                                        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * Upgrade to DB2 9.8 FP3 or Subsequent Fix Pack                *
  ****************************************************************
  

Problem conclusion

• Problem First Fixed in DB2 Version 9.8 Fix Pack 3
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  IZ53257

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DB2 FOR LUW

• Fixed component ID

  DB2FORLUW

Applicable component levels

• R980 PSN

     UP