Tabelle

BARTABLE (RPGLE)



  X * TABLE BEGSR BARTABLE 13  
  X * TABLE100PR BEGSR BARTABLE 14  
  X * TABLESRC BEGSR BARTABLE 7  
  X * TABLESRCSTART BEGSR BARTABLE 20  
  X * TABLEKAL BEGSR BARTABLE 13  
  X * TABLE8 BEGSR BARTABLE 13  
  X * TABLE4 BEGSR BARTABLE 13  
  X * TABLESTART BEGSR BARTABLE 32  
  X * TABLEX BEGSR BARTABLE 30  
  X * TABLESPACE BEGSR BARTABLE 9  
  X * ROW BEGSR BARTABLE 16  
  X * ROWT BEGSR BARTABLE 14  
  X * ROWROWX BEGSR BARTABLE 17  
  X * ROWCOLOR12 BEGSR BARTABLE 13  
  X * ROWSTART BEGSR BARTABLE 39  
  X * ROWX BEGSR BARTABLE 23  
  X * ROWXROW BEGSR BARTABLE 7  
  X * ROWSPACECOL BEGSR BARTABLE 12  
  X * COL BEGSR BARTABLE 7  
  X * COLB BEGSR BARTABLE 7  
  X * COL1 BEGSR BARTABLE 7  
  X * COL1B BEGSR BARTABLE 7  
  X * COL100PRB BEGSR BARTABLE 7  
  X * COLROWINF BEGSR BARTABLE 7  
  X * COL2 BEGSR BARTABLE 8  
  X * COL2B BEGSR BARTABLE 8  
  X * COL3 BEGSR BARTABLE 8  
  X * COL4 BEGSR BARTABLE 8  
  X * COL5 BEGSR BARTABLE 8  
  X * COL6 BEGSR BARTABLE 8  
  X * COL11 BEGSR BARTABLE 8  
  X * COL12 BEGSR BARTABLE 8  
  X * COL12B BEGSR BARTABLE 8  
  X * COLNOWRAP BEGSR BARTABLE 7  
  X * COLNOWRAPB BEGSR BARTABLE 7  
  X * COLLEFT BEGSR BARTABLE 7  
  X * COLLEFTS BEGSR BARTABLE 7  
  X * COLLEFTS2 BEGSR BARTABLE 8  
  X * COLLEFTS3 BEGSR BARTABLE 8  
  X * COLLEFTS4 BEGSR BARTABLE 8  
  X * COLLEFTS5 BEGSR BARTABLE 8  
  X * COLLEFTS6 BEGSR BARTABLE 8  
  X * COLLEFTS7 BEGSR BARTABLE 8  
  X * COLLEFTS8 BEGSR BARTABLE 8  
  X * COLLEFT1B BEGSR BARTABLE 7  
  X * COLCENTER BEGSR BARTABLE 7  
  X * COLCENTERMAX BEGSR BARTABLE 7  
  X * COLCENTERB BEGSR BARTABLE 7  
  X * COLCENTERS BEGSR BARTABLE 7  
  X * COLCENTER1B BEGSR BARTABLE 7  
  X * COLCENTER2 BEGSR BARTABLE 8  
  X * COLCENTER3 BEGSR BARTABLE 8  
  X * COLCENTER7B BEGSR BARTABLE 8  
  X * COLCENTERMIT BEGSR BARTABLE 8  
  X * COLRIGHT BEGSR BARTABLE 7  
  X * COLRIGHTB BEGSR BARTABLE 7  
  X * COLRIGHTNOWRAP BEGSR BARTABLE 7  
  X * COLRIGHTS BEGSR BARTABLE 7  
  X * COLRIGHTS2 BEGSR BARTABLE 8  
  X * COLRIGHT1B BEGSR BARTABLE 7  
  X * COLRIGHT2 BEGSR BARTABLE 8  
  X * COLRIGHT2B BEGSR BARTABLE 8  
  X * COLCMD BEGSR BARTABLE 8  
  X * COLCMD2 BEGSR BARTABLE 8  
  X * COLDDS BEGSR BARTABLE 8  
  X * COLFIL BEGSR BARTABLE 8  
  X * COLDEF BEGSR BARTABLE 8  
  X * COLRPG BEGSR BARTABLE 8  
  X * COLRPG2 BEGSR BARTABLE 8  
  X * COLRPGX BEGSR BARTABLE 8  
  X * COLRPGX2 BEGSR BARTABLE 8  
  X * COLFREE BEGSR BARTABLE 8  
  X * COLFREE2 BEGSR BARTABLE 8  
  X * COLFREE3 BEGSR BARTABLE 8  
  X * COLINDN BEGSR BARTABLE 7  
  X * COLSEQNUM BEGSR BARTABLE 7  
  X * COLFORMTYPE BEGSR BARTABLE 7  
  X * COLLINE BEGSR BARTABLE 8  
  X * COLCOMMENT BEGSR BARTABLE 7  
  X * COLKAL2 BEGSR BARTABLE 8  
  X * COLKAL3 BEGSR BARTABLE 12  
  X * COLTABLE BEGSR BARTABLE 11  
  X * COLTABLE12 BEGSR BARTABLE 12  
  X * COLTABLEMIT BEGSR BARTABLE 14  
  X * COLTABLECOLOR BEGSR BARTABLE 11  
  X * COLTABLECOLORS BEGSR BARTABLE 12  
  X * COLTABLECENTER BEGSR BARTABLE 11  
  X * COLTABLEOPTION BEGSR BARTABLE 11  
  X * COLTABLESTART BEGSR BARTABLE 11  
  X * COLTABLEX BEGSR BARTABLE 10  
  X * COLADD BEGSR BARTABLE 9  
  X * COLADDB BEGSR BARTABLE 9  
  X * COLADDS BEGSR BARTABLE 7  
  X * COLSTART BEGSR BARTABLE 15  
  X * COLSTARTB BEGSR BARTABLE 8  
  X * COLSTARTTABLE BEGSR BARTABLE 9  
  X * COLSTARTALL BEGSR BARTABLE 26  
  X * COLSTOP BEGSR BARTABLE 9  
  X * COLCOLOR BEGSR BARTABLE 63  
  X * COLCOLORS1 BEGSR BARTABLE 14  
  X * COLCOLORS2 BEGSR BARTABLE 10  
  X * COLCOLORMIT BEGSR BARTABLE 7  
  X * COLTEXT BEGSR BARTABLE 7  
  X * COLTEXT2 BEGSR BARTABLE 8  
  X * COLTEXTMIT BEGSR BARTABLE 8  
  X * COLTEXTCENTER BEGSR BARTABLE 7  
  X * COLTEXTCENTERM BEGSR BARTABLE 7  
  X * COLTEXTAG BEGSR BARTABLE 7  
  X * COLTEXTADD BEGSR BARTABLE 8  
  X * COLTEXTADD2 BEGSR BARTABLE 6  
  X * COLTEXTADDX BEGSR BARTABLE 7  
  X * COLTEXTSTART BEGSR BARTABLE 12  
  X * COLINPUTBUFV BEGSR BARTABLE 32  
  X * COLTEXTAREA BEGSR BARTABLE 28  
  X  
  X * WRSTOUT EXSR BARSTOUT    
  X * TEXTCOLOR EXSR BARTEXT    
  X * TEXTCOLOR EXSR BARTEXT    
  X * TEXTCOLOR EXSR BARTEXT    
  X * WRSTOUT EXSR BARSTOUT    
  X * NUMSTR EXSR BARNUM    
  X * NUMSTR EXSR BARNUM    
  X * WRSTOUTV EXSR BARSTOUT    
  X * WRSTOUT EXSR BARSTOUT    
  X * MYTITELX EXSR BARTEXT    
  X * MYBUFVXFORM EXSR BARTEXT    
  X * WRSTOUT EXSR BARSTOUT    
  X * WRSTOUTV EXSR BARSTOUT    
  X * MYTITELX EXSR BARTEXT    
  X * MYBUFVXFORM EXSR BARTEXT    
  X * WRSTOUT EXSR BARSTOUT    
  X * WRSTOUTV EXSR BARSTOUT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2025
