H DFTNAME(TESTREAD3) DATEDIT(*YMD/)                                                            
     H CCSID(*GRAPH:*SRC)                                                                           
     F********** IFS ストリーム F を EBCDIC として読取る *******************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG  OBJ(OBJLIB/TESTREAD3) SRCFILE(MYSRCLIB/QRPGLESRC)                                
      * DFTACTRP(*NO) ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                       
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2021/12/01 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      /COPY QSYSINC/QRPGLESRC,IFS                                                                   
      *( 作業変数 )                                                                                 
     D FILE            S            128A   INZ('/AS400-NET.USR/TEMP/TEST.XML')                      
     D STAT_           DS                  LIKEDS(ﾍﾎｱﾎ_ﾎ)                                           
     D TRUE#           S              4B 0 INZ(0)                                                   
     D FALSE#          S              4B 0 INZ(-1)                                                  
     D FD              S             10I 0                                                          
     D TMPBUF          S               *                                                            
     D TMPLEN          S             10I 0                                                          
     D BYTE_RED        S             10I 0                                                          
     D CCS5035         S             10I 0 INZ(5035)                                                
     D MSG             S             80A                                                            
                                                                                                    
      /FREE                                                                                         
         FD = ﾅﾆｵﾄ(%TRIM(FILE): O_RDONLY + O_TEXTDATA + O_CCSID:0:CCS5035);                         
         IF FD = FALSE#;                                                                            
           MSG = ' ファイル ' + %TRIMR(FILE) + ' のオープンに失敗しました。 ';                      
           RETURN;                                                                                  
         ENDIF;                                                                                     
         ﾂﾍﾎｱﾎ(%TRIM(FILE): STAT_);                                                                 
         TMPLEN   = STAT_.ﾍﾎ_ﾍｹﾔｵ;                                                                  
         TMPBUF   = %ALLOC(TMPLEN);                                                                 
         BYTE_RED = ﾈｵｱｴ (FD: TMPBUF: TMPLEN);                                                      
         CALLP ｳﾂﾅﾍｵ(FD);                                                                           
         DEALLOC TMPBUF;                                                                            
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN