udtf1.txt

000100151230-- Return Mobile App Open Order Detail Table:
000200000000
 
000300151230-- UDTF
000400151230
000500160113CREATE or replace FUNCTION APLIB/FNORDERS
000600151230 (inCoNo NUMERIC(2,0), -- Company Number
000700160111 ORDERID VARCHAR(10)) -- ORDER Id
000800151231RETURNS TABLE
000900160112  (   ORDER_CODE_5 VARCHAR(5),
001000160112 CUSTOMER_NUMBER NUMERIC(10,0),
001100160112 CUSTOMER_NAME VARCHAR(30),
001200160112 COMPANY_NUMBER NUMERIC(2,0),
001300160112 ORDER_NUMBER VARCHAR(5),
001400160112 ORDER_GENERATION_NUMBER NUMERIC(2,0),
001500160112 ORDER_NUMBER VARCHAR(8),
001600160112 ORDER_TYPE CHAR(1),
001700160112 ORDER_TYPE_DESC VARCHAR(30),
001800160112 ORDER_STATUS CHAR(1),
001900160112 ORDER_STATUS_DESC VARCHAR(30),
002000160112 ORDER_DATE DATE,
002100160112 PRODUCT_CLASS VARCHAR(30),
002200160112 REQUESTED_SHIP_DATE DATE,
002300160112 SHIPTO_NAME VARCHAR(30),
002400160112 SHIPTO_ADDRESS_1 VARCHAR(30),
002500160112 SHIPTO_ADDRESS_2 VARCHAR(30),
002600160112 SHIPTO_CITY VARCHAR(20),
002700160112 SHIPTO_STATE VARCHAR(30),
002800160112 SHIPTO_ZIP_CODE VARCHAR(10),
002900160112 REQUESTED_DELIVERY_WINDOW CHAR(1),
003000160112 REQUESTED_DELIVERY_DESC VARCHAR(14),
003100160112 ORDER_AMOUNT DECIMAL(9,2),
003200160112 SALESREP_NUMBER DECIMAL(5,0),
003300160112 SALESREP_NAME VARCHAR(30))
003400160113EXTERNAL NAME 'APLIB/RTVORDS(RETRIEVEMOBILEAPPHED)'
003500160110LANGUAGE RPGLE
003600160110PARAMETER STYLE DB2SQL
003700160110SCRATCHPAD 10
003800160110NO SQL
003900160110NOT DETERMINISTIC
004000160110DISALLOW PARALLEL