Rahmen

BAR$FRAME (RPGLE)



  X * FRAME BEGSR BAR$FRAME 134  
  X * FRAMEX BEGSR BAR$FRAME 14  
  X  
  X * MYTITELXQUERY EXSR BAR$TEXT    
  X * MYTITELXUTF8 EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     FRAME BEGSR                
C *     --------------------------------------
C *     Rahmen öffnen
C *     --------------------------------------
C     WWTYP IFEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C     WWCHAT IFNE NOCHAT              
C          
C *     --------------------------------------
C *     Benutzername mitgeben
C *     --------------------------------------
C       MOVEL(P) QUERY QUERY2            
C     *BLANKS IFNE BENUTZER              
C       MOVEL(P) BENUTZER MYTITEL            
C       EXSR MYTITELXQUERY              
C       EXSR MYTITELXUTF8              
C       EXSR MYTITELXFORM              
C     *BLANKS COMP QUERY2       — — 78  
C   78   CAT '?' :0 QUERY2            
C   N78   CAT '&' :0 QUERY2            
C       CAT BENUTZERNAME:0 QUERY2            
C       CAT MYTITEL :0 QUERY2            
C       ENDIF                
C *     --------------------------------------
C *     Höhe festlegen
C *     --------------------------------------
C     *ZERO ADD ROWHEIGHT1 ROWHEIGHT            
C   N61 *ZERO ADD ROWHEIGHT2 ROWHEIGHT            
C   N66 *ZERO ADD ROWHEIGHT2 ROWHEIGHT            
C          
C *     --------------------------------------
C *     Rahmen öffnen
C *     --------------------------------------
C       MOVEL(P) TYPFRA NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV0            
C          
C       MOVEL(P) TYPFRR NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV1            
C          
C       MOVEL(P) TYPFRD NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV2            
C          
C       MOVEL(P) TYPFRE NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV3            
C          
C       MOVEL(P) TYPFRN NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV4            
C          
C       MOVEL(P) TYPFRW NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV5            
C          
C       MOVEL(P) TYPFRS NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV6            
C          
C       MOVEL(P) TYPFRT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV7            
C          
C *     --------------------------------------
C *     Chat ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '§§+
C          
C       <frameset +
C        frameborder=0 +
C        framespacing=0 border=0 style="+
C        background-color:'+%TRIM(FABGCOLOR)+'" +
C                   cols="*,0">§+
C       <frameset +
C        frameborder=0 +
C        framespacing=0 border=0 style="+
C        background-color:'+%TRIM(FABGCOLOR)+'" +
C             rows="*,0,0,'+%CHAR(ROWHEIGHT)+',0">§§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV0)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV0)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV1)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV1)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV2)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV2)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV3)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV3)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY2) +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV4)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV4)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'"></frameset>§§+
C          
C       <frameset +
C        frameborder=0 +
C        framespacing=0 border=0 style="+
C        background-color:'+%TRIM(FABGCOLOR)+'" +
C               rows="*,0,'+%CHAR(ROWHEIGHT3+
C                     ROWHEIGHT4)+'">§§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV5)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV5)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV6)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV6)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'">§+
C          
C       <frame noresize name="'+   %TRIM(FRNAV7)+'" +
C        src="'+%TRIM ( ELEMENT)+'/'+%TRIM(FRNAV7)+
C               %TRIM ( PFADX)  +
C               %TRIM ( QUERY)  +'"></frameset>§§+
C          
C       <noframes>'
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     FRAMEX BEGSR                
C *     --------------------------------------
C *     Rahmen schließen
C *     --------------------------------------
C     WWTYP IFEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C     WWCHAT IFNE NOCHAT              
C       EVAL BUF =
C       BUF + '</noframes>§+
C              </frameset>§'
C       ENDIF                
C       ENDIF                
C       ENDSR                

169 ms | Kontakt | Information | Aibo-Bar © 2005-2024