C          
  X * FORMLEER EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN3 EXSR BARFORM    
  X * FORMLOGOUT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEPF EXSR BARLISTE    
  X * LISTEAKT EXSR BARLISTE    
  X * LISTERUB EXSR BARLISTE    
  X * LISTEIDXBILD EXSR BARLISTE    
  X * LISTEMITPN EXSR BARLISTE    
  X * LISTEMITART EXSR BARLISTE    
  X * LISTEARTPN EXSR BARLISTE    
  X * LISTEFRN EXSR BARLISTE    
  X * LISTEFRW EXSR BARLISTE    
  X * LISTEMMM EXSR BARLISTE    
  X * LISTEGAL EXSR BARLISTE    
  X * LISTENNN EXSR BARLISTE    
  X * LISTENNN# EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEAW EXSR BARLISTE    
  X * LISTENAV EXSR BARLISTE    
  X * LISTEDEV EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTEFILES EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTEBESUCHER EXSR BARLISTE    
  X * LISTEANFRAGEN EXSR BARLISTE    
  X * SENDHTML EXSR BARSEND    
  X  
C     TABLE BEGSR                
C       CLEAR   BUF            
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="8" summary="">'
C       ENDIF                
C       EXSR TABLESTART              
C       ENDSR                
C          
  X * LISTEIDXTEXT EXSR BARLISTE    
  X * LISTEFRA EXSR BARLISTE    
  X  
C     TABLE100PR BEGSR                
C       CLEAR   BUF            
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="8" summary="" +
C          width="100%">'
C       ENDIF                
C       EXSR TABLESTART              
C       ENDSR                
C          
  X * SRCALL EXSR BARSRC    
  X  
C     TABLESRC BEGSR                
C       MOVEL(P) ROWCOLOR1 ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C       EXSR TABLESRCSTART              
C       ENDSR                
C          
  X * SRCRPG EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * TABLESRC EXSR BARTABLE    
  X  
C     TABLESRCSTART BEGSR                
C       CLEAR   BUF            
C       CLEAR   TDVALIGN            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="3" summary="" +
C          width="100%" +
C           name="source"'+
C           NOTRANSLATE+'>'
C       ENDIF                
C       EXSR TABLESTART              
C     *BLANKS COMP SERIE       — — 37  
C     *IN37 COMP *OFF       — — 37  
C       SETON         — — 36  
C       SETOFF         — — 36  
C       ENDSR                
C          
  X * LISTEKAL EXSR BARLISTE    
  X  
C     TABLEKAL BEGSR                
C       CLEAR   BUF            
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="6" summary="">'
C       ENDIF                
C       EXSR TABLESTART              
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * FORMSUCHE EXSR BARFORM    
  X  
C     TABLE8 BEGSR                
C       CLEAR   BUF            
C       CLEAR   ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="8" summary="">'
C       ENDIF                
C       EXSR TABLESTART              
C       ENDSR                
C          
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X  
C     TABLE4 BEGSR                
C       CLEAR   BUF            
C       CLEAR   ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<table border="0" +
C                cellspacing="0" +
C                cellpadding="4" summary="">'
C       ENDIF                
C       EXSR TABLESTART              
C       ENDSR                
C          
  X * TABLE EXSR BARTABLE    
  X * TABLE100PR EXSR BARTABLE    
  X * TABLESRCSTART EXSR BARTABLE    
  X * TABLEKAL EXSR BARTABLE    
  X * TABLE8 EXSR BARTABLE    
  X * TABLE4 EXSR BARTABLE    
  X  
C     TABLESTART BEGSR                
C       MOVEL(P) TDMIDDLE TDVALIGN            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C     *HIVAL SUB 1 ROWROWS            
C     *ZERO ADD 1 ROWROWSMAX            
C     'r' IFEQ DEBUG              
C     *ZERO ADD 2 ROWROWSMAX            
C       ENDIF                
C       CLEAR   ROWSPACE            
C       CLEAR   ROWS            
C       CLEAR   COLS            
C       CLEAR   LINK            
C *     --------------------------------------
C *     ID ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     *BLANKS IFNE DIV              
C       EVAL BUF = '<div id="'+
C             %TRIM(DIV)+'"'+
C            %TRIMR(DATA)+'>§'+BUF
C       ENDIF                
C       ENDIF                
C       SETOFF         — 71 —  
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = %TRIM(ABSTAND) + BUF
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * FORMLEER EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN3 EXSR BARFORM    
  X * FORMLOGOUT EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEPF EXSR BARLISTE    
  X * LISTEAKT EXSR BARLISTE    
  X * LISTERUB EXSR BARLISTE    
  X * LISTEIDXBILD EXSR BARLISTE    
  X * LISTEIDXTEXT EXSR BARLISTE    
  X * LISTEMITPN EXSR BARLISTE    
  X * LISTEMITART EXSR BARLISTE    
  X * LISTEARTPN EXSR BARLISTE    
  X * LISTEFRA EXSR BARLISTE    
  X * LISTEFRN EXSR BARLISTE    
  X * LISTEFRW EXSR BARLISTE    
  X * LISTEMMM EXSR BARLISTE    
  X * LISTEGAL EXSR BARLISTE    
  X * LISTENNN EXSR BARLISTE    
  X * LISTENNN# EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEKAL EXSR BARLISTE    
  X * LISTEAW EXSR BARLISTE    
  X * LISTENAV EXSR BARLISTE    
  X * LISTEDEV EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTEFILES EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTEBESUCHER EXSR BARLISTE    
  X * LISTEANFRAGEN EXSR BARLISTE    
  X * SENDHTML EXSR BARSEND    
  X * SRCALL EXSR BARSRC    
  X * SRCRPG EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X  
C     TABLEX BEGSR                
C *     --------------------------------------
C *     Tabelle schließen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF =
C       BUF + '</table>'
C          
C     *BLANKS IFNE DIV              
C       EVAL BUF =
C       BUF + '</div>'
C       ENDIF                
C     ROWS IFLT 1              
C       EVAL BUF = '<!---->'
C          
C     *BLANKS IFNE DIV              
C       EVAL BUF = '<div id="'+
C             %TRIM(DIV)+'"'+
C            %TRIMR(DATA)+'>'+BUF+'</div>'
C       ENDIF                
C       ELSE                
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDIF                
C       ENDIF                
C       EXSR WRSTOUT              
C       CLEAR   DIV            
C       CLEAR   DATA            
C       SETOFF         — — 37  
C       SETOFF         — — 36  
C       ENDSR                
C          
  X * SRCRPG EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X  
C     TABLESPACE BEGSR                
C *     --------------------------------------
C *     Abstand nach Tabelle
C *     --------------------------------------
C       MOVEL(P) ABSTAND0 ABSTAND            
C     *BLANKS COMP SERIE       — — 37  
C     *IN37 COMP *OFF       — — 37  
C       SETOFF         — — 37  
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN3 EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMUPLOAD EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEKAL3 EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * SENDHTML EXSR BARSEND    
  X * SRCCMDROW EXSR BARSRC    
  X * SRCDDSROW EXSR BARSRC    
  X * SRCRPGROW EXSR BARSRC    
  X * SRCRPGROW1 EXSR BARSRC    
  X * SRCRPGROW2 EXSR BARSRC    
  X * SRCRPGROW3 EXSR BARSRC    
  X * SRCRPGROW4 EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCTXTROW EXSR BARSRC    
  X * ROWXROW EXSR BARTABLE    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTXML EXSR BARZEILE    
  X * ZEILEARTRSS EXSR BARZEILE    
  X * ZEILEARTATOM EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWXML EXSR BARZEILE    
  X * ZEILEAWRSS EXSR BARZEILE    
  X * ZEILEAWATOM EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMITXML EXSR BARZEILE    
  X * ZEILEMITRSS EXSR BARZEILE    
  X * ZEILEMITATOM EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUBXML EXSR BARZEILE    
  X * ZEILERUBRSS EXSR BARZEILE    
  X * ZEILERUBATOM EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAVXML EXSR BARZEILE    
  X * ZEILENAVRSS EXSR BARZEILE    
  X * ZEILENAVATOM EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     ROW BEGSR                
C       ADD 1 ROWS            
C       ADD 1 ROWROWS            
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     ROWROWS IFGT ROWROWSMAX              
C       EXSR ROWCOLOR12              
C       EXSR ROWSTART              
C       ENDIF                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C       ENDSR                
C          
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEKAL EXSR BARLISTE    
  X * LISTEKAL2 EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEARTX EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUBX EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAVX EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILEWERX EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESRCX EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILEFILEX EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILESMILYX EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEBESUCHEX EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGEX EXSR BARZEILE    
  X  
C     ROWT BEGSR                
C       ADD 1 ROWROWS            
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     ROWROWS IFGT ROWROWSMAX              
C       EXSR ROWSTART              
C       ENDIF                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C       ENDSR                
C          
  X * LISTESRCS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     ROWROWX BEGSR                
C       ADD 1 ROWS            
C       ADD 1 ROWROWS            
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     ROWROWS IFGT ROWROWSMAX              
C     *ZERO ADD 1 ROWROWS            
C     *ZERO ADD 1 COLSPAN            
C       CLEAR   COLS            
C       ENDIF                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C       ENDSR                
C          
  X * SRCALL EXSR BARSRC    
  X * ROW EXSR BARTABLE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X  
C     ROWCOLOR12 BEGSR                
C *     --------------------------------------
C *     Reihenfarbe wechseln
C *     --------------------------------------
C       SELECT    
C     ROWCOLOR WHENEQ ROWCOLOR1              
C   N24   MOVEL(P) ROWCOLOR2 ROWCOLOR            
C     ROWCOLOR WHENEQ ROWCOLOR2              
C       MOVEL(P) ROWCOLOR1 ROWCOLOR            
C     ROWCOLOR WHENEQ ROWCOLORT              
C       MOVEL(P) ROWCOLOR1 ROWCOLOR            
C       ENDSL                
C       ENDSR                
C          
  X * ROW EXSR BARTABLE    
  X * ROWT EXSR BARTABLE    
  X  
