Form

BAR$FORM (RPGLE)



  X * FORMLISTE BEGSR BAR$FORM 47  
  X * FORM BEGSR BAR$FORM 35  
  X * FORMSTYLES BEGSR BAR$FORM 69  
  X * FORMSUCHE1 BEGSR BAR$FORM 25  
  X * FORMSUCHE2 BEGSR BAR$FORM 64  
  X * FORMFRE1 BEGSR BAR$FORM 18  
  X * FORMFRI1 BEGSR BAR$FORM 15  
  X * FORMFRT1 BEGSR BAR$FORM 15  
  X * FORMFILE1 BEGSR BAR$FORM 13  
  X * FORMPARENT BEGSR BAR$FORM 14  
  X * FORMOTHER BEGSR BAR$FORM 12  
  X * FORMX BEGSR BAR$FORM 8  
  X * FORMLEER BEGSR BAR$FORM 7  
  X * FORMRUB BEGSR BAR$FORM 117  
  X * FORMSMILY BEGSR BAR$FORM 102  
  X * FORMNEUMIT BEGSR BAR$FORM 75  
  X * FORMNEUPWD BEGSR BAR$FORM 47  
  X * FORMCHGPWD BEGSR BAR$FORM 83  
  X * FORMCHGMAIL BEGSR BAR$FORM 69  
  X * FORMLOGIN BEGSR BAR$FORM 80  
  X * FORMLOGIN3 BEGSR BAR$FORM 16  
  X * FORMLOGOUT BEGSR BAR$FORM 7  
  X * FORMSUCHE BEGSR BAR$FORM 39  
  X * FORMFRE BEGSR BAR$FORM 44  
  X * FORMFRI BEGSR BAR$FORM 58  
  X * FORMFRT BEGSR BAR$FORM 52  
  X * FORMMIT BEGSR BAR$FORM 531  
  X * FORMARTPN BEGSR BAR$FORM 336  
  X * FORMFILE$ BEGSR BAR$FORM 31  
  X * FORMNFM BEGSR BAR$FORM 19  
  X * FORMCHAT BEGSR BAR$FORM 19  
  X * FORMSERIE BEGSR BAR$FORM 19  
  X * FORMREMOVE BEGSR BAR$FORM 19  
  X * FORMUPLOAD BEGSR BAR$FORM 34  
  X * FORMAW BEGSR BAR$FORM 59  
  X * FORMNEUFILE BEGSR BAR$FORM 77  
  X * FORMEDTIDX BEGSR BAR$FORM 133  
  X * FORMEDTKAL BEGSR BAR$FORM 119  
  X * FORMEDTNAV BEGSR BAR$FORM 105  
  X * LINKTEXTDUMMY BEGSR BAR$FORM 11  
  X * LINKTEXT BEGSR BAR$FORM 8  
  X * LINKTEXTMIT BEGSR BAR$FORM 8  
  X * LINKTEXTMITCOL BEGSR BAR$FORM 10  
  X * LINKTEXTHIDDEN BEGSR BAR$FORM 11  
  X * LINKTEXTNAME BEGSR BAR$FORM 10  
  X * LINKTEXTWER BEGSR BAR$FORM 10  
  X * LINKTEXTWER2X BEGSR BAR$FORM 10  
  X * LINKPWD BEGSR BAR$FORM 8  
  X * LINKPWD2 BEGSR BAR$FORM 8  
  X * LINKPWDWER BEGSR BAR$FORM 10  
  X * LINKMAIL BEGSR BAR$FORM 9  
  X * LINKMAIL2 BEGSR BAR$FORM 9  
  X * LINKCHANGE BEGSR BAR$FORM 11  
  X * LINKCHANGEBLUR BEGSR BAR$FORM 9  
  X * LINKSP BEGSR BAR$FORM 6  
  X * LINKPTZFLIP BEGSR BAR$FORM 20  
  X * LINKINPUT BEGSR BAR$FORM 13  
  X * LINKINPUT2 BEGSR BAR$FORM 17  
  X * LINKRADIO BEGSR BAR$FORM 7  
  X * LINKCHECKBOX BEGSR BAR$FORM 7  
  X * LINKINPUTVAL BEGSR BAR$FORM 15  
  X * LINKLABEL BEGSR BAR$FORM 19  
  X * LINKSUBMIT BEGSR BAR$FORM 15  
  X * LINKSUBMITX BEGSR BAR$FORM 15  
  X * LINKSUBMIT1 BEGSR BAR$FORM 15  
  X * LINKSUBMIT2 BEGSR BAR$FORM 15  
  X * LINKLOGIN BEGSR BAR$FORM 15  
  X * LINKWER BEGSR BAR$FORM 14  
  X  
  X * NAKEY1WW KLIST BAR$FORM 3  
  X  
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKNEUPWD EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKNEUPWD EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKNEUPWD EXSR BAR$LINK    
  X * LINKNEUMIT EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * LISTEFRW EXSR BAR$LISTE    
  X * TABLE EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE8 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLCENTER EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE4 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE4 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLNOWRAP EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE4 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLB EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  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 * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLEX 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 * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL5 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLEX 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 * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL5 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLEX 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 * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL5 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLEX 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 * MYTYPLABEL EXSR BAR$NAV    
  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 * MYTYPLABEL EXSR BAR$NAV    
  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 * MYTYPLABEL EXSR BAR$NAV    
  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 * MYTYPLABEL EXSR BAR$NAV    
  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 * MYTYPLABEL EXSR BAR$NAV    
  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 * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL4 EXSR BAR$TABLE    
  X * COL2 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLTABLECOLOR EXSR BAR$TABLE    
  X * COLCOLORMIT EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLE12 EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTER7B EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLE12 EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLECOLORS EXSR BAR$TABLE    
  X * COLCOLORS1 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COLCOLORS2 EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLB EXSR BAR$TABLE    
  X * COLTABLEMIT EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * ROWXROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL4 EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL6 EXSR BAR$TABLE    
  X * COL3 EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTERMIT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL12 EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLECENTER EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLECENTER EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKMIME EXSR BAR$LINK    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LINKINSTALL1 EXSR BAR$LINK    
  X * LINKUPLOAD1 EXSR BAR$LINK    
  X * LINKINSTALL2 EXSR BAR$LINK    
  X * LINKUPLOAD2 EXSR BAR$LINK    
  X * LINKINSTALL3 EXSR BAR$LINK    
  X * LINKUPLOAD3 EXSR BAR$LINK    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLTEXTCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLE EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPLABEL EXSR BAR$NAV    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLTABLEOPTION EXSR BAR$TABLE    
  X * COLTABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPVALUE EXSR BAR$NAV    
  X * COLCENTER EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COL EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * LABELCOLOR EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * LISTE CAS BAR$LISTE    
  X  
