Tabelle

BAR$TABLE (RPGLE)



  X * TABLE BEGSR BAR$TABLE 13  
  X * TABLE100PR BEGSR BAR$TABLE 14  
  X * TABLESRC BEGSR BAR$TABLE 7  
  X * TABLESRCSTART BEGSR BAR$TABLE 20  
  X * TABLEKAL BEGSR BAR$TABLE 13  
  X * TABLE8 BEGSR BAR$TABLE 13  
  X * TABLE4 BEGSR BAR$TABLE 13  
  X * TABLESTART BEGSR BAR$TABLE 31  
  X * TABLEX BEGSR BAR$TABLE 28  
  X * TABLESPACE BEGSR BAR$TABLE 9  
  X * ROW BEGSR BAR$TABLE 16  
  X * ROWT BEGSR BAR$TABLE 14  
  X * ROWROWX BEGSR BAR$TABLE 17  
  X * ROWCOLOR12 BEGSR BAR$TABLE 13  
  X * ROWSTART BEGSR BAR$TABLE 39  
  X * ROWX BEGSR BAR$TABLE 23  
  X * ROWXROW BEGSR BAR$TABLE 7  
  X * ROWSPACECOL BEGSR BAR$TABLE 12  
  X * COL BEGSR BAR$TABLE 7  
  X * COLB BEGSR BAR$TABLE 7  
  X * COL1 BEGSR BAR$TABLE 7  
  X * COL1B BEGSR BAR$TABLE 7  
  X * COL100PRB BEGSR BAR$TABLE 7  
  X * COLROWINF BEGSR BAR$TABLE 7  
  X * COL2 BEGSR BAR$TABLE 8  
  X * COL2B BEGSR BAR$TABLE 8  
  X * COL3 BEGSR BAR$TABLE 8  
  X * COL4 BEGSR BAR$TABLE 8  
  X * COL5 BEGSR BAR$TABLE 8  
  X * COL6 BEGSR BAR$TABLE 8  
  X * COL11 BEGSR BAR$TABLE 8  
  X * COL12 BEGSR BAR$TABLE 8  
  X * COL12B BEGSR BAR$TABLE 8  
  X * COLNOWRAP BEGSR BAR$TABLE 7  
  X * COLNOWRAPB BEGSR BAR$TABLE 7  
  X * COLLEFT BEGSR BAR$TABLE 7  
  X * COLLEFTS BEGSR BAR$TABLE 7  
  X * COLLEFTS2 BEGSR BAR$TABLE 8  
  X * COLLEFTS3 BEGSR BAR$TABLE 8  
  X * COLLEFTS4 BEGSR BAR$TABLE 8  
  X * COLLEFTS5 BEGSR BAR$TABLE 8  
  X * COLLEFTS6 BEGSR BAR$TABLE 8  
  X * COLLEFTS7 BEGSR BAR$TABLE 8  
  X * COLLEFTS8 BEGSR BAR$TABLE 8  
  X * COLLEFT1B BEGSR BAR$TABLE 7  
  X * COLCENTER BEGSR BAR$TABLE 7  
  X * COLCENTERMAX BEGSR BAR$TABLE 7  
  X * COLCENTERB BEGSR BAR$TABLE 7  
  X * COLCENTERS BEGSR BAR$TABLE 7  
  X * COLCENTER1B BEGSR BAR$TABLE 7  
  X * COLCENTER2 BEGSR BAR$TABLE 8  
  X * COLCENTER3 BEGSR BAR$TABLE 8  
  X * COLCENTER7B BEGSR BAR$TABLE 8  
  X * COLCENTERMIT BEGSR BAR$TABLE 8  
  X * COLRIGHT BEGSR BAR$TABLE 7  
  X * COLRIGHTB BEGSR BAR$TABLE 7  
  X * COLRIGHTNOWRAP BEGSR BAR$TABLE 7  
  X * COLRIGHTS BEGSR BAR$TABLE 7  
  X * COLRIGHTS2 BEGSR BAR$TABLE 8  
  X * COLRIGHT1B BEGSR BAR$TABLE 7  
  X * COLRIGHT2 BEGSR BAR$TABLE 8  
  X * COLRIGHT2B BEGSR BAR$TABLE 8  
  X * COLCMD BEGSR BAR$TABLE 8  
  X * COLCMD2 BEGSR BAR$TABLE 8  
  X * COLDDS BEGSR BAR$TABLE 8  
  X * COLFIL BEGSR BAR$TABLE 8  
  X * COLDEF BEGSR BAR$TABLE 8  
  X * COLRPG BEGSR BAR$TABLE 8  
  X * COLRPG2 BEGSR BAR$TABLE 8  
  X * COLRPGX BEGSR BAR$TABLE 8  
  X * COLRPGX2 BEGSR BAR$TABLE 8  
  X * COLFREE BEGSR BAR$TABLE 8  
  X * COLFREE2 BEGSR BAR$TABLE 8  
  X * COLFREE3 BEGSR BAR$TABLE 8  
  X * COLINDN BEGSR BAR$TABLE 7  
  X * COLSEQNUM BEGSR BAR$TABLE 7  
  X * COLFORMTYPE BEGSR BAR$TABLE 7  
  X * COLLINE BEGSR BAR$TABLE 8  
  X * COLCOMMENT BEGSR BAR$TABLE 7  
  X * COLKAL2 BEGSR BAR$TABLE 8  
  X * COLKAL3 BEGSR BAR$TABLE 12  
  X * COLTABLE BEGSR BAR$TABLE 11  
  X * COLTABLE12 BEGSR BAR$TABLE 12  
  X * COLTABLEMIT BEGSR BAR$TABLE 14  
  X * COLTABLECOLOR BEGSR BAR$TABLE 11  
  X * COLTABLECOLORS BEGSR BAR$TABLE 12  
  X * COLTABLECENTER BEGSR BAR$TABLE 11  
  X * COLTABLEOPTION BEGSR BAR$TABLE 11  
  X * COLTABLESTART BEGSR BAR$TABLE 11  
  X * COLTABLEX BEGSR BAR$TABLE 10  
  X * COLADD BEGSR BAR$TABLE 9  
  X * COLADDB BEGSR BAR$TABLE 9  
  X * COLADDS BEGSR BAR$TABLE 7  
  X * COLSTART BEGSR BAR$TABLE 15  
  X * COLSTARTB BEGSR BAR$TABLE 8  
  X * COLSTARTTABLE BEGSR BAR$TABLE 9  
  X * COLSTARTALL BEGSR BAR$TABLE 26  
  X * COLSTOP BEGSR BAR$TABLE 9  
  X * COLCOLOR BEGSR BAR$TABLE 63  
  X * COLCOLORS1 BEGSR BAR$TABLE 14  
  X * COLCOLORS2 BEGSR BAR$TABLE 10  
  X * COLCOLORMIT BEGSR BAR$TABLE 7  
  X * COLTEXT BEGSR BAR$TABLE 7  
  X * COLTEXT2 BEGSR BAR$TABLE 8  
  X * COLTEXTMIT BEGSR BAR$TABLE 8  
  X * COLTEXTCENTER BEGSR BAR$TABLE 7  
  X * COLTEXTCENTERM BEGSR BAR$TABLE 7  
  X * COLTEXTAG BEGSR BAR$TABLE 7  
  X * COLTEXTADD BEGSR BAR$TABLE 8  
  X * COLTEXTADD2 BEGSR BAR$TABLE 6  
  X * COLTEXTADDX BEGSR BAR$TABLE 7  
  X * COLTEXTSTART BEGSR BAR$TABLE 12  
  X * COLINPUTBUFV BEGSR BAR$TABLE 32  
  X * COLTEXTAREA BEGSR BAR$TABLE 28  
  X  
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * FORMLEER EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN3 EXSR BAR$FORM    
  X * FORMLOGOUT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEPF EXSR BAR$LISTE    
  X * LISTEAKT EXSR BAR$LISTE    
  X * LISTERUB EXSR BAR$LISTE    
  X * LISTEIDXBILD EXSR BAR$LISTE    
  X * LISTEMITPN EXSR BAR$LISTE    
  X * LISTEMITART EXSR BAR$LISTE    
  X * LISTEARTPN EXSR BAR$LISTE    
  X * LISTEFRN EXSR BAR$LISTE    
  X * LISTEFRW EXSR BAR$LISTE    
  X * LISTEMMM EXSR BAR$LISTE    
  X * LISTEGAL EXSR BAR$LISTE    
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEAW EXSR BAR$LISTE    
  X * LISTENAV EXSR BAR$LISTE    
  X * LISTEDEV EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTEFILES EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  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 BAR$LISTE    
  X * LISTEFRA EXSR BAR$LISTE    
  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 BAR$SRC    
  X  