C     ROWSTART BEGSR                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     *BLANKS IFNE ROWSPACE              
C       CLEAR   TRCOLOR            
C       MOVEL(P) ROWCOLOR TDCOLOR            
C       ELSE                
C       MOVEL(P) ROWCOLOR TRCOLOR            
C       CLEAR   TDCOLOR            
C       ENDIF                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C   N36   EVAL BUF = BUF + '§§<tr'+%TRIMR(TRCOLOR)+'>'
C   36   EVAL BUF = BUF + '§§<tr'+%TRIMR(TRCOLOR)+
C                ROWSELECT+TAP +'>'
C     *IN36 IFEQ *ON              
C     *BLANKS ORNE TRCOLOR              
C       EVAL BUF = BUF + '§    '
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     *ZERO ADD 1 ROWROWS            
C     *ZERO ADD 1 COLSPAN            
C       CLEAR   COLS            
C          
C *     --------------------------------------
C *     Reihe öffnen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       MOVEL(P) '<td' TD            
C       ELSE                
C       CLEAR   TD            
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN3 EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMUPLOAD EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEKAL EXSR BARLISTE    
  X * LISTEKAL2 EXSR BARLISTE    
  X * LISTEKAL3 EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * SENDHTML EXSR BARSEND    
  X * SRCCMDROW EXSR BARSRC    
  X * SRCDDSROW EXSR BARSRC    
  X * SRCRPGROW EXSR BARSRC    
  X * SRCRPGROW1 EXSR BARSRC    
  X * SRCRPGROW2 EXSR BARSRC    
  X * SRCRPGROW3 EXSR BARSRC    
  X * SRCRPGROW4 EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFS EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGDEFSX EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSES EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCRPGUSESX EXSR BARSRC    
  X * SRCTXTROW EXSR BARSRC    
  X * ROWXROW EXSR BARTABLE    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEARTX EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEARTXML EXSR BARZEILE    
  X * ZEILEARTRSS EXSR BARZEILE    
  X * ZEILEARTATOM EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEAWXML EXSR BARZEILE    
  X * ZEILEAWRSS EXSR BARZEILE    
  X * ZEILEAWATOM EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILEMITXML EXSR BARZEILE    
  X * ZEILEMITRSS EXSR BARZEILE    
  X * ZEILEMITATOM EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUBX EXSR BARZEILE    
  X * ZEILERUBXML EXSR BARZEILE    
  X * ZEILERUBRSS EXSR BARZEILE    
  X * ZEILERUBATOM EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAVX EXSR BARZEILE    
  X * ZEILENAVXML EXSR BARZEILE    
  X * ZEILENAVRSS EXSR BARZEILE    
  X * ZEILENAVATOM EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILEWERX EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESRCX EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILEFILEX EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILESMILYX EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEBESUCHEX EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGEX EXSR BARZEILE    
  X  
C     ROWX BEGSR                
C       SELECT    
C *     --------------------------------------
C *     Reihe schließen
C *     --------------------------------------
C     ROWROWS WHENGE ROWROWSMAX              
C     PFADXX IFEQ HTML              
C       EVAL BUF = BUF + '</tr>'
C       ENDIF                
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     *BLANKS WHENNE ROWSPACE              
C       EXSR ROWSPACECOL              
C       ENDSL                
C *     --------------------------------------
C *     Zeilen ausgeben
C *     --------------------------------------
C     BUFLEN IFGT MAXBUF              
C       EXSR WRSTOUT              
C       EVAL BUF = ''
C       ENDIF                
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X  
C     ROWXROW BEGSR                
C *     --------------------------------------
C *     Reihe schließen und neue Reihe öffnen
C *     --------------------------------------
C       EXSR ROWX              
C       EXSR ROW              
C       ENDSR                
C          
  X * ROWX EXSR BARTABLE    
  X  
C     ROWSPACECOL BEGSR                
C     PFADXX IFEQ HTML              
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C       MOVEL(P) TDCOLOR TDCOLORSAVE            
C       CLEAR   TDCOLOR            
C       CLEAR   TDADD            
C       EXSR COLADD              
C       MOVEL(P) TDCOLORSAVE TDCOLOR            
C       ENDIF                
C       ENDSR                
C          
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMNFM EXSR BARFORM    
  X * FORMNFM EXSR BARFORM    
  X * FORMNFM EXSR BARFORM    
  X * FORMNFM EXSR BARFORM    
  X * FORMCHAT EXSR BARFORM    
  X * FORMCHAT EXSR BARFORM    
  X * FORMCHAT EXSR BARFORM    
  X * FORMCHAT EXSR BARFORM    
  X * FORMSERIE EXSR BARFORM    
  X * FORMSERIE EXSR BARFORM    
  X * FORMSERIE EXSR BARFORM    
  X * FORMSERIE EXSR BARFORM    
  X * FORMREMOVE EXSR BARFORM    
  X * FORMREMOVE EXSR BARFORM    
  X * FORMREMOVE EXSR BARFORM    
  X * FORMREMOVE EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEKAL EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILEWERX EXSR BARZEILE    
  X * ZEILEWERX EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESRCX EXSR BARZEILE    
  X * ZEILESRCX EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILEFILEX EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILESMILYX EXSR BARZEILE    
  X * ZEILEBESUCHEX EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGEX EXSR BARZEILE    
  X * ZEILEANFRAGEX EXSR BARZEILE    
  X  
C     COL BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMFRT EXSR BARFORM    
  X * FORMFRT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTESRCS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     COLB BEGSR                
C *     --------------------------------------
C *     Zelle fett
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
C     COL1 BEGSR                
C *     --------------------------------------
C *     Zelle mit Breite 1
C *     --------------------------------------
C       MOVEL(P) TDWIDTH1 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X  
C     COL1B BEGSR                
C *     --------------------------------------
C *     Zelle mit Breite 1 fett
C *     --------------------------------------
C       MOVEL(P) TDWIDTH1 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X  
C     COL100PRB BEGSR                
C *     --------------------------------------
C *     Zelle mit Breite 100% fett
C *     --------------------------------------
C       MOVEL(P) WIDTH100PR TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X  
C     COLROWINF BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Reihen für Information)
C *     --------------------------------------
C       MOVEL(P) TDROWINF TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * ZEILESRC2 EXSR BARZEILE    
  X  
