DB2 FOR LUW / DB2FORLUW / A50 - DB2

db2dclgn -z OS390 writes unexpected cobol 05 level for GRAPHIC 
data type 
 
Problem Reproducible steps: 
1. $ repro.sh 
 
----- repro.sh ---------------------- 
#!/bin/sh 
 
table=test01 
schemaname=`echo ${USER} | awk '{print toupper($0)}'` 
 
db2stop force 
db2start 
db2level 
db2diag -A 
 
db2 -v "drop db sample" 
db2 -v "create db sample" 
db2 -v "connect to sample" 
db2 -v "CREATE TABLE ${table} (a INTEGER, b VARCHAR(5), c 
GRAPHIC(8) )" 
db2 -v "terminate" 
 
rm dclgn105.cbl 
db2dclgn -d sample -t ${table} -l cobol -s tdcl -z OS390 -a 
REPLACE -o dclgn105.cbl 
echo ----- cat dclgn105.cbl ----- 
cat dclgn105.cbl 
--------------------------- 
 
Here is the output file dclgn105.cbl 
----- 
       01 TDCL. 
         10 A PIC S9(9) COMP-5. 
         10 B. 
           49 B-LEN PIC S9(4) COMP-5. 
           49 B-DAT PIC X(5). 
         05 C PIC G(8) DISPLAY-1. 
----- 
 
* The last line 05 is not an expected level.  Should be 10.

**************************************************************** 
* USERS AFFECTED:                                              * 
* ALL                                                          * 
**************************************************************** 
* PROBLEM DESCRIPTION:                                         * 
* See Error Description                                        * 
**************************************************************** 
* RECOMMENDATION:                                              * 
* Upgrade to DB2 10.5 Fix Pack 9                               * 
****************************************************************

DB2 Version 11.1 Mod1 Fix Pack1 iFix001 for Linux, UNIX, and Windows
 DB2 Version 11.1 Mod 2 Fix Pack 2 for Linux, UNIX, and Windows
 DB2 Version 10.5 Fix Pack 9 for Linux, UNIX, and Windows
 Db2 Version 11.1 Mod2 Fix Pack2 iFix001 for Linux, UNIX, and Windows
 Db2 Version 11.1 Mod2 Fix Pack2 iFix002 for Linux, UNIX, and Windows
 Db2 Version 11.1 Mod 3 Fix Pack 3 for Linux, UNIX, and Windows
 Db2 Version 11.1 Mod3 Fix Pack3 iFix001 for Linux, UNIX, and Windows
 Db2 Version 11.1 Mod3 Fix Pack3 iFix002 for Linux, UNIX, and Windows
 

First Fixed in DB2 10.5 Fix Pack 9

keiner bekannt / siehe Local-Fix

Datum - Problem gemeldet    :
Datum - Problem geschlossen :
Datum - der letzten Änderung:

30.09.2015
09.05.2017
09.05.2017

9.0.