H DFTNAME(TESTXML) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     H CCSID(*GRAPH:*SRC)                                                                           
     F********** XML_INTO のテスト *****************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG  OBJ(OBJLIB/TESTXML)  SRCFILE(MYSRCLIB/QRPGLESRC)                                 
      * DFTACTRP(*NO) ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                       
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2021/11/27 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D XML             S            512C   CCSID(1200)                                              
                                                                                                    
     D RECORD          DS                  QUALIFIED                                                
     D   SHCODE                1     10A                                                            
     D   SHNAME               11     34A                                                            
     D   SHTANK               35     41S 0                                                          
     D   SHSCOD               42     45A                                                            
                                                                                                    
      /FREE                                                                                         
        XML = %UCS2('<RECORD>+                                                                      
                 <SHCODE>NV-CF1</SHCODE>+                                                           
                 <SHNAME> Ｃカセット編集ビデオ </SHNAME>+                                           
                 <SHTANK>58000</SHTANK>+                                                            
                 <SHSCOD>0002</SHSCOD>+                                                             
               </RECORD>');                                                                         
        XML-INTO RECORD %XML(XML:'ｳｳﾍｹｴ=ﾏｳﾍ2 ｳｱﾍｵ=ｱﾄﾓ');                                            
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN