H DFTNAME(UPD005) DATEDIT(*YMD/)                                                               
     F******** 商品マスターの登録           ***************************                             
     FUPD005D   CF   E             WORKSTN                                                          
     FSHOHIN    UF A E           K DISK                                                             
     FHINSHU    IF   E           K DISK                                                             
     F*****************************************************************                             
     D SAVDTA          S              1    DIM(1024)                             SAVE-ﾃﾞｰﾀ          
     D SAVEDS        E DS                  EXTNAME(SHOHIN)                                          
     D  DSPDTA                 1   1024                                                             
     D                                     DIM(1024)                             入力 ﾃﾞｰﾀ          
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   SETON                                        LR                            
     C   LR              EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C                   GOTO      START                                                            
     C                   END                                                                        
     C*----------------------------------------------------+                                        
     C     TRNKEY        KLIST                                                  |                   
     C                   KFLD                    SHCODE                         |                   
     C*----------------------------------------------------+                                        
     C     *NOKEY        CLEAR                   SHOHINR                                            
     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*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   EXFMT     DSPDTA01                                     |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   SETON                                        LR                            
     C   LR              EXSR      LRRTN                                                            
     C   LR              RETURN                                                                     
     C                   GOTO      DSPLY                                                            
     C                   END                                                                        
     C*-( CF12 )- 前画面                                                                            
     C     *IN12         IFEQ      *ON                                                              
     C                   SETOFF                                       12                            
     C                   SETOFF                                       90                            
     C     TRNKEY        CHAIN     SHOHIN                             90                            
     C*----------------------------------------------------+                                        
     C  N90              UPDATE    SHOHINR                                      | DUMMY             
     C*----------------------------------------------------+  EXCPT                                 
     C                   GOTO      START                                                            
     C                   END                                                                        
     C* ( 入力内容のチェック  )                                                                     
     C                   EXSR      CHECK                                                            
     C   99              GOTO      DSPLY                                                            
     C  N10                                                                                         
     CANN23              GOTO      DSPLY                                                            
     C*-( CF10 )  更新                                                                              
     C*----------------------------------------------------+                                        
     C   10                                                                                         
     CAN 90              WRITE     SHOHINR                                      | ADD               
     C   10                                                                                         
     CANN90              UPDATE    SHOHINR                                      | CHG               
     C*----------------------------------------------------+                                        
     C   10                                                                                         
     CAN 90              ADD       1             ADDREC            5 0                              
     C   10                                                                                         
     CANN90              ADD       1             CHGREC            5 0                              
     C   10              GOTO      START                                                            
     C*-( CF23 )  削除                                                                              
     C*----------------------------------------------------+                                        
     C   23                                                                                         
     CANN90              DELETE    SHOHINR                                      | DLT               
     C*----------------------------------------------------+                                        
     C   23                                                                                         
     CANN90              ADD       1             DLTREC            5 0                              
     C   23              GOTO      START                                                            
     C                   GOTO      DSPLY                                                            
     C     END           TAG                                                                        
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C     *NOKEY        CLEAR                   @HINSHU                                            
     C                   SETOFF                                       99                            
     C     SHSCOD        CHAIN     HINSHU                             99                            
     C   99              SETON                                        93  99    ERRMSG              
     C     ENDCHK        ENDSR                                                                      
     C******************************************************                                        
     C     LRRTN         BEGSR                                                                      
     C******************************************************                                        
     C                   MOVE      'Y'           ANS                                                
     C*----------------------------------------------------+                                        
     C     DSPEND        TAG                                                    |                   
     C                   EXFMT     ENDOPT                                       |                   
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   RETURN                                                                     
     C                   END                                                     ENDRTN             
     C*-( CF12 )- 前画面                                                                            
     C     *IN12         IFEQ      *ON                                                              
     C                   SETOFF                                       LR                            
     C                   END                                                     ENDRTN             
     C*-( 実行キー )                                                                                
     C                   RETURN                                                                     
     C                   ENDSR