H DFTNAME(RPG001) DATEDIT(*YMD/)                                                               
     F******** 商品マスターの登録           ***************************                             
     FRPG001FM  CF   E             WORKSTN                                                          
     FSHOHIN    UF A E           K DISK                                                             
     FHINSHU    IF   E           K DISK                                                             
     F*****************************************************************                             
     D SAVDTA          S              1    DIM(1024)                             SAVE-ｺﾞｰn          
     D ERR             S              4    DIM(18)                                                  
     D MSG             S              4    DIM(19)                                                  
     D*   SAVE-RESTORE のための表示画面の ｺﾞｰnｦkqwgoｭｰ                                              
     D*        表示画面 ｺﾞｰn は DSPDTA に保存される                                                 
     D SAVEDS        E DS                  EXTNAME(SHOHIN)                                          
     D  DSPDTA                 1   1024                                                             
     D                                     DIM(1024)                             入力 ｺﾞｰn          
     D DDS001        E DS                  EXTNAME(HINSHU)                                          
     D* ＬＩＢ名付きＰＧＭ名                                              *                         
     D RPG002          C                   CONST('R610OBJ/RPG002')                                  
     C                   MOVE      ERR(18)       MSG(19)                                            
     C                   DO        *HIVAL                                                           
     C                   EXSR      HEAD                                                             
     C                   EXSR      DSPLY                                                            
     C                   END                                                                        
     C     END           TAG                                                                        
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期 iagy のみの実行                                                                       
     C                   SETON                                        41        DSPDTA01 出力       
     C                   Z-ADD     41            DN                2 0           画面標識           
     C                   Z-ADD     02            FRMSU             2 0           画面様式数         
     C*( DS の数字 ﾊｩｰyqﾞ の gxtｰ )                                                                 
     C                   EXSR      CLEAR                                                            
     C     INZEND        ENDSR                                                                      
     C******************************************************                                        
     C     HEAD          BEGSR                                                                      
     C******************************************************                                        
     C*  DSPHEAD  の ocWgyｰoﾜ                                                                       
     C*----------------------------------------------------*                                        
     C                   CALL      RPG002                                                           
     C                   PARM      'DSPHEAD   '  FORMAT           10                                
     C                   READ      RPG001FM                               99    |                   
     C*----------------------------------------------------*                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C   03              SETON                                        LR                            
     C   LR              EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C*( 実行キー )                                                                                 
     C                   EXSR      CLEAR                                                            
     C*  TRNKEY: 更新する ｺﾞｰnﾊｨay の KEY-LIST                                                      
     C*----------------------------------------------------+                                        
     C     TRNKEY        KLIST                                                  |                   
     C                   KFLD                    SHCODE                         |                   
     C*----------------------------------------------------+                                        
     C     KEYGET        TAG                                                                        
     C*  ｺﾞｰnﾊｨay を検索する                                                                        
     C                   SETOFF                                       90                            
     C     TRNKEY        CHAIN     SHOHIN                             90                            
     C   90              MOVE      ' 登録 '      DSPMSG            6                                
     C  N90              MOVE      ' 変更 '      DSPMSG                                             
     C  N90              EXSR      CHECK                                                            
     C* DATA-SAVE FOR BACK-UP                                                                       
     C  N90              MOVE      DSPDTA        SAVDTA                                             
     C     HEDEND        ENDSR                                                                      
     C******************************************************                                        
     C     DSPLY         BEGSR                                                                      
     C******************************************************                                        
     C                   DO        *HIVAL                                                           
     C*----------------------------------------------------+                                        
     C                   EXFMT     DSPDTA01                                     |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C   03              SETON                                        LR                            
     C   LR              EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C*( 実行キー )                                                                                 
     C* ( 入力内容の ocWg )                                                                         
     C                   EXSR      CHECK                                                            
     C*( CF10 )- 更新                                                                               
     C     *IN10         IFEQ      *ON                                                              
     C*----------------------------------------------------*                                        
     C   90              WRITE     SHOHINR                                      |                   
     C  N90              UPDATE    SHOHINR                                      |                   
     C*----------------------------------------------------*                                        
     C                   SETOFF                                       10                            
     C                   LEAVE                                                                      
     C                   END                                                                        
     C*                                                                                             
     C                   END                                                                        
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C*  DSPDTA01 の ocWgyｰoﾜ                                                                       
    +C*----------------------------------------------------*                                        
     C*( SHSCOD    :  品種 [ｰqﾞ          :( CHAIN ファイル )                                        
     C*----------------------------------------------------*                                        
     C*                                                                                             
     C     SHSCOD        IFNE      *BLANKS                                       IF-                
     C*----------------------------------------------------+                                        
     C     CHE001        KLIST                                                  |                   
     C                   KFLD                    SHSCOD                         |                   
     C*----------------------------------------------------+                                        
     C                   CLEAR                   DDS001                          外部 DS            
     C                   SETOFF                                       99                            
     C     CHE001        CHAIN     HINSHU                             99                            
     C   99              SETON                                        93  99    ERRMSG              
     C   99              GOTO      END01                                                            
     C                   END                                                     ENDRTN             
     C     END01         ENDSR                                                                      
     C*****************************************************                                         
     C     LRRTN         BEGSR                                                                      
     C*****************************************************                                         
     C                   ENDSR                                                                      
     C*****************************************************                                         
     C     CLEAR         BEGSR                                                                      
     C*****************************************************                                         
     C     *NOKEY        CLEAR                   SHOHINR                                            
     C     CLREND        ENDSR