Liste

BAR$LISTE (RPGLE)



  X * LISTE BEGSR BAR$LISTE 116  
  X * LISTEPF BEGSR BAR$LISTE 36  
  X * LISTEPFNEU BEGSR BAR$LISTE 31  
  X * LISTEAKT BEGSR BAR$LISTE 31  
  X * LISTEAKTNEU BEGSR BAR$LISTE 28  
  X * LISTERUB BEGSR BAR$LISTE 38  
  X * LISTERUBNEU BEGSR BAR$LISTE 23  
  X * LISTEIDX BEGSR BAR$LISTE 13  
  X * LISTEIDXBILD BEGSR BAR$LISTE 48  
  X * LISTEIDXTEXT BEGSR BAR$LISTE 41  
  X * LISTEMITPN BEGSR BAR$LISTE 36  
  X * LISTEMITART BEGSR BAR$LISTE 31  
  X * LISTEARTAW BEGSR BAR$LISTE 19  
  X * LISTEARTPN BEGSR BAR$LISTE 28  
  X * LISTEFRA BEGSR BAR$LISTE 25  
  X * LISTEFRAGEL BEGSR BAR$LISTE 84  
  X * LISTEFRR BEGSR BAR$LISTE 12  
  X * LISTEFRN BEGSR BAR$LISTE 7  
  X * LISTEFRW BEGSR BAR$LISTE 30  
  X * LISTEFRWNEU BEGSR BAR$LISTE 25  
  X * LISTEBARNEU BEGSR BAR$LISTE 35  
  X * LISTEBARMMM BEGSR BAR$LISTE 13  
  X * LISTEMMM BEGSR BAR$LISTE 32  
  X * LISTEGAL BEGSR BAR$LISTE 31  
  X * LISTENNN BEGSR BAR$LISTE 33  
  X * LISTENNN# BEGSR BAR$LISTE 33  
  X * LISTEMIT BEGSR BAR$LISTE 233  
  X * LISTEINF BEGSR BAR$LISTE 481  
  X * LISTEKAL BEGSR BAR$LISTE 77  
  X * LISTEKAL2 BEGSR BAR$LISTE 12  
  X * LISTEKAL3 BEGSR BAR$LISTE 13  
  X * LISTEAW BEGSR BAR$LISTE 7  
  X * LISTENAV BEGSR BAR$LISTE 7  
  X * LISTEDEV BEGSR BAR$LISTE 7  
  X * LISTEMNT BEGSR BAR$LISTE 83  
  X * LISTESRC BEGSR BAR$LISTE 18  
  X * LISTESRCS BEGSR BAR$LISTE 46  
  X * LISTEHTTPX BEGSR BAR$LISTE 59  
  X * LISTEFILES BEGSR BAR$LISTE 76  
  X * LISTESMILYS BEGSR BAR$LISTE 162  
  X * LISTESITEMAP BEGSR BAR$LISTE 9  
  X * LISTEBESUCHER BEGSR BAR$LISTE 63  
  X * LISTEBESUCHER3 BEGSR BAR$LISTE 17  
  X * LISTEANFRAGEN BEGSR BAR$LISTE 118  
  X * LISTEANFRAGE3 BEGSR BAR$LISTE 17  
  X * LISTESPAM$ BEGSR BAR$LISTE 11  
  X * LISTETITEL BEGSR BAR$LISTE 34  
  X  
  X * ARKEY5 KLIST BAR$LISTE 3  
  X * ARKEY1 KLIST BAR$LISTE 4  
  X * ARKEY2 KLIST BAR$LISTE 3  
  X * ARKEY3 KLIST BAR$LISTE 4  
  X * ARKEY6 KLIST BAR$LISTE 4  
  X * ARKEYP KLIST BAR$LISTE 3  
  X * ARKEYQ KLIST BAR$LISTE 3  
  X * ARKEYR KLIST BAR$LISTE 3  
  X * ARKEYS KLIST BAR$LISTE 3  
  X * ARKEYN KLIST BAR$LISTE 4  
  X * ARKEY4 KLIST BAR$LISTE 4  
  X * AWKEY1 KLIST BAR$LISTE 4  
  X * AWKEY1SET KLIST BAR$LISTE 5  
  X * GEKEY2 KLIST BAR$LISTE 4  
  X * GEKEY2BAR KLIST BAR$LISTE 4  
  X * STATISTIKPARM PLIST BAR$LISTE 7  
  X * SYSINFOPARM PLIST BAR$LISTE 7  
  X * SRCINFOPARM1 PLIST BAR$LISTE 8  
  X * SRCINFOPARM2 PLIST BAR$LISTE 8  
  X * HTTPXPARM PLIST BAR$LISTE 2  
  X * FILEPARM PLIST BAR$LISTE 2  
  X * AFKEY2PF KLIST BAR$LISTE 3  
  X * AFKEY3AG KLIST BAR$LISTE 3  
  X * AFKEY4 KLIST BAR$LISTE 2  
  X * AGKEY1AF KLIST BAR$LISTE 3  
  X * QCMDPARM PLIST BAR$LISTE 3  
  X  
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * FORMLISTE CAS BAR$FORM    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * ZEILEARTNEU EXSR BAR$ZEILE    
  X * RESETMITPF EXSR BAR$NEUED    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * ZEILEARTNEU EXSR BAR$ZEILE    
  X * RESETMITAKT EXSR BAR$NEUED    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * ZEILEARTNEU EXSR BAR$ZEILE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE100PR EXSR BAR$TABLE    
  X * ZEILEARTTEXT EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * ZEILEAW EXSR BAR$ZEILE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEAW EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE100PR EXSR BAR$TABLE    
  X * ZEILEAWFRA EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWFRAX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * DBRMVAW EXSR BAR$NEUED    
  X * HINWEIS1 EXSR BAR$ART    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEWER EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEWERX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEMIT EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEMITX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILERUB EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILERUBX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * NATYPNAV EXSR BAR$NAV    
  X * ZEILENAV EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * NATYPNAV EXSR BAR$NAV    
  X * ZEILENAV EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILENAVX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COL12B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * LINKSMILY1 EXSR BAR$LINK    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTMIT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTMIT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTMIT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTMIT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * LINKDAT1 EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * COLTABLECOLOR EXSR BAR$TABLE    
  X * COLCOLORMIT EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * COL11 EXSR BAR$TABLE    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * LINKNEUPN EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKMITPN EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKMITART EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * LINKGELPN EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKGELART EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * LINKCHGMAIL EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKCHGPWD EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKEDTMIT EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL1B EXSR BAR$TABLE    
  X * COL2B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * LINKSITEMAP EXSR BAR$LINK    
  X * LINKBESUCHER EXSR BAR$LINK    
  X * LINKANFRAGEN EXSR BAR$LINK    
  X * LINKHTTPX EXSR BAR$LINK    
  X * LINKSRCS EXSR BAR$LINK    
  X * LINKSMILYS EXSR BAR$LINK    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * SPRACHESR EXSR BAR$MAIN    
  X * COLTEXT2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKBILD2 EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * COL100PRB EXSR BAR$TABLE    
  X * COLROWINF EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * LINKBILD2 EXSR BAR$LINK    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * COL2B EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * LINKDAT1 EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * WWWHREF EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * WWWHREF EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * WWWHREF EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LINKBILD2 EXSR BAR$LINK    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * COLCENTER3 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLEKAL EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * KALMAIN EXSR BAR$ART    
  X * ROWT EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKADDB EXSR BAR$LINK    
  X * COLKAL2 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * LINKADDB EXSR BAR$LINK    
  X * COLKAL3 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SRCALL EXSR BAR$SRC    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILESRC EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ROW EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * COLB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * NUMSTR EXSR BAR$NUM    
  X * COLRIGHT2B EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ZEILESRCX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * SRCALL EXSR BAR$SRC    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEFILE EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILEX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILESMILY EXSR BAR$ZEILE    
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X * ROWT EXSR BAR$TABLE    
  X * COLCENTERB EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPBLASE EXSR BAR$NAV    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPMONO EXSR BAR$NAV    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * ZEILESMILY3 EXSR BAR$ZEILE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * ZEILESMILY4 EXSR BAR$ZEILE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ZEILESMILY3 EXSR BAR$ZEILE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * ZEILESMILY4 EXSR BAR$ZEILE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ZEILESMILY3 EXSR BAR$ZEILE    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * ZEILESMILY4 EXSR BAR$ZEILE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * ZEILESMILYX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEBESUCHE EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHEX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ZEILEANFRAGE EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGEX EXSR BAR$ZEILE    
  X * TABLEX EXSR BAR$TABLE    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     LISTE BEGSR                
C     *BLANKS IFEQ LOCABS              
C          
C *     --------------------------------------
C *     Titel der Navigation übernehmen
C *     --------------------------------------
C     WWTYP IFEQ TYPEDTNAV              
C     WWTYP OREQ TYPEDTIDX              
C     WWTYP OREQ TYPEDTKAL              
C       MOVEL(P) WWTITEL TITEL            
C       MOVEL(P) WWTITEL2 TITEL2            
C       ENDIF                
C *     --------------------------------------
C *     Kamerabild / Nur für Mitglieder / Uhr
C *     --------------------------------------
C       MOVEL(P) 'SPHEUTE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYHEUTE#            
C       MOVEL(P) 'SPGESTERN' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYGESTERN#            
C       MOVEL(P) 'SPMORGEN' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMORGEN#            
C       MOVEL(P) 'SPLIVE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYLIVE#            
C       MOVEL(P) 'SPNFM' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNFM#            
C       MOVEL(P) 'SPUHR' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYUHR#            
C       MOVEL(P) 'SPDAT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYDAT#            
C       MOVEL(P) 'SPPN' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYPN#            
C       MOVEL(P) 'SPMIT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMIT#            
C       MOVEL(P) 'SPRUB' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYRUB#            
C       MOVEL(P) 'SPART' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYART#            
C       MOVEL(P) 'SPAW' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYAW#            
C          
C *     --------------------------------------
C *     Liste ausgeben
C *     --------------------------------------
C     WWTYP CASEQ TYPPF LISTEPF            
C     WWTYP CASEQ TYPAKT LISTEAKT            
C     WWTYP CASEQ TYPMMM LISTEMMM            
C     WWTYP CASEQ TYPGAL LISTEGAL            
C     WWTYP CASEQ TYPNAV LISTENAV            
C     WWTYP CASEQ TYPIDX LISTEIDX            
C     WWTYP CASEQ TYPNNN LISTENNN            
C     WWTYP CASEQ TYPMNT LISTEMNT            
C          
C     WWTYP CASEQ TYPINF LISTEINF            
C     WWTYP CASEQ TYPKAL LISTEKAL            
C     WWTYP CASEQ TYPDEV LISTEDEV            
C     WWTYP CASEQ TYPSRC LISTESRC            
C     WWTYP CASEQ TYPSRCS LISTESRCS            
C     WWTYP CASEQ TYPHTTPX LISTEHTTPX            
C          
C     WWTYP CASEQ TYPPN LISTEARTPN            
C     WWTYP CASEQ TYPART LISTEARTPN            
C     WWTYP CASEQ TYPBAR LISTEARTPN            
C     WWTYP CASEQ TYPMITPN LISTEMITPN            
C     WWTYP CASEQ TYPMITART LISTEMITART            
C     WWTYP CASEQ TYPMIT LISTEMIT            
C     WWTYP CASEQ TYPRUB LISTERUB            
C     WWTYP CASEQ TYPAW LISTEAW            
C          
C     WWTYP CASEQ TYPFRA LISTEFRR            
C     WWTYP CASEQ TYPFRR LISTEFRR            
C     WWTYP CASEQ TYPFRN LISTEFRN            
C     WWTYP CASEQ TYPFRW LISTEFRW            
C          
C     WWTYP CASEQ TYPICNS LISTEFILES            
C     WWTYP CASEQ TYPOBJS LISTEFILES            
C     WWTYP CASEQ TYPFILES LISTEFILES            
C     WWTYP CASEQ TYPSAVES LISTEFILES            
C     WWTYP CASEQ TYPBLASEN LISTEFILES            
C     WWTYP CASEQ TYPKNOWNS LISTEFILES            
C          
C     WWTYP CASEQ TYPSMILYS LISTESMILYS            
C          
C     WWTYP CASEQ TYPSITEMAP LISTESITEMAP            
C     WWTYP CASEQ TYPHISTORY LISTEANFRAGEN            
C     WWTYP CASEQ TYPBESUCHE LISTEANFRAGEN            
C     WWTYP CASEQ TYPBESUCHER LISTEBESUCHER            
C     WWTYP CASEQ TYPANFRAGEN LISTEANFRAGEN            
C          
C       CAS   FORMLISTE            
C       ENDCS                
C       ENDIF                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEPF BEGSR                
C     NOMIT IFNE BEMIT              
C *     --------------------------------------
C *     Postfach
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN ARTIKELL5       — 77 —  
C       OPEN ARTIKELL1       — 77 —  
C     ARKEY5 SETGT ARTIKELL5       — 77 —  
C   N77 ARKEY5 READPE ARTIKELL5       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWPF ROWROWSMAX            
C   66 *ZERO ADD ROWPF66 ROWROWSMAX            
C   68 *ZERO ADD ROWPF68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXPF              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     ARKEY5 READPE ARTIKELL5       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDIF                
C       ENDSR                
C          
  X * LINKPF EXSR BAR$LINK    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X  
C     LISTEPFNEU BEGSR                
C       CLEAR   ROWS            
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis für Neues im Postfach
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C     *BLANKS IFNE BENEUPF              
C       MOVEL(P) NEU LINKADD            
C       ELSE                
C       MOVE ARTIKELDS ARTIKELSAVE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C       OPEN ARTIKELL5       — 77 —  
C       OPEN ARTIKELL1       — 77 —  
C     ARKEY5 SETGT ARTIKELL5       — 77 —  
C   N77 ARKEY5 READPE ARTIKELL5       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXPF              
C     ARDATAW ANDGT BEDATPF              
C     *BLANKS ANDEQ LINKADD              
C       EXSR ZEILEARTNEU              
C     ARKEY5 READPE ARTIKELL5       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C       ENDDO                
C       EXSR RESETMITPF              
C       MOVE ARTIKELSAVE ARTIKELDS            
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEPF SETGT BAR$LISTE    
  X * LISTEPF READPE BAR$LISTE    
  X * LISTEPF READPE BAR$LISTE    
  X * LISTEPFNEU SETGT BAR$LISTE    
  X * LISTEPFNEU READPE BAR$LISTE    
  X * LISTEPFNEU READPE BAR$LISTE    
  X  
C     ARKEY5 KLIST                
C       KFLD   MAMAN            
C       KFLD   BEMIT            
C          
  X * LISTEPF CHAIN BAR$LISTE    
  X * LISTEPF CHAIN BAR$LISTE    
  X * LISTEPFNEU CHAIN BAR$LISTE    
  X * LISTEPFNEU CHAIN BAR$LISTE    
  X * LISTEMITPN CHAIN BAR$LISTE    
  X * LISTEMITPN CHAIN BAR$LISTE    
  X  
C     ARKEY1 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTESITEMAP EXSR BAR$LISTE    
  X  
C     LISTEAKT BEGSR                
C *     --------------------------------------
C *     Aktuelles
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN ARTIKELL2       — 77 —  
C     ARKEY2 SETGT ARTIKELL2       — 77 —  
C   N77 ARKEY2 READPE ARTIKELL2       — 77 77  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWAKT ROWROWSMAX            
C   66 *ZERO ADD ROWAKT66 ROWROWSMAX            
C   68 *ZERO ADD ROWAKT68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXAKT              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     ARKEY2 READPE ARTIKELL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LINKAKT EXSR BAR$LINK    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X  
C     LISTEAKTNEU BEGSR                
C       CLEAR   ROWS            
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis für Neues in Aktuelles
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C     *BLANKS IFNE BENEUAKT              
C       MOVEL(P) NEU LINKADD            
C       ELSE                
C       MOVE ARTIKELDS ARTIKELSAVE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C       OPEN ARTIKELL2       — 77 —  
C     ARKEY2 SETGT ARTIKELL2       — 77 —  
C   N77 ARKEY2 READPE ARTIKELL2       — 77 77  
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXAKT              
C     ARDATAW ANDGT BEDATAKT              
C     *BLANKS ANDEQ LINKADD              
C       EXSR ZEILEARTNEU              
C     ARKEY2 READPE ARTIKELL2       — 77 77  
C       ENDDO                
C       EXSR RESETMITAKT              
C       MOVE ARTIKELSAVE ARTIKELDS            
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEAKT SETGT BAR$LISTE    
  X * LISTEAKT READPE BAR$LISTE    
  X * LISTEAKT READPE BAR$LISTE    
  X * LISTEAKTNEU SETGT BAR$LISTE    
  X * LISTEAKTNEU READPE BAR$LISTE    
  X * LISTEAKTNEU READPE BAR$LISTE    
  X  
C     ARKEY2 KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTERUB BEGSR                
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C       EXSR TABLE              
C     NOSERIE IFEQ RUSERIE              
C       OPEN ARTIKELL3       — 77 —  
C     ARKEY3 SETGT ARTIKELL3       — 77 —  
C   N77 ARKEY3 READPE ARTIKELL3       — 77 77  
C       ELSE                
C       OPEN ARTIKELL3       — 77 —  
C     ARKEY3 SETLL ARTIKELL3       — 77 —  
C   N77 ARKEY3 READE ARTIKELL3       — 77 77  
C       ENDIF                
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWRUB ROWROWSMAX            
C   66 *ZERO ADD ROWRUB66 ROWROWSMAX            
C   68 *ZERO ADD ROWRUB68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXRUB              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     NOSERIE COMP RUSERIE       — — 78  
C   78 ARKEY3 READPE ARTIKELL3       — 77 77  
C   N78 ARKEY3 READE ARTIKELL3       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTERUB SETGT BAR$LISTE    
  X * LISTERUB READPE BAR$LISTE    
  X * LISTERUB SETLL BAR$LISTE    
  X * LISTERUB READE BAR$LISTE    
  X * LISTERUB READPE BAR$LISTE    
  X * LISTERUB READE BAR$LISTE    
  X  
C     ARKEY3 KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C       KFLD   RURUB            
C          
  X * LINKRUBNEU EXSR BAR$LINK    
  X  
C     LISTERUBNEU BEGSR                
C       CLEAR   ROWS            
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis für Neues in Rubrik
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C       MOVE ARTIKELDS ARTIKELSAVE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C       OPEN ARTIKELL6       — 77 —  
C     ARKEY6 SETGT ARTIKELL6       — 77 —  
C   N77 ARKEY6 READPE ARTIKELL6       — 77 77  
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXRUB              
C     ARDATAW ANDGT BEGELART              
C     *BLANKS ANDEQ LINKADD              
C       EXSR ZEILEARTNEU              
C     ARKEY6 READPE ARTIKELL6       — 77 77  
C       ENDDO                
C       MOVE ARTIKELSAVE ARTIKELDS            
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C       ENDIF                
C       ENDSR                
C          
  X * LISTERUBNEU SETGT BAR$LISTE    
  X * LISTERUBNEU READPE BAR$LISTE    
  X * LISTERUBNEU READPE BAR$LISTE    
  X  
C     ARKEY6 KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C       KFLD   RURUB            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEIDX BEGSR                
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       EXSR LISTEIDXBILD              
C       EXSR LISTEIDXTEXT              
C          
C     *ZERO IFNE SUCHLEN              
C       EXSR LISTEGAL              
C       ENDIF                
C     'Web Explorer' SCAN AGENT       — 77 78  
C   78   EXSR LISTEINF              
C       ENDSR                
C          
  X * LISTEIDX EXSR BAR$LISTE    
  X  
C     LISTEIDXBILD BEGSR                
C *     --------------------------------------
C *     Portal Bilder
C *     --------------------------------------
C       EXSR TABLE              
C     NOMIT IFNE BEMIT              
C       OPEN ARTIKELLP       — 77 —  
C     ARKEYP SETGT ARTIKELLP       — 77 —  
C   N77 ARKEYP READPE ARTIKELLP       — 77 77  
C       ELSE                
C       OPEN ARTIKELLQ       — 77 —  
C     ARKEYQ SETGT ARTIKELLQ       — 77 —  
C   N77 ARKEYQ READPE ARTIKELLQ       — 77 77  
C       ENDIF                
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWIDXBILD ROWROWSMAX            
C   66 *ZERO ADD ROWIDXBILD66 ROWROWSMAX            
C   68 *ZERO ADD ROWIDXBILD68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Anzahl Zeilen ermitteln
C *     --------------------------------------
C     *ZERO ADD MAXIDXBILD MAXIDXBILD2            
C   66 *ZERO ADD MAXIDXBILD66 MAXIDXBILD2            
C     *ZERO COMP SUCHLEN       — — 78  
C   N78   MULT IDXSUCHE MAXIDXBILD2            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXIDXBILD2              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     NOMIT IFNE BEMIT              
C     ARKEYP READPE ARTIKELLP       — 77 77  
C       ELSE                
C     ARKEYQ READPE ARTIKELLQ       — 77 77  
C       ENDIF                
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTEIDXBILD SETGT BAR$LISTE    
  X * LISTEIDXBILD READPE BAR$LISTE    
  X * LISTEIDXBILD READPE BAR$LISTE    
  X  
C     ARKEYP KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C          
  X * LISTEIDXBILD SETGT BAR$LISTE    
  X * LISTEIDXBILD READPE BAR$LISTE    
  X * LISTEIDXBILD READPE BAR$LISTE    
  X  
C     ARKEYQ KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C          
  X * LISTEIDX EXSR BAR$LISTE    
  X  
C     LISTEIDXTEXT BEGSR                
C *     --------------------------------------
C *     Portal Texte
C *     --------------------------------------
C       EXSR TABLE100PR              
C     NOMIT IFNE BEMIT              
C       OPEN ARTIKELLR       — 77 —  
C     ARKEYR SETGT ARTIKELLR       — 77 —  
C   N77 ARKEYR READPE ARTIKELLR       — 77 77  
C       ELSE                
C       OPEN ARTIKELLS       — 77 —  
C     ARKEYS SETGT ARTIKELLS       — 77 —  
C   N77 ARKEYS READPE ARTIKELLS       — 77 77  
C       ENDIF                
C *     --------------------------------------
C *     Anzahl Zeilen ermitteln
C *     --------------------------------------
C     *ZERO ADD MAXIDXTEXT MAXIDXTEXT2            
C   66 *ZERO ADD MAXIDXTEXT66 MAXIDXTEXT2            
C     *ZERO COMP SUCHLEN       — — 78  
C   N78   MULT IDXSUCHE MAXIDXTEXT2            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXIDXTEXT2              
C       EXSR ZEILEARTTEXT              
C   78   EXSR ZEILEARTTEXT2              
C     NOMIT IFNE BEMIT              
C     ARKEYR READPE ARTIKELLR       — 77 77  
C       ELSE                
C     ARKEYS READPE ARTIKELLS       — 77 77  
C       ENDIF                
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTTEXTX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTEIDXTEXT SETGT BAR$LISTE    
  X * LISTEIDXTEXT READPE BAR$LISTE    
  X * LISTEIDXTEXT READPE BAR$LISTE    
  X  
C     ARKEYR KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C          
  X * LISTEIDXTEXT SETGT BAR$LISTE    
  X * LISTEIDXTEXT READPE BAR$LISTE    
  X * LISTEIDXTEXT READPE BAR$LISTE    
  X  
C     ARKEYS KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEMITPN BEGSR                
C     NOMIT IFNE BEMIT              
C *     --------------------------------------
C *     Mitglied Nachrichten
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN ARTIKELLN       — 77 —  
C       OPEN ARTIKELL1       — 77 —  
C     ARKEYN SETGT ARTIKELLN       — 77 —  
C   N77 ARKEYN READPE ARTIKELLN       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWMITPN ROWROWSMAX            
C   66 *ZERO ADD ROWMITPN66 ROWROWSMAX            
C   68 *ZERO ADD ROWMITPN68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXMITPN              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     ARKEYN READPE ARTIKELLN       — 77 77  
C   N77 ARKEY1 CHAIN ARTIKELL1       77 77 —  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEMITPN SETGT BAR$LISTE    
  X * LISTEMITPN READPE BAR$LISTE    
  X * LISTEMITPN READPE BAR$LISTE    
  X  
C     ARKEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   BEMIT            
C       KFLD   MIMIT            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEMITART BEGSR                
C *     --------------------------------------
C *     Mitglied Artikel
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN ARTIKELL4       — 77 —  
C     ARKEY4 SETGT ARTIKELL4       — 77 —  
C   N77 ARKEY4 READPE ARTIKELL4       — 77 77  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWMITART ROWROWSMAX            
C   66 *ZERO ADD ROWMITART66 ROWROWSMAX            
C   68 *ZERO ADD ROWMITART68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXMITART              
C       EXSR ZEILEART              
C   78   EXSR ZEILEART2              
C     ARKEY4 READPE ARTIKELL4       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEARTX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTEMITART SETGT BAR$LISTE    
  X * LISTEMITART READPE BAR$LISTE    
  X * LISTEMITART READPE BAR$LISTE    
  X  
C     ARKEY4 KLIST                
C       KFLD   MAMAN            
C       KFLD   NOPN            
C       KFLD   MIMIT            
C          
  X * ZEILEART EXSR BAR$ZEILE    
  X  
C     LISTEARTAW BEGSR                
C       SETOFF         — — 78  
C       CLEAR   ROWS            
C *     --------------------------------------
C *     Antworten je Artikel/Nachricht
C *     --------------------------------------
C       EXSR LISTEFRAGEL              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C **   ROWS ANDLT MAXARTPN              
C     *IN78 ANDEQ *OFF              
C       EXSR ZEILEAW              
C   78   ADD 1 ROWS            
C     AWKEY1 READE ANTWORTL1       — 77 77  
C       ENDDO                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEARTPN BEGSR                
C     NOCHAT IFEQ WWCHAT              
C       EXSR LISTETITEL              
C *     --------------------------------------
C *     Antworten je Artikel/Nachricht
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR LISTEFRAGEL              
C       MOVEL(P) TDTOP TDVALIGN            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C **   ROWS ANDLT MAXARTPN              
C       EXSR ZEILEAW              
C   78   EXSR ZEILEAW2              
C     AWKEY1 READE ANTWORTL1       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEAWX              
C       EXSR TABLEX              
C       ELSE                
C       EXSR LISTEFRA              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEARTPN EXSR BAR$LISTE    
  X * LISTEFRR EXSR BAR$LISTE    
  X  
C     LISTEFRA BEGSR                
C       EXSR LISTETITEL              
C       MOVEL(P) 'antworten' DIV            
C *     --------------------------------------
C *     Antworten je Artikel bei Chat
C *     --------------------------------------
C       EXSR TABLE100PR              
C       EXSR LISTEFRAGEL              
C       MOVEL(P) TDTOP TDVALIGN            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C **   ROWS ANDLT MAXFRA              
C       EXSR ZEILEAWFRA              
C   78   EXSR ZEILEAWFRA2              
C     AWKEY1 READE ANTWORTL1       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEAWFRAX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTEARTAW EXSR BAR$LISTE    
  X * LISTEARTPN EXSR BAR$LISTE    
  X * LISTEFRA EXSR BAR$LISTE    
  X * LISTEFRW EXSR BAR$LISTE    
  X  
C     LISTEFRAGEL BEGSR                
C *     --------------------------------------
C *     Erste auszugebende Antwort suchen
C *     --------------------------------------
C       OPEN ANTWORTL1       — 77 —  
C     AWKEY1 SETGT ANTWORTL1       — 77 —  
C   N77 AWKEY1 READPE ANTWORTL1       — 77 77  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Auf nachfolgende Antwort setzen
C *     --------------------------------------
C     *HIVAL COMP AWAW       72 — —  
C   72   ADD 1 AWAW            
C          
C *     --------------------------------------
C *     Maximale Differenz ermitteln
C *     --------------------------------------
C     *ZERO ADD *HIVAL NEAW            
C          
C *     --------------------------------------
C *     Maximale Differenz ermitteln
C *     --------------------------------------
C     *ZERO IFGT AWAW              
C       ADD AWAW NEAW            
C       ENDIF                
C *     --------------------------------------
C *     Differenz ermitteln
C *     --------------------------------------
C     NOCHAT IFEQ ARCHAT              
C     NEAW COMP MAXARTPN       77 — —  
C   77 *ZERO ADD MAXARTPN NEAW            
C       ELSE                
C     NEAW COMP MAXFRA       77 — —  
C   77 *ZERO ADD MAXFRA NEAW            
C       ENDIF                
C *     --------------------------------------
C *     Erste auszugebende Antwort ermitteln
C *     --------------------------------------
C     *ZERO IFLT NEAW              
C       SUB NEAW AWAW            
C   N72   ADD 1 AWAW            
C       SETON         72 — —  
C       ENDIF                
C *     --------------------------------------
C *     Alte Antwort aus Chat entfernen
C *     --------------------------------------
C     NOCHAT IFNE ARCHAT              
C     *ZERO ADD AWAW NEAW            
C       MOVE ANTWORTDS ANTWORTSAVE            
C     AWKEY1 SETLL ANTWORTL1       — 77 —  
C   N77 AWKEY1 READE ANTWORTL1       — 77 77  
C     *IN77 IFEQ *OFF              
C     AWAW ANDLT NEAW              
C       EXSR DBRMVAW              
C       ENDIF                
C       MOVE ANTWORTSAVE ANTWORTDS            
C       ENDIF                
C *     --------------------------------------
C *     Erste auszugebende Antwort lesen (72)
C *     --------------------------------------
C   72 AWKEY1SET SETLL ANTWORTL1       — 77 —  
C   N72 AWKEY1SET SETGT ANTWORTL1       — 77 —  
C   N77 AWKEY1 READE ANTWORTL1       — 77 77  
C   77   CLEAR   ANTWORTDS            
C       ENDIF                
C     NOCHAT IFNE ARCHAT              
C *     --------------------------------------
C *     Nur Zeitpunkte von heute?
C *     --------------------------------------
C       MOVE AWDAT DATUM            
C     DATUM IFEQ HEUTE              
C       MOVEL(P) '*' NOHEUTE            
C       ENDIF                
C *     --------------------------------------
C *     Nur Gestern/Heute/Morgen mit Zeiten
C *     --------------------------------------
C       MOVEL(P) '*' NOZEIT            
C       ENDIF                
C *     --------------------------------------
C *     Farbe für erste Zeile ...
C *     --------------------------------------
C       MOVE AWAW ZAHL1            
C       ENDSR                
C          
  X * LISTEARTAW READE BAR$LISTE    
  X * LISTEARTPN READE BAR$LISTE    
  X * LISTEFRA READE BAR$LISTE    
  X * LISTEFRAGEL SETGT BAR$LISTE    
  X * LISTEFRAGEL READPE BAR$LISTE    
  X * LISTEFRAGEL SETLL BAR$LISTE    
  X * LISTEFRAGEL READE BAR$LISTE    
  X * LISTEFRAGEL READE BAR$LISTE    
  X  
C     AWKEY1 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * LISTEFRAGEL SETLL BAR$LISTE    
  X * LISTEFRAGEL SETGT BAR$LISTE    
  X  
C     AWKEY1SET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C       KFLD   AWAW            
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEFRR BEGSR                
C *     --------------------------------------
C *     Seiteninhalt ausgeben
C *     --------------------------------------
C       EXSR LISTEFRW              
C     PFADXX IFEQ HTML              
C       EXSR HINWEIS1              
C       EVAL BUF = '</center><center>'
C       EXSR WRSTOUT              
C       ENDIF                
C       EXSR LISTEFRA              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEFRN BEGSR                
C *     --------------------------------------
C *     Navigation bei Chat
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * FORMLOGIN EXSR BAR$FORM    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTEFRR EXSR BAR$LISTE    
  X  
C     LISTEFRW BEGSR                
C       MOVEL(P) 'wer' DIV            
C *     --------------------------------------
C *     Wer war da?
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR LISTEFRAGEL              
C       OPEN GELESENL2       — 77 —  
C     GEKEY2 SETGT GELESENL2       — 77 —  
C   N77 GEKEY2 READPE GELESENL2       — 77 77  
C          
C       MOVEL(P) TDTOP TDVALIGN            
C     DATETIME SUBDUR ONLINEMIN:*MN DATETIME2            
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXFRW              
C     AWDAT ANDLE GEDATAW              
C     DATETIME2 COMP GEDATAW       — 75 —  
C       EXSR ZEILEWER              
C   78   EXSR ZEILEWER2              
C     GEKEY2 READPE GELESENL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEWERX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * JS2CHAT EXSR BAR$SCRIPT    
  X  
C     LISTEFRWNEU BEGSR                
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis falls jemand anderes im Chat
C *     --------------------------------------
C       OPEN GELESENL2       — 77 —  
C     GEKEY2 SETGT GELESENL2       — 77 —  
C   N77 GEKEY2 READPE GELESENL2       — 77 77  
C          
C     DATETIME SUBDUR ONLINEMIN:*MN DATETIME2            
C *     --------------------------------------
C *     Angemeldeten Benutzer überlesen
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C     GEBEN ANDEQ BEMIT              
C     GEKEY2 READPE GELESENL2       — 77 77  
C       ENDIF                
C *     --------------------------------------
C *     Hinweis falls jemand anderes im Chat
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C     GEDATAW ANDGT DATETIME2              
C       MOVEL(P) '*' LINKADD            
C       ENDIF                
C       ENDSR                
C          
  X * LISTEFRW SETGT BAR$LISTE    
  X * LISTEFRW READPE BAR$LISTE    
  X * LISTEFRW READPE BAR$LISTE    
  X * LISTEFRWNEU SETGT BAR$LISTE    
  X * LISTEFRWNEU READPE BAR$LISTE    
  X * LISTEFRWNEU READPE BAR$LISTE    
  X  
C     GEKEY2 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * LISTEBARMMM EXSR BAR$LISTE    
  X  
C     LISTEBARNEU BEGSR                
C       CLEAR   ROWS            
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis falls jemand anderes im Chat
C *     --------------------------------------
C       OPEN GELESENL2       — 77 —  
C     GEKEY2BAR SETGT GELESENL2       — 77 —  
C   N77 GEKEY2BAR READPE GELESENL2       — 77 77  
C          
C     DATETIME SUBDUR ONLINEMIN:*MN DATETIME2            
C *     --------------------------------------
C *     Anzahl Mitglieder im Chat ermitteln
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     GEDATAW ANDGT DATETIME2              
C     ROWS ANDLT MAXFRW              
C       ADD 1 ROWS            
C     GEKEY2BAR READPE GELESENL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Anzahl Mitglieder im Chat anzeigen
C *     --------------------------------------
C     1 IFLE ROWS              
C     *ZERO ADD ROWS NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR LINKADD            
C     *IN66 IFEQ *OFF              
C       MOVEL(P) 'SPIM' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINKADD            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTEBARNEU SETGT BAR$LISTE    
  X * LISTEBARNEU READPE BAR$LISTE    
  X * LISTEBARNEU READPE BAR$LISTE    
  X  
C     GEKEY2BAR KLIST                
C       KFLD   MAMAN            
C       KFLD   MAMIT            
C       KFLD   MAART            
C          
  X * LINKBAR EXSR BAR$LINK    
  X  
C     LISTEBARMMM BEGSR                
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis falls jemand anderes da
C *     --------------------------------------
C     WWBAR IFEQ NOBAR              
C     WWTYP ORNE TYPFRA              
C     WWTYP ANDNE TYPFRR              
C     WWTYP ANDNE TYPFRN              
C     WWTYP ANDNE TYPEDTAW              
C       EXSR LISTEBARNEU              
C       ENDIF                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTESITEMAP EXSR BAR$LISTE    
  X  
C     LISTEMMM BEGSR                
C *     --------------------------------------
C *     Mitglieder
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN MITGLIEDL3       — 77 —  
C     MAMAN SETGT MITGLIEDL3       — 77 —  
C   N77 MAMAN READPE MITGLIEDL3       — 77 77  
C          
C *     --------------------------------------
C *     Smartphone oder Text-Browser
C *     --------------------------------------
C     *IN66 COMP *ON       — — 73  
C   N73 *IN68 COMP *ON       — — 73  
C          
C     DATETIME SUBDUR ONLINEMIN:*MN DATETIME2            
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXMMM              
C     DATETIME2 COMP MIONLINE       — 75 —  
C       EXSR ZEILEMIT              
C   78   EXSR ZEILEMIT2              
C     MAMAN READPE MITGLIEDL3       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEMITX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTEIDX EXSR BAR$LISTE    
  X * LISTESITEMAP EXSR BAR$LISTE    
  X  
C     LISTEGAL BEGSR                
C *     --------------------------------------
C *     Galerie
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN RUBRIKL2       — 77 —  
C     MAMAN SETLL RUBRIKL2       — 77 —  
C   N77 MAMAN READE RUBRIKL2       — 77 77  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWGAL ROWROWSMAX            
C   66 *ZERO ADD ROWGAL66 ROWROWSMAX            
C   68 *ZERO ADD ROWGAL68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXGAL              
C       EXSR ZEILERUB              
C   78   EXSR ZEILERUB2              
C     MAMAN READE RUBRIKL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILERUBX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTENNN BEGSR                
C       EXSR LISTETITEL              
C *     --------------------------------------
C *     Navigationen
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN NAVIL2       — 77 —  
C     MAMAN SETLL NAVIL2       — 77 —  
C   N77 MAMAN READE NAVIL2       — 77 77  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWNNN ROWROWSMAX            
C   66 *ZERO ADD ROWNNN66 ROWROWSMAX            
C   68 *ZERO ADD ROWNNN68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXNNN              
C       EXSR NATYPNAV              
C       EXSR ZEILENAV              
C   78   EXSR ZEILENAV2              
C     MAMAN READE NAVIL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILENAVX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTESITEMAP EXSR BAR$LISTE    
  X  
C     LISTENNN# BEGSR                
C       EXSR LISTETITEL              
C *     --------------------------------------
C *     Navigationen
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN NAVIL3       — 77 —  
C     MAMAN SETLL NAVIL3       — 77 —  
C   N77 MAMAN READE NAVIL3       — 77 77  
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWNNN ROWROWSMAX            
C   66 *ZERO ADD ROWNNN66 ROWROWSMAX            
C   68 *ZERO ADD ROWNNN68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXNNN              
C       EXSR NATYPNAV              
C       EXSR ZEILENAV              
C   78   EXSR ZEILENAV2              
C     MAMAN READE NAVIL3       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILENAVX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEMIT BEGSR                
C     PFADXX IFEQ HTML              
C     DATETIME SUBDUR ONLINEMIN:*MN DATETIME2            
C *     --------------------------------------
C *     Persönliche Daten anzeigen
C *     --------------------------------------
C       EXSR TABLE              
C     DATETIME2 COMP MIONLINE       — 75 —  
C          
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLB              
C       EXSR COL12B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPSMILY1' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EXSR LINKSMILY1              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Geschlecht
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPMW' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C     LOWER:UPPER XLATE(P) MIMW MYMW            
C       SELECT    
C     'M' WHENEQ MYMW              
C       MOVEL(P) 'SPMWM' MYTYP            
C       EXSR MYTYPTITEL              
C     'W' WHENEQ MYMW              
C       MOVEL(P) 'SPMWW' MYTYP            
C       EXSR MYTYPTITEL              
C     'X' WHENEQ MYMW              
C       MOVEL(P) 'SPMWX' MYTYP            
C       EXSR MYTYPTITEL              
C       OTHER                
C       CLEAR   MYTITEL            
C       ENDSL                
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Geburtstag
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPGEB' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C     *LOVAL IFNE MIGEB              
C     *EUR MOVEL(P) MIGEB LINK            
C       ENDIF                
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Web
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPWEB' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL BUFV = %TRIM(MIWEB)
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTMIT              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beruf
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPBERUF' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL BUFV = %TRIM(MIBERUF)
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTMIT              
C       EXSR ROWX              
C *     --------------------------------------
C *     Interessen
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPHOBBY' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL BUFV = %TRIM(MIHOBBY)
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTMIT              
C       EXSR ROWX              
C *     --------------------------------------
C *     Herkunft
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPHERKUNFT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL BUFV = %TRIM(MIHERKUNFT)
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTMIT              
C       EXSR ROWX              
C *     --------------------------------------
C *     Zuletzt hier
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPONLINE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVE MIONLINE DATETIME3            
C       EXSR LINKDAT1              
C   75   EXSR LINKADDB              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPCOLOR' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C     *IN68 IFEQ *OFF              
C       EXSR COLTABLECOLOR              
C       EXSR COLCOLORMIT              
C       EXSR COLTABLEX              
C       EXSR COL11              
C       ELSE                
C       EXSR COL12              
C       ENDIF                
C       EXSR ROWX              
C *     --------------------------------------
C *     Artikel / Nachrichten / Senden
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLB              
C       EXSR LINKNEUPN              
C       EXSR LINKADDB              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKMITPN              
C       EXSR LINKADDB              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKMITART              
C       EXSR LINKADDB              
C   66   CAT '<br>' :0 LINK            
C   N66   CAT '|' :1 LINK            
C       CAT LINK2 :1 LINK            
C   66   CAT '<br>' :0 LINK            
C   N66   CAT '|' :1 LINK            
C       CAT LINK3 :1 LINK            
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Alle Artikel und Nachrichten gelesen
C *     --------------------------------------
C     BEMIT IFEQ MIMIT              
C       EXSR ROW              
C       EXSR COLB              
C       EXSR LINKGELPN              
C       EXSR LINKADDB              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKGELART              
C       EXSR LINKADDB              
C   66   CAT '<br>' :0 LINK            
C   N66   CAT '|' :1 LINK            
C       CAT LINK2 :1 LINK            
C       EXSR COL12              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Profil/Kennwort/E-Mail-Adresse ändern
C *     --------------------------------------
C     BEMIT IFEQ MIMIT              
C     BEMIT OREQ WEBMASTER              
C       EXSR ROW              
C       EXSR COLB              
C       EXSR LINKCHGMAIL              
C       EXSR LINKADDB              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKCHGPWD              
C       EXSR LINKADDB              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKEDTMIT              
C       EXSR LINKADDB              
C   66   CAT '<br>' :0 LINK            
C   N66   CAT '|' :1 LINK            
C       CAT LINK2 :1 LINK            
C   66   CAT '<br>' :0 LINK            
C   N66   CAT '|' :1 LINK            
C       CAT LINK3 :1 LINK            
C       EXSR COL12              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL12              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       EXSR TABLEX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTEIDX EXSR BAR$LISTE    
  X  
C     LISTEINF BEGSR                
C     PFADXX IFEQ HTML              
C *     --------------------------------------
C *     Statistik
C *     --------------------------------------
C     WWTYP IFNE TYPIDX              
C       CALL 'STATISTIK' STATISTIKPARM     — 77 —  
C       ENDIF                
C *     --------------------------------------
C *     Einzahl oder Mehrzahl
C *     --------------------------------------
C     1 COMP STPN       — — 78  
C   78   MOVEL(P) 'SPPN' MYTYP            
C   N78   MOVEL(P) 'SPPNX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYPN#N            
C          
C     1 COMP START       — — 78  
C   78   MOVEL(P) 'SPART' MYTYP            
C   N78   MOVEL(P) 'SPARTX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYART#N            
C          
C     1 COMP STMIT       — — 78  
C   78   MOVEL(P) 'SPMIT' MYTYP            
C   N78   MOVEL(P) 'SPMITX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMIT#N            
C          
C     1 COMP STRUB       — — 78  
C   78   MOVEL(P) 'SPRUB' MYTYP            
C   N78   MOVEL(P) 'SPRUBX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYRUB#N            
C          
C     1 COMP STAW       — — 78  
C   78   MOVEL(P) 'SPAW' MYTYP            
C   N78   MOVEL(P) 'SPAWX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYAW#N            
C          
C *     --------------------------------------
C *     Systeminformationen
C *     --------------------------------------
C       CALL 'SYSINFO' SYSINFOPARM     — 77 —  
C   N77 *CYMD0 TEST(D)   SILASTIPLDATE     — 77 —  
C   N77 *HMS0 TEST(T)   SILASTIPLTIME     — 77 —  
C   77   CLEAR   SILASTIPL            
C          
C *     --------------------------------------
C *     Information anzeigen
C *     --------------------------------------
C       EXSR TABLE              
C          
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL1B              
C       EXSR COL2B              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) 'SPNAME' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Copyright
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPCOPY' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) '<a' LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT OWNER :0 LINK            
C       CAT '</a>' :0 LINK            
C       CAT '<a' :1 LINK            
C       CAT '>' :0 LINK            
C       CAT COPYRIGHTX :0 LINK            
C       CAT '</a>' :0 LINK            
C       EXSR COL2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Technologie
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPCODE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL LINK = '<a'+NOTRANSLATE+'>+
C                CL | CMD | RPG | DDS | +
C         CSS | XML | HTML | +
C                    Java | JavaScript</a>'
C       EXSR COL2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Statistik
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPANZAHL' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   66   EVAL BUF2 = '<br> '
C   N66   EVAL BUF2 = ' | '
C       EVAL BUF2 = ' | '
C       EVAL LINK = '<a'+NAVSTYLE+'>' +
C                  %CHAR(STRUB)  +  ' ' +
C                  %TRIM(MYRUB#N)+'</a>'+BUF2+
C              '<a'+NAVSTYLE+'>' +
C                  %CHAR(STMIT)  +  ' ' +
C                  %TRIM(MYMIT#N)+'</a>'+BUF2+
C              '<a'+NAVSTYLE+'>' +
C                  %CHAR(STPN)   +  ' ' +
C                  %TRIM(MYPN#N) +'</a>'+BUF2+
C              '<a'+NAVSTYLE+'>' +
C                  %CHAR(START)  +  ' ' +
C                  %TRIM(MYART#N)+'</a>'+BUF2+
C              '<a'+NAVSTYLE+'>' +
C                  %CHAR(STAW)   +  ' ' +
C                  %TRIM(MYAW#N) +'</a>'
C       EXSR COL2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Quellen und Smilys
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLB              
C       EXSR LINKSITEMAP              
C       MOVEL(P) LINK LINK6            
C       EXSR LINKBESUCHER              
C       MOVEL(P) LINK LINK5            
C       EXSR LINKANFRAGEN              
C       MOVEL(P) LINK LINK4            
C       EXSR LINKHTTPX              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKSRCS              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKSMILYS              
C       CAT '|' :1 LINK            
C       CAT LINK2 :1 LINK            
C       CAT '|' :1 LINK            
C       CAT LINK3 :1 LINK            
C       CAT '|' :1 LINK            
C       CAT LINK4 :1 LINK            
C       CAT '|' :1 LINK            
C       CAT LINK5 :1 LINK            
C       CAT '|' :1 LINK            
C       CAT LINK6 :1 LINK            
C          
C *     --------------------------------------
C *     Verweis
C *     --------------------------------------
C     *BLANKS IFNE LILINK              
C       MOVEL(P) LILINK WWW            
C       CAT '|' :1 LINK            
C       CAT '<a' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) 'SPLINK' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       EXSR COL2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Sprache
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPSPRACHE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       EVAL BUFV = ''
C       EVAL BUF2 = NL+'    '
C       CLEAR   LINK7            
C **     MOVE SPRACHEDS SPRACHESAVE            
C       OPEN SPRACHEL2       — 77 —  
C     MAMAN SETLL SPRACHEL2       — 77 —  
C   N77 MAMAN READE SPRACHEL2       — 77 77  
C     *IN77 DOWEQ *OFF              
C       MOVEL(P) '<b' LINK8            
C       CAT NAVSTYLE :0 LINK8            
C       CAT '>' :0 LINK8            
C       CAT '<a' :0 LINK8            
C       CAT 'href="' :1 LINK8            
C       CAT QUERYSUCHE :0 LINK8            
C     *BLANKS COMP QUERYSUCHE       — — 78  
C   78   CAT '?' :0 LINK8            
C   N78   CAT '&amp;' :0 LINK8            
C       CAT SPRACHENAME :0 LINK8            
C       CAT SPSPS :0 LINK8            
C       CAT '"' :0 LINK8            
C       CAT TARGET :0 LINK8            
C       CAT '>' :0 LINK8            
C       MOVEL(P) 'SPSPRACHEX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK8            
C       CAT '</a>' :0 LINK8            
C       CAT '</b>' :0 LINK8            
C       EVAL BUFV =
C       BUFV +
C       BUF2 + %TRIMR ( LINK8)
C       EVAL BUF2 = NL+'  | '
C     MAMAN READE SPRACHEL2       — 77 77  
C       ENDDO                
C **     MOVE SPRACHESAVE SPRACHEDS            
C       EXSR SPRACHESR              
C       CLEAR   LINK            
C       EXSR COLTEXT2              
C       EXSR ROWX              
C *     --------------------------------------
C *     Server (Bild)
C *     --------------------------------------
C       MOVEL(P) 'AS/400' MYTITEL            
C       MOVEL(P) 'as400.jpg' EDTITEL            
C       MOVEL(P) DISPLAYBLOCK BILDADD            
C       EXSR LINKBILD2              
C     ROWROWSMAX COMP 1       77 — —  
C   77   CLEAR   LINK            
C   66   CLEAR   LINK            
C       MOVEL(P) LINK LINK7            
C     *BLANKS COMP LINK       — — 72  
C       CLEAR   LINK            
C *     --------------------------------------
C *     Server (Bild)
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLB              
C   72   EXSR COL2              
C   N72   EXSR COL100PRB              
C   N72   MOVEL(P) LINK7 LINK            
C   N72   EXSR COLROWINF              
C       EXSR ROWX              
C *     --------------------------------------
C *     Server (Symbol)
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLB              
C       MOVEL(P) 'AS/400' MYTITEL            
C       MOVEL(P) 'as400.gif' EDTITEL            
C       MOVEL(P) DISPLAYBLOCK BILDADD            
C       EXSR LINKBILD2              
C   72   EXSR COL2              
C   N72   EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Systemname
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPSYSNAME' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C          
C       MOVEL(P) SISYSNAME MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) LISYSNAME WWW            
C       MOVEL(P) '<a' LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '><b>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</b></a>' :0 LINK            
C   72   EXSR COL2B              
C   N72   EXSR COLB              
C       EXSR ROWX              
C *     --------------------------------------
C *     Online seit
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPLASTIPL' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C     *BLANKS IFNE SILASTIPL              
C     *CYMD0 MOVE SILASTIPLDATE DATUM            
C     *HMS0 MOVE SILASTIPLTIME ZEIT            
C       MOVE DATUM DATETIME3            
C       MOVE ZEIT DATETIME3            
C     DATETIME SUBDUR ONLINEDAY:*D DATETIME2            
C     DATETIME2 COMP DATETIME3       — 75 —  
C       EXSR LINKDAT1              
C   75   EXSR LINKADDB              
C       ENDIF                
C   72   EXSR COL2              
C   N72   EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Datenbank
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPDATABASE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C          
C       MOVEL(P) LIDATABASE WWW            
C       MOVEL(P) '<a' LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '><b>IBM' :0 LINK            
C       CAT 'DB2 for i' :1 LINK            
C       CAT '</b></a>' :0 LINK            
C          
C       MOVEL(P) LXDATABASE WWW            
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>(<a' :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>DB2/400' :0 LINK            
C       CAT '</a>)' :0 LINK            
C       CAT '</font>' :0 LINK            
C   72   EXSR COL2              
C   N72   EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Software
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPSOFTWARE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C          
C       MOVEL(P) LISOFTWARE WWW            
C       MOVEL(P) '<a' LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '><b>IBM' :0 LINK            
C       CAT 'i for' :1 LINK            
C       CAT 'Business' :1 LINK            
C       CAT '</b></a>' :0 LINK            
C          
C       MOVEL(P) LXSOFTWARE WWW            
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>(<a' :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>OS/400' :0 LINK            
C       CAT '</a>)' :0 LINK            
C       CAT '</font>' :0 LINK            
C     *IN66 IFEQ *OFF              
C     *OFF ANDNE *OFF              
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) 'SPRELEASE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       MOVEL(P) SIRELEASE MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK            
C       CAT '</font>' :0 LINK            
C       ENDIF                
C   72   EXSR COL2              
C   N72   EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     System
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) 'SPHARDWARE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C          
C       MOVEL(P) LIHARDWARE WWW            
C       MOVEL(P) '<a' LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '><b>IBM' :0 LINK            
C       CAT 'Power' :1 LINK            
C       CAT 'Systems' :1 LINK            
C       CAT '</b></a>' :0 LINK            
C          
C       MOVEL(P) LXHARDWARE WWW            
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>(<a' :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>AS/400' :0 LINK            
C       CAT '</a>)' :0 LINK            
C       CAT '</font>' :0 LINK            
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) 'SPMODEL' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT SIMODEL :1 LINK            
C       CAT '</font>' :0 LINK            
C       CAT '<font' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>(' :0 LINK            
C       CAT SIPRCFEAT :0 LINK            
C       CAT ')</font>' :0 LINK            
C * N66   CAT       SIPRCGRP   :1 LINK
C   72   EXSR COL2              
C   N72   EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     IBM technology
C *     --------------------------------------
C       EVAL MYTITEL = 'IBM technology'
C       EVAL EDTITEL = 'ibm-technology.jpg'
C     MAXWIDTH100PR5 CAT(P) IBMTECHSPACE BILDADD            
C       EXSR LINKBILD2              
C     *BLANKS IFNE LINK              
C       MOVEL(P) LINK LINK3            
C       EVAL LINK = ''
C       EXSR ROW              
C   N66   EXSR COLB              
C       MOVEL(P) LINK3 LINK            
C   N66   EXSR COL2              
C   66   EXSR COLCENTER3              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR COL2              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       EXSR TABLEX              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEINF CALL BAR$LISTE    
  X  
C     STATISTIKPARM PLIST                
C       PARM   MAMAN            
C       PARM   STRUB            
C       PARM   STMIT            
C       PARM   STPN            
C       PARM   START            
C       PARM   STAW            
C          
  X * LISTEINF CALL BAR$LISTE    
  X  
C     SYSINFOPARM PLIST                
C       PARM   SIMODEL            
C       PARM   SIPRCGRP            
C       PARM   SIPRCFEAT            
C       PARM   SISYSNAME            
C       PARM   SIRELEASE            
C       PARM   SILASTIPL            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEKAL BEGSR                
C     PFADXX IFEQ HTML              
C *     --------------------------------------
C *     Terminkalender für eilige Arbeiten
C *     --------------------------------------
C       EXSR TABLEKAL              
C     *ZERO ADD 7 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C       MOVEL(P) 'SPDIE$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPMIT$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPDON$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPFRE$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPFRE$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPFRE$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C       MOVEL(P) 'SPRES$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR LISTEKAL2              
C          
C *     --------------------------------------
C *     Tage ausgeben
C *     --------------------------------------
C     *ZERO ADD 8 TAG            
C       DO ROWROWSMAX              
C       EXSR LISTEKAL3              
C       ENDDO                
C     *ZERO ADD 16 TAG            
C       DO 3              
C       EXSR LISTEKAL3              
C       ENDDO                
C       SUB 1 TAG            
C       DO 4              
C       EXSR LISTEKAL3              
C       ENDDO                
C     *ZERO ADD 23 TAG            
C       DO ROWROWSMAX              
C       EXSR LISTEKAL3              
C       ENDDO                
C     *ZERO ADD 30 TAG            
C       DO ROWROWSMAX              
C       EXSR LISTEKAL3              
C       ENDDO                
C     *ZERO ADD 37 TAG            
C       DO ROWROWSMAX              
C       EXSR LISTEKAL3              
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       ENDIF                
C       EXSR TABLEX              
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EXSR KALMAIN              
C       ENDIF                
C       ENDSR                
C          
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X  
C     LISTEKAL2 BEGSR                
C *     --------------------------------------
C *     Überschrift ausgeben
C *     --------------------------------------
C       EXSR ROWT              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C   66 3 SUBST(P) LINK LINK            
C       EXSR LINKADDB              
C       EXSR COLKAL2              
C       EXSR ROWX              
C       ENDSR                
C          
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X * LISTEKAL EXSR BAR$LISTE    
  X  
C     LISTEKAL3 BEGSR                
C *     --------------------------------------
C *     Tag ausgeben
C *     --------------------------------------
C       EXSR ROW              
C     *ZERO ADD TAG NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR LINK            
C       SUB 1 TAG            
C       EXSR LINKADDB              
C       EXSR COLKAL3              
C       EXSR ROWX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEAW BEGSR                
C *     --------------------------------------
C *     Antwort
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTENAV BEGSR                
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEDEV BEGSR                
C *     --------------------------------------
C *     Entwicklung
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEMNT BEGSR                
C     PFADXX IFEQ HTML              
C       CLEAR   BUF            
C *     --------------------------------------
C *     Verweise auf enthaltene Objekte
C *     --------------------------------------
C       MOVEL(P) TYPFONT NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       EVAL BUF =
C       BUF + '-
C        <p><a href="'+%TRIM(PFADREL)+
C          %TRIM(NANAV)  +
C          %TRIM(NAFILEX)+'">'+
C          %TRIM(MYTITEL)+'</a></p>§'
C       ENDIF                
C       MOVEL(P) TYPFAVICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL BUF =
C       BUF + '-
C       <p><img src="'+%TRIM(PFADREL)+
C          %TRIM(NANAV)  +
C          %TRIM(NAFILEX)+'"></p>§'
C       ENDIF                
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL BUF =
C       BUF + '-
C       <p><img src="'+%TRIM(PFADREL)+
C          %TRIM(NANAV)  +
C          %TRIM(NAFILEX)+'"></p>§'
C       ENDIF                
C     *BLANKS IFNE BUF              
C       EVAL BUF =
C       BUF + '§'
C       ENDIF                
C       EVAL BUF = '<center'+DISPLAYNONE+'>§§'+BUF+'-
C          
C        <p><a href="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'resize.js">§-
C          
C          <img src="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'resize.gif"></a></p>§§-
C          
C        <p><a href="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'sterne.js">§-
C          
C          <img src="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'sterne.gif"></a></p>§§-
C          
C        <p><a href="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'sparkle.js">§-
C          
C          <img src="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'sparkle.gif"></a>§'
C          
C       DO 9 NUM            
C       EVAL BUF =
C       BUF + '§-
C          
C          <img src="'+%TRIM(PFADREL)+
C          %TRIM(OBJEKTNAV)+'/'+
C          'sparkle'+%CHAR(NUM)+'.gif">'
C       ENDDO                
C       EVAL BUF =
C       BUF + '</p></center>'
C          
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTESRC BEGSR                
C     PFADXX IFEQ HTML              
C     *BLANKS IFNE SRCMBR              
C *     --------------------------------------
C *     Quelle anzeigen
C *     --------------------------------------
C       EVAL CMD        = 'OVRDBF FILE(SOURCE) +
C         MBR('+%TRIM(SRCMBR)+') +
C         SECURE(*YES)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C   N77   EXSR SRCALL              
C          
C       EVAL CMD        = 'DLTOVR FILE(SOURCE)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTESRCS BEGSR                
C       CLEAR   LINES            
C       CLEAR   SRCMBRCOMP2            
C     DATETIME SUBDUR SRCDAY:*D DATETIME2            
C *     --------------------------------------
C *     Quellen zeigen
C *     --------------------------------------
C       EXSR TABLE              
C       CALL 'SRCINFO' SRCINFOPARM1     — 77 —  
C   N77 *BLANKS COMP SRCMBR       — — 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C       EXSR ZEILESRC              
C   78   EXSR ZEILESRC2              
C       CALL 'SRCINFO' SRCINFOPARM2     — 77 —  
C   N77 *BLANKS COMP SRCMBR       — — 77  
C       ENDDO                
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *ZERO IFNE ROWS              
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C     ROWS SUB 1 NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR LINK            
C       EXSR COLB              
C       EXSR COLB              
C     *ZERO ADD LINES NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR LINK            
C       EXSR COLRIGHT2B              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILESRCX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTESRCS CALL BAR$LISTE    
  X  
C     SRCINFOPARM1 PLIST                
C       PARM 'SOURCE' SRCFILE            
C       PARM '*FIRSTMBR' SRCMBR            
C       PARM '*SAME' SRCREL            
C       PARM   SRCTYPE            
C       PARM   SRCCHG            
C       PARM   SRCTEXT            
C       PARM   SRCLINES            
C          
  X * LISTESRCS CALL BAR$LISTE    
  X  
C     SRCINFOPARM2 PLIST                
C       PARM 'SOURCE' SRCFILE            
C       PARM   SRCMBR            
C       PARM '*NEXT' SRCREL            
C       PARM   SRCTYPE            
C       PARM   SRCCHG            
C       PARM   SRCTEXT            
C       PARM   SRCLINES            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEHTTPX BEGSR                
C     PFADXX IFEQ HTML              
C *     --------------------------------------
C *     Quelle anzeigen
C *     --------------------------------------
C       MOVEL(P) WWTITEL SRCTEXT            
C       MOVEL(P) 'HTTPX' SRCFILE            
C       MOVEL(P) 'HTTPX' SRCMBR            
C       MOVEL(P) 'TXT' SRCTYPE            
C          
C       CALL 'HTTPX' HTTPXPARM     — 77 —  
C          
C       EVAL CMD        = 'CRTSRCPF FILE(QTEMP/'+
C         %TRIM(RCDFMT#)+') +
C         MBR(*NONE)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'RNMOBJ OBJ(QTEMP/'+
C         %TRIM(RCDFMT#)+') +
C         OBJTYPE(*FILE) +
C         NEWOBJ('+%TRIM(SRCFILE)+')'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CPYFRMSTMF FROMSTMF('''+
C            %TRIM(HTTPXPATH)+''') +
C         TOMBR(''/QSYS.LIB/QTEMP.LIB/'+
C         %TRIM(SRCFILE)+'.FILE/'+
C         %TRIM(SRCMBR)+'.MBR'') +
C         MBROPT(*REPLACE)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CHGPFM FILE(QTEMP/'+
C         %TRIM(SRCFILE)+') +
C         MBR('+%TRIM(SRCMBR)+') +
C         SRCTYPE('+%TRIM(SRCTYPE)+')'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'OVRDBF FILE(SOURCE) +
C         TOFILE(QTEMP/'+
C         %TRIM(SRCFILE)+') +
C         MBR('+%TRIM(SRCMBR)+') +
C         SECURE(*YES)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C   N77   EXSR SRCALL              
C          
C       EVAL CMD        = 'DLTOVR FILE(SOURCE)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CLRPFM FILE(QTEMP/'+
C         %TRIM(SRCFILE)+') +
C         MBR('+%TRIM(SRCMBR)+')'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'DLTF FILE(QTEMP/'+
C         %TRIM(SRCFILE)+')'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C       ENDIF                
C       ENDSR                
C          
  X * LISTEHTTPX CALL BAR$LISTE    
  X  
C     HTTPXPARM PLIST                
C       PARM   HTTPXPATH            
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEFILES BEGSR                
C       CLEAR   FINAMECOMP2            
C       CLEAR   FINAMECOMP4            
C     DATETIME SUBDUR FILEDAY:*D DATETIME2            
C *     --------------------------------------
C *     Dateien zeigen
C *     --------------------------------------
C       EVAL CMD        = 'DLTF FILE(QTEMP/FILEP)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CRTDUPOBJ OBJ(FILEP) +
C         FROMLIB(*CURLIB) +
C         OBJTYPE(*FILE) +
C         TOLIB(QTEMP) +
C         DATA(*NO)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CLRPFM FILE(QTEMP/FILEP)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'OVRDBF FILE(FILEP) +
C         TOFILE(QTEMP/FILEP) +
C         SECURE(*YES)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL PATHIFS    = %TRIM(MAPFAD) + '/' +
C                    %TRIM(PFAD)   + '/'
C       CALL 'IFS$FILE' FILEPARM     — 77 —  
C          
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Verzeichnis
C *     --------------------------------------
C       MOVEL(P) PATHIFS MYTITEL            
C       EXSR MYTITELXFORM              
C       MOVEL(P) MYTITEL EDTITEL            
C          
C *     --------------------------------------
C *     Dateien zeigen
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN FILEP       — 77 —  
C       READ FILEP       — 77 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Inhalt ausgeben?
C *     --------------------------------------
C     '.' IFNE FINAME              
C     '..' ANDNE FINAME              
C       EXSR ZEILEFILE              
C   78   EXSR ZEILEFILE2              
C       ENDIF                
C       READ FILEP       — 77 77  
C       ENDDO                
C       CLOSE FILEP       — 77 —  
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEFILEX              
C       EXSR TABLEX              
C       ENDIF                
C       EVAL CMD        = 'DLTOVR FILE(FILEP)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'CLRPFM FILE(QTEMP/FILEP)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C          
C       EVAL CMD        = 'DLTF FILE(QTEMP/FILEP)'
C       CALL QCMDEXC QCMDPARM     — 77 —  
C       ENDSR                
C          
  X * LISTEFILES CALL BAR$LISTE    
  X  
C     FILEPARM PLIST                
C       PARM   PATHIFS            
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTESMILYS BEGSR                
C *     --------------------------------------
C *     Smilys (Bilder)
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN SMILYL2       — 77 —  
C     MAMAN SETLL SMILYL2       — 77 —  
C   N77 MAMAN READE SMILYL2       — 77 77  
C          
C *     --------------------------------------
C *     Abstand zwischen den Spalten
C *     --------------------------------------
C       MOVEL(P) 'X' ROWSPACE            
C          
C *     --------------------------------------
C *     Anzahl Spalten ermitteln
C *     --------------------------------------
C     *ZERO ADD ROWSMILYS ROWROWSMAX            
C   66 *ZERO ADD ROWSMILYS66 ROWROWSMAX            
C   68 *ZERO ADD ROWSMILYS68 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXSMILYS              
C       EXSR ZEILESMILY              
C   78   EXSR ZEILESMILY2              
C     MAMAN READE SMILYL2       — 77 77  
C       ENDDO                
C     *BLANKS IFEQ SUCHE              
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 *     Blase ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) 'SPBLASE' MYTYP            
C       EXSR MYTYPBLASE              
C       EVAL BUFV = %TRIM(MYBLASE)
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTCENTER              
C       MOVEL(P) 'SPBLASE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C *     --------------------------------------
C *     Courier ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) 'SPMONO' MYTYP            
C       EXSR MYTYPMONO              
C       EVAL BUFV = %TRIM(MYMONO)
C       EXSR TEXTSMILYS              
C **     EVAL BUFV = %TRIM(FONT)+'<br> '+
C **            %TRIM(FONTX)+BUFV
C       EXSR COLTEXTCENTER              
C       MOVEL(P) 'SPMONO' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C *     --------------------------------------
C *     Verweis ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) LISMILY1 LINK            
C     *BLANKS IFNE LINK              
C       MOVEL(P) 'SPLINKTEXT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK            
C       ENDIF                
C       EXSR ZEILESMILY3              
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTCENTER              
C       EXSR ZEILESMILY4              
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C *     --------------------------------------
C *     Verweis ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) LISMILY2 LINK            
C       EXSR ZEILESMILY3              
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTCENTER              
C       EXSR ZEILESMILY4              
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C *     --------------------------------------
C *     Verweis ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) LISMILY3 LINK            
C       EXSR ZEILESMILY3              
C       EXSR TEXTSMILYS              
C       EXSR COLTEXTCENTER              
C       EXSR ZEILESMILY4              
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C *     --------------------------------------
C *     Neue Zeile auf Smartphone
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EXSR ROW              
C       MOVEL(P) 'SPBR66' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C     BR66N SCAN LINK POS     — 77 78  
C   78   EVAL LINK       = %REPLACE (BRSP:
C         LINK:POS:BR66NLEN)
C       EXSR COLCENTER              
C       MOVEL(P) BR66 LINK            
C       EXSR COL              
C       EXSR ROWX              
C       ELSE                
C       EXSR ROWROWX              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILESMILYX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTESITEMAP BEGSR                
C *     --------------------------------------
C *     Sitemap
C *     --------------------------------------
C       EXSR LISTEAKT              
C       EXSR LISTEGAL              
C       EXSR LISTENNN#              
C       EXSR LISTEMMM              
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEBESUCHER BEGSR                
C       MOVEL(P) 'SPROBOT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYROBOT#            
C       MOVEL(P) 'SPSPAM$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSPAM$#            
C       MOVEL(P) 'SPSPAM$BOX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSPAM$BOX#            
C          
C       EXSR LISTEBESUCHER3              
C *     --------------------------------------
C *     Besucher
C *     --------------------------------------
C     DATETIME SUBDUR ANFRAGEDAY :*D DATETIME6            
C     DATETIME SUBDUR ANFRAGEHOUR :*H DATETIME5            
C     DATETIME SUBDUR BESUCHERDAY :*D DATETIME4            
C          
C *     --------------------------------------
C *     Besucher
C *     --------------------------------------
C       EXSR TABLE              
C       OPEN AGENTL2       — 77 —  
C     MAMAN SETLL AGENTL2       — 77 —  
C   N77 MAMAN READE AGENTL2       — 77 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXAG              
C       CLEAR   ANFRAGEDS            
C       SETOFF         73 75 76  
C       OPEN ANFRAGEL3       — 77 —  
C     AFKEY3AG SETGT ANFRAGEL3       — 77 —  
C   N77 AFKEY3AG READPE ANFRAGEL3       — 77 77  
C   N77 *BLANKS COMP AFSPAM$       73 73 —  
C   N77 DATETIME6 COMP AFDAT       — 76 —  
C   N77 DATETIME5 COMP AFDAT       — 75 —  
C     DATETIME4 COMP AGDAT       — 74 —  
C          
C *     --------------------------------------
C *     Werbung?
C *     --------------------------------------
C   73   EXSR LISTESPAM$              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ZEILEBESUCHE              
C   78   EXSR ZEILEBESUCHE2              
C     MAMAN READE AGENTL2       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEBESUCHEX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X  
C     LISTEBESUCHER3 BEGSR                
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDBESUCH MYTITEL            
C       MOVEL(P) 'besuch.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK BESUCH            
C          
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDBESUCHNEUX MYTITEL            
C       MOVEL(P) 'besuch.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK BESUCHNEU            
C       ENDSR                
C          
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X * LISTE CASEQ BAR$LISTE    
  X  
C     LISTEANFRAGEN BEGSR                
C       MOVEL(P) '*' NOHEUTE            
C       MOVEL(P) 'SPMS' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMS#            
C       MOVEL(P) 'SPROBOT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYROBOT#            
C       MOVEL(P) 'SPSPAM$' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSPAM$#            
C       MOVEL(P) 'SPSPAM$BOX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSPAM$BOX#            
C       MOVEL(P) 'SPNOINDEX' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNOINDEX#            
C       MOVEL(P) 'SPNOFOLLOW' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNOFOLLOW#            
C       MOVEL(P) 'SPSUCHE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSUCHE#            
C       MOVEL(P) 'SPLOGIN' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYLOGIN#            
C       MOVEL(P) 'SPMOBILE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYMOBILE#            
C       MOVEL(P) 'SPSCHMAL' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYSCHMAL#            
C          
C       EXSR LISTEANFRAGE3              
C *     --------------------------------------
C *     Anfragen
C *     --------------------------------------
C     DATETIME SUBDUR ANFRAGEHOUR :*H DATETIME5            
C     DATETIME SUBDUR BESUCHERDAY :*D DATETIME4            
C          
C *     --------------------------------------
C *     Schrift sichern
C *     --------------------------------------
C       EVAL FONTSAVE    = FONT
C       EVAL FONTSAVEX   = FONTX
C       EVAL FONT        = ''
C       EVAL FONTX       = ''
C          
C *     --------------------------------------
C *     Historie
C *     --------------------------------------
C     WWTYP IFEQ TYPHISTORY              
C     ' ' CHECKR ELEMENTMIN LEN2            
C     ' ' CHECKR PFAD LEN            
C       SUB LEN2 LEN     78 — —  
C   78 LEN SUBST(P) PFAD PFAD2     — 77 —  
C   N78   CLEAR   PFAD2            
C     '/' CAT PFAD2 PFAD2            
C     ' ' CHECKR PFAD2 LEN2     — 77 78  
C   78   SUBST(P) PFAD2:LEN2 CHAR     — 77 —  
C   N78   CLEAR   CHAR            
C     '/' IFEQ CHAR              
C       CAT INDEXNAV :0 PFAD2            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Anfragen
C *     --------------------------------------
C       EXSR TABLE              
C       SELECT    
C     WWTYP WHENEQ TYPHISTORY              
C       OPEN ANFRAGEL2       — 77 —  
C     AFKEY2PF SETGT ANFRAGEL2       — 77 —  
C   N77 AFKEY2PF READPE ANFRAGEL2       — 77 77  
C          
C     WWTYP WHENEQ TYPBESUCHE              
C       OPEN ANFRAGEL3       — 77 —  
C     AFKEY3AG SETGT ANFRAGEL3       — 77 —  
C   N77 AFKEY3AG READPE ANFRAGEL3       — 77 77  
C          
C     WWTYP WHENEQ TYPANFRAGEN              
C       OPEN ANFRAGEL4       — 77 —  
C     AFKEY4 SETGT ANFRAGEL4       — 77 —  
C   N77 AFKEY4 READPE ANFRAGEL4       — 77 77  
C       ENDSL                
C          
C       MOVEL(P) TDTOP TDVALIGN            
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C     ROWS ANDLT MAXANFRAGEN              
C     DATETIME5 COMP AFDAT       — 75 —  
C       EXSR ZEILEANFRAGE              
C   78   EXSR ZEILEANFRAGE2              
C       ENDDO                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C       EXSR ZEILEANFRAGEX              
C       EXSR TABLEX              
C          
C *     --------------------------------------
C *     Schrift setzen
C *     --------------------------------------
C       EVAL FONT        = FONTSAVE
C       EVAL FONTX       = FONTSAVEX
C       ENDSR                
C          
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X  
C     LISTEANFRAGE3 BEGSR                
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDBESUCH MYTITEL            
C       MOVEL(P) 'besuch.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK BESUCH            
C          
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDBESUCHNEUX MYTITEL            
C       MOVEL(P) 'besuch.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK BESUCHNEU            
C       ENDSR                
C          
  X * LISTEANFRAGEN SETGT BAR$LISTE    
  X * LISTEANFRAGEN READPE BAR$LISTE    
  X * ZEILEANFRAGE2 READPE BAR$ZEILE    
  X  
C     AFKEY2PF KLIST                
C       KFLD   MAMAN            
C       KFLD   PFAD2            
C          
  X * LISTEBESUCHER SETGT BAR$LISTE    
  X * LISTEBESUCHER READPE BAR$LISTE    
  X * LISTEANFRAGEN SETGT BAR$LISTE    
  X * LISTEANFRAGEN READPE BAR$LISTE    
  X * ZEILEANFRAGE2 READPE BAR$ZEILE    
  X  
C     AFKEY3AG KLIST                
C       KFLD   MAMAN            
C       KFLD   AGAG            
C          
  X * LISTEANFRAGEN SETGT BAR$LISTE    
  X * LISTEANFRAGEN READPE BAR$LISTE    
  X * ZEILEANFRAGE2 READPE BAR$ZEILE    
  X  
C     AFKEY4 KLIST                
C       KFLD   MAMAN            
C          
  X * ZEILEANFRAGE2 CHAIN BAR$ZEILE    
  X  
C     AGKEY1AF KLIST                
C       KFLD   MAMAN            
C       KFLD   AFAG            
C          
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     LISTESPAM$ BEGSR                
C *     --------------------------------------
C *     Werbung?
C *     --------------------------------------
C       SELECT    
C     SPAM$BOX WHENEQ AFSPAM$              
C       MOVEL(P) MYSPAM$BOX# MYSPAM$            
C       OTHER                
C       MOVEL(P) MYSPAM$# MYSPAM$            
C       ENDSL                
C       ENDSR                
C          
  X * LISTEARTPN EXSR BAR$LISTE    
  X * LISTEFRA EXSR BAR$LISTE    
  X * LISTENNN EXSR BAR$LISTE    
  X * LISTENNN# EXSR BAR$LISTE    
  X  
C     LISTETITEL BEGSR                
C *     --------------------------------------
C *     Ändern/Ausblenden/Einblenden
C *     --------------------------------------
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C   66   MOVEL(P) '*' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL EDTITEL            
C       MOVEL(P) NANAV EDNAV            
C          
C       MOVEL(P) TYPDLT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C   66   MOVEL(P) 'X' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL DLTITEL            
C       MOVEL(P) NANAV DLNAV            
C          
C       MOVEL(P) TYPRCL NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C   66   MOVEL(P) 'O' MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL RCTITEL            
C       MOVEL(P) NANAV RCNAV            
C          
C     NOCHAT IFNE ARCHAT              
C     DATETIME SUBDUR EDTMIN:*MN DATETIMEEDT            
C       ELSE                
C     DATETIME SUBDUR EDTYEAR:*Y DATETIMEEDT            
C       ENDIF                
C       ENDSR                
C          
  X * LISTESRC CALL BAR$LISTE    
  X * LISTESRC CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEHTTPX CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X * LISTEFILES CALL BAR$LISTE    
  X  
C     QCMDPARM PLIST                
C       PARM   CMD            
C       PARM   CMDLEN            

4430 ms | Contact | Information | Aibo-Bar © 2005-2024