midrange.com code scratchpad |
Name:
Jack
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
04/26/2016 12:59:47 am
|
IP:
Logged
|
|
Description:
XML-INTO
|
Code:
- *----------------------------------------------------------------------------
- D POItems DS
- D dim(99)
- D qualified
- D po# 100A
- D PickupDate 100A
- D Response 100A
- D Reason 100A
- D PO_Found 100A
- D Supplier_Num 100A
- D Vendor_Ind 100A
- D Supplier 100A
- D Vendor_Name 100A
- D Vendor_Num 100A
- D Supplier_Name 100A
- D Alt_Data 100A
-
- D options s 200a varying
-
- /free
-
- options = 'path=VerifyPurchaseOrderResponse/+
- VerifyPurchaseOrderResult/+
- PurchaseOrders+
- purchaseOrderItem +
- case=any +
- allowextra=yes +
- allowmissing=yes +
- doc=file';
-
-
- xml-into poItems %XML('/tmp/results.txt':options);
-
- *inlr = *on;
- Return;
-
- /end-free
|
|
|