PGU/400 Dialogprogramm Entwicklungsystem; Entwicklung mit RPG/400
Code:
Datenbankdatei positionieren
 
            *COMMENT    IN50 Farben werden zurückgesetzt        
            MOVE        *OFF        *IN50                       
                                                                
            *COMMENT    Belegung der Schlüsselfelder            
                                   
            Z-ADD       LAFIRM      BVFIRM                      
            MOVEL       *HIVAL      BVDAT1                      
            MOVE        *BLANKS     BVARTN                      
                                                                
            *COMMENT    Datum wird ins DB Format gedreht und    
LADATS      IFEQ        *ZEROS                                  
            Z-ADD       *ZEROS      VADATU                      
            ELSE                                                
            Z-ADD       LADATS      DAT,1                       
            MOVE        'DB'        DATKZ                       
            EXSR        DATAUS                                  
            Z-ADD       DAT,1       VADATU     8 0              
            Z-ADD       VADATU      BVDAT1                      
            ENDIF
Code:
Datenbanksätze lesen 
 
            *COMMENT    Kriterium für die Suchmaske          
VADATU      IFNE        *ZEROS                               
BVDAT1      IFGT        VADATU                               
            MOVE        *ON         *IN99                    
                                                             
            ENDIF                                            
            ENDIF                                            
 
*IN99       IFEQ        *OFF                                 
LAARTN      IFNE        *BLANKS                              
LAARTN      ANDNE       BVARTN                               
            GOTO        #IC012                               
            ENDIF                                            
                                                             
BVMGRH      IFNE        BVMGWK                               
            MOVE        *ON         *IN50                    
            ELSE                                             
            MOVE        *OFF        *IN50                    
            ENDIF                                            
                                                             
LAFEHL      IFEQ        *BLANKS                              
            MOVE        'N'         LAFEHL                   
            ENDIF                                            
                                                             
LAFEHL      IFEQ        'J'                                  
*IN50       IFEQ        *OFF                                 
            GOTO        #IC012                               
            ENDIF                                            
            ENDIF                                            
                                                             
BVDAT1      IFGE        VADATU                               
             MOVEL       'J'         FLDDAT                   
             ELSE                                             
             MOVEL       'N'         FLDDAT                   
             ENDIF                                            
                                                              
endif