H DATEDIT(*YMD/) COPYRIGHT('(C) OｶｶｹｳｵQﾏｱﾎﾎﾈｲ Cﾅ,.Lﾎｴ Jｱﾆｱﾄ 2017-')                            
     F********** RPG によるオブジェクト存在検査 ****************************                        
     F*                                                                                             
     F**********************************************************************                        
     D OBJOBJLIB       DS                                                                           
     D   OBJ                   1     10A                                                            
     D   OBJLIB               11     20A                                                            
                                                                                                    
     D AUT             DS                                                                           
     D   KOSU                  1      2B 0 INZ(1)                                                   
     D   AUTR                  3    102    DIM(10)                                                  
                                                                                                    
     D CHKOBJ          C                   CONST('QUATTRO/CHKOBJCL')                                
     C                   EXSR      CHECK                                                            
     C                   SETON                                        LR                            
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C                   MONITOR                                                                    
     C                   MOVEL     'SHOHINZ   '  OBJ                                                
     C                   MOVEL     'QTRFIL    '  OBJLIB                                             
     C                   MOVEL     '*NONE     '  AUTR(1)                                            
     C*----------------------------------------------------+                                        
     C                   CALL      CHKOBJ                                                           
     C                   PARM                    OBJOBJLIB                                          
     C                   PARM      '*FILE     '  OBJTYPE          10                                
     C                   PARM      '*NONE     '  MBR              10                                
     C                   PARM                    AUT                                                
     C*----------------------------------------------------+                                        
     C     'FOUND '      DSPLY                   ANS               1                                
     C                   ON-ERROR  *ALL                                                             
     C     'NOT FOUND'   DSPLY                   ANS               1                                
     C                   ENDMON                                                                     
     C                   ENDSR