Zeile

BAR$ZEILE (RPGLE)



  X * ZEILEART BEGSR BAR$ZEILE 77  
  X * ZEILEART2 BEGSR BAR$ZEILE 40  
  X * ZEILEARTX BEGSR BAR$ZEILE 12  
  X * ZEILEARTTEXT BEGSR BAR$ZEILE 6  
  X * ZEILEARTTEXT2 BEGSR BAR$ZEILE 62  
  X * ZEILEARTTEXTX BEGSR BAR$ZEILE 15  
  X * ZEILEARTXML BEGSR BAR$ZEILE 20  
  X * ZEILEARTRSS BEGSR BAR$ZEILE 33  
  X * ZEILEARTATOM BEGSR BAR$ZEILE 34  
  X * ZEILEARTINF BEGSR BAR$ZEILE 76  
  X * ZEILEARTNEU BEGSR BAR$ZEILE 7  
  X * ZEILEAW BEGSR BAR$ZEILE 19  
  X * ZEILEAW2 BEGSR BAR$ZEILE 81  
  X * ZEILEAWX BEGSR BAR$ZEILE 16  
  X * ZEILEAWFRA BEGSR BAR$ZEILE 6  
  X * ZEILEAWFRA2 BEGSR BAR$ZEILE 81  
  X * ZEILEAWFRAX BEGSR BAR$ZEILE 16  
  X * ZEILEAWXML BEGSR BAR$ZEILE 20  
  X * ZEILEAWRSS BEGSR BAR$ZEILE 31  
  X * ZEILEAWATOM BEGSR BAR$ZEILE 31  
  X * ZEILEAWINF BEGSR BAR$ZEILE 33  
  X * ZEILEMIT BEGSR BAR$ZEILE 12  
  X * ZEILEMIT2 BEGSR BAR$ZEILE 89  
  X * ZEILEMITX BEGSR BAR$ZEILE 15  
  X * ZEILEMITXML BEGSR BAR$ZEILE 27  
  X * ZEILEMITRSS BEGSR BAR$ZEILE 8  
  X * ZEILEMITATOM BEGSR BAR$ZEILE 8  
  X * ZEILERUB BEGSR BAR$ZEILE 22  
  X * ZEILERUB2 BEGSR BAR$ZEILE 80  
  X * ZEILERUBX BEGSR BAR$ZEILE 12  
  X * ZEILERUBXML BEGSR BAR$ZEILE 27  
  X * ZEILERUBRSS BEGSR BAR$ZEILE 8  
  X * ZEILERUBATOM BEGSR BAR$ZEILE 8  
  X * ZEILENAV BEGSR BAR$ZEILE 13  
  X * ZEILENAV2 BEGSR BAR$ZEILE 73  
  X * ZEILENAVX BEGSR BAR$ZEILE 12  
  X * ZEILENAVXML BEGSR BAR$ZEILE 27  
  X * ZEILENAVRSS BEGSR BAR$ZEILE 8  
  X * ZEILENAVATOM BEGSR BAR$ZEILE 8  
  X * ZEILEWER BEGSR BAR$ZEILE 6  
  X * ZEILEWER2 BEGSR BAR$ZEILE 34  
  X * ZEILEWERX BEGSR BAR$ZEILE 13  
  X * ZEILESRC BEGSR BAR$ZEILE 60  
  X * ZEILESRC2 BEGSR BAR$ZEILE 66  
  X * ZEILESRCX BEGSR BAR$ZEILE 14  
  X * ZEILESRC3 BEGSR BAR$ZEILE 16  
  X * ZEILEFILE BEGSR BAR$ZEILE 12  
  X * ZEILEFILE2 BEGSR BAR$ZEILE 132  
  X * ZEILEFILEX BEGSR BAR$ZEILE 13  
  X * ZEILESMILY BEGSR BAR$ZEILE 12  
  X * ZEILESMILY2 BEGSR BAR$ZEILE 53  
  X * ZEILESMILYX BEGSR BAR$ZEILE 13  
  X * ZEILESMILY3 BEGSR BAR$ZEILE 17  
  X * ZEILESMILY4 BEGSR BAR$ZEILE 20  
  X * ZEILEBESUCHE BEGSR BAR$ZEILE 37  
  X * ZEILEBESUCHE2 BEGSR BAR$ZEILE 84  
  X * ZEILEBESUCHEX BEGSR BAR$ZEILE 13  
  X * ZEILEANFRAGE BEGSR BAR$ZEILE 6  
  X * ZEILEANFRAGE2 BEGSR BAR$ZEILE 382  
  X * ZEILEANFRAGEX BEGSR BAR$ZEILE 13  
  X * ZEILENAVEDT BEGSR BAR$ZEILE 28  
  X  
  X * MIKEY1ART2 KLIST BAR$ZEILE 3  
  X  
  X * NUMSTR EXSR BAR$NUM    
  X * LISTEARTAW EXSR BAR$LISTE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKARTNEU EXSR BAR$LINK    
  X * LINKARTFILE EXSR BAR$LINK    
  X * LINKART EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKADD23 EXSR BAR$LINK    
  X * LINKADDPN EXSR BAR$LINK    
  X * COLCENTERMAX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * COL100PRB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKMIT EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * LINKARTNEU EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * LINKART EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * LINKMIT EXSR BAR$LINK    
  X * LINKRUB EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKMITRSS EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * ROWX EXSR BAR$TABLE    
  X * LINKMITATOM EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * ROWX EXSR BAR$TABLE    
  X * ARTTITEL EXSR BAR$ART    
  X * MYTITELX EXSR BAR$TEXT    
  X * ARTTITEL2 EXSR BAR$ART    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * LINKARTFILE EXSR BAR$LINK    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKARTREF EXSR BAR$LINK    
  X * LINKADDNEU EXSR BAR$LINK    
  X * ROWT EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * COL100PRB EXSR BAR$TABLE    
  X * COLCENTER1B EXSR BAR$TABLE    
  X * COLRIGHT1B EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWCOLOR12 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * LINKMIT EXSR BAR$LINK    
  X * COLB EXSR BAR$TABLE    
  X * ARTTEXTAW EXSR BAR$ART    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXT2 EXSR BAR$TABLE    
  X * COLTEXT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * LINKDAT2 EXSR BAR$LINK    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * COL100PRB EXSR BAR$TABLE    
  X * COLCENTER1B EXSR BAR$TABLE    
  X * COLRIGHT1B EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWCOLOR12 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * LINKMIT EXSR BAR$LINK    
  X * COLB EXSR BAR$TABLE    
  X * ARTTEXTAW EXSR BAR$ART    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXT2 EXSR BAR$TABLE    
  X * COLTEXT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * LINKDAT2 EXSR BAR$LINK    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKMITRSS EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * ROWX EXSR BAR$TABLE    
  X * LINKMITATOM EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * ROWX EXSR BAR$TABLE    
  X * ARTTEXTAW EXSR BAR$ART    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKSMILY1 EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * LINKMIT EXSR BAR$LINK    
  X * COLB EXSR BAR$TABLE    
  X * COLTABLECOLOR EXSR BAR$TABLE    
  X * COLCOLORMIT EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * LINKDAT2 EXSR BAR$LINK    
  X * LINKDAT1 EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKMITREF EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKRUBNEU EXSR BAR$LINK    
  X * LINKRUBFILE EXSR BAR$LINK    
  X * LINKRUB EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKADD23 EXSR BAR$LINK    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTERM EXSR BAR$TABLE    
  X * COLCENTERMAX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKRUBREF EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * NATYPNAV EXSR BAR$NAV    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKNAVFILE EXSR BAR$LINK    
  X * LINKNAV EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKADD23 EXSR BAR$LINK    
  X * COLCENTERMAX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKNAVREF EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKMIT EXSR BAR$LINK    
  X * COLB EXSR BAR$TABLE    
  X * LINKDAT2 EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL100PRB EXSR BAR$TABLE    
  X * COLCENTER1B EXSR BAR$TABLE    
  X * COLRIGHT1B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWCOLOR12 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKSRC EXSR BAR$SRC    
  X * COL EXSR BAR$TABLE    
  X * LINKSRCNEU EXSR BAR$SRC    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKADDB EXSR BAR$LINK    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * LINKADDB EXSR BAR$LINK    
  X * COLRIGHT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLRIGHT2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COLRIGHT1B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * ROWCOLOR12 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKFINAME EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * LINKADDB EXSR BAR$LINK    
  X * COLRIGHTNOWRAP EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKSMILY EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * BESUCHERNAMEX EXSR BAR$AGENT    
  X * ROWT EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * COLTEXTAG EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * AGKEY1AF CHAIN BAR$LISTE    
  X * LINKDAT1 EXSR BAR$LINK    
  X * LINKDAT2 EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL EXSR BAR$TABLE    
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X * COLTEXT EXSR BAR$TABLE    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * MYBUFV2FORMX EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * LISTESPAM$ EXSR BAR$LISTE    
  X * NUMSTR EXSR BAR$NUM    
  X * COLTEXTADD2 EXSR BAR$TABLE    
  X * AFKEY2PF READPE BAR$LISTE    
  X * AFKEY3AG READPE BAR$LISTE    
  X * AFKEY4 READPE BAR$LISTE    
  X * COLTEXTADD2 EXSR BAR$TABLE    
  X * COLTEXTADDX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  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 * ZEILEARTTEXT EXSR BAR$ZEILE    
  X  
C     ZEILEART BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C     NODLT IFEQ ARDLT              
C     NOMIT ORNE BEMIT              
C          
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     *BLANKS IFNE ARTITEL              
C     XLATE1:XLATE2 XLATE(P) ARTITEL SUTITEL            
C     ' ' CHECKR SUTITEL LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL:SUTITEL:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL       — 77 78  
C       ELSE                
C *     --------------------------------------
C *     Nummer
C *     --------------------------------------
C     *ZERO ADD ARART NUM            
C       EXSR NUMSTR              
C     SUCH:SUCHLEN SCAN STR       — 77 78  
C       ENDIF                
C *     --------------------------------------
C *     Titel 2
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     XLATE1:XLATE2 XLATE(P) ARTITEL2 SUTITEL2            
C     ' ' CHECKR SUTITEL2 LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL2:SUTITEL2:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL2       — 77 78  
C          
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C     NONFM IFEQ ARNFM              
C     NOMIT ORNE BEMIT              
C          
C *     --------------------------------------
C *     Kamera
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       EVAL   SUKAMERA = ARKAMERA
C     XLATE1:XLATE2 XLATE(P) SUKAMERA SUKAMERA            
C     ' ' CHECKR SUKAMERA LEN            
C       CALLP(E) CVTCS(TOLOWER:SUKAMERA$:SUKAMERA$:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUKAMERA       — 77 78  
C          
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       EVAL   SUTEXT = ARTEXT
C     XLATE1:XLATE2 XLATE(P) SUTEXT SUTEXT            
C     ' ' CHECKR SUTEXT LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTEXT$:SUTEXT$:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTEXT       — 77 78  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Antworten
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     NONFM IFEQ ARNFM              
C     NOMIT ORNE BEMIT              
C     *ZERO ADD ROWS ROWSSAVE            
C       EXSR LISTEARTAW              
C     *ZERO ADD ROWSSAVE ROWS            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  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  
C     ZEILEART2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C       EXSR LINKARTNEU              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKARTFILE              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKART              
C       EXSR LINKADDB              
C       EXSR LINKADD23              
C       EXSR LINKADDPN              
C       EXSR COLCENTERMAX              
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILEARTXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILEARTRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILEARTATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  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  
C     ZEILEARTX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEIDXTEXT EXSR BAR$LISTE    
  X  
C     ZEILEARTTEXT BEGSR                
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C       EXSR ZEILEART              
C       ENDSR                
C          
  X * LISTEIDXTEXT EXSR BAR$LISTE    
  X  
C     ZEILEARTTEXT2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C   N66   MOVEL(P) MYMIT# LINK            
C   N66   EXSR COLB              
C       EXSR COLCENTERB              
C       MOVEL(P) MYART# LINK            
C   66   CAT '<br>' :0 LINK            
C   66   CAT MYMIT# :1 LINK            
C   66   CAT '|' :1 LINK            
C   66   CAT MYRUB# :1 LINK            
C       EXSR COL100PRB              
C   N66   MOVEL(P) MYRUB# LINK            
C   N66   EXSR COLB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C   N66 *ZERO ADD ARMIT MIMIT            
C   N66   EXSR LINKMIT              
C   N66   EXSR COL              
C       EXSR LINKARTNEU              
C       EXSR COLCENTER              
C       EXSR LINKART              
C       EXSR LINKADDB              
C   66   MOVEL(P) LINK LINK3            
C   N66   EXSR COL              
C   66 *ZERO ADD ARMIT MIMIT            
C   66   EXSR LINKMIT              
C     NORUB IFNE ARRUB              
C   66   MOVEL(P) LINK LINK2            
C     *ZERO ADD ARRUB RURUB            
C       EXSR LINKRUB              
C   66   CAT '|' :1 LINK2            
C   66 LINK2 CAT LINK :1 LINK            
C       ENDIF                
C   66   CAT '<br>' :0 LINK3            
C   66 LINK3 CAT LINK :1 LINK            
C       EXSR COL              
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILEARTXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILEARTRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILEARTATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTEIDXTEXT EXSR BAR$LISTE    
  X  
C     ZEILEARTTEXTX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C   N66   EXSR COL              
C       EXSR COLCENTER              
C       EXSR COL              
C   N66   EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X  
C     ZEILEARTXML BEGSR                
C     *ZERO ADD DATETYPEXML DATETYPE            
C *     --------------------------------------
C *     Artikel-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEARTINF              
C          
C *     --------------------------------------
C *     Artikel-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§<url>+
C              <loc>'        +%TRIM(LINK)+
C            '</loc>+
C              <lastmod>'    +%TRIM(HTTPDATE)+
C            '</lastmod>+
C             </url>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X  
C     ZEILEARTRSS BEGSR                
C     *ZERO ADD DATETYPERSS DATETYPE            
C *     --------------------------------------
C *     Artikel-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEARTINF              
C       EXSR LINKMITRSS              
C          
C *     --------------------------------------
C *     Artikel-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§+
C             §<item>+
C             §<title>'      +%TRIM(TITLE)+
C            '</title>+
C             §<guid>'       +%TRIM(LINK)+
C            '</guid>+
C             §<link>'       +%TRIM(LINK)+
C            '</link>+
C             §<description>'+%TRIM(LINK7)
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</description>+
C             §<pubDate>'    +%TRIM(HTTPDATE)+
C            '</pubDate>+
C             §<author>'     +%TRIM(LINK2)+
C            '</author>+
C             </item>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X  
C     ZEILEARTATOM BEGSR                
C     *ZERO ADD DATETYPEATOM DATETYPE            
C *     --------------------------------------
C *     Artikel-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEARTINF              
C       EXSR LINKMITATOM              
C          
C *     --------------------------------------
C *     Artikel-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§+
C             §<entry>+
C             §<title>'      +%TRIM(TITLE)+
C            '</title>+
C             §<id>'         +%TRIM(LINK)+
C            '</id>+
C             §<link href="' +%TRIM(LINK)+'" />+
C          
C             §<summary type="html">'
C                +%TRIM(LINK7)
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</summary>+
C             §<updated>'    +%TRIM(HTTPDATE)+
C            '</updated>+
C             §<author>'     +%TRIM(LINK2)+
C            '</author>+
C             </entry>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEARTXML EXSR BAR$ZEILE    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X  
C     ZEILEARTINF BEGSR                
C       CLEAR   BUFV            
C *     --------------------------------------
C *     Titel ermitteln
C *     --------------------------------------
C       EXSR ARTTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C          
C *     --------------------------------------
C *     Kamerabild
C *     --------------------------------------
C     *BLANKS IFNE ARKAMERA              
C     *BLANKS ANDNE ARFILEX              
C     '-' ANDNE ARFILEX              
C       CAT '*' :1 LINK            
C       CAT MYLIVE# :1 LINK            
C       ENDIF                
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C     NONFM IFNE ARNFM              
C       CAT '(' :1 LINK            
C       CAT MYNFM# :0 LINK            
C       CAT ')' :0 LINK            
C       ENDIF                
C *     --------------------------------------
C *     Titel ermitteln
C *     --------------------------------------
C       MOVEL(P) LINK TITLE            
C          
C *     --------------------------------------
C *     Beschreibung ermitteln
C *     --------------------------------------
C       EXSR ARTTITEL2              
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C       ENDIF                
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:ARDATAW:DATETYPE)
C          
C *     --------------------------------------
C *     Minibild ermitteln
C *     --------------------------------------
C       EXSR LINKARTFILE              
C       MOVEL(P) LINK MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK7            
C       CLEAR   LINK            
C *     --------------------------------------
C *     Abstand nach Minibild
C *     --------------------------------------
C     *BLANKS IFNE LINK7              
C     *BLANKS ANDNE BUFV              
C       CAT '§' :0 LINK7            
C       ENDIF                
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1ART2 CHAIN MITGLIEDL1       77 77 —  
C   N77   EXSR LINKARTREF              
C          
C *     --------------------------------------
C *     Autor ermitteln
C *     --------------------------------------
C     NOMIT COMP ARPN       75 75 —  
C   75 BEMIT COMP ARPN       75 75 —  
C   75 *ZERO ADD ARPN MIMIT            
C   N75 *ZERO ADD ARMIT MIMIT            
C          
C       ENDSR                
C          
  X * ZEILEARTINF CHAIN BAR$ZEILE    
  X  
C     MIKEY1ART2 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C          
  X * LISTEPFNEU EXSR BAR$LISTE    
  X * LISTEAKTNEU EXSR BAR$LISTE    
  X * LISTERUBNEU EXSR BAR$LISTE    
  X  
C     ZEILEARTNEU BEGSR                
C *     --------------------------------------
C *     Prüfen ob Artikel/Nachricht gelesen
C *     --------------------------------------
C       ADD 1 ROWS            
C       EXSR LINKADDNEU              
C       ENDSR                
C          
  X * LISTEARTAW EXSR BAR$LISTE    
  X * LISTEARTPN EXSR BAR$LISTE    
  X * ZEILEAWFRA EXSR BAR$ZEILE    
  X  
C     ZEILEAW BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     NONFM IFEQ ARNFM              
C     NOMIT ORNE BEMIT              
C     NODLT IFEQ AWDLT              
C     NOMIT ORNE BEMIT              
C       EVAL   SUTEXT = AWTEXT
C     XLATE1:XLATE2 XLATE(P) SUTEXT SUTEXT            
C     ' ' CHECKR SUTEXT LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTEXT$:SUTEXT$:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTEXT       — 77 78  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEARTPN EXSR BAR$LISTE    
  X  
C     ZEILEAW2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       MOVEL(P) MYMIT# LINK            
C       EXSR COL1B              
C       MOVEL(P) MYAW# LINK            
C       EXSR COL100PRB              
C   66   EXSR COLCENTER1B              
C   N66   EXSR COLRIGHT1B              
C       MOVEL(P) MYDAT# LINK            
C       EXSR COL1B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C *     --------------------------------------
C *     Farbe für erste Zeile ändern
C *     --------------------------------------
C     *ZERO IFEQ ZAHL1              
C     2 OREQ ZAHL1              
C     4 OREQ ZAHL1              
C     6 OREQ ZAHL1              
C     8 OREQ ZAHL1              
C       EXSR ROWCOLOR12              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C     *ZERO ADD AWAUT MIMIT            
C     *ZERO ADD AWAW NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR ANKER            
C       EXSR LINKMIT              
C       EXSR COLB              
C       EXSR ARTTEXTAW              
C       EXSR TEXTSMILYS              
C       EXSR ZEILENAVEDT              
C     *BLANKS IFEQ MYNAV              
C       EXSR COLTEXT2              
C       ELSE                
C       EXSR COLTEXT              
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       CAT ANKER :0 LINK            
C       CAT '/' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT PFADX :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGETX :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C   66   EXSR COLCENTER              
C   N66   EXSR COLRIGHT              
C       ENDIF                
C       MOVE AWDAT DATETIME3            
C       EXSR LINKDAT2              
C       EXSR COLNOWRAP              
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILEAWXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILEAWRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILEAWATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTEARTPN EXSR BAR$LISTE    
  X  
C     ZEILEAWX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL              
C   66   EXSR COLCENTER              
C   N66   EXSR COLRIGHT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFRA EXSR BAR$LISTE    
  X  
C     ZEILEAWFRA BEGSR                
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C       EXSR ZEILEAW              
C       ENDSR                
C          
  X * LISTEFRA EXSR BAR$LISTE    
  X  
C     ZEILEAWFRA2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       MOVEL(P) MYMIT# LINK            
C       EXSR COL1B              
C       MOVEL(P) MYAW# LINK            
C       EXSR COL100PRB              
C   66   EXSR COLCENTER1B              
C   N66   EXSR COLRIGHT1B              
C       MOVEL(P) MYDAT# LINK            
C   N66   EXSR COL1B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C *     --------------------------------------
C *     Farbe für erste Zeile ändern
C *     --------------------------------------
C     *ZERO IFEQ ZAHL1              
C     2 OREQ ZAHL1              
C     4 OREQ ZAHL1              
C     6 OREQ ZAHL1              
C     8 OREQ ZAHL1              
C       EXSR ROWCOLOR12              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C     *ZERO ADD AWAUT MIMIT            
C     *ZERO ADD AWAW NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR ANKER            
C       EXSR LINKMIT              
C       EXSR COLB              
C       EXSR ARTTEXTAW              
C       EXSR TEXTSMILYS              
C       EXSR ZEILENAVEDT              
C     *BLANKS IFEQ MYNAV              
C       EXSR COLTEXT2              
C       ELSE                
C       EXSR COLTEXT              
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT ANKER :0 LINK            
C       CAT '/' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT PFADX :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGETX :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C   66   EXSR COLCENTER              
C   N66   EXSR COLRIGHT              
C       ENDIF                
C     *IN66 IFEQ *OFF              
C       MOVE AWDAT DATETIME3            
C       EXSR LINKDAT2              
C       EXSR COLNOWRAP              
C       ENDIF                
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILEAWXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILEAWRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILEAWATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTEFRA EXSR BAR$LISTE    
  X  
C     ZEILEAWFRAX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL              
C   66   EXSR COLCENTER              
C   N66   EXSR COLRIGHT              
C   N66   EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X  
C     ZEILEAWXML BEGSR                
C     *ZERO ADD DATETYPEXML DATETYPE            
C *     --------------------------------------
C *     Antwort-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEAWINF              
C          
C *     --------------------------------------
C *     Antwort-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§<url>+
C              <loc>'        +%TRIM(LINK)+
C            '</loc>+
C              <lastmod>'    +%TRIM(HTTPDATE)+
C            '</lastmod>+
C             </url>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X  
C     ZEILEAWRSS BEGSR                
C     *ZERO ADD DATETYPERSS DATETYPE            
C *     --------------------------------------
C *     Antwort-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEAWINF              
C       EXSR LINKMITRSS              
C          
C *     --------------------------------------
C *     Antwort-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§+
C             §<item>+
C             §<guid>'       +%TRIM(LINK)+
C            '</guid>+
C             §<link>'       +%TRIM(LINK)+
C            '</link>+
C             §<description>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</description>+
C             §<pubDate>'    +%TRIM(HTTPDATE)+
C            '</pubDate>+
C             §<author>'     +%TRIM(LINK2)+
C            '</author>+
C             </item>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X  
C     ZEILEAWATOM BEGSR                
C     *ZERO ADD DATETYPEATOM DATETYPE            
C *     --------------------------------------
C *     Antwort-Informationen ermitteln
C *     --------------------------------------
C       EXSR ZEILEAWINF              
C       EXSR LINKMITATOM              
C          
C *     --------------------------------------
C *     Antwort-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§+
C             §<entry>+
C             §<id>'         +%TRIM(LINK)+
C            '</id>+
C             §<link href="' +%TRIM(LINK)+'" />+
C          
C             §<summary type="html">'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</summary>+
C             §<updated>'    +%TRIM(HTTPDATE)+
C            '</updated>+
C             §<author>'     +%TRIM(LINK2)+
C            '</author>+
C             </entry>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEAWXML EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  X  
C     ZEILEAWINF BEGSR                
C *     --------------------------------------
C *     Beschreibung ermitteln
C *     --------------------------------------
C       EXSR ARTTEXTAW              
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C       ENDIF                
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:AWDAT:DATETYPE)
C          
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       MOVEL(P) HTTP LINK            
C       CAT PFAD :0 LINK            
C       CAT '/' :0 LINK            
C     *ZERO ADD AWAW NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C          
C *     --------------------------------------
C *     Autor ermitteln
C *     --------------------------------------
C     *ZERO ADD AWAUT MIMIT            
C          
C       ENDSR                
C          
  X * LISTEMMM EXSR BAR$LISTE    
  X  
C     ZEILEMIT BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) MITITEL SUTITEL            
C     ' ' CHECKR SUTITEL LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL:SUTITEL:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL       — 77 78  
C       ENDIF                
C       ENDSR                
C          
  X * LISTEMMM EXSR BAR$LISTE    
  X  
C     ZEILEMIT2 BEGSR                
C     *ZERO IFEQ SUCHLEN              
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C     MYPOS IFNE MIPOS              
C     *ZERO ADD MIPOS MYPOS            
C     PFADXX IFEQ HTML              
C     *IN71 IFEQ *ON              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEMITX              
C          
C       CLEAR   ROWCOLOR            
C *     --------------------------------------
C *     Leerzeile ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR COL              
C   N73   EXSR COL              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C       SETOFF         — 71 —  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       MOVEL(P) MYMIT# LINK            
C       EXSR COLB              
C   N73   EXSR COLB              
C       MOVEL(P) SPONLINE MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C       EXSR LINKSMILY1              
C       EXSR COLCENTER              
C       EXSR LINKMIT              
C       EXSR COLB              
C     *IN73 IFEQ *OFF              
C       EXSR COLTABLECOLOR              
C       EXSR COLCOLORMIT              
C       EXSR COLTABLEX              
C       ENDIF                
C       MOVE MIONLINE DATETIME3            
C   66   EXSR LINKDAT2              
C   N66   EXSR LINKDAT1              
C   75   EXSR LINKADDB              
C       EXSR COL              
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILEMITXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILEMITRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILEMITATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTEMMM EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     ZEILEMITX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR COL              
C   N73   EXSR COL              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     ZEILEMITXML BEGSR                
C       CLEAR   LINK            
C     *ZERO ADD DATETYPEXML DATETYPE            
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       EXSR LINKMITREF              
C          
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:MIONLINE:DATETYPE)
C          
C *     --------------------------------------
C *     Mitglied-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§<url>+
C              <loc>'        +%TRIM(LINK)+
C            '</loc>+
C              <lastmod>'    +%TRIM(HTTPDATE)+
C            '</lastmod>+
C             </url>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     ZEILEMITRSS BEGSR                
C     *ZERO ADD DATETYPERSS DATETYPE            
C *     --------------------------------------
C *     Mitglied-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     ZEILEMITATOM BEGSR                
C     *ZERO ADD DATETYPEATOM DATETYPE            
C *     --------------------------------------
C *     Mitglied-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * LISTEGAL EXSR BAR$LISTE    
  X  
C     ZEILERUB BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) RUTITEL SUTITEL            
C     ' ' CHECKR SUTITEL LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL:SUTITEL:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL       — 77 78  
C          
C *     --------------------------------------
C *     Titel 2
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) RUTITEL2 SUTITEL2            
C     ' ' CHECKR SUTITEL2 LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL2:SUTITEL2:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL2       — 77 78  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEGAL EXSR BAR$LISTE    
  X  
C     ZEILERUB2 BEGSR                
C     *ZERO IFEQ SUCHLEN              
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C     MYPOS IFNE RUPOS              
C     *ZERO ADD RUPOS MYPOS            
C     PFADXX IFEQ HTML              
C     *IN71 IFEQ *ON              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILERUBX              
C          
C       CLEAR   ROWCOLOR            
C *     --------------------------------------
C *     Leerzeile ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C       SETOFF         — 71 —  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C       EXSR LINKRUBNEU              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKRUBFILE              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKRUB              
C       EXSR LINKADDB              
C       EXSR LINKADD23              
C       EVAL BUFV = %TRIM(RUTITEL2)
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTCENTERM              
C       ELSE                
C       EXSR COLCENTERMAX              
C       ENDIF                
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILERUBXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILERUBRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILERUBATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTEGAL EXSR BAR$LISTE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     ZEILERUBX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     ZEILERUBXML BEGSR                
C       CLEAR   LINK            
C     *ZERO ADD DATETYPEXML DATETYPE            
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       EXSR LINKRUBREF              
C          
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:RUDAT:DATETYPE)
C          
C *     --------------------------------------
C *     Rubrik-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§<url>+
C              <loc>'        +%TRIM(LINK)+
C            '</loc>+
C              <lastmod>'    +%TRIM(HTTPDATE)+
C            '</lastmod>+
C             </url>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     ZEILERUBRSS BEGSR                
C     *ZERO ADD DATETYPERSS DATETYPE            
C *     --------------------------------------
C *     Rubrik-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     ZEILERUBATOM BEGSR                
C     *ZERO ADD DATETYPEATOM DATETYPE            
C *     --------------------------------------
C *     Rubrik-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X  
C     ZEILENAV BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL SUTITEL            
C     ' ' CHECKR SUTITEL LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL:SUTITEL:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL       — 77 78  
C       ENDIF                
C       ENDSR                
C          
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X  
C     ZEILENAV2 BEGSR                
C     *ZERO IFEQ SUCHLEN              
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C     MYPOS IFNE NAPOS              
C     *ZERO ADD NAPOS MYPOS            
C     PFADXX IFEQ HTML              
C     *IN71 IFEQ *ON              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILENAVX              
C          
C       CLEAR   ROWCOLOR            
C *     --------------------------------------
C *     Leerzeile ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C *     --------------------------------------
C *     Neue Überschrift ausgeben
C *     --------------------------------------
C       SETOFF         — 71 —  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C       MOVEL(P) ROWCOLORT ROWCOLOR            
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       SELECT    
C     PFADXX WHENEQ HTML              
C       EXSR ROW              
C       CLEAR   LINK3            
C       EXSR LINKNAVFILE              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKNAV              
C       EXSR LINKADDB              
C       EXSR LINKADD23              
C       EXSR COLCENTERMAX              
C       EXSR ROWX              
C     PFADXX WHENEQ XML              
C       EXSR ZEILENAVXML              
C     PFADXX WHENEQ RSS              
C       EXSR ZEILENAVRSS              
C     PFADXX WHENEQ ATOM              
C       EXSR ZEILENAVATOM              
C       OTHER                
C       EXSR ROWROWX              
C       ENDSL                
C       ENDSR                
C          
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     ZEILENAVX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     ZEILENAVXML BEGSR                
C       CLEAR   LINK            
C     *ZERO ADD DATETYPEXML DATETYPE            
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       EXSR LINKNAVREF              
C          
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME:DATETYPE)
C          
C *     --------------------------------------
C *     Navigation-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUF =
C       BUF +'§<url>+
C              <loc>'        +%TRIM(LINK)+
C            '</loc>+
C              <lastmod>'    +%TRIM(HTTPDATE)+
C            '</lastmod>+
C             </url>'
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     ZEILENAVRSS BEGSR                
C     *ZERO ADD DATETYPERSS DATETYPE            
C *     --------------------------------------
C *     Navigation-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     ZEILENAVATOM BEGSR                
C     *ZERO ADD DATETYPEATOM DATETYPE            
C *     --------------------------------------
C *     Navigation-Informationen ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ROWX              
C       ENDSR                
C          
  X * LISTEFRW EXSR BAR$LISTE    
  X  
C     ZEILEWER BEGSR                
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C       SETON         — — 78  
C       ENDSR                
C          
  X * LISTEFRW EXSR BAR$LISTE    
  X  
C     ZEILEWER2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       MOVEL(P) MYMIT# LINK            
C       EXSR COL1B              
C       MOVEL(P) MYDAT# LINK            
C       EXSR COL1B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C     *ZERO ADD GEBEN MIMIT            
C       EXSR LINKMIT              
C       EXSR COLB              
C       MOVE GEDATAW DATETIME3            
C       EXSR LINKDAT2              
C   75   EXSR LINKADDB              
C       EXSR COLNOWRAP              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFRW EXSR BAR$LISTE    
  X  
C     ZEILEWERX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTESRCS EXSR BAR$LISTE    
  X  
C     ZEILESRC BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) SRCMBR SUMBR            
C     ' ' CHECKR SUMBR LEN            
C       CALLP(E) CVTCS(TOLOWER:SUMBR:SUMBR:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUMBR       — 77 78  
C          
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) SRCTEXT SUTEXTX            
C     ' ' CHECKR SUTEXTX LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTEXTX:SUTEXTX:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTEXTX       — 77 78  
C          
C *     --------------------------------------
C *     Typ
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) SRCTYPE SUTYPE            
C     ' ' CHECKR SUTYPE LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTYPE:SUTYPE:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTYPE       — 77 78  
C          
C *     --------------------------------------
C *     Typ DDS
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     SRCTYPE IFEQ 'PF'              
C     SRCTYPE OREQ 'PF38'              
C     SRCTYPE OREQ 'LF'              
C     SRCTYPE OREQ 'LF38'              
C     SRCTYPE OREQ 'DSPF'              
C     SRCTYPE OREQ 'DSPF38'              
C     SRCTYPE OREQ 'PRTF'              
C     SRCTYPE OREQ 'PRTF38'              
C     SRCTYPE OREQ 'ICFF'              
C     SRCTYPE OREQ 'MENUDDS'              
C       MOVEL(P) 'DDS' SUTYPE            
C     ' ' CHECKR SUTYPE LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTYPE:SUTYPE:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTYPE       — 77 78  
C       ENDIF                
C *     --------------------------------------
C *     Quelle geändert?
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       EXSR ZEILESRC3              
C   75 SUCH COMP BILDBESUCH       — — 78  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTESRCS EXSR BAR$LISTE    
  X  
C     ZEILESRC2 BEGSR                
C       EXSR ZEILESRC3              
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       MOVEL(P) SPSRCMBR MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) SPSRCTEXT MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL100PRB              
C       EXSR COLCENTER1B              
C       EXSR COLRIGHT1B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       MOVEL(P) SRCMBR SRCMBRCOMP            
C     SRCMBRCOMP2 COMP SRCMBRCOMP       — — 78  
C   N78   MOVEL(P) SRCMBRCOMP SRCMBRCOMP2            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C   78   EXSR ROWCOLOR12              
C       EXSR ROW              
C       MOVEL(P) SRCMBR MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR LINKSRC              
C       EXSR COL              
C       EXSR LINKSRCNEU              
C       MOVEL(P) LINK LINK2            
C       MOVEL(P) SRCTEXT MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C   75   EXSR LINKADDB              
C     *BLANKS IFEQ LINK2              
C       EXSR COL2              
C       ELSE                
C       EXSR COL              
C       MOVEL(P) LINK2 LINK            
C       EXSR COLCENTER              
C       ENDIF                
C       ADD SRCLINES LINES            
C     *ZERO ADD SRCLINES NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR LINK            
C   75   EXSR LINKADDB              
C       EXSR COLRIGHT              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTESRCS EXSR BAR$LISTE    
  X  
C     ZEILESRCX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL              
C       EXSR COLRIGHT2              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILESRC EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X  
C     ZEILESRC3 BEGSR                
C *     --------------------------------------
C *     Quelle geändert?
C *     --------------------------------------
C       SETOFF         — 75 —  
C     *CYMD0 TEST(D)   SRCCHGDATE     — 77 —  
C   N77 *HMS0 TEST(T)   SRCCHGTIME     — 77 —  
C   77   CLEAR   SRCCHG            
C     *BLANKS IFNE SRCCHG              
C     *CYMD0 MOVE SRCCHGDATE DATUM            
C     *HMS0 MOVE SRCCHGTIME ZEIT            
C       MOVE DATUM DATETIME3            
C       MOVE ZEIT DATETIME3            
C     DATETIME2 COMP DATETIME3       — 75 —  
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFILES EXSR BAR$LISTE    
  X  
