H DFTNAME(TESTDBG) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** DEBUG モードを検出する ************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG  OBJ(QRYLIB/TETSDBG  SRCFILE(R710SRC/QRPGLESRC)                                   
      * DFTACTGRP(*NO) ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                      
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2024/04/20 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D IﾍDｵｲﾏｷ         S              1N                                                            
     D ATTR            S             10A                                                            
                                                                                                    
     D RTVDBGATR       PR            10I 0 EXTPROC('QﾎｵRｵﾎﾈｹｵﾐｵDｵｲﾏｷAﾎﾎﾈｹｲﾏﾎｵ')                     
     D  DBGJOB                         *   VALUE OPTIONS(*STRING)                                   
     D  ATTR                           *   VALUE OPTIONS(*STRING)                                   
     D  APIERR                             LIKEDS(QUSEC)                                            
     D                                     OPTIONS(*VARSIZE)                                        
                                                                                                    
     D APIERR          DS                                                                           
     D  GETBYT                 1      4B 0 INZ(160)                                                 
     D  AVLBYT                 5      8B 0 INZ(0)                                                   
     D  MSGID                  9     15                                                             
     D  MSGDTA                17    160                                                             
                                                                                                    
     DQUSEC            DS                                                                           
     D QUSBPRV                 1      4B 0 INZ(8)                                                   
     D QUSBAVL                 5      8B 0 INZ(0)                                                   
                                                                                                    
     C                   IF        IﾍDｵｲﾏｷ = *ON                                                    
     C     'DEBUG ｹﾍ ON' DSPLY                   ANS               1                                
     C                   ELSE                                                                       
     C     'DEBUG ｹﾍ OFF'DSPLY                   ANS               1                                
     C                   ENDIF                                                                      
     C                   SETON                                        LR                            
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期 CYCLE のみの実行                                                                      
      /FREE                                                                                         
         RTVDBGATR('*DEBUGJOB ':ATTR:APIERR);                                                       
         IF AVLBYT > 0;                                                                             
           IﾍDｵｲﾏｷ = *OFF;                                                                          
         ELSE;                                                                                      
           IﾍDｵｲﾏｷ = *ON;                                                                           
         ENDIF;                                                                                     
     C                   ENDSR