Error when binding DB2 COBOL Program

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi

I receive the following error when I try to compile COBOL/DB2 program in Bind Step.

BIND PACKAGE(AP_BTCH_APPL) CURRENTDATA(NO) EXPLAIN(YES) QUALIFIER(DB2) VALIDAT
DSNX200I % BIND SQL ERROR
USING APPLBIND AUTHORITY
PLAN=(NOT APPLICABLE)
DBRM=TESTNEW1
STATEMENT=362
SQLCODE=-401
SQLSTATE=42818
TOKENS=
CSECT NAME=DSNXOBFC
RDS CODE=930
DSNT233I % UNSUCCESSFUL BIND FOR

Has any of you faced the same problem ? I actually double checked the problem and there is no case where I move values to inconsistent data type...Could some one please help me....

guptae · Posted: Wed Feb 14, 2007 11:38 am

Hi ssowmya,

Would u mind to paste ur sql stmts?

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

The only SQL Statement in the program is

EXEC SQL
SELECT A5_MF_UNIT_PRC_A
INTO :C5-UNIT-PRICE
FROM T1BPQFSA50
WHERE A4_PMC_CO_PLT = :WS-BPQFSA50-COPLT AND
A4_MF_REQ_NO = :WS-BPQFSA50-REQNO AND
A5_MF_PART_NO = :WS-BPQFSA50-ITEM
END-EXEC.

I handle all SQL Codes....

guptae · Posted: Wed Feb 14, 2007 11:50 am

Hi Ssowmya,

Please paste ur host variable & column definition

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi...Thanks very much for your quick response....

Host Variable:

05 WS-BPQFSA50-COPLT PIC X(04) VALUE ZEROS.
05 WS-BPQFSA50-PREFIX PIC X(02) VALUE SPACES.
05 WS-BPQFSA50-REQNO PIC X(06) VALUE ZEROS.
05 WS-BPQFSA50-ITEM PIC X(07) VALUE SPACES.

Table Defenition

A4_PMC_CO_PLT CHAR(4) NOT NULL,
A4_MF_PREFIX CHAR(2) NOT NULL,
A4_MF_REQ_NO INTEGER NOT NULL,
A5_MF_PART_NO INTEGER NOT NULL,

If I give numeric value for WS-BPQFSA50-REQNO and WS-BPQFSA50-ITEM, the program does not compile successfully...Hence I used X(06) & X(07) respectively....

guptae · Posted: Wed Feb 14, 2007 12:12 pm

Hi There,

Declare WS-BPQFSA50-REQNO ,WS-BPQFSA50-ITEM as numeric & paste the compiler error