Pero la solución que se te envía funciona, cuando realizamos dim dentro de una ds, siempre se ve primero la primera dim y luego la segunda y así sucesivamente. ----- Original Message ----- From: Emiliano Rubio Tebar To: forum.help400 Sent: Thursday, December 23, 2010 3:21 AM Subject: Re: Parsear con XML-INTO el XML
Buenas.
Son listas de articulos y despues su movimientos, (pueden tener o no
movimientos los articulos pero no estan jerarquizados debajo de cada articulo,
estan al mismo nivel)
Casos:
- <SKU> seguido de <MOVESSTOCK>
pXml = '<SkuListds>' +
'<Sku SkuNr="9118157" PartNr="535993" ' +
'Description="Brother Fax 910-920 2" ' +
'LastQty="0" NewQty="0" />' +
'<MovesStock>' +
'<Mvmt Seq="1" ActvityCode="120" ' +
'MMSXref="455601" MMSCode="" Qty="500" />' +
'</MovesStock>' +
'<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>';
- <SKU> seguido de otros >SKU>
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>';
------------------------------------------------------------------------------
De: Jaime Villa Torres <[email protected]>
Para: forum.help400 <[email protected]>
Enviado: jue,23 diciembre, 2010 06:17
Asunto: Re: Parsear con XML-INTO el XML
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 XML Buenos dias Tengo 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.____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
