What I do, is to use templates for defining complex XML structures.
-------- Ursprüngliche Nachricht --------
Von: "Art Tostaine, Jr." <atostaine@xxxxxxxxx>
Datum: Di., 1. Apr. 2025, 19:12
An: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxxxxxxxx>
Betreff: Xml-into returns all blank data
I worked through my data structures and Xml-Into runs with no errors but
all of my variables are blank. No errors. I used DUMP opcode to view
data.
My data structures.....
dcl-ds GIII-XML dim(1) qualified;
dcl-ds ControlArea dim(1);
dcl-ds MessageIdentifier dim(1);
verb varchar(10);
DocumentType varchar(10);
Revision varchar(10);
end-ds;
dcl-ds Sender dim(1);
Identity varchar(10);
Component varchar(10);
Task varchar(10);
Confirmation char(1);
End-Ds;
dcl-ds Receiver dim(1);
Identity varchar(10);
Component varchar(20);
End-Ds;
dcl-ds DateTime dim(1);
CreationDate date;
CreationTime varchar(10);
End-Ds;
dcl-ds PriceSalesCatalog dim(999);
CatalogPurposeCode varchar(50);
CatalogNumber varchar(30);
CatalogDescription varchar(20);
WarehouseCode varchar(2);
dcl-ds DetailLineLoop dim(9);
LineNumber varchar(3);
VendorCatalogNumber varchar(20);
UPCCode varchar(13);
ItemColorCode varchar(10);
Dimension varchar(10);
NRMASizeCode varchar(10);
ProductDescription varchar(20);
HTSCode varchar(10);
VendorSize varchar(10);
VendorColorCode varchar(10);
TradeName varchar(10);
CountryofOrigin varchar(10);
OrigSKU varchar(10);
ProductClass varchar(10);
Weight zoned(6: 2);
Currency varchar(10);
SizeScale varchar(10);
SizePosn varchar(10);
PrePackFlag varchar(10);
PPQuantity varchar(10);
Genus varchar(10);
Species varchar(10);
Hazardous varchar(10);
MSRP zoned(6:2);
end-ds ;
end-ds;
end-ds;
end-ds;
XML (I trimmed this it might not be syntaxtically correct)
<XML>
<ControlArea>
<MessageIdentifier>
<Verb>PROCESS</Verb>
<DocumentType>CATALOG832</DocumentType>
<Revision>002</Revision>
</MessageIdentifier>
<Sender>
<Identity>NEWYORK</Identity>
<Component>ART</Component>
<Task>UPDATE</Task>
<Confirmation>N</Confirmation>
</Sender>
<Receiver>
<Identity>NY</Identity>
<Component>GEODISART</Component>
</Receiver>
<DateTime>
<CreationDate>2025-03-17</CreationDate>
<CreationTime>12:21:31</CreationTime>
</DateTime>
</ControlArea>
<PriceSalesCatalog>
<CatalogPurposeCode>RC</CatalogPurposeCode>
<CatalogNumber>ZZBLECK</CatalogNumber>
<CatalogVersionNumber>100</CatalogVersionNumber>
<CatalogDescription>VE VNY/TRB</CatalogDescription>
<WarehouseCode>H2</WarehouseCode>
<DetailLineLoop>
<LineNumber>1</LineNumber>
<VendorCatalogNumber>SDIZ3201</VendorCatalogNumber>
<UPCCode>7621327175900</UPCCode>
<ItemColorCode>AN5</ItemColorCode>
<Dimension></Dimension>
<NRMASizeCode>30001</NRMASizeCode>
<ProductDescription>SANDINE</ProductDescription>
<HTSCode>6302600020</HTSCode>
<VendorSize>1SZ</VendorSize>
<VendorColorCode>ANTIGUA</VendorColorCode>
<TradeName>VNY/TRB</TradeName>
<CountryofOrigin></CountryofOrigin>
<OrigSKU></OrigSKU>
<ProductClass>APP</ProductClass>
<Weight>0.453</Weight>
<Currency>USD</Currency>
<SizeScale>U</SizeScale>
<SizePosn>1</SizePosn>
<PrePackFlag>N</PrePackFlag>
<PPQuantity>1</PPQuantity>
<Genus></Genus>
<Species></Species>
<Hazardous></Hazardous>
<MSRP>135</MSRP>
</DetailLineLoop>
<TotalCatalogLines>4</TotalCatalogLines>
<CatalogControlNumber>M5337221</CatalogControlNumber>
<TotalCatalogLines>4</TotalCatalogLines>
<CatalogControlNumber>M5337221</CatalogControlNumber>
</PriceSalesCatalog>
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
midrange.com
