H DFTNAME(RCD001) DATEDIT(*YMD/)                                                               
     F********  レコード・ロック処理の例  **********************************                        
     FRCD001FM  CF   E             WORKSTN                                                          
     FSHOHIN    UF A E           K DISK                                                             
     F**********************************************************************                        
     D SAVDTA          S              1    DIM(1024)                             SAVE-ﾃﾞｰﾀ          
     D SAVEDS        E DS                  EXTNAME(SHOHIN)                                          
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C   03              SETON                                        LR                            
     C   LR              RETURN                                                                     
     C     *NOKEY        CLEAR                   SHOHINR                                            
     C                   SETOFF                                       90                            
     C     SHCODE        CHAIN     SHOHIN                             90                            
     C  N90              MOVEA     SAVEDS        SAVDTA                                             
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   EXFMT     DSPDTA01                                     |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       919299                        
     C*( CF03 )- 終了                                                                               
     C   03              SETON                                        LR                            
     C   LR              RETURN                                                                     
     C*-( CF12 )- 前画面                                                                            
     C     *IN12         IFEQ      *ON                                                              
     C                   UNLOCK    SHOHIN                               90                          
     C                   GOTO      START                                                            
     C                   END                                                                        
     C                   MOVEA     SAVDTA        SAVEDS                                             
     C*----------------------------------------------------+                                        
     C   90              WRITE     SHOHINR                                      | ADD               
     C  N90              UPDATE    SHOHINR                                      | CHG               
     C*----------------------------------------------------+                                        
     C                   GOTO      DSPLY                                                            
     C     END           TAG