C     TABLESRC BEGSR                
C       MOVEL(P) ROWCOLOR1 ROWCOLOR            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C       EXSR TABLESRCSTART              
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * TABLESRC EXSR BAR$TABLE    
  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 BAR$LISTE    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * FORMSUCHE EXSR BAR$FORM    
  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 BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  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 BAR$TABLE    
  X * TABLE100PR EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * TABLEKAL EXSR BAR$TABLE    
  X * TABLE8 EXSR BAR$TABLE    
  X * TABLE4 EXSR BAR$TABLE    
  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)+'">§'+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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * FORMLEER EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN3 EXSR BAR$FORM    
  X * FORMLOGOUT EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEPF EXSR BAR$LISTE    
  X * LISTEAKT EXSR BAR$LISTE    
  X * LISTERUB EXSR BAR$LISTE    
  X * LISTEIDXBILD EXSR BAR$LISTE    
  X * LISTEIDXTEXT EXSR BAR$LISTE    
  X * LISTEMITPN EXSR BAR$LISTE    
  X * LISTEMITART EXSR BAR$LISTE    
  X * LISTEARTPN EXSR BAR$LISTE    
  X * LISTEFRA EXSR BAR$LISTE    
  X * LISTEFRN EXSR BAR$LISTE    
  X * LISTEFRW EXSR BAR$LISTE    
  X * LISTEMMM EXSR BAR$LISTE    
  X * LISTEGAL EXSR BAR$LISTE    
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEAW EXSR BAR$LISTE    
  X * LISTENAV EXSR BAR$LISTE    
  X * LISTEDEV EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTEFILES EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  X * SRCALL EXSR BAR$SRC    
  X * SRCRPG EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  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)+'">'+BUF+'</div>'
C       ENDIF                
C       ELSE                
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDIF                
C       ENDIF                
C       EXSR WRSTOUT              
C       CLEAR   DIV            
C       SETOFF         — — 37  
C       SETOFF         — — 36  
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN3 EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMUPLOAD EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL3 EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCTXTROW EXSR BAR$SRC    
  X * ROWXROW EXSR BAR$TABLE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTXML EXSR BAR$ZEILE    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWXML EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITXML EXSR BAR$ZEILE    
  X * ZEILEMITRSS EXSR BAR$ZEILE    
  X * ZEILEMITATOM EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUBXML EXSR BAR$ZEILE    
  X * ZEILERUBRSS EXSR BAR$ZEILE    
  X * ZEILERUBATOM EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVXML EXSR BAR$ZEILE    
  X * ZEILENAVRSS EXSR BAR$ZEILE    
  X * ZEILENAVATOM EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  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 BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL2 EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUBX EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVX EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEWERX EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRCX EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILEX EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILESMILYX EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHEX EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGEX EXSR BAR$ZEILE    
  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 BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  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 BAR$SRC    
  X * ROW EXSR BAR$TABLE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  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 BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN3 EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMUPLOAD EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL2 EXSR BAR$LISTE    
  X * LISTEKAL3 EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCTXTROW EXSR BAR$SRC    
  X * ROWXROW EXSR BAR$TABLE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEARTXML EXSR BAR$ZEILE    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEAWXML EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILEMITXML EXSR BAR$ZEILE    
  X * ZEILEMITRSS EXSR BAR$ZEILE    
  X * ZEILEMITATOM EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUBX EXSR BAR$ZEILE    
  X * ZEILERUBXML EXSR BAR$ZEILE    
  X * ZEILERUBRSS EXSR BAR$ZEILE    
  X * ZEILERUBATOM EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVX EXSR BAR$ZEILE    
  X * ZEILENAVXML EXSR BAR$ZEILE    
  X * ZEILENAVRSS EXSR BAR$ZEILE    
  X * ZEILENAVATOM EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEWERX EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRCX EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILEX EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILESMILYX EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHEX EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGEX EXSR BAR$ZEILE    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  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 BAR$TABLE    
  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 BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILEWERX EXSR BAR$ZEILE    
  X * ZEILEWERX EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRCX EXSR BAR$ZEILE    
  X * ZEILESRCX EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILEX EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILESMILYX EXSR BAR$ZEILE    
  X * ZEILEBESUCHEX EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGEX EXSR BAR$ZEILE    
  X * ZEILEANFRAGEX EXSR BAR$ZEILE    
  X  
C     COL BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  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 BAR$FORM    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  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 BAR$FORM    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  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 BAR$LISTE    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  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 BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  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 BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X  
C     COLLEFT BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * SRCLEFT EXSR BAR$SRC    
  X * SRCLEFTREF EXSR BAR$SRC    
  X * SRCLEFTUSE EXSR BAR$SRC    
  X  
C     COLLEFTS BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLEFT2 EXSR BAR$SRC    
  X * SRCLEFT2REF EXSR BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  X * SRCLEFT4 EXSR BAR$SRC    
  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 BAR$SRC    
  X * SRCLEFT5USE EXSR BAR$SRC    
  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 BAR$SRC    
  X * SRCLEFT6REF EXSR BAR$SRC    
  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 BAR$SRC    
  X * SRCLEFT7REF EXSR BAR$SRC    
  X * SRCLEFT7DEF EXSR BAR$SRC    
  X * SRCLEFT7DEFS EXSR BAR$SRC    
  X * SRCLEFT7USE EXSR BAR$SRC    
  X * SRCLEFT7USES EXSR BAR$SRC    
  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 BAR$SRC    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * ZEILERUBX EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVX EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ZEILESMILYX EXSR BAR$ZEILE    
  X * ZEILEBESUCHEX EXSR BAR$ZEILE    
  X  
C     COLCENTER BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  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 BAR$FORM    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  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 BAR$SRC    
  X  
C     COLCENTERS BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  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 BAR$FORM    
  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 BAR$FORM    
  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 BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILEX EXSR BAR$ZEILE    
  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 BAR$ZEILE    
  X  
C     COLRIGHTNOWRAP BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C     TDRIGHT CAT(P) NOWRAP :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * SRCRIGHT EXSR BAR$SRC    
  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 BAR$SRC    
  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 BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  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 BAR$ZEILE    
  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 BAR$LISTE    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  X * SRCFREE1SEQ EXSR BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  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 BAR$SRC    
  X  
C     COLINDN BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCSEQNUM1 EXSR BAR$SRC    
  X * SRCSEQNUM1SEQ EXSR BAR$SRC    
  X  
C     COLSEQNUM BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCFORMTYPE1 EXSR BAR$SRC    
  X  
C     COLFORMTYPE BEGSR                
C *     --------------------------------------
C *     Zelle zentriert
C *     --------------------------------------
C     TDCENTER CAT(P) '' :0 TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * SRCLINE1 EXSR BAR$SRC    
  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 BAR$SRC    
  X  
C     COLCOMMENT BEGSR                
C *     --------------------------------------
C *     Zelle linksbündig
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLADDS              
C       ENDSR                
C          
  X * LISTEKAL2 EXSR BAR$LISTE    
  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 BAR$LISTE    
  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 BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  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 BAR$FORM    
  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 BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  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 BAR$FORM    
  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 BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  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 BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  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 BAR$TABLE    
  X * COLTABLE12 EXSR BAR$TABLE    
  X * COLTABLEMIT EXSR BAR$TABLE    
  X * COLTABLECOLOR EXSR BAR$TABLE    
  X * COLTABLECOLORS EXSR BAR$TABLE    
  X * COLTABLECENTER EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  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 BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  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 BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL1 EXSR BAR$TABLE    
  X * COLROWINF EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * COL3 EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL5 EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COL11 EXSR BAR$TABLE    
  X * COL12 EXSR BAR$TABLE    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * COLLEFT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLCENTERMAX EXSR BAR$TABLE    
  X * COLCENTER2 EXSR BAR$TABLE    
  X * COLCENTER3 EXSR BAR$TABLE    
  X * COLCENTERMIT EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * COLRIGHTNOWRAP EXSR BAR$TABLE    
  X * COLRIGHT2 EXSR BAR$TABLE    
  X * COLKAL2 EXSR BAR$TABLE    
  X * COLKAL3 EXSR BAR$TABLE    
  X * COLADDS EXSR BAR$TABLE    
  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 BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * COL100PRB EXSR BAR$TABLE    
  X * COL2B EXSR BAR$TABLE    
  X * COL12B EXSR BAR$TABLE    
  X * COLNOWRAPB EXSR BAR$TABLE    
  X * COLLEFT1B EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * COLCENTER1B EXSR BAR$TABLE    
  X * COLCENTER7B EXSR BAR$TABLE    
  X * COLRIGHTB EXSR BAR$TABLE    
  X * COLRIGHT1B EXSR BAR$TABLE    
  X * COLRIGHT2B EXSR BAR$TABLE    
  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 BAR$TABLE    
  X * COLLEFTS2 EXSR BAR$TABLE    
  X * COLLEFTS3 EXSR BAR$TABLE    
  X * COLLEFTS4 EXSR BAR$TABLE    
  X * COLLEFTS5 EXSR BAR$TABLE    
  X * COLLEFTS6 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS8 EXSR BAR$TABLE    
  X * COLCENTERS EXSR BAR$TABLE    
  X * COLRIGHTS EXSR BAR$TABLE    
  X * COLRIGHTS2 EXSR BAR$TABLE    
  X * COLCMD EXSR BAR$TABLE    
  X * COLCMD2 EXSR BAR$TABLE    
  X * COLDDS EXSR BAR$TABLE    
  X * COLFIL EXSR BAR$TABLE    
  X * COLDEF EXSR BAR$TABLE    
  X * COLRPG EXSR BAR$TABLE    
  X * COLRPG2 EXSR BAR$TABLE    
  X * COLRPGX EXSR BAR$TABLE    
  X * COLRPGX2 EXSR BAR$TABLE    
  X * COLFREE EXSR BAR$TABLE    
  X * COLFREE2 EXSR BAR$TABLE    
  X * COLFREE3 EXSR BAR$TABLE    
  X * COLINDN EXSR BAR$TABLE    
  X * COLSEQNUM EXSR BAR$TABLE    
  X * COLFORMTYPE EXSR BAR$TABLE    
  X * COLLINE EXSR BAR$TABLE    
  X * COLCOMMENT EXSR BAR$TABLE    
  X  
C     COLADDS BEGSR                
C *     --------------------------------------
C *     Zelle
C *     --------------------------------------
C     NOWRAP CAT TDADD :0 TDADD            
C       EXSR COLADD              
C       ENDSR                
C          
  X * COLADD EXSR BAR$TABLE    
  X * COLSTARTB EXSR BAR$TABLE    
  X * COLTEXTSTART EXSR BAR$TABLE    
  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 BAR$TABLE    
  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 BAR$TABLE    
  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 BAR$TABLE    
  X * COLSTARTTABLE EXSR BAR$TABLE    
  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 BAR$TABLE    
  X * COLADD EXSR BAR$TABLE    
  X * COLADDB EXSR BAR$TABLE    
  X * COLTEXTADDX EXSR BAR$TABLE    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  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 BAR$TABLE    
  X * COLCOLORS2 EXSR BAR$TABLE    
  X * COLCOLORMIT EXSR BAR$TABLE    
  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 BAR$FORM    
  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 BAR$FORM    
  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 BAR$FORM    
  X * LISTEMIT EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     COLCOLORMIT BEGSR                
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       MOVEL(P) MICOLOR COLOR1            
C       EXSR COLCOLOR              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     COLTEXT BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       MOVEL(P) MAXWIDTH TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  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 BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  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 BAR$FORM    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  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 BAR$ZEILE    
  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 BAR$ZEILE    
  X  
C     COLTEXTAG BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext (Agent)
C *     --------------------------------------
C       CLEAR   TDADD            
C       EXSR COLTEXTADD              
C       ENDSR                
C          
  X * COLTEXT EXSR BAR$TABLE    
  X * COLTEXT2 EXSR BAR$TABLE    
  X * COLTEXTMIT EXSR BAR$TABLE    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * COLTEXTCENTERM EXSR BAR$TABLE    
  X * COLTEXTAG EXSR BAR$TABLE    
  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 BAR$TABLE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     COLTEXTADD2 BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       EXSR WRSTOUTV              
C       ENDSR                
C          
  X * COLTEXTADD EXSR BAR$TABLE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     COLTEXTADDX BEGSR                
C *     --------------------------------------
C *     Zelle mit Langtext
C *     --------------------------------------
C       EVAL BUF = ''
C       EXSR COLSTOP              
C       ENDSR                
C          
  X * COLTEXTADD EXSR BAR$TABLE    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  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 BAR$FORM    
  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 MYBUFV2FORM              
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 BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  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 MYBUFV2FORM              
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                

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