C     FORMLISTE BEGSR                
C     PFADXX IFEQ HTML              
C *     --------------------------------------
C *     Seiteninhalt ausgeben
C *     --------------------------------------
C     WWTYP CASEQ TYPNEUPN FORMARTPN            
C     WWTYP CASEQ TYPNEUPN2 FORMARTPN            
C     WWTYP CASEQ TYPNEUART FORMARTPN            
C     WWTYP CASEQ TYPNEUART2 FORMARTPN            
C     WWTYP CASEQ TYPNEUMIT FORMMIT            
C     WWTYP CASEQ TYPNEURUB FORMRUB            
C     WWTYP CASEQ TYPNEUSMILY FORMSMILY            
C     WWTYP CASEQ TYPNEUAW FORMAW            
C          
C     WWTYP CASEQ TYPEDTPN FORMARTPN            
C     WWTYP CASEQ TYPEDTPN2 FORMARTPN            
C     WWTYP CASEQ TYPEDTART FORMARTPN            
C     WWTYP CASEQ TYPEDTART2 FORMARTPN            
C     WWTYP CASEQ TYPEDTMIT FORMMIT            
C     WWTYP CASEQ TYPEDTRUB FORMRUB            
C     WWTYP CASEQ TYPEDTSMILY FORMSMILY            
C     WWTYP CASEQ TYPEDTAW FORMAW            
C          
C     WWTYP CASEQ TYPNEUFILE FORMNEUFILE            
C     WWTYP CASEQ TYPNEUFILE2 FORMNEUFILE            
C          
C     WWTYP CASEQ TYPEDTNAV FORMEDTNAV            
C     WWTYP CASEQ TYPEDTIDX FORMEDTIDX            
C     WWTYP CASEQ TYPEDTKAL FORMEDTKAL            
C          
C     WWTYP CASEQ TYPLOGIN FORMLOGIN            
C     WWTYP CASEQ TYPLOGIN2 FORMLOGIN            
C     WWTYP CASEQ TYPLOGIN3 FORMLOGIN3            
C     WWTYP CASEQ TYPLOGOUT FORMLOGOUT            
C          
C     WWTYP CASEQ TYPNEUPWD FORMNEUPWD            
C     WWTYP CASEQ TYPCHGPWD FORMCHGPWD            
C     WWTYP CASEQ TYPCHGMAIL FORMCHGMAIL            
C          
C     WWTYP CASEQ TYPFRE FORMFRE            
C     WWTYP CASEQ TYPFRI FORMFRI            
C     WWTYP CASEQ TYPFRT FORMFRT            
C          
C       CAS   FORMLEER            
C       ENDCS                
C       ENDIF                
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     FORM BEGSR                
C       EXSR FORMSTYLES              
C *     --------------------------------------
C *     Formular öffnen
C *     --------------------------------------
C     WWTYP CASEQ TYPNEUPN FORMFILE1            
C     WWTYP CASEQ TYPNEUPN2 FORMFILE1            
C     WWTYP CASEQ TYPNEUART FORMFILE1            
C     WWTYP CASEQ TYPNEUART2 FORMFILE1            
C     WWTYP CASEQ TYPNEURUB FORMFILE1            
C     WWTYP CASEQ TYPNEUSMILY FORMFILE1            
C          
C     WWTYP CASEQ TYPEDTPN FORMFILE1            
C     WWTYP CASEQ TYPEDTPN2 FORMFILE1            
C     WWTYP CASEQ TYPEDTART FORMFILE1            
C     WWTYP CASEQ TYPEDTART2 FORMFILE1            
C     WWTYP CASEQ TYPEDTRUB FORMFILE1            
C     WWTYP CASEQ TYPEDTSMILY FORMFILE1            
C          
C     WWTYP CASEQ TYPNEUFILE FORMFILE1            
C     WWTYP CASEQ TYPNEUFILE2 FORMFILE1            
C          
C     WWTYP CASEQ TYPEDTNAV FORMFILE1            
C     WWTYP CASEQ TYPEDTIDX FORMFILE1            
C     WWTYP CASEQ TYPEDTKAL FORMFILE1            
C          
C     WWTYP CASEQ TYPFRE FORMFRE1            
C     WWTYP CASEQ TYPFRI FORMFRI1            
C     WWTYP CASEQ TYPFRT FORMFRT1            
C          
C     TARGET CASEQ TARGETPARENT FORMPARENT            
C       CAS   FORMOTHER            
C       ENDCS                
C       EXSR WRSTOUT              
C       ENDSR                
C          
  X * FORM EXSR BAR$FORM    
  X * FORMSUCHE1 EXSR BAR$FORM    
  X  
C     FORMSTYLES BEGSR                
C *     --------------------------------------
C *     Stil für Eingabefelder setzen
C *     --------------------------------------
C   63   EVAL AUTOCOMPLETE   = COMPLETEOFF
C   62   EVAL AUTOCAPITALIZE = CAPITALIZEOFF
C          
C *     --------------------------------------
C *     Stil für Eingabefelder setzen
C *     --------------------------------------
C       EVAL BUF =             'color:'+FATEXT+'; +
C               background-color:'+FAROW2+';'
C     *IN64 IFEQ *OFF              
C     *BLANKS COMP MOBILE       — — 78  
C   78   EVAL BUF2 = '15px'
C   N78   EVAL BUF2 = '22px'
C       EVAL BUF  =
C       BUF  + ' width:100%; +
C                width:expression(''auto''); +
C        -webkit-box-sizing:border-box; +
C           -moz-box-sizing:border-box; +
C                box-sizing:border-box; +
C               font-family:inherit; +
C               font-size:'+BUF2+';'
C       ENDIF                
C       EVAL INPUTSTYLE     = ' style="'+BUF+'"'
C       EVAL TEXTAREASTYLE  = ' style="'+BUF+' '+
C                       BREAKWORD+'"'
C *     --------------------------------------
C *     Stil für Sendefelder setzen
C *     --------------------------------------
C     *IN61 IFEQ *ON              
C     WWTYP ORNE TYPFRE              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRT              
C       EVAL BUF  =            'color:'+FATEXT+'; +
C               background-color:'+FABGCOLOR+';'
C       ELSE                
C       EVAL BUF  =            'color:'+FATEXT+'; +
C               background-color:'+FAROWT+';'
C       ENDIF                
C     *IN64 IFEQ *OFF              
C     *BLANKS COMP MOBILE       — — 78  
C   78   EVAL BUF2 = '14px'
C   N78   EVAL BUF2 = '15px'
C       EVAL BUFV = 'font-family:inherit; +
C               font-weight:bold; +
C               font-size:'+BUF2+';'
C       EVAL BUF  =
C       BUF  + ' ' + BUFV
C       ELSE                
C       EVAL BUFV = ''
C       ENDIF                
C     *BLANKS IFNE MOBILE              
C       EVAL BUFV =
C       BUFV + ' width:100%; +
C                width:expression(''auto'');'
C       ENDIF                
C          
C       EVAL FILESTYLE      = ' style="'+BUFV+'"'
C       EVAL BUTTONSTYLE    = ' style="'+BUF +'"'
C          
C *     --------------------------------------
C *     Zeichensatz einstellen
C *     --------------------------------------
C       EVAL FORMCHARSET = ' accept-charset="'+
C            %TRIM(UTF8) +'"'
C       SETON         — 24 —  
C       ENDSR                
C          
  X * FORMSUCHE EXSR BAR$FORM    
  X  
C     FORMSUCHE1 BEGSR                
C       EXSR FORMSTYLES              
C *     --------------------------------------
C *     Eingabe Suche
C *     --------------------------------------
C     WWTYP IFEQ TYPIDX              
C       EVAL BUF = '§§+
C       <form action="'+'./'+
C           %TRIM(QUERY)   +'"'+
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ELSE                
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(ELEMENT) +
C           %TRIM(PFADX)   +
C           %TRIM(QUERY)   +'"'+
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDIF                
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Versteckte Felder
C *     --------------------------------------
C       EXSR FORMSUCHE2              
C       ENDSR                
C          
  X * FORMSUCHE1 EXSR BAR$FORM    
  X  
C     FORMSUCHE2 BEGSR                
C *     --------------------------------------
C *     Versteckte Felder
C *     --------------------------------------
C       CLEAR   BUF            
C          
C *     --------------------------------------
C *     Session mitgeben
C *     --------------------------------------
C     SIDCOOKIE IFNE BESID              
C     *BLANKS ANDNE BESID              
C       MOVEL(P) BESID MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="sid" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Debug-Modus mitgeben
C *     --------------------------------------
C     DEBUGCOOKIE IFNE DEBUG              
C     DEBUG0 ANDNE DEBUG              
C     *BLANKS ANDNE DEBUG              
C       MOVEL(P) DEBUG MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="debug" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Sprache mitgeben
C *     --------------------------------------
C     SPRACHECOOKIE IFNE SPRACHE              
C     MASPS ANDNE SPRACHE              
C     *BLANKS ANDNE SPRACHE              
C       MOVEL(P) SPRACHE MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="sprache" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Schmal mitgeben
C *     --------------------------------------
C     SCHMAL0 IFNE SCHMAL              
C     *BLANKS ANDNE SCHMAL              
C       MOVEL(P) SCHMAL MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="schmal" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Versteckte Felder ausgeben
C *     --------------------------------------
C     *BLANKS IFNE BUF              
C       EVAL BUF = '§§' + BUF
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * FORM CASEQ BAR$FORM    
  X  
C     FORMFRE1 BEGSR                
C       MOVEL(P) TYPFRD NATYP            
C       EXSR NATYPNAV              
C *     --------------------------------------
C *     Eingabe im Chat
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(NANAV)   +
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'" +
C             target="'+%TRIM(NANAV)   +'" +
C           onsubmit="window.setTimeout+
C              (''if ( parent.setfocus) focus()'', +
C                          100)"'+
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORM CASEQ BAR$FORM    
  X  
C     FORMFRI1 BEGSR                
C       MOVEL(P) TYPFRD NATYP            
C       EXSR NATYPNAV              
C *     --------------------------------------
C *     Anmelden am Chat
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(NANAV)   +
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'" +
C             target="'+%TRIM(NANAV)   +'"'+
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORM CASEQ BAR$FORM    
  X  
C     FORMFRT1 BEGSR                
C       MOVEL(P) TYPFRD NATYP            
C       EXSR NATYPNAV              
C *     --------------------------------------
C *     Ton ein/aus im Chat
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(NANAV)   +
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'" +
C             target="'+%TRIM(NANAV)   +'"'+
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X * FORM CASEQ BAR$FORM    
  X  
C     FORMFILE1 BEGSR                
C *     --------------------------------------
C *     Artikel/Nachricht/...
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(ELEMENT) +
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'" +
C            enctype="'+MULTIPART      +'"'+
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORM CASEQ BAR$FORM    
  X  
C     FORMPARENT BEGSR                
C *     --------------------------------------
C *     Parent
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(PFADREL1)+
C           %TRIM(ELEMENT2)+
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'"'+
C           %TRIMR(TARGET) +
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORM CAS BAR$FORM    
  X  
C     FORMOTHER BEGSR                
C *     --------------------------------------
C *     Andere
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <form action="'+%TRIM(ELEMENT) +
C           %TRIM(PFADX)   +
C           %TRIM(QUERYSUCHE)  +'"'+
C           METHODPOST     +
C           FORMCHARSET    +
C           FORMSTYLE      +'>'
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     FORMX BEGSR                
C *     --------------------------------------
C *     Formular schließen
C *     --------------------------------------
C       EVAL BUF = '</form>'
C       EXSR WRSTOUT              
C       SETOFF         — — 24  
C       ENDSR                
C          
  X * FORMLISTE CAS BAR$FORM    
  X  
C     FORMLEER BEGSR                
C *     --------------------------------------
C *     Leer
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMRUB BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C     WWTYP IFEQ TYPNEURUB              
C       EXSR ROW              
C       MOVEL(P) RUBRIK MYTITEL            
C     *ZERO ADD RUBRIKLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'rubrik' LINKADDNAME            
C **     MOVEL(P) SPRUBRIK LINKADDLABEL            
C       MOVEL(P) 'SPRUBRIK' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C       EXSR FORMFILE$              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *BLANKS IFNE RUFILEX              
C     '-' ANDNE RUFILEX              
C       EXSR FORMREMOVE              
C       ENDIF                
C *     --------------------------------------
C *     Serie
C *     --------------------------------------
C       EXSR FORMSERIE              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C          
C *     --------------------------------------
C *     Anlegen / Ändern
C *     --------------------------------------
C       EXSR ROW              
C     WWTYP IFEQ TYPNEURUB              
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       ELSE                
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       ENDIF                
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C       EXSR FORMUPLOAD              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMSMILY BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUSMILY              
C       EXSR ROW              
C       MOVEL(P) SMILY MYTITEL            
C     *ZERO ADD SMILYLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'smily' LINKADDNAME            
C **     MOVEL(P) SPSMILY LINKADDLABEL            
C       MOVEL(P) 'SPSMILY' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C       EXSR FORMFILE$              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *BLANKS IFNE SMFILEX              
C     '-' ANDNE SMFILEX              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       EXSR FORMREMOVE              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Anlegen / Ändern
C *     --------------------------------------
C       EXSR ROW              
C     WWTYP IFEQ TYPNEUSMILY              
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       ELSE                
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       ENDIF                
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C       EXSR FORMUPLOAD              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMMIT EXSR BAR$FORM    
  X  
C     FORMNEUMIT BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Mitmachen
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Angezeigter Name
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPANZEIGE LINKADDLABEL            
C       MOVEL(P) 'SPANZEIGE' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTNAME              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Benutzername
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) MITGLIED MYTITEL            
C     *ZERO ADD MITGLIEDLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'mitglied' LINKADDNAME            
C **     MOVEL(P) SPMITGLIED LINKADDLABEL            
C       MOVEL(P) 'SPMITGLIED' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     E-Mail-Adresse
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) MAIL MYTITEL            
C     *ZERO ADD MAILLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'mail' LINKADDNAME            
C **     MOVEL(P) SPMAIL LINKADDLABEL            
C       MOVEL(P) 'SPMAIL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKMAIL              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Anlegen
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMNEUPWD BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Neues Kennwort
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Benutzername
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) MITGLIED MYTITEL            
C     *ZERO ADD MITGLIEDLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'mitglied' LINKADDNAME            
C **     MOVEL(P) SPMITGLIED LINKADDLABEL            
C       MOVEL(P) 'SPMITGLIED' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Neues Kennwort per E-Mail
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SNKENNWORT LINKADDVALUE            
C       MOVEL(P) 'SNKENNWORT' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMCHGPWD BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Kennwort ändern
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Kennwort
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORT1LEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'kennwort1' LINKADDNAME            
C **     MOVEL(P) S1KENNWORT LINKADDLABEL            
C       MOVEL(P) 'S1KENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWD2              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Neues Kennwort
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORT2LEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'kennwort2' LINKADDNAME            
C **     MOVEL(P) S2KENNWORT LINKADDLABEL            
C       MOVEL(P) 'S2KENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWD2              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Neues Kennwort nochmals
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORT3LEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'kennwort3' LINKADDNAME            
C **     MOVEL(P) S3KENNWORT LINKADDLABEL            
C       MOVEL(P) 'S3KENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWD2              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Kennwort vergessen?
C *     --------------------------------------
C       EXSR ROW              
C       EXSR LINKNEUPWD              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMCHGMAIL BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     E-Mail-Adresse ändern
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Kennwort
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORT1LEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'kennwort1' LINKADDNAME            
C **     MOVEL(P) S1KENNWORT LINKADDLABEL            
C       MOVEL(P) 'S1KENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWD2              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     E-Mail-Adresse
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) MAIL MYTITEL            
C     *ZERO ADD MAILLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'mail' LINKADDNAME            
C **     MOVEL(P) SPMAIL LINKADDLABEL            
C       MOVEL(P) 'SPMAIL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKMAIL2              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Kennwort vergessen?
C *     --------------------------------------
C       EXSR ROW              
C       EXSR LINKNEUPWD              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMLOGIN BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Benutzername
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) BENUTZER MYTITEL            
C     *ZERO ADD BENUTZERLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'benutzer' LINKADDNAME            
C **     MOVEL(P) SPBENUTZER LINKADDLABEL            
C       MOVEL(P) 'SPBENUTZER' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Kennwort
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORTLEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'kennwort' LINKADDNAME            
C **     MOVEL(P) SPKENNWORT LINKADDLABEL            
C       MOVEL(P) 'SPKENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWD              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANMELDEN LINKADDVALUE            
C       MOVEL(P) 'SPANMELDEN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKLOGIN              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Mitmachen / Kennwort vergessen?
C *     --------------------------------------
C       EXSR ROW              
C       EXSR LINKNEUPWD              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKNEUMIT              
C       CAT '|' :1 LINK            
C       CAT LINK2 :1 LINK            
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C *     --------------------------------------
C *     Wer ist im Chat
C *     --------------------------------------
C     NOPN IFEQ ARPN              
C     NOCHAT ANDNE ARCHAT              
C       EXSR LISTEFRW              
C       ENDIF                
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMLOGIN3 BEGSR                
C *     --------------------------------------
C *     Zutritt verboten (Privat)
C *     --------------------------------------
C       EXSR TABLE              
C     *ZERO ADD 1 ROWROWSMAX            
C       EXSR ROW              
C **     MOVEL(P) SPPRIVAT MYTITEL            
C       MOVEL(P) 'SPPRIVAT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMLOGOUT BEGSR                
C *     --------------------------------------
C *     Abmelden
C *     --------------------------------------
C       EXSR TABLE              
C       EXSR TABLEX              
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     FORMSUCHE BEGSR                
C       EXSR FORMSUCHE1              
C       MOVEL(P) ABSTAND2 ABSTAND            
C *     --------------------------------------
C *     Eingabe Suche
C *     --------------------------------------
C       EXSR TABLE8              
C       EXSR ROW              
C *     --------------------------------------
C *     Eingabefeld für Suche anzeigen
C *     --------------------------------------
C       MOVEL(P) SUCHE MYTITEL            
C     *ZERO ADD SUCHELEN LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'suche' LINKADDNAME            
C       MOVEL(P) '' LINKADDLABEL            
C       EXSR LINKTEXTMIT              
C       EXSR COLCENTER              
C *     --------------------------------------
C *     Suchen
C *     --------------------------------------
C **     MOVEL(P) SPSUCHEN LINKADDVALUE            
C       MOVEL(P) 'SPSUCHEN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMITX              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       MOVEL(P) ABSTAND1 ABSTAND            
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMFRE BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Eingabe Chat
C *     --------------------------------------
C       EXSR TABLE4              
C       EXSR ROW              
C *     --------------------------------------
C *     Chat breit/schmal umschalten
C *     --------------------------------------
C       EXSR LINKWER              
C       EXSR LINKSP              
C       EXSR COLNOWRAP              
C *     --------------------------------------
C *     Eingabefeld für Chat anzeigen
C *     --------------------------------------
C       EVAL BUFV       = %TRIM(TEXT)
C     *ZERO ADD 2000 LINKADDLEN            
C     *ZERO ADD 35 LINKADDSIZE            
C       MOVEL(P) 'text' LINKADDNAME            
C       MOVEL(P) '' LINKADDLABEL            
C       EXSR LINKTEXTWER2X              
C       EXSR COLINPUTBUFV              
C *     --------------------------------------
C *     Los
C *     --------------------------------------
C **     MOVEL(P) SPLOS LINKADDVALUE            
C       MOVEL(P) 'SPLOS' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMFRI BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Anmelden Chat
C *     --------------------------------------
C       EXSR TABLE4              
C       EXSR ROW              
C *     --------------------------------------
C *     Chat breit/schmal umschalten
C *     --------------------------------------
C       EXSR LINKWER              
C       EXSR LINKSP              
C       EXSR COLNOWRAP              
C *     --------------------------------------
C *     Benutzername
C *     --------------------------------------
C       MOVEL(P) BENUTZER MYTITEL            
C     *ZERO ADD BENUTZERLEN LINKADDLEN            
C     *ZERO ADD 15 LINKADDSIZE            
C       MOVEL(P) 'benutzer' LINKADDNAME            
C **     MOVEL(P) SPBENUTZER LINKADDLABEL            
C       MOVEL(P) 'SPBENUTZER' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTWER              
C       EXSR COLCENTER              
C *     --------------------------------------
C *     Kennwort
C *     --------------------------------------
C       CLEAR   MYTITEL            
C     *ZERO ADD KENNWORTLEN LINKADDLEN            
C     *ZERO ADD 15 LINKADDSIZE            
C       MOVEL(P) 'kennwort' LINKADDNAME            
C **     MOVEL(P) SPKENNWORT LINKADDLABEL            
C       MOVEL(P) 'SPKENNWORT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKPWDWER              
C       EXSR COLCENTER              
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C **     MOVEL(P) SPANMELDEN LINKADDVALUE            
C       MOVEL(P) 'SPANMELDEN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMFRT BEGSR                
C     *IN66 IFEQ *OFF              
C     NOMIT ORNE BEMIT              
C       EXSR FORM              
C *     --------------------------------------
C *     Ton im Chat
C *     --------------------------------------
C       EXSR TABLE4              
C       EXSR ROW              
C *     --------------------------------------
C *     Ton ein/aus
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C **     MOVEL(P) SPTON MYTITEL            
C       MOVEL(P) 'SPTON' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C   N66   EXSR LINKSP              
C       EXSR COLB              
C **     MOVEL(P) SPEIN LINKADDVALUE            
C       MOVEL(P) 'SPEIN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT1              
C   N66   EXSR LINKSP              
C       EXSR COL              
C **     MOVEL(P) SPAUS LINKADDVALUE            
C       MOVEL(P) 'SPAUS' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT2              
C   N66   EXSR LINKSP              
C       EXSR COL              
C   N66   EXSR LINKTEXTDUMMY              
C   N66   EXSR LINKSP              
C   N66   EXSR COL              
C       ELSE                
C   N66   EXSR LINKSP              
C       EXSR COLB              
C       ENDIF                
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDIF                
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMMIT BEGSR                
C     WWTYP IFEQ TYPNEUMIT              
C       EXSR FORMNEUMIT              
C       ELSE                
C       EXSR FORM              
C *     --------------------------------------
C *     Mitglied
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COLB              
C       EXSR COL12B              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Smartphone oder Text-Browser
C *     --------------------------------------
C     *IN66 COMP *ON       — — 73  
C   N73 *IN68 COMP *ON       — — 73  
C          
C *     --------------------------------------
C *     Smartphone und Text-Browser
C *     --------------------------------------
C     *IN66 COMP *ON       — — 74  
C   74 *IN68 COMP *ON       — — 74  
C          
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C   68   MOVEL(P) NBSP LINK7            
C   N68   MOVEL(P) NBSP2 LINK7            
C          
C *     --------------------------------------
C *     Geschlecht
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPMW MYTITEL            
C       MOVEL(P) 'SPMW' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   N68   EXSR COLTABLE12              
C     LOWER:UPPER XLATE(P) MW MYMW            
C *     --------------------------------------
C *     Männlich
C *     --------------------------------------
C       MOVEL(P) 'mw-m' LINKADDID            
C       MOVEL(P) 'mw' LINKADDNAME            
C       MOVEL(P) 'm' LINKADDVALUE            
C **     MOVEL(P) SPMWM LINKADDLABEL            
C       MOVEL(P) 'SPMWM' MYTYP            
C       EXSR MYTYPLABEL              
C     'M' COMP MYMW       — — 77  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   66   EXSR ROWXROW              
C   74   EXSR COL              
C *     --------------------------------------
C *     Weiblich
C *     --------------------------------------
C       MOVEL(P) 'mw-w' LINKADDID            
C       MOVEL(P) 'mw' LINKADDNAME            
C       MOVEL(P) 'w' LINKADDVALUE            
C **     MOVEL(P) SPMWW LINKADDLABEL            
C       MOVEL(P) 'SPMWW' MYTYP            
C       EXSR MYTYPLABEL              
C     'W' COMP MYMW       — — 77  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   66   EXSR ROWXROW              
C   74   EXSR COL              
C *     --------------------------------------
C *     Neutral
C *     --------------------------------------
C       MOVEL(P) 'mw-x' LINKADDID            
C       MOVEL(P) 'mw' LINKADDNAME            
C       MOVEL(P) 'x' LINKADDVALUE            
C **     MOVEL(P) SPMWX LINKADDLABEL            
C       MOVEL(P) 'SPMWX' MYTYP            
C       EXSR MYTYPLABEL              
C     'X' COMP MYMW       — — 77  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   66   EXSR ROWXROW              
C   74   EXSR COL              
C *     --------------------------------------
C *     Keine Angabe
C *     --------------------------------------
C       MOVEL(P) 'mw-n' LINKADDID            
C       MOVEL(P) 'mw' LINKADDNAME            
C       MOVEL(P) 'n' LINKADDVALUE            
C **     MOVEL(P) SPMWN LINKADDLABEL            
C       MOVEL(P) 'SPMWN' MYTYP            
C       EXSR MYTYPLABEL              
C     'M' COMP MYMW       77 77 —  
C   77 'W' COMP MYMW       77 77 —  
C   77 'X' COMP MYMW       77 77 —  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANZEIGE MYTITEL            
C       MOVEL(P) 'SPANZEIGE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   N68   EXSR COLTABLE12              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 15 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPANZEIGE LINKADDLABEL            
C       MOVEL(P) 'SPANZEIGE' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL5              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   68   EXSR COL6              
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPSMILY1 MYTITEL            
C       MOVEL(P) 'SPSMILY1' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   N68   EXSR COLTABLE12              
C       MOVEL(P) SMILY1 MYTITEL            
C     *ZERO ADD SMILY1LEN LINKADDLEN            
C     *ZERO ADD 15 LINKADDSIZE            
C       MOVEL(P) 'smily1' LINKADDNAME            
C **     MOVEL(P) SPSMILY1 LINKADDLABEL            
C       MOVEL(P) 'SPSMILY1' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL5              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   68   EXSR COL6              
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C *     --------------------------------------
C *     Geburtstag
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPGEB MYTITEL            
C       MOVEL(P) 'SPGEB' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   N68   EXSR COLTABLE12              
C       MOVEL(P) GEB MYTITEL            
C     *ZERO ADD GEBLEN LINKADDLEN            
C     *ZERO ADD 15 LINKADDSIZE            
C       MOVEL(P) 'geb' LINKADDNAME            
C **     MOVEL(P) SPGEB LINKADDLABEL            
C       MOVEL(P) 'SPGEB' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL5              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C **     MOVEL(P) SPDATEUR MYTITEL            
C       MOVEL(P) 'SPDATEUR' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COL6              
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C *     --------------------------------------
C *     Web
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPWEB MYTITEL            
C       MOVEL(P) 'SPWEB' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) WEB MYTITEL            
C     *ZERO ADD WEBLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'web' LINKADDNAME            
C **     MOVEL(P) SPWEB LINKADDLABEL            
C       MOVEL(P) 'SPWEB' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beruf
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPBERUF MYTITEL            
C       MOVEL(P) 'SPBERUF' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) BERUF MYTITEL            
C     *ZERO ADD BERUFLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'beruf' LINKADDNAME            
C **     MOVEL(P) SPBERUF LINKADDLABEL            
C       MOVEL(P) 'SPBERUF' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Interessen
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPHOBBY MYTITEL            
C       MOVEL(P) 'SPHOBBY' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) HOBBY MYTITEL            
C     *ZERO ADD HOBBYLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'hobby' LINKADDNAME            
C **     MOVEL(P) SPHOBBY LINKADDLABEL            
C       MOVEL(P) 'SPHOBBY' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Herkunft
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPHERKUNFT MYTITEL            
C       MOVEL(P) 'SPHERKUNFT' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) HERKUNFT MYTITEL            
C     *ZERO ADD HERKUNFTLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'herkunft' LINKADDNAME            
C **     MOVEL(P) SPHERKUNFT LINKADDLABEL            
C       MOVEL(P) 'SPHERKUNFT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPTITEL2 MYTITEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMIT              
C       EXSR COL12              
C       EXSR ROWX              
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPCOLOR MYTITEL            
C       MOVEL(P) 'SPCOLOR' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C       EXSR COLB              
C   N68   EXSR COLTABLE12              
C       MOVEL(P) COLOR MYTITEL            
C     *ZERO ADD COLORLEN LINKADDLEN            
C     *ZERO ADD 9 LINKADDSIZE            
C       MOVEL(P) 'color' LINKADDNAME            
C **     MOVEL(P) SPCOLOR LINKADDLABEL            
C       MOVEL(P) 'SPCOLOR' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXTMITCOL              
C   74   EXSR COL4              
C   N74   EXSR COL2              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C          
C     *IN68 IFEQ *OFF              
C *     --------------------------------------
C *     Farbe im Chat
C *     --------------------------------------
C       EXSR COLTABLECOLOR              
C       EXSR COLCOLORMIT              
C       EXSR COLTABLEX              
C          
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       MOVEL(P) LINK7 LINK            
C       CAT LINK7 :0 LINK            
C       ENDIF                
C       EXSR COL              
C   N74   EXSR COL              
C   N74   EXSR COL              
C   68   EXSR COL6              
C     *IN66 IFEQ *OFF              
C   N68   EXSR COLTABLE12              
C       ELSE                
C   N68   EXSR COLTABLEX              
C       ENDIF                
C   73   EXSR ROWX              
C *     --------------------------------------
C *     Ton im Chat
C *     --------------------------------------
C   73   EXSR ROW              
C **     MOVEL(P) SPSOUND MYTITEL            
C       MOVEL(P) 'SPSOUND' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK            
C   N73   EXSR COLCENTER7B              
C   N73   MOVEL(P) LINK7 LINK            
C       EXSR COLB              
C   N73   EXSR COL6              
C     *IN66 IFEQ *ON              
C   N68   EXSR COLTABLE12              
C       ENDIF                
C *     --------------------------------------
C *     Ein
C *     --------------------------------------
C       MOVEL(P) 'sound-1' LINKADDID            
C       MOVEL(P) 'sound' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPEIN LINKADDLABEL            
C       MOVEL(P) 'SPEIN' MYTYP            
C       EXSR MYTYPLABEL              
C     *BLANKS COMP SOUND       77 77 —  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C *     --------------------------------------
C *     Aus
C *     --------------------------------------
C       MOVEL(P) 'sound-0' LINKADDID            
C       MOVEL(P) 'sound' LINKADDNAME            
C       MOVEL(P) '0' LINKADDVALUE            
C **     MOVEL(P) SPAUS LINKADDLABEL            
C       MOVEL(P) 'SPAUS' MYTYP            
C       EXSR MYTYPLABEL              
C     *BLANKS COMP SOUND       — — 77  
C       EXSR LINKRADIO              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   68   EXSR COL6              
C     *IN66 IFEQ *OFF              
C   N68   EXSR COLTABLEX              
C       ENDIF                
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C *     --------------------------------------
C *     Farben im Chat
C *     --------------------------------------
C     *IN68 IFEQ *OFF              
C       EXSR ROW              
C       EXSR COLTABLECOLORS              
C       EXSR COLCOLORS1              
C   66   EXSR ROWXROW              
C       EXSR COLCOLORS2              
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C   73   EXSR COLB              
C   N68   EXSR COLTABLEMIT              
C          
C *     --------------------------------------
C *     Smilys
C *     --------------------------------------
C       MOVEL(P) 'smilys-1' LINKADDID            
C       MOVEL(P) 'smilys' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPSMILYS LINKADDLABEL            
C       MOVEL(P) 'SPSMILYS' MYTYP            
C       EXSR MYTYPLABEL              
C     *BLANKS COMP SMILYS       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   66   EXSR ROWXROW              
C   74   EXSR COL              
C *     --------------------------------------
C *     Sterne
C *     --------------------------------------
C       MOVEL(P) 'sterne-1' LINKADDID            
C       MOVEL(P) 'sterne' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPSTERNE LINKADDLABEL            
C       MOVEL(P) 'SPSTERNE' MYTYP            
C       EXSR MYTYPLABEL              
C     *BLANKS COMP STERNE       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C   66   EXSR ROWXROW              
C   74   EXSR COL              
C *     --------------------------------------
C *     Sparkle
C *     --------------------------------------
C       MOVEL(P) 'sparkle-1' LINKADDID            
C       MOVEL(P) 'sparkle' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPSPARKLE LINKADDLABEL            
C       MOVEL(P) 'SPSPARKLE' MYTYP            
C       EXSR MYTYPLABEL              
C     *BLANKS COMP SPARKLE       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C   N68   EXSR COL              
C       EXSR LINKLABEL              
C   74   EXSR COL4              
C   N74   EXSR COL              
C       MOVEL(P) LINK7 LINK            
C       EXSR COL              
C   74   EXSR COL6              
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C     *IN66 IFEQ *OFF              
C   68   EXSR COL3              
C       ENDIF                
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C   N68   EXSR COLTABLEX              
C       EXSR ROWX              
C          
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTERMIT              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR COL12              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDIF                
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMARTPN BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Artikel/Nachricht
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C     *BLANKS IFNE TEXT              
C     WWTYP OREQ TYPNEUPN              
C     WWTYP OREQ TYPEDTPN              
C     WWTYP OREQ TYPNEUART              
C     WWTYP OREQ TYPEDTART              
C       EXSR ROW              
C       EVAL BUFV       = %TRIM(TEXT)
C     *ZERO ADD TEXTLEN LINKADDLEN            
C     *ZERO ADD 10 LINKADDROWS            
C     *ZERO ADD 45 LINKADDCOLS            
C       MOVEL(P) 'text' LINKADDNAME            
C **     MOVEL(P) SPTEXT LINKADDLABEL            
C       MOVEL(P) 'SPTEXT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR COLTEXTAREA              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Aktuelles Kamerabild (Web-Adresse)
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     *BLANKS ORNE KAMERA              
C     WWTYP IFEQ TYPNEUPN2              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPEDTART2              
C       EXSR ROW              
C       MOVEL(P) KAMERA MYTITEL            
C     *ZERO ADD KAMERALEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'kamera' LINKADDNAME            
C **     MOVEL(P) SPKAMERA LINKADDLABEL            
C       MOVEL(P) 'SPKAMERA' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       SETON         — — 56  
C       EXSR COL              
C       EXSR ROWX              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Steuern / Spiegeln
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     *BLANKS ORNE KAMERA              
C     WWTYP IFEQ TYPNEUPN2              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPEDTART2              
C       EXSR ROW              
C       EXSR COLTABLECENTER              
C *     --------------------------------------
C *     Steuern
C *     --------------------------------------
C       MOVEL(P) PTZ MYTITEL            
C     *ZERO ADD PTZLEN LINKADDLEN            
C     *ZERO ADD 6 LINKADDSIZE            
C       MOVEL(P) 'ptz' LINKADDNAME            
C **     MOVEL(P) SPPTZ LINKADDLABEL            
C       MOVEL(P) 'SPPTZ' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       SETON         — — 57  
C       EXSR COL              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C *     --------------------------------------
C *     Spiegeln
C *     --------------------------------------
C       MOVEL(P) FLIP MYTITEL            
C     *ZERO ADD FLIPLEN LINKADDLEN            
C     *ZERO ADD 6 LINKADDSIZE            
C       MOVEL(P) 'flip' LINKADDNAME            
C **     MOVEL(P) SPFLIP LINKADDLABEL            
C       MOVEL(P) 'SPFLIP' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       SETON         — — 58  
C       EXSR COL              
C *     --------------------------------------
C *     Steuern / Spiegeln
C *     --------------------------------------
C     ROWROWSMAX IFLE 1              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C       ELSE                
C *     --------------------------------------
C *     Steuern / Spiegeln
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       EXSR ROW              
C       EXSR COLTABLECENTER              
C       ENDIF                
C *     --------------------------------------
C *     Steuern / Spiegeln
C *     --------------------------------------
C       EXSR LINKPTZFLIP              
C       EXSR COL              
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUPN2              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPEDTART2              
C       EXSR FORMFILE$              
C       ENDIF                
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     WWTYP IFEQ TYPEDTPN              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPEDTART              
C     WWTYP OREQ TYPEDTART2              
C     *BLANKS IFNE ARFILEX              
C     '-' ANDNE ARFILEX              
C       SETON         — — 51  
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C     WWTYP IFEQ TYPEDTPN              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPEDTART              
C     WWTYP OREQ TYPEDTART2              
C     NOPN IFEQ ARPN              
C     NONFM ORNE NFM              
C       SETON         — — 52  
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C     WWTYP IFEQ TYPEDTPN              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPEDTART              
C     WWTYP OREQ TYPEDTART2              
C     NOPN IFNE ARPN              
C     NOCHAT ORNE CHAT              
C       SETON         — — 53  
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C     *IN51 IFEQ *ON              
C     *IN52 OREQ *ON              
C     *IN53 OREQ *ON              
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *IN51 IFEQ *ON              
C       EXSR FORMREMOVE              
C       ENDIF                
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C     *IN52 IFEQ *ON              
C       EXSR FORMNFM              
C       ENDIF                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C     *IN53 IFEQ *ON              
C       EXSR FORMCHAT              
C       ENDIF                
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Anlegen / Ändern
C *     --------------------------------------
C       EXSR ROW              
C       SELECT    
C     WWTYP WHENEQ TYPNEUPN              
C     WWTYP OREQ TYPNEUPN2              
C **     MOVEL(P) SPSENDEN LINKADDVALUE            
C       MOVEL(P) 'SPSENDEN' MYTYP            
C       EXSR MYTYPVALUE              
C          
C     WWTYP WHENEQ TYPNEUART              
C     WWTYP OREQ TYPNEUART2              
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       OTHER                
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       ENDSL                
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUPN2              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPEDTART2              
C       EXSR FORMUPLOAD              
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C          
C *     --------------------------------------
C *     Versteckte Felder
C *     --------------------------------------
C       CLEAR   BUF            
C          
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C     *IN52 IFEQ *OFF              
C       MOVEL(P) NFM MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="nfm" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C     *IN53 IFEQ *OFF              
C       MOVEL(P) CHAT MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="chat" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Aktuelles Kamerabild (Web-Adresse)
C *     --------------------------------------
C     *IN56 IFEQ *OFF              
C       MOVEL(P) KAMERA MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="kamera" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Steuern
C *     --------------------------------------
C     *IN57 IFEQ *OFF              
C       MOVEL(P) PTZ MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="ptz" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Spiegeln
C *     --------------------------------------
C     *IN58 IFEQ *OFF              
C       MOVEL(P) FLIP MYTITEL            
C       EXSR MYTITELXFORM              
C       EVAL BUF =
C       BUF + '<input name="flip" +
C         type="hidden" +
C                    value="'+%TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Versteckte Felder ausgeben
C *     --------------------------------------
C     *BLANKS IFNE BUF              
C       EVAL BUF = '§§' + BUF
C       EXSR WRSTOUT              
C       ENDIF                
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     FORMFILE$ BEGSR                
C *     --------------------------------------
C *     Anlage
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPFILE MYTITEL            
C       MOVEL(P) 'SPFILE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       EVAL LINK = '<b>'+%TRIM(MYTITEL)+'</b><br> +
C               <input name="file" +
C          type="file"'+FILESTYLE+'>'
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Formate
C *     --------------------------------------
C       EXSR ROW              
C       EXSR LINKMIME              
C **     MOVEL(P) SPFORMATE MYTITEL            
C       MOVEL(P) 'SPFORMATE' MYTYP            
C       EXSR MYTYPTITEL              
C     *BLANKS IFNE MYTITEL              
C       EXSR MYTITELX              
C       CAT '<br>' :0 MYTITEL            
C       ENDIF                
C       EVAL LINK = '<b>'+%TRIM(MYTITEL)+'</b> '+
C                    %TRIM(LINK)
C       EXSR COLCENTER              
C       EXSR ROWX              
C       ENDSR                
C          
  X * FORMARTPN EXSR BAR$FORM    
  X  
C     FORMNFM BEGSR                
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C       MOVEL(P) 'nfm-1' LINKADDID            
C       MOVEL(P) 'nfm' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPNFM LINKADDLABEL            
C       MOVEL(P) 'SPNFM' MYTYP            
C       EXSR MYTYPLABEL              
C     NFM COMP NONFM       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C       EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C       ENDSR                
C          
  X * FORMARTPN EXSR BAR$FORM    
  X  
C     FORMCHAT BEGSR                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       MOVEL(P) 'chat-1' LINKADDID            
C       MOVEL(P) 'chat' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPCHAT LINKADDLABEL            
C       MOVEL(P) 'SPCHAT' MYTYP            
C       EXSR MYTYPLABEL              
C     CHAT COMP NOCHAT       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C       EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X  
C     FORMSERIE BEGSR                
C *     --------------------------------------
C *     Serie
C *     --------------------------------------
C       MOVEL(P) 'serie-1' LINKADDID            
C       MOVEL(P) 'serie' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPSERIE LINKADDLABEL            
C       MOVEL(P) 'SPSERIE' MYTYP            
C       EXSR MYTYPLABEL              
C     SERIE COMP NOSERIE       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C       EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     FORMREMOVE BEGSR                
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       MOVEL(P) 'remove-1' LINKADDID            
C       MOVEL(P) 'remove' LINKADDNAME            
C       MOVEL(P) '1' LINKADDVALUE            
C **     MOVEL(P) SPREMOVE LINKADDLABEL            
C       MOVEL(P) 'SPREMOVE' MYTYP            
C       EXSR MYTYPLABEL              
C     REMOVE COMP NOREMOVE       77 77 —  
C       EXSR LINKCHECKBOX              
C       EXSR COL              
C       EXSR COL              
C       EXSR LINKLABEL              
C       EXSR COL              
C       MOVEL(P) NBSP2 LINK            
C       EXSR COL              
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     FORMUPLOAD BEGSR                
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C     *IN61 IFEQ *ON              
C       EXSR ROW              
C       EXSR LINKINSTALL1              
C       MOVEL(P) LINK LINK1            
C       EXSR LINKUPLOAD1              
C       MOVEL(P) LINK LINK2            
C       EXSR LINKINSTALL2              
C       MOVEL(P) LINK LINK3            
C       EXSR LINKUPLOAD2              
C       MOVEL(P) LINK LINK4            
C       EXSR LINKINSTALL3              
C       MOVEL(P) LINK LINK5            
C       EXSR LINKUPLOAD3              
C       MOVEL(P) LINK LINK6            
C       CLEAR   LINK            
C **     MOVEL(P) SPUPLOAD MYTITEL            
C       MOVEL(P) 'SPUPLOAD' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       EVAL BUFV =    %TRIM(FONT)+
C           '<b>'+%TRIM(MYTITEL)+'</b><br>'+NL+
C       NL+'    '+%TRIM(LINK1)+
C       NL+'  | '+%TRIM(LINK2)+'<br>'+
C       NL+'    '+%TRIM(LINK3)+
C       NL+'  | '+%TRIM(LINK4)+
C                 %TRIM(FONTX)
C       EXSR COLTEXTCENTER              
C       EXSR ROWX              
C       ENDIF                
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMAW BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Antwort
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUFV       = %TRIM(TEXT)
C     *ZERO ADD TEXTLEN LINKADDLEN            
C     *ZERO ADD 10 LINKADDROWS            
C     *ZERO ADD 45 LINKADDCOLS            
C       MOVEL(P) 'text' LINKADDNAME            
C **     MOVEL(P) SPTEXT LINKADDLABEL            
C       MOVEL(P) 'SPTEXT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR COLTEXTAREA              
C       EXSR ROWX              
C *     --------------------------------------
C *     Anlegen / Ändern
C *     --------------------------------------
C       EXSR ROW              
C     WWTYP IFEQ TYPNEUAW              
C     NOPN IFNE ARPN              
C **     MOVEL(P) SPSENDEN LINKADDVALUE            
C       MOVEL(P) 'SPSENDEN' MYTYP            
C       EXSR MYTYPVALUE              
C       ELSE                
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       ENDIF                
C       ELSE                
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       ENDIF                
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMNEUFILE BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Textdatei anlegen / Bild hochladen
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Dateiname
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) FILENAME MYTITEL            
C     *ZERO ADD FILENAMELEN LINKADDLEN            
C     WWTYP COMP TYPNEUFILE       — — 78  
C   78 *ZERO ADD 65 LINKADDSIZE            
C   N78 *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'filename' LINKADDNAME            
C **     MOVEL(P) SPFILENAME LINKADDLABEL            
C       MOVEL(P) 'SPFILENAME' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUFILE              
C       EXSR ROW              
C       EVAL BUFV       = %TRIM(TEXT)
C     *ZERO ADD TEXTLEN LINKADDLEN            
C     *ZERO ADD 10 LINKADDROWS            
C     *ZERO ADD 65 LINKADDCOLS            
C       MOVEL(P) 'text' LINKADDNAME            
C **     MOVEL(P) SPTEXT LINKADDLABEL            
C       MOVEL(P) 'SPTEXT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR COLTEXTAREA              
C       EXSR ROWX              
C       ENDIF                
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUFILE2              
C       EXSR FORMFILE$              
C       ENDIF                
C *     --------------------------------------
C *     Anlegen
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANLEGEN LINKADDVALUE            
C       MOVEL(P) 'SPANLEGEN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUFILE2              
C       EXSR FORMUPLOAD              
C       ENDIF                
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMEDTIDX BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Hinweis
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) HINWEIS MYTITEL            
C     *ZERO ADD HINWEISLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'hinweis' LINKADDNAME            
C **     MOVEL(P) SPHINWEIS LINKADDLABEL            
C       MOVEL(P) 'SPHINWEIS' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Text
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUFV       = %TRIM(TEXT)
C     *ZERO ADD TEXTLEN LINKADDLEN            
C     *ZERO ADD 10 LINKADDROWS            
C     *ZERO ADD 45 LINKADDCOLS            
C       MOVEL(P) 'text' LINKADDNAME            
C **     MOVEL(P) SPTEXT LINKADDLABEL            
C       MOVEL(P) 'SPTEXT' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR COLTEXTAREA              
C       EXSR ROWX              
C          
C       MOVEL(P) NAVIDS NAVISAVE            
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       OPEN NAVIL1       — 77 —  
C     NAKEY1WW CHAIN NAVIL1       77 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C       EXSR FORMFILE$              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       EXSR FORMREMOVE              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C       ENDIF                
C       MOVEL(P) NAVISAVE NAVIDS            
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C       EXSR FORMUPLOAD              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMEDTKAL BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Kalender
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Kalender
C *     --------------------------------------
C       EXSR ROW              
C       EVAL BUFV       = %TRIM(KALENDER)
C     *ZERO ADD KALENDERLEN LINKADDLEN            
C     *ZERO ADD 10 LINKADDROWS            
C     *ZERO ADD 45 LINKADDCOLS            
C       MOVEL(P) 'kalender' LINKADDNAME            
C **     MOVEL(P) SPKALENDER LINKADDLABEL            
C       MOVEL(P) 'SPKALENDER' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR COLTEXTAREA              
C       EXSR ROWX              
C          
C       MOVEL(P) NAVIDS NAVISAVE            
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       OPEN NAVIL1       — 77 —  
C     NAKEY1WW CHAIN NAVIL1       77 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C       EXSR FORMFILE$              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       EXSR FORMREMOVE              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C       ENDIF                
C       MOVEL(P) NAVISAVE NAVIDS            
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C       EXSR FORMUPLOAD              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMLISTE CASEQ BAR$FORM    
  X  
C     FORMEDTNAV BEGSR                
C       EXSR FORM              
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C       EXSR TABLE              
C       DO ROWROWSMAX              
C       EXSR ROWT              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C *     --------------------------------------
C *     Titel
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL MYTITEL            
C     *ZERO ADD TITELLEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel' LINKADDNAME            
C **     MOVEL(P) SPTITEL LINKADDLABEL            
C       MOVEL(P) 'SPTITEL' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C *     --------------------------------------
C *     Beschreibung
C *     --------------------------------------
C       EXSR ROW              
C       MOVEL(P) TITEL2 MYTITEL            
C     *ZERO ADD TITEL2LEN LINKADDLEN            
C     *ZERO ADD 45 LINKADDSIZE            
C       MOVEL(P) 'titel2' LINKADDNAME            
C **     MOVEL(P) SPTITEL2 LINKADDLABEL            
C       MOVEL(P) 'SPTITEL2' MYTYP            
C       EXSR MYTYPLABEL              
C       EXSR LINKTEXT              
C       EXSR COL              
C       EXSR ROWX              
C          
C       MOVEL(P) NAVIDS NAVISAVE            
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       OPEN NAVIL1       — 77 —  
C     NAKEY1WW CHAIN NAVIL1       77 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Anlage und Formate
C *     --------------------------------------
C       EXSR FORMFILE$              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR ROW              
C       EXSR COLTABLEOPTION              
C          
C *     --------------------------------------
C *     Anlage entfernen
C *     --------------------------------------
C       EXSR FORMREMOVE              
C          
C *     --------------------------------------
C *     Auswahlfelder
C *     --------------------------------------
C       EXSR COLTABLEX              
C       EXSR ROWX              
C       ENDIF                
C       ENDIF                
C       MOVEL(P) NAVISAVE NAVIDS            
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       EXSR ROW              
C **     MOVEL(P) SPANDERN LINKADDVALUE            
C       MOVEL(P) 'SPANDERN' MYTYP            
C       EXSR MYTYPVALUE              
C       EXSR LINKSUBMIT              
C       EXSR LINKSP              
C       EXSR COLCENTER              
C       EXSR ROWX              
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C       EXSR FORMUPLOAD              
C          
C *     --------------------------------------
C *     Letzte Reihe komplett machen
C *     --------------------------------------
C     ROWROWS DOWLT ROWROWSMAX              
C       EXSR ROW              
C       EXSR COL              
C       EXSR ROWX              
C       ENDDO                
C       EXSR TABLEX              
C       EXSR FORMX              
C       ENDSR                
C          
  X * FORMEDTIDX CHAIN BAR$FORM    
  X * FORMEDTKAL CHAIN BAR$FORM    
  X * FORMEDTNAV CHAIN BAR$FORM    
  X  
C     NAKEY1WW KLIST                
C       KFLD   MAMAN            
C       KFLD   WWTYPEDT            
C          
  X * FORMFRT EXSR BAR$FORM    
  X  
C     LINKTEXTDUMMY BEGSR                
C       CLEAR   MYTITEL            
C     *ZERO ADD 1 LINKADDLEN            
C     *ZERO ADD 1 LINKADDSIZE            
C       MOVEL(P) 'dummy' LINKADDNAME            
C       MOVEL(P) '' LINKADDLABEL            
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       EXSR LINKTEXTHIDDEN              
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     LINKTEXT BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMSUCHE EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X  
C     LINKTEXTMIT BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C       EXSR LINKINPUT2              
C       ENDSR                
C          
  X * FORMMIT EXSR BAR$FORM    
  X  
C     LINKTEXTMITCOL BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C     'setcolor2' CAT(P) '(this)':0 LINKADDCHANGE            
C       EXSR LINKCHANGE              
C       EXSR LINKINPUT2              
C       ENDSR                
C          
  X * LINKTEXTDUMMY EXSR BAR$FORM    
  X  
C     LINKTEXTHIDDEN BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C     READONLY CAT(P) DISABLED:0 LINKADD            
C       EXSR LINKINPUT2              
C       EVAL LINK   = '<i'+VISIHIDDEN+'>'+
C         %TRIM(LINK)+'</i>'
C       ENDSR                
C          
  X * FORMNEUMIT EXSR BAR$FORM    
  X  
C     LINKTEXTNAME BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C     'setname' CAT(P) '(this)':0 LINKADDCHANGE            
C       EXSR LINKCHANGE              
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMFRI EXSR BAR$FORM    
  X  
C     LINKTEXTWER BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C       MOVEL(P) 'wer(this)' LINKADDCHANGE            
C       EXSR LINKCHANGE              
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMFRE EXSR BAR$FORM    
  X  
C     LINKTEXTWER2X BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'text' LINKADDTYPE            
C       MOVEL(P) 'wer(this)' LINKADDCHANGE            
C       EXSR LINKCHANGEBLUR              
C       CLEAR   LINK            
C       ENDSR                
C          
  X * FORMLOGIN EXSR BAR$FORM    
  X  
C     LINKPWD BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C       MOVEL(P) 'password' LINKADDTYPE            
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X  
C     LINKPWD2 BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       MOVEL(P) AUTOCOMPLETE LINKADD            
C       MOVEL(P) 'password' LINKADDTYPE            
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMFRI EXSR BAR$FORM    
  X  
C     LINKPWDWER BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       MOVEL(P) AUTOCOMPLETE LINKADD            
C       MOVEL(P) 'password' LINKADDTYPE            
C       MOVEL(P) 'wer(this)' LINKADDCHANGE            
C       EXSR LINKCHANGE              
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMNEUMIT EXSR BAR$FORM    
  X  
C     LINKMAIL BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       CLEAR   LINKADD            
C   62   MOVEL(P) 'email' LINKADDTYPE            
C   N62   MOVEL(P) 'text' LINKADDTYPE            
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * FORMCHGMAIL EXSR BAR$FORM    
  X  
C     LINKMAIL2 BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       MOVEL(P) AUTOCOMPLETE LINKADD            
C   62   MOVEL(P) 'email' LINKADDTYPE            
C   N62   MOVEL(P) 'text' LINKADDTYPE            
C       EXSR LINKINPUT              
C       ENDSR                
C          
  X * LINKTEXTMITCOL EXSR BAR$FORM    
  X * LINKTEXTNAME EXSR BAR$FORM    
  X * LINKTEXTWER EXSR BAR$FORM    
  X * LINKPWDWER EXSR BAR$FORM    
  X * LINKCHANGEBLUR EXSR BAR$FORM    
  X  
C     LINKCHANGE BEGSR                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C     *BLANKS IFNE LINKADDCHANGE              
C       EVAL LINKADD  =   %TRIMR(LINKADD)+
C       ' onclick="this.onchange()" +
C         onkeyup="this.onchange()" +
C        onchange="'+%TRIMR(LINKADDCHANGE)+'"'
C       ENDIF                
C       ENDSR                
C          
  X * LINKTEXTWER2X EXSR BAR$FORM    
  X  
C     LINKCHANGEBLUR BEGSR                
C       EXSR LINKCHANGE              
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       EVAL LINKADD  =   %TRIMR(LINKADD)+
C        ' onblur="window.setTimeout+
C               (''focus2()'', 300)"'
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     LINKSP BEGSR                
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       EVAL LINK = '<b>'+NBSP+'</b><br> '+ LINK
C       ENDSR                
C          
  X * FORMARTPN EXSR BAR$FORM    
  X  
C     LINKPTZFLIP BEGSR                
C **     MOVEL(P) SPPTZFLIP MYTITEL            
C       MOVEL(P) 'SPPTZFLIP' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Steuern / Spiegeln
C *     --------------------------------------
C       EVAL LINK = '<b>'+NBSP+'</b><br> +
C               <input id="ptzflip" +
C                    name="ptzflip" +
C                    type="button" +
C             onmousedown="return false" +
C                 onclick="window.setTimeout(+
C             ''alert(ptzs()); +
C               alert(flips())'', 0); +
C               return false;" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * LINKTEXT EXSR BAR$FORM    
  X * LINKTEXTNAME EXSR BAR$FORM    
  X * LINKTEXTWER EXSR BAR$FORM    
  X * LINKPWD EXSR BAR$FORM    
  X * LINKPWD2 EXSR BAR$FORM    
  X * LINKPWDWER EXSR BAR$FORM    
  X * LINKMAIL EXSR BAR$FORM    
  X * LINKMAIL2 EXSR BAR$FORM    
  X  
C     LINKINPUT BEGSR                
C       EXSR LINKINPUT2              
C       MOVEL(P) LINKADDLABEL MYTITEL            
C       EXSR MYTITELX              
C     *BLANKS IFEQ MYTITEL              
C       MOVEL(P) NBSP MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       EVAL LINK = '<b>'+%TRIMR(MYTITEL)+'</b><br> +
C                  '+%TRIMR(LINK)
C       ENDSR                
C          
  X * LINKTEXTMIT EXSR BAR$FORM    
  X * LINKTEXTMITCOL EXSR BAR$FORM    
  X * LINKTEXTHIDDEN EXSR BAR$FORM    
  X * LINKINPUT EXSR BAR$FORM    
  X  
C     LINKINPUT2 BEGSR                
C       EXSR MYTITELXFORM              
C       MOVEL(P) LINKADDNAME LINKADDID            
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       EVAL LINK =      '<input +
C              id="'+%TRIMR(LINKADDID)+'" +
C            name="'+%TRIMR(LINKADDNAME)+'" +
C            type="'+%TRIMR(LINKADDTYPE)+'" +
C           value="'+%TRIMR(MYTITEL)+'" +
C            size="'+ %CHAR(LINKADDSIZE)+'" +
C       maxlength="'+ %CHAR(LINKADDLEN) +'"'+
C                    %TRIMR(LINKADD)+
C               AUTOCAPITALIZE +
C               INPUTSTYLE +'>'
C       ENDSR                
C          
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X  
C     LINKRADIO BEGSR                
C *     --------------------------------------
C *     Auswahlfeld
C *     --------------------------------------
C       MOVEL(P) 'radio' LINKADDTYPE            
C       EXSR LINKINPUTVAL              
C       ENDSR                
C          
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X  
C     LINKCHECKBOX BEGSR                
C *     --------------------------------------
C *     Auswahlfeld
C *     --------------------------------------
C       MOVEL(P) 'checkbox' LINKADDTYPE            
C       EXSR LINKINPUTVAL              
C       ENDSR                
C          
  X * LINKRADIO EXSR BAR$FORM    
  X * LINKCHECKBOX EXSR BAR$FORM    
  X  
C     LINKINPUTVAL BEGSR                
C   77   MOVEL(P) CHECKED LINKADD            
C   N77   CLEAR   LINKADD            
C       MOVEL(P) LINKADDVALUE MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Auswahlfeld
C *     --------------------------------------
C       EVAL LINK =      '<input +
C              id="'+%TRIMR(LINKADDID)+'" +
C            name="'+%TRIMR(LINKADDNAME)+'" +
C            type="'+%TRIMR(LINKADDTYPE)+'" +
C           value="'+%TRIMR(MYTITEL)+'"'+
C                    %TRIMR(LINKADD)+'>'
C       ENDSR                
C          
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMNFM EXSR BAR$FORM    
  X * FORMCHAT EXSR BAR$FORM    
  X * FORMSERIE EXSR BAR$FORM    
  X * FORMREMOVE EXSR BAR$FORM    
  X  
C     LINKLABEL BEGSR                
C *     --------------------------------------
C *     Verweis in <label>
C *     --------------------------------------
C       MOVEL(P) '#000000' COLOR7            
C       EXSR LABELCOLOR              
C       MOVEL(P) LINKADDLABEL MYTITEL            
C       EXSR MYTITELX              
C     *BLANKS IFEQ MYTITEL              
C       MOVEL(P) NBSP MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Verweis in <label>
C *     --------------------------------------
C   N64   EVAL LINK =       %TRIMR(TAPSTYLE)+
C           '<label'+%TRIMR(TAPCOLOR)+' +
C             for="'+%TRIMR(LINKADDID)+'" +
C       onclick="">'+%TRIMR(MYTITEL)+'</label>'
C       ENDSR                
C          
  X * FORMRUB EXSR BAR$FORM    
  X * FORMSMILY EXSR BAR$FORM    
  X * FORMNEUMIT EXSR BAR$FORM    
  X * FORMNEUPWD EXSR BAR$FORM    
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMAW EXSR BAR$FORM    
  X * FORMNEUFILE EXSR BAR$FORM    
  X * FORMEDTIDX EXSR BAR$FORM    
  X * FORMEDTKAL EXSR BAR$FORM    
  X * FORMEDTNAV EXSR BAR$FORM    
  X  
C     LINKSUBMIT BEGSR                
C     *BLANKS COMP LINKADDVALUE       — — 78  
C       MOVEL(P) LINKADDVALUE MYTITEL            
C   78   MOVEL(P) '.' MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Sendefeld
C *     --------------------------------------
C       EVAL LINK = '<input id="submit" +
C                    name="submit" +
C                    type="submit" +
C             onmousedown="return false" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * FORMSUCHE EXSR BAR$FORM    
  X  
C     LINKSUBMITX BEGSR                
C     *BLANKS COMP LINKADDVALUE       — — 78  
C       MOVEL(P) LINKADDVALUE MYTITEL            
C   78   MOVEL(P) ':' MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Sendefeld
C *     --------------------------------------
C       EVAL LINK = '<input id="submit" +
C **                  name="submit" +
C                    type="submit" +
C             onmousedown="return false" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * FORMFRT EXSR BAR$FORM    
  X  
C     LINKSUBMIT1 BEGSR                
C     *BLANKS COMP LINKADDVALUE       — — 78  
C       MOVEL(P) LINKADDVALUE MYTITEL            
C   78   MOVEL(P) '1' MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Sendefeld 1
C *     --------------------------------------
C       EVAL LINK = '<input id="submit1" +
C                    name="submit1" +
C                    type="submit" +
C             onmousedown="return false" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * FORMFRT EXSR BAR$FORM    
  X  
C     LINKSUBMIT2 BEGSR                
C     *BLANKS COMP LINKADDVALUE       — — 78  
C       MOVEL(P) LINKADDVALUE MYTITEL            
C   78   MOVEL(P) '2' MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Sendefeld 2
C *     --------------------------------------
C       EVAL LINK = '<input id="submit2" +
C                    name="submit2" +
C                    type="submit" +
C             onmousedown="return false" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * FORMLOGIN EXSR BAR$FORM    
  X  
C     LINKLOGIN BEGSR                
C     *BLANKS COMP LINKADDVALUE       — — 78  
C       MOVEL(P) LINKADDVALUE MYTITEL            
C   78   MOVEL(P) '.' MYTITEL            
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Sendefeld
C *     --------------------------------------
C       EVAL LINK = '<input id="login" +
C                    name="login" +
C                    type="submit" +
C             onmousedown="return false" +
C                   value="'+%TRIM(MYTITEL)+'"'+
C                      BUTTONSTYLE+'>'
C       ENDSR                
C          
  X * FORMFRE EXSR BAR$FORM    
  X * FORMFRI EXSR BAR$FORM    
  X  
C     LINKWER BEGSR                
C *     --------------------------------------
C *     Wer ist im Chat?
C *     --------------------------------------
C       MOVEL(P) BILDWER MYTITEL            
C       EXSR MYTITELX              
C       EVAL LINK = '<a id="dauer"'+POINTER+
C           ' onmousedown="return false" +
C             onclick="window.setTimeout(+
C                    ''parent.wer1 = +
C         !parent.wer1; resize()'', +
C                 100);"'+TAP+'>'+
C                   %TRIM(MYTITEL)+'</a>'
C       ENDSR                

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