SQLPB1A0iBErSXKINULLID  3
INCLUDE SQLCA
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE CURSOR1 CURSOR FOR SELNAME
PREPARE  SELNAME  INTO :sqlda  FROM :sqlue_xx
PREPARE selname INTO :sqlda  FROM :sqlue_xx
OPEN CURSOR1
FETCH CURSOR1 USING DESCRIPTOR :sqlda 
CLOSE CURSOR1
sqlue_xx