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.