C     ZEILEFILE BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Dateiname
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) FINAME SUNAME            
C     ' ' CHECKR SUNAME LEN            
C       CALLP(E) CVTCS(TOLOWER:SUNAME:SUNAME:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUNAME       — 77 78  
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFILES EXSR BAR$LISTE    
  X  
C     ZEILEFILE2 BEGSR                
C *     --------------------------------------
C *     Datei geändert?
C *     --------------------------------------
C     *ZERO ADD FITIME TIME3            
C          
C *     --------------------------------------
C *     Datum und Zeit von UTC umrechnen
C *     --------------------------------------
C     EPOCH ADDDUR TIME3:*S DATETIME3            
C       ADDDUR UTCOFFSET:*S DATETIME3            
C          
C *     --------------------------------------
C *     Zu altes Datum ins Jahr 1970 bringen
C *     --------------------------------------
C     DATETIME3 IFLT EPOCH              
C       MOVE EPOCH DATETIME3            
C       ENDIF                
C *     --------------------------------------
C *     Datei geändert?
C *     --------------------------------------
C     DATETIME2 COMP DATETIME3       — 75 —  
C          
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLB              
C       EXSR COLRIGHT1B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C *     --------------------------------------
C *     Teiler berechnen
C *     --------------------------------------
C     *ZERO ADD 1024 KB            
C     KB MULT 1024 MB            
C     MB MULT 1024 GB            
C          
C *     --------------------------------------
C *     Texte vorbelegen
C *     --------------------------------------
C       MOVEL(P) SPB MYTITEL     — — 77  
C   77   MOVEL(P) 'B' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYB#            
C       MOVEL(P) SPKB MYTITEL     — — 77  
C   77   MOVEL(P) 'KB' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYKB#            
C       MOVEL(P) SPMB MYTITEL     — — 77  
C   77   MOVEL(P) 'MB' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMB#            
C       MOVEL(P) SPGB MYTITEL     — — 77  
C   77   MOVEL(P) 'GB' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYGB#            
C       ENDIF                
C     *ZERO ADD 3 POS            
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     WWTYP IFEQ TYPSAVES              
C     ' ' CHECKR FINAME LEN            
C     '-' SCAN FINAME POS2     — 77 78  
C   78 *ZERO ADD POS2 POS            
C     POS IFLT LEN              
C       ADD 1 POS2            
C     '-' SCAN FINAME:POS2 POS2     — 77 78  
C   78 *ZERO ADD POS2 POS            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     POS SUBST(P) FINAME FINAMECOMP            
C     FINAMECOMP2 COMP FINAMECOMP       — — 78  
C   N78   MOVEL(P) FINAMECOMP FINAMECOMP2            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     WWTYP IFEQ TYPFILES              
C     ' ' CHECKR FINAME POS            
C     POS IFGT 1              
C       SUB 1 POS            
C          
C     1 SUBST(P) FINAME:POS FINAMECOMP3            
C   78 FINAMECOMP4 COMP FINAMECOMP3       — — 78  
C   N78   MOVEL(P) FINAMECOMP3 FINAMECOMP4            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C   78   EXSR ROWCOLOR12              
C       EXSR ROW              
C       EXSR LINKFINAME              
C   75   EXSR LINKADDB              
C       EXSR COL              
C     FITYPE IFNE ISDIR              
C     FISIZE DIV(H) 1 MYSIZE            
C       MOVEL(P) MYB# LINK            
C     MYSIZE IFGE KB              
C     FISIZE DIV(H) KB MYSIZE            
C       MOVEL(P) MYKB# LINK            
C     MYSIZE IFGE KB              
C     FISIZE DIV(H) MB MYSIZE            
C       MOVEL(P) MYMB# LINK            
C     MYSIZE IFGE KB              
C     FISIZE DIV(H) GB MYSIZE            
C       MOVEL(P) MYGB# LINK            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C     *ZERO ADD MYSIZE NUM            
C       EXSR NUMSTR              
C     STR CAT LINK:1 LINK            
C       ENDIF                
C   75   EXSR LINKADDB              
C       EXSR COLRIGHTNOWRAP              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFILES EXSR BAR$LISTE    
  X  
C     ZEILEFILEX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COLRIGHT              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTESMILYS EXSR BAR$LISTE    
  X  
C     ZEILESMILY BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C       MOVEL(P) SMTITEL SUTITEL            
C     ' ' CHECKR SUTITEL LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTITEL:SUTITEL:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTITEL       — 77 78  
C       ENDIF                
C       ENDSR                
C          
  X * LISTESMILYS EXSR BAR$LISTE    
  X  
C     ZEILESMILY2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTERB              
C       EXSR COLB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR LINKSMILY              
C     BEMIT IFEQ WEBMASTER              
C     *BLANKS ORNE LINK              
C          
C *     --------------------------------------
C *     Smily ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C **     EVAL LINK = '<a href="javascript:void(smily('''+
C **            %TRIM(EDTITEL)+'''))">'+
C **            %TRIM(LINK)+'</a>'
C       EXSR COLCENTER              
C       MOVEL(P) '<a' LINK            
C     BEMIT IFEQ WEBMASTER              
C     *BLANKS ORNE DEBUG              
C       CAT 'href="' :1 LINK            
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       CAT SMNAV :0 LINK            
C       CAT PFADX :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT EDTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTESMILYS EXSR BAR$LISTE    
  X  
C     ZEILESMILYX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X  
C     ZEILESMILY3 BEGSR                
C       CLEAR   CHAR2            
C       MOVEL(P) LINK LINK2            
C *     --------------------------------------
C *     Adresse verlängern
C *     --------------------------------------
C     ' ' CHECK LINK2 POS     — 77 78  
C     *IN78 IFEQ *ON              
C       SUBST(P) LINK2:POS LINK2     — 77 —  
C       SUBST(P) LINK2 CHAR2     — 77 —  
C     '//' IFEQ CHAR2              
C       EVAL LINK2 =       SCHEME +':'+ LINK2
C       ENDIF                
C       ENDIF                
C       CLEAR   LINK            
C       EVAL BUFV  = %TRIM ( LINK2)
C       ENDSR                
C          
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X  
C     ZEILESMILY4 BEGSR                
C *     --------------------------------------
C *     Adresse verkürzen
C *     --------------------------------------
C     '//' SCAN LINK2 POS     — 77 78  
C     *IN78 IFEQ *ON              
C       ADD 2 POS            
C       SUBST(P) LINK2:POS LINK2            
C       ENDIF                
C     'www.' SCAN LINK2 POS     — 77 78  
C     ' ' SCAN LINK2 POS2     — 77 78  
C     *IN78 IFEQ *ON              
C       ADD 3 POS            
C     POS2 IFGT POS              
C     POS2 SUB POS LEN            
C       MOVEL(P) '...' LINK3            
C       EVAL LINK = %REPLACE(%TRIM(LINK3):LINK2:POS:LEN)
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X  
C     ZEILEBESUCHE BEGSR                
C     *ZERO COMP SUCHLEN       — — 78  
C *     --------------------------------------
C *     Besuchername
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Besuchername
C *     --------------------------------------
C       EVAL BUFV = %TRIM(AGAGENT)
C       EXSR BESUCHERNAMEX              
C          
C *     --------------------------------------
C *     Besuchername
C *     --------------------------------------
C     *BLANKS COMP ROBOT       72 72 —  
C   72 *BLANKS COMP MYROBOT#       72 72 —  
C       EVAL   SUTEXT = BUFV
C   72   EVAL   SUTEXT =
C         SUTEXT +' / '+ %TRIM(MYROBOT#)
C   73   EVAL   SUTEXT =
C         SUTEXT +' / '+ %TRIM(MYSPAM$)
C   74   EVAL   SUTEXT =
C         SUTEXT +' / '+ BILDBESUCHNEU
C   75   EVAL   SUTEXT =
C         SUTEXT +' / '+ BILDBESUCH
C   76   EVAL   SUTEXT =
C         SUTEXT +' / '+ BILDBESUCHX
C   N76   EVAL   SUTEXT =
C         SUTEXT +' / '+ BILDBESUCHXX
C          
C     ' ' CHECKR SUTEXT LEN            
C       CALLP(E) CVTCS(TOLOWER:SUTEXT$:SUTEXT$:LEN:QUSEC)
C     SUCH:SUCHLEN SCAN SUTEXT       — 77 78  
C       ENDIF                
C       ENDSR                
C          
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X  
C     ZEILEBESUCHE2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     AGAGCOMP IFNE AGAG              
C     *ZERO ADD AGAG AGAGCOMP            
C       EVAL BUFV = %TRIM(AGAGENT)
C       EXSR TEXTSMILYSAGX              
C       EVAL BUFVSAVE = BUFV
C       ELSE                
C       EVAL BUFV = BUFVSAVE
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *BLANKS COMP ROBOT       72 72 —  
C   72 *BLANKS COMP MYROBOT#       72 72 —  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C          
C *     --------------------------------------
C *     Neu?
C *     --------------------------------------
C   75   EVAL BUFV = %TRIMR ( BESUCH) + ' ' +
C       BUFV
C          
C *     --------------------------------------
C *     Neu?
C *     --------------------------------------
C   74   EVAL BUFV =
C       BUFV + %TRIMR ( FONT) + ' ' +
C              %TRIMR ( BESUCHNEU)  +
C              %TRIMR ( FONTX)
C          
C *     --------------------------------------
C *     Robot?
C *     --------------------------------------
C   72   EVAL BUFV =
C       BUFV + ' | ' + %TRIMR(MYROBOT#)
C          
C *     --------------------------------------
C *     Werbung?
C *     --------------------------------------
C   73   EVAL BUFV =
C       BUFV + %TRIMR ( FONT)  + ' | <font' +
C              %TRIMR ( REDCOLOR) + '>' +
C              %TRIMR ( MYSPAM$)  + '</font>' +
C              %TRIMR ( FONTX)
C          
C *     --------------------------------------
C *     Anker
C *     --------------------------------------
C     *ZERO ADD AGAG NUM            
C       EXSR NUMSTR              
C       EVAL BUFV = '<a name="' +
C       PREFIX+%TRIMR ( STR) + '"></a>' + BUFV
C          
C       EXSR COLTEXTAG              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X  
C     ZEILEBESUCHEX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLCENTER              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X  
C     ZEILEANFRAGE BEGSR                
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C       SETON         — — 78  
C       ENDSR                
C          
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X  
C     ZEILEANFRAGE2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     *IN71 IFEQ *OFF              
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C   N66   EXSR COLB              
C       EXSR COLB              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       SETON         — 71 —  
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       CLEAR   LINK            
C       CLEAR   LINK1            
C       CLEAR   COLOR7            
C          
C *     --------------------------------------
C *     Agent
C *     --------------------------------------
C       OPEN AGENTL1       — 77 —  
C     AGKEY1AF CHAIN AGENTL1       77 77 —  
C   77   CLEAR   AGENTDS            
C   77 *ZERO ADD AFMAN AGMAN            
C   77 *ZERO ADD AFAG AGAG            
C     DATETIME4 COMP AGDAT       — 74 —  
C       SETON         — 76 —  
C          
C *     --------------------------------------
C *     Zeitpunkt
C *     --------------------------------------
C       MOVE AFDAT DATETIME3            
C   66   EXSR LINKDAT1              
C   N66   EXSR LINKDAT2              
C   75   EXSR LINKADDB              
C   N66   EXSR COL              
C       MOVEL(P) LINK LINK7            
C *     --------------------------------------
C *     Agent
C *     --------------------------------------
C     AGAGCOMP IFNE AGAG              
C     *ZERO ADD AGAG AGAGCOMP            
C       EVAL BUFV = %TRIM(AGAGENT)
C       EXSR TEXTSMILYSAGX              
C       EVAL BUFVSAVE = BUFV
C       ELSE                
C       EVAL BUFV = BUFVSAVE
C       ENDIF                
C *     --------------------------------------
C *     Robot?
C *     --------------------------------------
C     *BLANKS IFNE ROBOT              
C     *BLANKS ANDNE MYROBOT#              
C     ' |' CAT(P) MYROBOT# :1 LINK1            
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C   74   EVAL BUFV =
C       BUFV + %TRIMR ( FONT) + ' ' +
C              %TRIMR ( BESUCHNEU)  +
C              %TRIMR ( FONTX)
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C   66   EVAL BUFV = %TRIMR ( FONT)  +
C              %TRIMR ( LINK7) +
C              %TRIMR ( FONTX) +
C              '<br>'+CRLF   +'    '+ BUFV
C       EVAL BUFV =
C       BUFV + %TRIMR ( FONT)  +
C              %TRIMR ( LINK1)
C       CLEAR   LINK            
C       CLEAR   LINES            
C       EXSR COLTEXT              
C *     --------------------------------------
C *     Agent
C *     --------------------------------------
C     *ZERO ADD AFAG AFAGCOMP            
C     AFDAT SUBDUR ANFRAGEMIN:*MN AFDATCOMP            
C          
C *     --------------------------------------
C *     Gruppe
C *     --------------------------------------
C     *IN77 DOUNE *OFF              
C     AFAGCOMP ORNE AFAG              
C     AFDATCOMP ORGE AFDAT              
C     LINES ORGE MAXANFRAGEN2              
C       ADD 1 LINES            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       CLEAR   BUF2            
C       CLEAR   LINK            
C       CLEAR   LINK1            
C       CLEAR   LINK2            
C       CLEAR   LINK3            
C       CLEAR   LINK4            
C       CLEAR   LINK5            
C       CLEAR   LINK6            
C       CLEAR   LINK7            
C       CLEAR   LINK8            
C       CLEAR   LINK9            
C       CLEAR   LINKX            
C          
C *     --------------------------------------
C *     Referrer
C *     --------------------------------------
C     *BLANKS IFEQ AFSPAM$              
C     SPAM$BOX OREQ AFSPAM$              
C       EVAL WWW  = AFREFERRER
C     *BLANKS IFNE WWW              
C          
C *     --------------------------------------
C *     Session aus Referrer löschen
C *     --------------------------------------
C     SIDNAME SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = SIDNAME + VAL$
C   78   EVAL %SUBST(WWW:POS) = SIDNAME + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Benutzer aus Referrer löschen
C *     --------------------------------------
C     BENUTZERNAME SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = BENUTZERNAME + VAL$
C   78   EVAL %SUBST(WWW:POS) = BENUTZERNAME + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Kennwort aus Referrer löschen
C *     --------------------------------------
C     KENNWORTNAME SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = KENNWORTNAME + VAL$
C   78   EVAL %SUBST(WWW:POS) = KENNWORTNAME + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Kennwort aus Referrer löschen
C *     --------------------------------------
C     KENNWORTNAME1 SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = KENNWORTNAME1 + VAL$
C   78   EVAL %SUBST(WWW:POS) = KENNWORTNAME1 + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Kennwort aus Referrer löschen
C *     --------------------------------------
C     KENNWORTNAME2 SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = KENNWORTNAME2 + VAL$
C   78   EVAL %SUBST(WWW:POS) = KENNWORTNAME2 + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Kennwort aus Referrer löschen
C *     --------------------------------------
C     KENNWORTNAME3 SCAN WWW POS     — 77 78  
C     *IN78 IFEQ *ON              
C     '&' SCAN WWW:POS POS2     — 77 78  
C   N78   EVAL %SUBST(WWW:POS) = KENNWORTNAME3 + VAL$
C   78   EVAL %SUBST(WWW:POS) = KENNWORTNAME3 + VAL$ +
C       %SUBST(WWW:POS2)
C       ENDIF                
C *     --------------------------------------
C *     Referrer
C *     --------------------------------------
C       EXSR WWWHREF              
C     NOMIT IFNE BEMIT              
C       EVAL BUF2 =' <a'+%TRIMR(WWW)+
C       %TRIMR(TARGET)+'>!</a>'
C       ELSE                
C       EVAL BUF2 =' <a>!</a>'
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Pfad
C *     --------------------------------------
C     ' ' CHECKR AFPFAD LEN            
C          
C *     --------------------------------------
C *     Pfad
C *     --------------------------------------
C     AFPFADLEN IFGE 1              
C     AFPFADLEN ANDLE LEN              
C       EVAL BUFV =  HOST +
C               %SUBST(AFPFAD:1:
C          AFPFADLEN) +
C               %TRIMR(AFPFADMIN) +
C               %TRIMR(AFPFADX)
C       ELSE                
C       EVAL BUFV =  HOST + '/...'
C       ENDIF                
C *     --------------------------------------
C *     Pfad
C *     --------------------------------------
C     *BLANKS COMP AFSECURE       78 78 —  
C   78   EVAL BUFV = 'https://' + BUFV
C   N78   EVAL BUFV = 'http://'  + BUFV
C          
C *     --------------------------------------
C *     Pfad
C *     --------------------------------------
C       EXSR MYBUFV2FORM              
C       EXSR MYBUFV2FORMX              
C          
C *     --------------------------------------
C *     Pfad in Farbe
C *     --------------------------------------
C     TYPROBOTS IFEQ AFTYP              
C     *BLANKS ORNE AFPSSR              
C       EVAL BUFV = '<font'+%TRIMR(REDCOLOR)+'>'+
C       BUFV +'</font>'
C       ENDIF                
C *     --------------------------------------
C *     Größe
C *     --------------------------------------
C     *IN66 IFEQ *OFF              
C     *ZERO IFNE AFSIZE              
C     *ZERO ADD AFSIZE NUM            
C       EXSR NUMSTR              
C     ' |' CAT(P) STR :1 LINK1            
C       ELSE                
C     ' |' CAT(P) NONE :1 LINK1            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Dauer
C *     --------------------------------------
C     *IN66 IFEQ *OFF              
C     *ZERO ADD AFDAUER NUM            
C       EXSR NUMSTR              
C     ' |' CAT(P) STR :1 LINK2            
C       CAT MYMS# :1 LINK2            
C       ENDIF                
C *     --------------------------------------
C *     Mobile?
C *     --------------------------------------
C     *BLANKS IFNE AFMOBILE              
C     *BLANKS ANDNE MYMOBILE#              
C     ' |' CAT(P) MYMOBILE# :1 LINK3            
C       ENDIF                
C *     --------------------------------------
C *     Schmal?
C *     --------------------------------------
C     *BLANKS IFNE AFSCHMAL              
C     *BLANKS ANDNE MYSCHMAL#              
C     ' |' CAT(P) MYSCHMAL# :1 LINK4            
C       ENDIF                
C *     --------------------------------------
C *     Werbung
C *     --------------------------------------
C     *BLANKS IFNE AFSPAM$              
C     ' |' CAT(P) '<font' :1 LINK5            
C       CAT REDCOLOR :0 LINK5            
C       CAT '>' :0 LINK5            
C       EXSR LISTESPAM$              
C       CAT MYSPAM$ :0 LINK5            
C       CAT '</font>' :0 LINK5            
C          
C *     --------------------------------------
C *     Werbung
C *     --------------------------------------
C     '0123456789' CHECK AFSPAM$       — 77 78  
C   N78   CAT(P) AFSPAM$ :1 LINK5            
C   N78   CAT(P) SPAMX :0 LINK5            
C       ENDIF                
C *     --------------------------------------
C *     Methode
C *     --------------------------------------
C     GET IFNE AFMETHOD              
C     ' |' CAT(P) AFMETHOD :1 LINK6            
C       ENDIF                
C *     --------------------------------------
C *     Status
C *     --------------------------------------
C     STATUS200 IFNE AFSTATUS              
C     *ZERO ADD AFSTATUS NUM            
C       EXSR NUMSTR              
C          
C *     --------------------------------------
C *     Status
C *     --------------------------------------
C     STATUS300 IFLE AFSTATUS              
C     ' |' CAT(P) '<font' :1 LINK7            
C       CAT REDCOLOR :0 LINK7            
C       CAT '>' :0 LINK7            
C       CAT STR :0 LINK7            
C       CAT '</font>' :0 LINK7            
C       ELSE                
C     ' |' CAT(P) STR :1 LINK7            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Noindex
C *     --------------------------------------
C     *BLANKS IFNE AFNOINDEX              
C     *BLANKS ANDNE MYNOINDEX#              
C     ' |' CAT(P) MYNOINDEX# :1 LINK8            
C       ENDIF                
C *     --------------------------------------
C *     Nofollow
C *     --------------------------------------
C     *BLANKS IFNE AFNOFOLLOW              
C     *BLANKS ANDNE SPNOFOLLOW              
C     *BLANKS COMP LINK8       78 78 —  
C   78   CAT '/' :0 LINK8            
C   78   CAT MYNOFOLLOW# :0 LINK8            
C   N78 ' |' CAT(P) MYNOFOLLOW# :1 LINK8            
C       ENDIF                
C *     --------------------------------------
C *     Suche
C *     --------------------------------------
C     *BLANKS IFNE AFSUCHE              
C     ' |' CAT(P) MYSUCHE# :1 LINK9            
C       ENDIF                
C *     --------------------------------------
C *     Anmeldedaten
C *     --------------------------------------
C     *BLANKS IFNE AFLOGIN              
C     ' |' CAT(P) MYLOGIN# :1 LINKX            
C       ENDIF                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EVAL BUFV = '<br>'+CRLF   +'     '+
C       BUFV + %TRIMR ( LINK1) +
C              %TRIMR ( LINK2) + BUF2 +
C              %TRIMR ( LINK3) +
C              %TRIMR ( LINK4) +
C              %TRIMR ( LINK5) +
C              %TRIMR ( LINK6) +
C              %TRIMR ( LINK7) +
C              %TRIMR ( LINK8) +
C              %TRIMR ( LINK9) +
C              %TRIMR ( LINKX)
C       CLEAR   LINK            
C       EXSR COLTEXTADD2              
C          
C *     --------------------------------------
C *     Nächsten Datensatz lesen
C *     --------------------------------------
C       SELECT    
C     WWTYP WHENEQ TYPHISTORY              
C     AFKEY2PF READPE ANFRAGEL2       — 77 77  
C          
C     WWTYP WHENEQ TYPBESUCHE              
C     AFKEY3AG READPE ANFRAGEL3       — 77 77  
C          
C     WWTYP WHENEQ TYPANFRAGEN              
C     AFKEY4 READPE ANFRAGEL4       — 77 77  
C       ENDSL                
C       ENDDO                
C     *IN77 COMP *ON       — — 72  
C       EVAL BUFV = %TRIMR ( FONTX)
C       EXSR COLTEXTADD2              
C       EXSR COLTEXTADDX              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C     *IN72 COMP *ON       — — 77  
C       ENDSR                
C          
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X  
C     ZEILEANFRAGEX BEGSR                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C   N66   EXSR COL              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X  
C     ZEILENAVEDT BEGSR                
C       MOVEL(P) TARGET TARGETX            
C       CLEAR   MYTITEL            
C       CLEAR   MYNAV            
C *     --------------------------------------
C *     Ändern/Ausblenden/Einblenden
C *     --------------------------------------
C       SELECT    
C     BEMIT WHENEQ AWAUT              
C     AWDAT IFGE DATETIMEEDT              
C     AWDATCHG ORGE DATETIMEEDT              
C       MOVEL(P) EDTITEL MYTITEL            
C       MOVEL(P) EDNAV MYNAV            
C       ENDIF                
C     BEMIT WHENEQ AWMIT              
C     BEMIT OREQ ARPN              
C     BEMIT ANDNE NOMIT              
C     BEMIT OREQ WEBMASTER              
C     NODLT IFEQ AWDLT              
C       MOVEL(P) DLTITEL MYTITEL            
C       MOVEL(P) DLNAV MYNAV            
C       ELSE                
C       MOVEL(P) RCTITEL MYTITEL            
C       MOVEL(P) RCNAV MYNAV            
C       ENDIF                
C       MOVEL(P) TARGET2 TARGETX            
C       ENDSL                
C       ENDSR                

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