Espero te sirva la solución, se realizaron dos cambios, espero los
identifiques.h COPYRIGHT('(C) Copyright ITS Solutions Ltda -ItsTools-2010')
h TimFmt(*Iso.) DatFmt(*YMD.) DatEdit(*YMD) Debug(*Yes)
Option(*NodebugIo) * 20101023 ITSJEVT01
*
*** Parámetros de Entrada.
d SkuListds DS QUALIFIED d
Sku likeds(Skuds) dim(50) d
MovesStock likeds(MovesStockds) *
d Skuds
DS QUALIFIED d SkuNr
08 d PartNr
13 d Description
50 d LastQty 06
d NewQty 06
*
d MovesStockds DS QUALIFIED
d Mvmt likeds(mvmtds) dim(50)
*
d Mvmtds DS QUALIFIED
d Seq 3 d
ActvityCode 3 d
MMSXref 10 d
MMSCode 1 d Qty
6 *
d pXml
s 65400 varying *
/free
pXml = '<SkuListds>'
+ '<Sku SkuNr="9118157"
PartNr="535993" ' + 'Description="Brother Fax
910-920 2" ' + 'LastQty="0" NewQty="0" />'
+ '<Sku SkuNr="9118165"
PartNr="537683" ' + 'Description="Panasonic
KXF-1810-KXF 18" ' + 'LastQty="1000" NewQty="700"
/>' + '<MovesStock>'
+ '<Mvmt Seq="1" ActvityCode="420" '
+ 'MMSXref="455601" MMSCode="" Qty="100" />'
+ '<Mvmt Seq="2" ActvityCode="420" '
+ 'MMSXref="455602" MMSCode="" Qty="100" />'
+ '<Mvmt Seq="3" ActvityCode="420" '
+ 'MMSXref="455603" MMSCode="" Qty="100" />'
+ '</MovesStock>'
+ '</SkuListds>';
xml-into SkuListds %XML(pXml : 'case=any +
allowmissing=yes path=SkuListds');
*inlr=*on;
/end-free
----- Original Message ----- From: Emiliano Rubio Tebar To:
[email protected] Sent: Wednesday, December 22, 2010 5:29
AMSubject: Parsear con XML-INTO el XMLBuenos diasTengo un XML tipo:- <SKUList>
<SKU SKUNr="9118157" PartNr="535993" Description="Brother Fax 910-920 2"
LastQty="0" NewQty="0" /> - <!-- No Activity to report but the stock position
is reported --> <SKU SKUNr="9118165" PartNr="537683" Description="Panasonic
KXF-1810-KXF 18" LastQty="1000" NewQty="700" /> - <MovesStock> <Mvmt Seq="1"
ActvityCode="420" MMSXref="455601" MMSCode="" Qty="100" /> <Mvmt Seq="2"
ActvityCode="420" MMSXref="455602" MMSCode="" Qty="100" /> <Mvmt Seq="3"
ActvityCode="420" MMSXref="455603" MMSCode="" Qty="100" /> - <!-- 3 different
transfers out #455601 #455602 #455603 --> </MovesStock> </SKUList>Mi
problema es al generar las DS para para capturar esto con XLM-INTO no me sale
correcto: ¿PORQUE?D SkuListds DS QUALIFIED
D Sku likeds(Skuds) dim(050) D
MovesStock likeds(MovesStockds) dim(050) *
D Skuds DS
QUALIFIED D SkuNr 08
D PartNr 13
D Description 50
D LastQty 06
D NewQty 06 *
D MovesStockds DS
QUALIFIED D Mvmt
likeds(mvmtds) dim(10) *
D Mvmtds DS QUALIFIED
D Seq 3
D ActvityCode 3 D
MMSXref 10 D MMSCode
1 D Qty
6
------------------------------------------------------------------------------____________________________________________________Únete
a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )Forum.Help400 ©
Publicaciones Help400, S.L.____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
