+C*( ?FIELD   の自動発生  )                                                 
     C                     EXSR HASEI                                           
    +C*( CF12 )- 前画面                                                         
     C           *IN12     IFEQ '1'                        CF12                 
     C                     SETOF                     12                         
     C*    未使用の DMY-RECORD を削除                                           
     C                     EXSR DMYDEL                                          
     C                     GOTO START                                           
     C                     END                             CF12                 
     C******************************************************                    
     C           HASEI     BEGSR                                                
     C******************************************************                    
     C*( 伝票番号の自動発生 )                                                   
     C*----------------------------------------------------*                    
     C*( ?FIELD :                 :  自動発生              |                    
     C*----------------------------------------------------*                    
     CSR         FILED     IFEQ *BLANKS                                         
     CSR         FIELD     OREQ *ZEROS                                          
     CSR         *HIVAL    SETGTFILE                                            
     CSR                   SETOF                     50                         
     CSR                   READPFILE                     50                     
     CSR 50                Z-ADD1         NXTNO   80                            
     CSRN50                MOVE FIELD     NXTNO                                 
     CSRN50                ADD  1         NXTNO                                 
     CSR                   MOVE NXTNO     FIELD                                 
     C*( 複数同時入力用 DUMMY-RECORD 出力 )                                     
     C*    他の W/S から入力されると次の番号が与えられるように                  
     CSR                   MOVE *ZEROS    GYO                                   
     CSR         *NOKEY    CLEAR@RECORD                                         
     C*----------------------------------------------------*                    
     C                     WRITE@RECORD                    |                    
     C*----------------------------------------------------*                    
     CSR                   END                                                  
     C*                                                                         
     CSR         HASEND    ENDSR                                                
     C******************************************************                    
     C           DMYDEL    BEGSR                                                
     C******************************************************                    
     C*( 複数同時入力用 DUMMY-RECORD 削除 )                                     
     CSR                   MOVE FILED     DMY001                                
     CSR         *LIKE     DEFN FILED     DMY001                                
     CSR                   MOVE *ZEROS    GYO                                   
     CSR                   CLEAR@RECORD                                         
     CSR                   MOVE DMY001    FIELD                                 
     C*----------------------------------------------------+                    
     C           DMYEQL    KLIST                           |                    
     C                     KFLD           FIELD            |                    
     C                     KFLD           GYO              |                    
     C*----------------------------------------------------+                    
     CSR         DMTEQL    SETLLFILE                                            
     CSR                   DO   *HIVAL                                          
     CSR                   SETOF                     50                         
     CSR         DMYEQL    READEFILE                     50                     
     CSR 50                GOTO DELEND                                          
     C*----------------------------------------------------*                    
     C                     DELET@RECORD                    |                    
     C*----------------------------------------------------*                    
     CSR                   END                                                  
     CSR         DELEND    TAG                                                  
     CSR                   MOVE DMY001    FIELD                                 
     CSR                   ENDSR                                                
     C*****************************************************                     
     C           LRRTN     BEGSR                                                
     C*****************************************************                     
     C*                                                                         
     CSR                   EXSR DMYDEL                                          
     CSR         LREND     ENDSR