H DFTNAME(TESTXMLB) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     H CCSID(*GRAPH:*SRC)                                                                           
     F********** XML_INTO のテスト *****************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG  OBJ(OBJLIB/TESTXMLB)  SRCFILE(MYSRCLIB/QRPGLESRC)                                
      * DFTACTRP(*NO) ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                       
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2021/11/29 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D XMLIFS          C                   CONST('/AS400-NET.USR/TEMP/TEST.XML')                    
                                                                                                    
     D RECORD          DS                  QUALIFIED DIM(30)                                        
     D   SHCODE                1     10A                                                            
     D   SHNAME               11     34A                                                            
     D   SHTANK               35     41S 0                                                          
     D   SHSCOD               42     45A                                                            
                                                                                                    
      /FREE                                                                                         
        XML-INTO RECORD %XML(XMLIFS:'ｳｳﾍｹｴ=ﾏｳﾍ2 ｳｱﾍｵ=ｱﾄﾓ ｴﾅｳ=ｶｹﾂｵ');                                
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN