Hola Alex, buenos días.
Muchísimas gracias, lo pruebo.
Saludos
El 2021-08-17 09:15, Alex Martínez escribió:
Hola
Como indica la documentación de xml-into debes definir una DS qualified
con el nombre GEvt y el subcampo LEvtCd indicando el path
https://www.ibm.com/docs/en/i/7.3?topic=codes-xml-into-parse-xml-document-into-variable
dcl-ds GEvt dim(10) qualified ;
EvtDtm char(10) ;
EvtGMT char(10) ;
LEvtCd char(10) ;
CapOpFId char(10) ;
CapOpFTpy char(10) ;
end-ds ;
xml-into GEvt %xml(XML1:'path=MSG/Bd/GEvt case=any') ;
El lun, 16 ago 2021 a las 10:51, <[email protected]>
escribió:
Hola Foro, buenos días.
Alguien me puede ayudar por favor.
Quiero leer los valores de los atributos de una etiqueta y no sé como
realizarlo en rpg free, adjunto ejemplo
por ejemplo si quiero leer el valor del atributo LevtcD en la
penúltima
línea.
<?xml version="1.0" encoding="UTF-8"?>
<MSG
xmlns:MSG_BKG_BD_BKG_QTDSHP="MSG_BKG_BD_BKG_QTDSHP"
xmlns:MSG_BKG_BD_BKG_BKGCUST="MSG_BKG_BD_BKG_BKGCUST"
xmlns:MSG_BKG_AND_EVT_BD="MSG_BKG_AND_EVT_BD"
xmlns:MSG_BKG_BD_BKG="MSG_BKG_BD_BKG"
xmlns:MSG_BKG_BD_DATELGRP="MSG_BKG_BD_DATELGRP"
xmlns:MSG_BKG_BD_DATELGRP_DATEL="MSG_BKG_BD_DATELGRP_DATEL">
<Hdr Id="BKG-PU" Ver="1.017" Dtm="2020-04-06 11:42:34"
GmtOff="+08:00">
<Sndr CtryCd="GR" AppCd="ADSP"
AppVer="1.017">
</Sndr>
</Hdr>
<Bd>
<GEvt EvtDtm="" EvtGMT="+03:00"
LEvtCd="BK" CapOpFId="OUTH073" CapOpFTpy="PUT">
</GEvt>
Gracias anticipadas.
Xabier
____________________________________________________
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.
