H DFTNAME(CNTFLD) DATEDIT(*YMD/)BNDDIR('QC2LE')                                                
     F******** *FILETEXT***********************************************                             
     FCNTFLDFM  CF   E             WORKSTN                                                          
     F                                     INFDS(INFDSF)                                            
     F*****************************************************************                             
      *    QTRSRC/QRPGLESRC(CNTFLD)                                                                 
      *     使用目的    :   更新 (*UPDATE)                                                          
      *     作成日      :  2023/10/31         11:06:52                                              
      *     作成者      :  QTR                                                                      
                                                                                                    
     D INFDSF          DS                  QUALIFIED                                                
      * オープン・フィードバック域   160 BYTES 81-240                                               
     D  OPNFBK                81    240                                          ファイル名         
     D   ODP_TYPE             81     82                                         ODP タイプ          
     D   FILE_NAME            83     92                                         ODP タイプ          
     D   LIBRARY              93    102                                         ODP タイプ          
     D   MEMBER              129    138                                          メンバー名         
                                                                                                    
     D*( WORK 日付 YYMMDD ﾃﾞｰﾀ 構造  )                                                              
     D DATEDS          DS                                                                           
     D  SRY                    1      2  0                                                          
     D  SRYMD                  1      8  0                                                          
     D  YYMMDD                 3      8  0                                                          
     D  YYMM                   3      6  0                                                          
     D  MMDD                   5      8  0                                                          
     D  YY                     3      4  0                                                          
     D  MM                     5      6  0                                                          
     D  DD                     7      8  0                                                          
                                                                                                    
     D DSPMSG          S              6A                                                            
                                                                                                    
     C*----------------------------------------------------+                                        
     C                   GOTO      DSPLY                                                            
     C*----------------------------------------------------+                                        
     C*( 初期画面 )                                                                                 
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C                   GOTO      START                                                            
     C                   ENDIF                                                                      
     C*( 実行キー )                                                                                 
     C     GET_RECORD    TAG                                                                        
     C                   SETOFF                                       90                            
     C   90              MOVEL     ' 入力 '      DSPMSG                                             
     C  N90              MOVEL     ' 更新 '      DSPMSG                                             
     C  N90              EXSR      CHECK                                                            
     C   99              GOTO      START                                                            
     C*( 明細画面 )                                                                                 
     C*-------------------------------------------------------------------------+                   
     C     DSPLY         TAG                                                    |                   
     C                   EXFMT     DSPDTA01                                     |                   
     C*-------------------------------------------------------------------------+                   
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C                   GOTO      DSPLY                                                            
     C                   ENDIF                                                  CF03                
     C*( CF12 )- 前画面                                                                             
     C     *IN12         IFEQ      *ON                                          CF12                
     C                   SETOFF                                       12                            
     C                   GOTO      START                                                            
     C                   ENDIF                                                  CF12                
     C*( 実行キー )                                                                                 
     C                   EXSR      CHECK                                                            
     C                   GOTO      DSPLY                                                            
     C     END           TAG                                                                        
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期サイクルのみの実行                                                                     
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C*( 明細チエック )                                                                             
     C*                                                                                             
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     LRRTN         BEGSR                                                                      
     C******************************************************                                        
     C                   SETON                                        LR                            
     C                   ENDSR