C     COL2 BEGSR                
C *     --------------------------------------
C *     Zelle (2 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X * LISTEINF EXSR BARLISTE    
  X  
C     COL2B BEGSR                
C *     --------------------------------------
C *     Zelle (2 Spalten) fett
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COL3 BEGSR                
C *     --------------------------------------
C *     Zelle (3 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 3 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X  
C     COL4 BEGSR                
C *     --------------------------------------
C *     Zelle (4 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 4 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X  
C     COL5 BEGSR                
C *     --------------------------------------
C *     Zelle (5 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 5 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X  
C     COL6 BEGSR                
C *     --------------------------------------
C *     Zelle (6 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 6 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTEMIT EXSR BARLISTE    
  X  
C     COL11 BEGSR                
C *     --------------------------------------
C *     Zelle (11 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 11 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X  
C     COL12 BEGSR                
C *     --------------------------------------
C *     Zelle (12 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 12 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X  
C     COL12B BEGSR                
C *     --------------------------------------
C *     Zelle (12 Spalten) fett
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 12 COLSPAN            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * FORMFRE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEWER2 EXSR BARZEILE    
  X  
C     COLNOWRAP BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C       MOVEL(P) NOWRAP TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
C     COLNOWRAPB BEGSR                
C *     --------------------------------------
C *     Zelle fett
C *     --------------------------------------
C       MOVEL(P) NOWRAP TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X  
C     COLLEFT BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * SRCLEFT EXSR BARSRC    
  X * SRCLEFTREF EXSR BARSRC    
  X * SRCLEFTUSE EXSR BARSRC    
  X  
C     COLLEFTS BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT2 EXSR BARSRC    
  X * SRCLEFT2REF EXSR BARSRC    
  X  
C     COLLEFTS2 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (2 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT3MBR EXSR BARSRC    
  X  
C     COLLEFTS3 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (3 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 3 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGOPCODE1 EXSR BARSRC    
  X * SRCLEFT4 EXSR BARSRC    
  X  
C     COLLEFTS4 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (4 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 4 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT5 EXSR BARSRC    
  X * SRCLEFT5USE EXSR BARSRC    
  X  
C     COLLEFTS5 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (5 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 5 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT6 EXSR BARSRC    
  X * SRCLEFT6REF EXSR BARSRC    
  X  
C     COLLEFTS6 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (6 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 6 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT7 EXSR BARSRC    
  X * SRCLEFT7REF EXSR BARSRC    
  X * SRCLEFT7DEF EXSR BARSRC    
  X * SRCLEFT7DEFS EXSR BARSRC    
  X * SRCLEFT7USE EXSR BARSRC    
  X * SRCLEFT7USES EXSR BARSRC    
  X  
C     COLLEFTS7 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (7 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 7 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT8 EXSR BARSRC    
  X  
C     COLLEFTS8 BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig (8 Spalten)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD 8 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
C     COLLEFT1B BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig fett
C *     --------------------------------------
C       MOVEL(P) TDWIDTH1 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMNEUMIT EXSR BARFORM    
  X * FORMNEUPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGPWD EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMCHGMAIL EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMSUCHE EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMFRI EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMFILE$ EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTESMILYS EXSR BARLISTE    
  X * ZEILEARTX EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEARTTEXTX EXSR BARZEILE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILEMITX EXSR BARZEILE    
  X * ZEILERUBX EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILENAVX EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X * ZEILESMILYX EXSR BARZEILE    
  X * ZEILEBESUCHEX EXSR BARZEILE    
  X  
C     COLCENTER BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X  
C     COLCENTERMAX BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) MAXWIDTH2 :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMLOGIN3 EXSR BARFORM    
  X * LISTESMILYS EXSR BARLISTE    
  X * SENDHTML EXSR BARSEND    
  X * ZEILEART2 EXSR BARZEILE    
  X * ZEILEARTTEXT2 EXSR BARZEILE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILERUB2 EXSR BARZEILE    
  X * ZEILENAV2 EXSR BARZEILE    
  X * ZEILESMILY2 EXSR BARZEILE    
  X  
C     COLCENTERB BEGSR                
C *     --------------------------------------
C *     Zelle zentriert fett
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * SRCCENTER EXSR BARSRC    
  X  
C     COLCENTERS BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X  
C     COLCENTER1B BEGSR                
C *     --------------------------------------
C *     Zelle zentriert fett
C *     --------------------------------------
C     TDCENTER CAT(P) TDWIDTH1 :0 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
C     COLCENTER2 BEGSR                
C *     --------------------------------------
C *     Zelle zentriert (2 Spalten)
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X  
C     COLCENTER3 BEGSR                
C *     --------------------------------------
C *     Zelle zentriert (3 Spalten)
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C     *ZERO ADD 3 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLCENTER7B BEGSR                
C *     --------------------------------------
C *     Zelle zentriert (7 Spalten) fett
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C     *ZERO ADD 7 COLSPAN            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLCENTERMIT BEGSR                
C *     --------------------------------------
C *     Zelle zentriert (Mehrere Spalten)
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C     1 ADD 12 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * ARTINFOART EXSR BARART    
  X * ARTINFOAW EXSR BARART    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWX EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEAWFRAX EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILEX EXSR BARZEILE    
  X  
C     COLRIGHT BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
C     COLRIGHTB BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig fett
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * ZEILEFILE2 EXSR BARZEILE    
  X  
C     COLRIGHTNOWRAP BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C     TDRIGHT CAT(P) NOWRAP :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * SRCRIGHT EXSR BARSRC    
  X  
C     COLRIGHTS BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCRIGHT2 EXSR BARSRC    
  X  
C     COLRIGHTS2 BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig (2 Spalten)
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILESRC2 EXSR BARZEILE    
  X * ZEILEFILE2 EXSR BARZEILE    
  X  
C     COLRIGHT1B BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig fett
C *     --------------------------------------
C     TDRIGHT CAT(P) TDWIDTH1 :0 TDADD            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * ZEILESRCX EXSR BARZEILE    
  X  
C     COLRIGHT2 BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig (2 Spalten)
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTESRCS EXSR BARLISTE    
  X  
C     COLRIGHT2B BEGSR                
C *     --------------------------------------
C *     Zelle rechtsbündig (2 Spalten) fett
C *     --------------------------------------
C     TDRIGHT CAT(P) '' :0 TDADD            
C     *ZERO ADD 2 COLSPAN            
C       EXSR COLADDB              
C       ENDSR                
C          
  X * CMDLINE1 EXSR BARSRC    
  X  
C     COLCMD BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLCMD COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * CMDCMDLINE1 EXSR BARSRC    
  X  
C     COLCMD2 BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLCMD2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * DDSLINE1 EXSR BARSRC    
  X  
C     COLDDS BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLDDS COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * FILLINE1 EXSR BARSRC    
  X  
C     COLFIL BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLFIL COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * DEFLINE1 EXSR BARSRC    
  X  
C     COLDEF BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLDEF COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGLINE1 EXSR BARSRC    
  X  
C     COLRPG BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLRPG COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGOPCODELINE1 EXSR BARSRC    
  X  
C     COLRPG2 BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLRPG2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGFACTOR2X1 EXSR BARSRC    
  X  
C     COLRPGX BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLRPGX COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGRESULTX1 EXSR BARSRC    
  X  
C     COLRPGX2 BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLRPGX2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCFREE1 EXSR BARSRC    
  X * SRCFREE1SEQ EXSR BARSRC    
  X  
C     COLFREE BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLFREE COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCFREE21 EXSR BARSRC    
  X  
C     COLFREE2 BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLFREE2 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCFREE31 EXSR BARSRC    
  X  
C     COLFREE3 BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLFREE3 COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * RPGINDN1 EXSR BARSRC    
  X  
C     COLINDN BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCSEQNUM1 EXSR BARSRC    
  X * SRCSEQNUM1SEQ EXSR BARSRC    
  X  
C     COLSEQNUM BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCFORMTYPE1 EXSR BARSRC    
  X  
C     COLFORMTYPE BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLINE1 EXSR BARSRC    
  X  
C     COLLINE BEGSR                
C *     --------------------------------------
C *     Zelle (Mehrere Zellen für Quelle)
C *     --------------------------------------
C       CLEAR   TDADD            
C     *ZERO ADD TDCOLLINE COLSPAN            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCCOMMENT1 EXSR BARSRC    
  X  
C     COLCOMMENT BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * LISTEKAL2 EXSR BARLISTE    
  X  
C     COLKAL2 BEGSR                
C *     --------------------------------------
C *     Zelle für Kalender (Überschrift)
C *     --------------------------------------
C     TDCENTER CAT(P) TDKAL :0 TDADD            
C   66 TDCENTER CAT(P) TDKAL3 :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * LISTEKAL3 EXSR BARLISTE    
  X  
C     COLKAL3 BEGSR                
C *     --------------------------------------
C *     Zelle für Kalender (Tag)
C *     --------------------------------------
C   N66   EVAL LINK = '<font size="+3">'+
C               %TRIM ( LINK)+'</font>'
C   66   EVAL LINK = '<font size="+2">'+
C               %TRIM ( LINK)+'</font>'
C     TDCENTER CAT(P) TDKAL2 :0 TDADD            
C   66 TDCENTER CAT(P) TDKAL3 :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
C     COLTABLE BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C       CLEAR   TDADD            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X  
C     COLTABLE12 BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C       CLEAR   TDADD            
C     *ZERO ADD 12 COLSPAN            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLTABLEMIT BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C   66   CLEAR   TDADD            
C   N66 TDCENTER CAT(P) '' :0 TDADD            
C   66 *ZERO ADD 12 COLSPAN            
C   N66 1 ADD 12 COLSPAN            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X  
C     COLTABLECOLOR BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C       CLEAR   TDADD            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLTABLECOLORS BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="3" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C     TDCENTER CAT(P) '' :0 TDADD            
C     1 ADD 12 COLSPAN            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X  
C     COLTABLECENTER BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X  
C     COLTABLEOPTION BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EVAL LINK = '<table border="0" +
C                 cellspacing="0" +
C                 cellpadding="0" summary=""'+
C         NOROUNDSTYLE+'>§§<tr>'
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLTABLESTART              
C       ENDSR                
C          
  X * COLTABLE EXSR BARTABLE    
  X * COLTABLE12 EXSR BARTABLE    
  X * COLTABLEMIT EXSR BARTABLE    
  X * COLTABLECOLOR EXSR BARTABLE    
  X * COLTABLECOLORS EXSR BARTABLE    
  X * COLTABLECENTER EXSR BARTABLE    
  X * COLTABLEOPTION EXSR BARTABLE    
  X  
C     COLTABLESTART BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beginnen
C *     --------------------------------------
C       EXSR COLSTARTTABLE              
C       EVAL BUF =
C       BUF + %TRIM(LINK)
C       MOVEL(P) '<td' TD            
C       CLEAR   LINK            
C     *ZERO ADD 1 COLSPAN            
C       ENDSR                
C          
  X * FORMRUB EXSR BARFORM    
  X * FORMSMILY EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMMIT EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X * FORMEDTNAV EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X  
C     COLTABLEX BEGSR                
C *     --------------------------------------
C *     Zelle mit Tabelle beenden
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '</tr></table>'
C       EXSR COLSTOP              
C       CLEAR   LINK            
C     *ZERO ADD 1 COLSPAN            
C       ENDSR                
C          
  X * ROWSPACECOL EXSR BARTABLE    
  X * COL EXSR BARTABLE    
  X * COL1 EXSR BARTABLE    
  X * COLROWINF EXSR BARTABLE    
  X * COL2 EXSR BARTABLE    
  X * COL3 EXSR BARTABLE    
  X * COL4 EXSR BARTABLE    
  X * COL5 EXSR BARTABLE    
  X * COL6 EXSR BARTABLE    
  X * COL11 EXSR BARTABLE    
  X * COL12 EXSR BARTABLE    
  X * COLNOWRAP EXSR BARTABLE    
  X * COLLEFT EXSR BARTABLE    
  X * COLCENTER EXSR BARTABLE    
  X * COLCENTERMAX EXSR BARTABLE    
  X * COLCENTER2 EXSR BARTABLE    
  X * COLCENTER3 EXSR BARTABLE    
  X * COLCENTERMIT EXSR BARTABLE    
  X * COLRIGHT EXSR BARTABLE    
  X * COLRIGHTNOWRAP EXSR BARTABLE    
  X * COLRIGHT2 EXSR BARTABLE    
  X * COLKAL2 EXSR BARTABLE    
  X * COLKAL3 EXSR BARTABLE    
  X * COLADDS EXSR BARTABLE    
  X  
C     COLADD BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C       EXSR COLSTART              
C       EVAL BUF =
C       BUF + %TRIM(LINK)
C       EXSR COLSTOP              
C       ENDSR                
C          
  X * COLB EXSR BARTABLE    
  X * COL1B EXSR BARTABLE    
  X * COL100PRB EXSR BARTABLE    
  X * COL2B EXSR BARTABLE    
  X * COL12B EXSR BARTABLE    
  X * COLNOWRAPB EXSR BARTABLE    
  X * COLLEFT1B EXSR BARTABLE    
  X * COLCENTERB EXSR BARTABLE    
  X * COLCENTER1B EXSR BARTABLE    
  X * COLCENTER7B EXSR BARTABLE    
  X * COLRIGHTB EXSR BARTABLE    
  X * COLRIGHT1B EXSR BARTABLE    
  X * COLRIGHT2B EXSR BARTABLE    
  X  
C     COLADDB BEGSR                
C *     --------------------------------------
C *     Zelle fett
C *     --------------------------------------
C       EXSR COLSTARTB              
C       EVAL BUF =
C       BUF + %TRIM(LINK)
C       EXSR COLSTOP              
C       ENDSR                
C          
  X * COLLEFTS EXSR BARTABLE    
  X * COLLEFTS2 EXSR BARTABLE    
  X * COLLEFTS3 EXSR BARTABLE    
  X * COLLEFTS4 EXSR BARTABLE    
  X * COLLEFTS5 EXSR BARTABLE    
  X * COLLEFTS6 EXSR BARTABLE    
  X * COLLEFTS7 EXSR BARTABLE    
  X * COLLEFTS8 EXSR BARTABLE    
  X * COLCENTERS EXSR BARTABLE    
  X * COLRIGHTS EXSR BARTABLE    
  X * COLRIGHTS2 EXSR BARTABLE    
  X * COLCMD EXSR BARTABLE    
  X * COLCMD2 EXSR BARTABLE    
  X * COLDDS EXSR BARTABLE    
  X * COLFIL EXSR BARTABLE    
  X * COLDEF EXSR BARTABLE    
  X * COLRPG EXSR BARTABLE    
  X * COLRPG2 EXSR BARTABLE    
  X * COLRPGX EXSR BARTABLE    
  X * COLRPGX2 EXSR BARTABLE    
  X * COLFREE EXSR BARTABLE    
  X * COLFREE2 EXSR BARTABLE    
  X * COLFREE3 EXSR BARTABLE    
  X * COLINDN EXSR BARTABLE    
  X * COLSEQNUM EXSR BARTABLE    
  X * COLFORMTYPE EXSR BARTABLE    
  X * COLLINE EXSR BARTABLE    
  X * COLCOMMENT EXSR BARTABLE    
  X  
C     COLADDS BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C     NOWRAP CAT TDADD :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * COLADD EXSR BARTABLE    
  X * COLSTARTB EXSR BARTABLE    
  X * COLTEXTSTART EXSR BARTABLE    
  X  
C     COLSTART BEGSR                
C *     --------------------------------------
C *     Zelle beginnen
C *     --------------------------------------
C       SELECT    
C     *BLANKS WHENEQ LINK              
C       MOVEL(P) NBSP LINK            
C     '<b></b>' WHENEQ LINK              
C     '<b>' CAT NBSP :0 LINK            
C       CAT '</b>' :0 LINK            
C       ENDSL                
C     FONT CAT LINK :0 LINK            
C       CAT FONTX :0 LINK            
C       EXSR COLSTARTALL              
C       ENDSR                
C          
  X * COLADDB EXSR BARTABLE    
  X  
C     COLSTARTB BEGSR                
C *     --------------------------------------
C *     Zelle beginnen fett
C *     --------------------------------------
C     '<b>' CAT LINK :0 LINK            
C       CAT '</b>' :0 LINK            
C       EXSR COLSTART              
C       ENDSR                
C          
  X * COLTABLESTART EXSR BARTABLE    
  X  
C     COLSTARTTABLE BEGSR                
C *     --------------------------------------
C *     Zelle beginnen
C *     --------------------------------------
C     *BLANKS IFEQ LINK              
C       MOVEL(P) NBSP LINK            
C       ENDIF                
C       EXSR COLSTARTALL              
C       ENDSR                
C          
  X * COLSTART EXSR BARTABLE    
  X * COLSTARTTABLE EXSR BARTABLE    
  X  
C     COLSTARTALL BEGSR                
C       ADD 1 COLS            
C *     --------------------------------------
C *     Zelle beginnen
C *     --------------------------------------
C     1 IFLT COLSPAN              
C       CAT TDCOLSPAN :0 TDADD            
C     *ZERO ADD COLSPAN NUM            
C       EXSR NUMSTR              
C       CAT STR :0 TDADD            
C       ENDIF                
C *     --------------------------------------
C *     Zelle beginnen
C *     --------------------------------------
C       EVAL BUF =
C       BUF + %TRIMR(TD)       +
C             %TRIMR(TDVALIGN) +
C             %TRIMR(TDCOLOR)  +
C             %TRIMR(TDADD)    + '>'
C          
C *     --------------------------------------
C *     Nächste Zelle vorbereiten
C *     --------------------------------------
C       MOVEL(P) '§' TD            
C       CAT '<td' :4 TD            
C       ENDSR                
C          
  X * COLTABLEX EXSR BARTABLE    
  X * COLADD EXSR BARTABLE    
  X * COLADDB EXSR BARTABLE    
  X * COLTEXTADDX EXSR BARTABLE    
  X * COLINPUTBUFV EXSR BARTABLE    
  X * COLTEXTAREA EXSR BARTABLE    
  X  
C     COLSTOP BEGSR                
C *     --------------------------------------
C *     Zelle beenden
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '</td>'
C       CLEAR   LINK            
C     *ZERO ADD 1 COLSPAN            
C       ENDSR                
C          
  X * COLCOLORS1 EXSR BARTABLE    
  X * COLCOLORS2 EXSR BARTABLE    
  X * COLCOLORMIT EXSR BARTABLE    
  X  
C     COLCOLOR BEGSR                
C       ADD 1 COLS            
C *     --------------------------------------
C *     Zelle beginnen
C *     --------------------------------------
C     1 IFLT COLSPAN              
C       CAT TDCOLSPAN :0 TDADD            
C     *ZERO ADD COLSPAN NUM            
C       EXSR NUMSTR              
C       CAT STR :0 TDADD            
C       ENDIF                
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       MOVEL(P) TD LINK            
C     *BLANKS IFNE COLOR1              
C       CAT 'bgcolor="' :1 LINK            
C       CAT COLOR1 :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT POINTER :0 LINK            
C       CAT 'class="' :1 LINK            
C       CAT 'color"' :0 LINK            
C       SELECT    
C     *BLANKS WHENNE COLOR7              
C       CAT 'onmouse' :1 LINK            
C       CAT 'down="' :0 LINK            
C       CAT 'return' :0 LINK            
C       CAT 'false"' :1 LINK            
C       CAT 'onclick="' :1 LINK            
C       CAT 'setcolor' :0 LINK            
C       CAT '(this)"' :0 LINK            
C     WWTYP WHENEQ TYPEDTMIT              
C       CAT 'id="' :1 LINK            
C       CAT 'chatcolor' :0 LINK            
C       CAT '"' :0 LINK            
C       ENDSL                
C       CAT NOWRAP :0 LINK            
C       CAT '>' :0 LINK            
C       CAT '<font' :0 LINK            
C     FONT IFEQ '<font>'              
C       CAT 'face="' :1 LINK            
C       CAT 'System"' :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       CAT NBSP :0 LINK            
C       CAT NBSP :1 LINK            
C       CAT NBSP :1 LINK            
C       CAT '</font>' :0 LINK            
C       CAT '</td>' :0 LINK            
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       EVAL BUF =
C       BUF +   %TRIM ( LINK)
C       CLEAR   LINK            
C     *ZERO ADD 1 COLSPAN            
C *     --------------------------------------
C *     Nächste Zelle vorbereiten
C *     --------------------------------------
C       MOVEL(P) '§' TD            
C       CAT '<td' :4 TD            
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLCOLORS1 BEGSR                
C     COLORSLEN SUB COLOR7LEN LEN            
C       DIV COLOR7LEN LEN            
C       MULT COLOR7LEN LEN            
C       DIV 2 LEN            
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       DO LEN POS            
C       SUBST(P) COLORS:POS COLOR7            
C       MOVEL(P) COLOR7 COLOR1            
C       EXSR COLCOLOR              
C       ENDDO COLOR7LEN              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X  
C     COLCOLORS2 BEGSR                
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C     POS DO COLORSLEN POS            
C       SUBST(P) COLORS:POS COLOR7            
C       MOVEL(P) COLOR7 COLOR1            
C       EXSR COLCOLOR              
C       ENDDO COLOR7LEN              
C       ENDSR                
C          
  X * FORMMIT EXSR BARFORM    
  X * LISTEMIT EXSR BARLISTE    
  X * ZEILEMIT2 EXSR BARZEILE    
  X  
C     COLCOLORMIT BEGSR                
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       MOVEL(P) MICOLOR COLOR1            
C       EXSR COLCOLOR              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     COLTEXT BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       MOVEL(P) MAXWIDTH TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * LISTEINF EXSR BARLISTE    
  X * ZEILEAW2 EXSR BARZEILE    
  X * ZEILEAWFRA2 EXSR BARZEILE    
  X  
C     COLTEXT2 BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext 2 Spalten
C *     --------------------------------------
C     *ZERO ADD 2 COLSPAN            
C       MOVEL(P) MAXWIDTH TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X * LISTEMIT EXSR BARLISTE    
  X  
C     COLTEXTMIT BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext 12 Spalten
C *     --------------------------------------
C     *ZERO ADD 12 COLSPAN            
C       MOVEL(P) MAXWIDTH TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BARFORM    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X * LISTESMILYS EXSR BARLISTE    
  X  
C     COLTEXTCENTER BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext zentriert
C *     --------------------------------------
C     TDCENTER CAT MAXWIDTH :0 TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BARZEILE    
  X  
C     COLTEXTCENTERM BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext zentriert
C *     --------------------------------------
C     TDCENTER CAT MAXWIDTH2 :0 TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * ZEILEBESUCHE2 EXSR BARZEILE    
  X  
C     COLTEXTAG BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext (Agent)
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * COLTEXT EXSR BARTABLE    
  X * COLTEXT2 EXSR BARTABLE    
  X * COLTEXTMIT EXSR BARTABLE    
  X * COLTEXTCENTER EXSR BARTABLE    
  X * COLTEXTCENTERM EXSR BARTABLE    
  X * COLTEXTAG EXSR BARTABLE    
  X  
C     COLTEXTADD BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       EXSR COLTEXTSTART              
C       EXSR COLTEXTADD2              
C       EXSR COLTEXTADDX              
C       ENDSR                
C          
  X * COLTEXTADD EXSR BARTABLE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     COLTEXTADD2 BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       EXSR WRSTOUTV              
C       ENDSR                
C          
  X * COLTEXTADD EXSR BARTABLE    
  X * ZEILEANFRAGE2 EXSR BARZEILE    
  X  
C     COLTEXTADDX BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       EVAL BUF = ''
C       EXSR COLSTOP              
C       ENDSR                
C          
  X * COLTEXTADD EXSR BARTABLE    
  X * COLINPUTBUFV EXSR BARTABLE    
  X * COLTEXTAREA EXSR BARTABLE    
  X  
C     COLTEXTSTART BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C     *BLANKS COMP LINK       — — 78  
C   N78 '<b></b>' COMP LINK       — — 78  
C       EXSR COLSTART              
C   N68   CAT '<br/>' :0 LINK            
C   N78   EVAL BUF =
C       BUF + %TRIM(LINK) + ' '
C       EXSR WRSTOUT              
C       ENDSR                
C          
  X * FORMFRE EXSR BARFORM    
  X  
C     COLINPUTBUFV BEGSR                
C       CLEAR   TDADD            
C **     CLEAR   LINKADD            
C       MOVEL(P) LINKADDNAME LINKADDID            
C       MOVEL(P) LINKADDLABEL MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Zelle mit langem Eingabefeld
C *     --------------------------------------
C       EXSR MYBUFVXFORM              
C       EXSR COLTEXTSTART              
C       EVAL BUF =
C       BUF +        %TRIM(FONT)+
C             '<b>'+%TRIMR(MYTITEL)+'</b><br/> +
C          
C                    <input +
C              id="'+%TRIMR(LINKADDID)+'" +
C            name="'+%TRIMR(LINKADDNAME)+'" +
C            type="'+%TRIMR(LINKADDTYPE)+'" +
C           value="'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +    '" +
C            size="'+ %CHAR(LINKADDSIZE)+'" +
C       maxlength="'+ %CHAR(LINKADDLEN) +'"'+
C                    %TRIMR(LINKADD)+
C               AUTOCAPITALIZE +
C               INPUTSTYLE +'/>'+
C         %TRIM(FONTX)
C       EXSR COLSTOP              
C       ENDSR                
C          
  X * FORMARTPN EXSR BARFORM    
  X * FORMAW EXSR BARFORM    
  X * FORMNEUFILE EXSR BARFORM    
  X * FORMEDTIDX EXSR BARFORM    
  X * FORMEDTKAL EXSR BARFORM    
  X  
C     COLTEXTAREA BEGSR                
C       CLEAR   TDADD            
C       CLEAR   LINKADD            
C       MOVEL(P) LINKADDNAME LINKADDID            
C       MOVEL(P) LINKADDLABEL MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Zelle mit langem Eingabebereich
C *     --------------------------------------
C       EXSR MYBUFVXFORM              
C       EXSR COLTEXTSTART              
C       EVAL BUF =
C       BUF +        %TRIM(FONT)+
C             '<b>'+%TRIMR(MYTITEL)+'</b><br/> +
C          
C                    <textarea +
C              id="'+%TRIMR(LINKADDID)+'" +
C            name="'+%TRIMR(LINKADDNAME)+'" +
C            rows="'+ %CHAR(LINKADDROWS)+'" +
C            cols="'+ %CHAR(LINKADDCOLS)+'"'+
C                    %TRIMR(LINKADD)+
C               AUTOCAPITALIZE +
C               TEXTAREASTYLE +'>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF = '</textarea>'+%TRIM(FONTX)
C       EXSR COLSTOP              
C       ENDSR                

2086 ms | Kontakt | Information | Aibo-Bar © 2005-2025