Meine Verwendung mit Oracle über ArdGate:
Code:
d* Struktur Oracle-Bestelltabelle
d DSOrBe ds inz
d VENDOR_NUMBER 20 varying
d PO_NUM_RELEASE...
d 20 varying
d* wird ersetzt
d* PO_LINE_NUMBER...
d LINE_LOCATION_ID...
d 11p 0
d PO_ITEM_NUMBER...
d 20 varying
d PO_LINE_ORDERED...
d 11p 2
d PO_LINE_OPEN 11p 2
d PO_LINE_UNIT_PRICE...
d 13p 4
d PO_CURRENCY 3 varying
d PO_LINE_DELDATE...
d 8p 0
OraSQL = 'select VENDOR_NUMBER '
+ ',PO_NUM_RELEASE '
+ ',LINE_LOCATION_ID '
+ ',PO_ITEM_NUMBER '
+ ',PO_LINE_ORDERED '
+ ',PO_LINE_OPEN '
+ ',PO_LINE_UNIT_PRICE '
+ ',PO_CURRENCY '
+ ',TO_NUMBER(TO_CHAR('
+ 'PO_LINE_DELDATE, ''YYYYMMDD'') '
+ ', ''99999999'') '
+ ',RH_ITEM_NUMBER '
+ ' from ' + OraTable
+ ' inner join '
+ ' XXPEW_ORACLE_RH_ITEM_NUM_V '
+ ' on PO_ITEM_NUMBER '
+ ' = ORACLE_ITEM_NUMBER '
+ ' where VENDOR_NUMBER '
+ ' = ''' + %trim(BBPA01) + '''';
// Dynamischen Cursor erstellen
exec sql declare LoadOrder cursor for LodSQLOrder;
exec sql prepare LodSQLOrder from :OraSQL;
exec sql Fetch LoadOrder
into :VENDOR_NUMBER
,:PO_NUM_RELEASE
,:LINE_LOCATION_ID
,:PO_ITEM_NUMBER
,:PO_LINE_ORDERED
,:PO_LINE_OPEN
,:PO_LINE_UNIT_PRICE
,:PO_CURRENCY
,:PO_LINE_DELDATE
,:KYTENR
;
Die Oracle-Sicht enthält keine NULL-Felder, daher keine NULL-Anzeiger.
Bookmarks