H DFTNAME(TESTIFS) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  ストリーム・ファイルの存在チェツク ***********************                        
     F*                                                                                             
     F**********************************************************************                        
     D LSTAT           PR             4B 0 EXTPROC('ﾂﾍﾎｱﾎ')                                         
     D   FILE                          *   VALUE OPTIONS(*STRING)                                   
     D   INFO                          *   VALUE OPTIONS(*STRING)                                   
                                                                                                    
     D*( ファイル属性 )                                                                             
     D INFO_P          S               *   INZ(%ADDR(INFO))                                         
     D INFO            DS           128                                                             
     D  ALLOCSIZ              45     48B 0                                                          
                                                                                                    
     D GIFFILE         C                   CONST('/QATMHSTOUT/ALASKA.GIF')                          
     D RES             S              4B 0 INZ(0)                                                   
     D TRUE            S              4B 0 INZ(0)                                                   
     D FALSE           S              4B 0 INZ(-1)                                                  
                                                                                                    
      /FREE                                                                                         
         RES = LSTAT(GIFFILE:INFO_P);                                                               
      /END-FREE                                                                                     
     C                   IF        RES = TRUE                                                       
     C     ' ありました 'DSPLY                   ANS               1                                
     C                   ELSE                                                                       
     C     'NOT FOUND !' DSPLY                   ANS                                                
     C                   ENDIF                                                                      
     C                   SETON                                        LR                            
     C                   RETURN