1 %DEFINE DTW_EDIT_CODES = "***N*" 2 3 %FUNCTION(DTW_SQL) QRY() { 4 SELECT ITNO, ITCAT, ITDESC, ITPRIC, ITDATE 5 FROM IPTULIB.ITEM 6 WHERE ITNO = '$(KEY)' 7 %MESSAGE { 8 100 : {

Item not found. 9 (KEY=$(KEY))

%} 10 : CONTINUE 11 +DEFAULT : {

SQL exception. 12

%} 13 : CONTINUE 14 %} 15 %REPORT { 16 %ROW { 17

 18 Item number  : $(V1)
 19 category     : $(V2)
 20 description  : $(V3)
 21 unit price   : $(V4)
 22 date         : $(V5)
 23

24 %} 25 %} 26 %} 27 28 %HTML(REPORT) { 29 Query Result (Net.Data) 30

Query Result (Net.Data)

31 @QRY() 32 33 %}