Artikel

BAR$ART (RPGLE)



  X * HINWEIS1 BEGSR BAR$ART 43  
  X * IDXMAIN BEGSR BAR$ART 32  
  X * MNTMAIN BEGSR BAR$ART 48  
  X * KALMAIN BEGSR BAR$ART 30  
  X * ARTMAIN BEGSR BAR$ART 37  
  X * ARTFILE BEGSR BAR$ART 49  
  X * ARTFILEWW BEGSR BAR$ART 40  
  X * ARTFILEXML BEGSR BAR$ART 7  
  X * ARTFILERSS BEGSR BAR$ART 11  
  X * ARTFILEATOM BEGSR BAR$ART 10  
  X * ARTFILEHTML BEGSR BAR$ART 84  
  X * ARTFILEMIN BEGSR BAR$ART 38  
  X * ARTFILEMINWW BEGSR BAR$ART 40  
  X * ARTFILESRC BEGSR BAR$ART 48  
  X * ARTFILEICN BEGSR BAR$ART 27  
  X * ARTTEXT BEGSR BAR$ART 34  
  X * ARTTEXTXML BEGSR BAR$ART 16  
  X * ARTTEXTRSS BEGSR BAR$ART 16  
  X * ARTTEXTATOM BEGSR BAR$ART 16  
  X * ARTTEXTHTML BEGSR BAR$ART 20  
  X * ARTTEXTAW BEGSR BAR$ART 31  
  X * ARTTITEL BEGSR BAR$ART 42  
  X * ARTTITEL2 BEGSR BAR$ART 18  
  X * ARTSPERRE BEGSR BAR$ART 20  
  X * ARTINFO BEGSR BAR$ART 19  
  X * ARTINFOART BEGSR BAR$ART 68  
  X * ARTINFOART2 BEGSR BAR$ART 30  
  X * ARTINFOAW BEGSR BAR$ART 54  
  X * ARTINFOAW2 BEGSR BAR$ART 30  
  X * ARTVOR BEGSR BAR$ART 20  
  X * ARTVOR2 BEGSR BAR$ART 14  
  X * ARTVOR3 BEGSR BAR$ART 16  
  X * ARTNACH BEGSR BAR$ART 20  
  X * ARTNACH2 BEGSR BAR$ART 14  
  X * ARTNACH3 BEGSR BAR$ART 16  
  X * ARTRESIZE BEGSR BAR$ART 36  
  X  
  X * ARKEYO KLIST BAR$ART 3  
  X * ARKEYO1SET KLIST BAR$ART 6  
  X * ARKEYO2SET KLIST BAR$ART 6  
  X * ARKEYT KLIST BAR$ART 4  
  X * ARKEYTSET KLIST BAR$ART 7  
  X * ARKEYU KLIST BAR$ART 4  
  X * ARKEYUSET KLIST BAR$ART 7  
  X  
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTSMILYSB EXSR BAR$TEXT    
  X * BUFBGCOLOR EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTSMILYSB EXSR BAR$TEXT    
  X * BUFBGCOLOR EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * MYTITELX EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTSMILYSB EXSR BAR$TEXT    
  X * BUFBGCOLOR EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * IFS$EXISTPARM CALL BAR$EXIST    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SENDTITEL2 EXSR BAR$SEND    
  X * LINKANLAGE EXSR BAR$LINK    
  X * LINKANLAGE EXSR BAR$LINK    
  X * LINKMIN EXSR BAR$LINK    
  X * LINKANLAGE EXSR BAR$LINK    
  X * WRSTOUT EXSR BAR$STOUT    
  X * IFS$EXISTPARM CALL BAR$EXIST    
  X * SRCEXIST EXSR BAR$EXIST    
  X * NATYPNAV EXSR BAR$NAV    
  X * SRCEXIST EXSR BAR$EXIST    
  X * NATYPNAV EXSR BAR$NAV    
  X * SRCEXIST EXSR BAR$EXIST    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NUMSTR EXSR BAR$NUM    
  X * TABLE8 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLLEFT EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKMIT EXSR BAR$LINK    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKMIT EXSR BAR$LINK    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKRUB EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * TABLE8 EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * COLLEFT EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKMIT EXSR BAR$LINK    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKARTAW EXSR BAR$LINK    
  X * COLCENTER EXSR BAR$TABLE    
  X * COLRIGHT EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKART$ EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKART$ EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * SRCEXISTJS EXSR BAR$EXIST    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * LISTEFRR EXSR BAR$LISTE    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     HINWEIS1 BEGSR                
C *     --------------------------------------
C *     Abstand ermitteln
C *     --------------------------------------
C     ABSTAND IFEQ ABSTAND2              
C       MOVEL(P) ABSTAND1 ABSTAND$            
C       ELSE                
C       MOVEL(P) ABSTAND ABSTAND$            
C       ENDIF                
C       EVAL BUF = %TRIM(ABSTAND$)+
C            '<div id="hinweis">'
C          
C *     --------------------------------------
C *     Hinweis ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TEHINWEIS              
C       MOVEL(P) FAHINWEIS COLOR7            
C       EXSR TEXTCOLOR              
C       EVAL BUFV = %TRIM(TEHINWEIS)
C       EXSR TEXTSMILYSB              
C       EVAL BUF =
C       BUF +'§<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td><center'
C       EXSR BUFBGCOLOR              
C       EVAL BUF =
C       BUF + '>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF + '</center></td></tr></table>'
C       ENDIF                
C       EVAL BUF =
C       BUF + '</div>'
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Abstand ermitteln
C *     --------------------------------------
C     ABSTAND IFEQ ABSTAND2              
C       MOVEL(P) ABSTAND21 ABSTAND            
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     IDXMAIN BEGSR                
C     *BLANKS IFEQ SUCHE              
C *     --------------------------------------
C *     Text für Portal ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TETEXT              
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C       EVAL BUFV = TETEXT
C       EXSR TEXTSMILYSB              
C       EVAL BUF = '<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+MAXWIDTHSTYLE+'><div'
C       EXSR BUFBGCOLOR              
C       EVAL BUF =
C       BUF + '>'
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = %TRIM(ABSTAND) + BUF
C       ENDIF                
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF + '</div></td></tr></table>'
C       EXSR WRSTOUT              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     MNTMAIN BEGSR                
C *     --------------------------------------
C *     Text für Wartung ausgeben
C *     --------------------------------------
C       MOVEL(P) SPWARTUNG MYTITEL            
C     *BLANKS IFNE MYTITEL              
C       EXSR MYTITELX              
C       EVAL BUF = '<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+%TRIMR(TDMIDDLE) +
C             %TRIMR(TDCENTER) +
C             %TRIMR(MAINCOLOR)+'>+
C                   <font size="+2"><b>'+
C             %TRIM(FONT)   +
C             %TRIM(MYTITEL)+
C             %TRIM(FONTX)+'</b></font>+
C                   </td></tr></table><br><br><br>'
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = %TRIM(ABSTAND) + BUF
C       ENDIF                
C       EXSR WRSTOUT              
C       ENDIF                
C *     --------------------------------------
C *     Verweis auf Seite mit Status ausgeben
C *     --------------------------------------
C     *BLANKS IFNE LISTATUS              
C       MOVEL(P) LISTATUS WWW            
C       EXSR WWWHREF              
C       MOVEL(P) SPSTATUS MYTITEL            
C       EXSR MYTITELX              
C       EVAL BUF = '<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+%TRIMR(TDMIDDLE)+
C             %TRIMR(TDCENTER)+'>'+
C             %TRIMR(FONT)    +
C                    '<a'+%TRIMR(WWW)     +'>'+
C             %TRIMR(MYTITEL) +'</a>'+
C             %TRIMR(FONTX)   +
C                  '</td></tr></table><br>'
C       EXSR WRSTOUT              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDIF                
C       ENDSR                
C          
  X * LISTEKAL EXSR BAR$LISTE    
  X  
C     KALMAIN BEGSR                
C *     --------------------------------------
C *     Text für Kalender ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TEKALENDER              
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C       EVAL BUFV = TEKALENDER
C       EXSR TEXTSMILYSB              
C       EVAL BUF = '<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+MAXWIDTHSTYLE+'><div'
C       EXSR BUFBGCOLOR              
C       EVAL BUF =
C       BUF + '>'
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = %TRIM(ABSTAND) + BUF
C       ENDIF                
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF + '</div></td></tr></table>'
C       EXSR WRSTOUT              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDIF                
C       ENDSR                
C          
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     ARTMAIN BEGSR                
C       EVAL BUF = ''
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = '<div id="main">'
C       ENDIF                
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF = %TRIM(ABSTAND) + BUF
C       ENDIF                
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       EXSR ARTFILE              
C          
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EXSR ARTTEXT              
C          
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C       EVAL BUF =
C       BUF + '</div>'
C       ENDIF                
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C       EXSR WRSTOUT              
C   72   MOVEL(P) ABSTAND2 ABSTAND            
C       ENDSR                
C          
  X * ARTMAIN EXSR BAR$ART    
  X  
C     ARTFILE BEGSR                
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C     *BLANKS IFNE WWFILEX              
C     '-' ANDNE WWFILEX              
C          
C *     --------------------------------------
C *     Bild/Film/Anlage ermitteln
C *     --------------------------------------
C       SELECT    
C     *BLANKS WHENNE WWNAV              
C       EVAL SRC  =  %TRIM ( WWNAV) +
C               %TRIM ( ELEMENTMIN) +
C               %TRIM ( WWFILEX)
C     TARGETPARENT WHENEQ TARGET              
C       EVAL SRC  =  %TRIM ( %SUBST(PFAD:1:PFADLEN3)) +
C               %TRIM ( ELEMENTMIN) +
C               %TRIM ( WWFILEX)
C       OTHER                
C       EVAL SRC  =  %TRIM ( PFAD) +
C               %TRIM ( WWFILEX)
C       ENDSL                
C *     --------------------------------------
C *     Bild/Film/Anlage vorhanden?
C *     --------------------------------------
C       EXSR ARTFILEWW              
C     *BLANKS IFNE SRC              
C          
C *     --------------------------------------
C *     Bild/Film/Anlage anzeigen erlauben
C *     --------------------------------------
C     *BLANKS IFNE ZEIGEN              
C     *BLANKS COMP QUERY       — — 78  
C   78   EVAL BUF2 = '?'
C   N78   EVAL BUF2 = '&amp;'
C       EVAL SRC  =  SRC + BUF2 + ZEIGENNAME + '1'
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C     PFADXX CASEQ XML ARTFILEXML            
C     PFADXX CASEQ RSS ARTFILERSS            
C     PFADXX CASEQ ATOM ARTFILEATOM            
C     PFADXX CASEQ HTML ARTFILEHTML            
C       ENDCS                
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILE EXSR BAR$ART    
  X  
C     ARTFILEWW BEGSR                
C       EVAL STMF = SRC
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(SRC)
C       CALL 'IFS$EXIST' IFS$EXISTPARM     — 77 —  
C          
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C          
C     *BLANKS COMP ELEMENT       — — 78  
C   N78   MOVEL(P) ELEMENT ELEMENT8            
C   78   MOVEL(P) INDEXNAV ELEMENT8            
C          
C       EVAL SRC  =  %TRIM ( ELEMENT8)    +
C               %TRIM ( ELEMENTERRT) +
C               %TRIM ( ELEMENTERR)  +
C               %TRIM ( WWFILEX)     +
C               %TRIM ( QUERY)
C       ELSE                
C       EVAL SRC  =  %TRIM ( HTTP)        +
C               %TRIM ( PFAD)        +
C               %TRIM ( ELEMENTERRT) +
C               %TRIM ( ELEMENTERR)  +
C               %TRIM ( WWFILEX)     +
C               %TRIM ( QUERY)
C       ENDIF                
C       ELSE                
C       EVAL SRC  =  ''
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILE CASEQ BAR$ART    
  X  
C     ARTFILEXML BEGSR                
C     *BLANKS IFNE SRC              
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILE CASEQ BAR$ART    
  X  
C     ARTFILERSS BEGSR                
C     *BLANKS IFNE SRC              
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<content src="'+%TRIM(SRC)+'">+
C             </content>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILE CASEQ BAR$ART    
  X  
C     ARTFILEATOM BEGSR                
C     *BLANKS IFNE SRC              
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<content src="'+%TRIM(SRC)+'" />'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILE CASEQ BAR$ART    
  X  
C     ARTFILEHTML BEGSR                
C     *BLANKS IFNE SRC              
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C          
C       SELECT    
C *     --------------------------------------
C *     Bild
C *     --------------------------------------
C     JPG WHENEQ WWFILEXX              
C     PNG OREQ WWFILEXX              
C     TIF OREQ WWFILEXX              
C     GIF OREQ WWFILEXX              
C     BMP OREQ WWFILEXX              
C     ICO OREQ WWFILEXX              
C       EXSR SENDTITEL2              
C       EVAL BUF2 = '<img id="image" +
C                border=0 +
C                 title="" +
C                   alt="'+%TRIM(MYTITEL)+'" +
C                   src="'+%TRIM(SRC)+'"'+
C                   MAXWIDTHSTYLE2+'>'
C          
C *     --------------------------------------
C *     Film
C *     --------------------------------------
C     MOV WHENEQ WWFILEXX              
C       EXSR LINKANLAGE              
C       EVAL BUF2 = '§§<video src="'+SRC+'" autoplay>§+
C                 <embed src="'+SRC+'" +
C                   autoplay="true" +
C                  autostart="true" +
C          cache="true"></video><br>+
C                 §   '+%TRIM(LINK)+'§§'
C          
C *     --------------------------------------
C *     Anlage
C *     --------------------------------------
C     PDF WHENEQ WWFILEXX              
C     TTF OREQ WWFILEXX              
C     WOFF OREQ WWFILEXX              
C       EXSR LINKANLAGE              
C       EVAL BUF2  = %TRIM ( LINK)
C       EVAL LINK2 = %TRIM ( SRC)
C       EXSR LINKMIN              
C     *BLANKS IFNE LINK              
C       EVAL BUF2 = '<a href="'+%TRIM(LINK2)+'">'+
C              %TRIM(LINK)+'</a>+
C               <br> '+BUF2
C       ENDIF                
C *     --------------------------------------
C *     Anlage
C *     --------------------------------------
C       OTHER                
C       EXSR LINKANLAGE              
C       EVAL BUF2 = %TRIM(LINK)
C       ENDSL                
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+%TRIMR(TDCENTER) +
C             %TRIMR(MAINCOLOR)+'>'+
C             %TRIMR(FONT) +
C                  BUF2 + %TRIMR(FONTX)+
C                  '</td></tr></table>'
C       SETON         — 72 —  
C *     --------------------------------------
C *     Bild
C *     --------------------------------------
C     JPG IFEQ WWFILEXX              
C     PNG OREQ WWFILEXX              
C     TIF OREQ WWFILEXX              
C     GIF OREQ WWFILEXX              
C     BMP OREQ WWFILEXX              
C       EXSR ARTRESIZE              
C       ENDIF                
C       ENDIF                
C       EXSR WRSTOUT              
C       ENDSR                
C          
  X * LINKMIN EXSR BAR$LINK    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X  
C     ARTFILEMIN BEGSR                
C *     --------------------------------------
C *     Minibild ermitteln
C *     --------------------------------------
C       SELECT    
C     *BLANKS WHENNE WWNAV              
C       EVAL SRC  =  %TRIM ( WWNAV) +
C         MIN+MINX
C     TARGETPARENT WHENEQ TARGET              
C       EVAL SRC  =  %TRIM ( %SUBST(PFAD:1:PFADLEN3)) +
C         MIN+MINX
C       OTHER                
C       EVAL SRC  =  %TRIM ( PFAD) +
C         MIN+MINX
C       ENDSL                
C *     --------------------------------------
C *     Prüfen ob Minibild vorhanden
C *     --------------------------------------
C       EXSR ARTFILEMINWW              
C     *BLANKS IFNE SRC              
C          
C *     --------------------------------------
C *     Minibild anzeigen erlauben
C *     --------------------------------------
C     *BLANKS IFNE ZEIGEN              
C     *BLANKS COMP QUERY       — — 78  
C   78   EVAL BUF2 = '?'
C   N78   EVAL BUF2 = '&amp;'
C       EVAL SRC  =  SRC + BUF2 + ZEIGENNAME + '1'
C       ENDIF                
C *     --------------------------------------
C *     Symbolbild ermitteln
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) WWFILEX MYFILEX            
C       EXSR ARTFILEICN              
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILEMIN EXSR BAR$ART    
  X  
C     ARTFILEMINWW BEGSR                
C       EVAL STMF = SRC
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(SRC)
C       CALL 'IFS$EXIST' IFS$EXISTPARM     — 77 —  
C          
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     PFADXX IFEQ HTML              
C          
C     *BLANKS COMP ELEMENT       — — 78  
C   N78   MOVEL(P) ELEMENT ELEMENT8            
C   78   MOVEL(P) INDEXNAV ELEMENT8            
C          
C       EVAL SRC  =  %TRIM ( ELEMENT8)    +
C               %TRIM ( ELEMENTERRT) +
C               %TRIM ( ELEMENTERR)  +
C         MIN+MINX     +
C               %TRIM ( QUERY)
C       ELSE                
C       EVAL SRC  =  %TRIM ( HTTP)        +
C               %TRIM ( PFAD)        +
C               %TRIM ( ELEMENTERRT) +
C               %TRIM ( ELEMENTERR)  +
C         MIN+MINX     +
C               %TRIM ( QUERY)
C       ENDIF                
C       ELSE                
C       EVAL SRC  =  ''
C       ENDIF                
C       ENDSR                
C          
  X * LINKARTFILE2 EXSR BAR$LINK    
  X * LINKRUBFILE2 EXSR BAR$LINK    
  X * LINKNAVFILE2 EXSR BAR$LINK    
  X  
C     ARTFILESRC BEGSR                
C     *BLANKS IFNE SRC              
C *     --------------------------------------
C *     Minibild ermitteln
C *     --------------------------------------
C     *BLANKS IFNE MYFILEX              
C     '-' ANDNE MYFILEX              
C          
C *     --------------------------------------
C *     Minibild ermitteln
C *     --------------------------------------
C     *BLANKS IFEQ MYSPERRE              
C          
C *     --------------------------------------
C *     Bild/Film/Anlage ausgeben
C *     --------------------------------------
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C          
C *     --------------------------------------
C *     Minibild anzeigen erlauben
C *     --------------------------------------
C     *BLANKS IFNE ZEIGEN              
C     *BLANKS COMP QUERY       — — 78  
C   78   EVAL BUF2 = '?'
C   N78   EVAL BUF2 = '&amp;'
C       EVAL SRC  =  SRC + BUF2 + ZEIGENNAME + '1'
C       ENDIF                
C *     --------------------------------------
C *     Symbolbild ermitteln
C *     --------------------------------------
C       ELSE                
C       EXSR ARTFILEICN              
C       ENDIF                
C *     --------------------------------------
C *     Symbolbild ermitteln
C *     --------------------------------------
C       ELSE                
C       EXSR ARTFILEICN              
C       ENDIF                
C *     --------------------------------------
C *     Ohne Bild
C *     --------------------------------------
C       ELSE                
C       CLEAR   SRC            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * ARTFILEMIN EXSR BAR$ART    
  X * ARTFILESRC EXSR BAR$ART    
  X * ARTFILESRC EXSR BAR$ART    
  X * LINKNAVFILE2 EXSR BAR$LINK    
  X  
C     ARTFILEICN BEGSR                
C       CLEAR   SRC            
C       MOVEL(P) NAVIDS NAVISAVE            
C *     --------------------------------------
C *     Symbolbild ermitteln
C *     --------------------------------------
C     *BLANKS IFNE MYFILEX              
C     '-' ANDNE MYFILEX              
C     UPPER:LOWER XLATE(P) MYFILEX MYFILEXX            
C       MOVEL(P) TYPICNS NATYP            
C       EXSR NATYPNAV              
C       EVAL SRC = %TRIM(NANAV)+'/'+
C             %TRIM(%SUBST(MYFILEXX:2))+GIF
C       EXSR SRCEXIST              
C       ENDIF                
C     *BLANKS IFEQ SRC              
C          
C *     --------------------------------------
C *     Allgemeines Symbolbild ermitteln
C *     --------------------------------------
C       MOVEL(P) TYPICNS NATYP            
C       EXSR NATYPNAV              
C       EVAL SRC = %TRIM(NANAV)+'/dummy.gif'
C       EXSR SRCEXIST              
C       ENDIF                
C       MOVEL(P) NAVISAVE NAVIDS            
C       ENDSR                
C          
  X * ARTMAIN EXSR BAR$ART    
  X  
C     ARTTEXT BEGSR                
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C     *BLANKS IFEQ WWSPERRE              
C          
C       SELECT    
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C     WWTYPSAVE WHENEQ TYPPN              
C     WWTYPSAVE OREQ TYPART              
C     WWTYPSAVE OREQ TYPFRA              
C     WWTYPSAVE OREQ TYPFRR              
C       EVAL   BUFV = ARTEXT
C     XLATE2:XLATE1 XLATE(P) BUFV BUFV            
C          
C     WWTYPSAVE WHENEQ TYPAW              
C       EVAL   BUFV = AWTEXT
C     XLATE2:XLATE1 XLATE(P) BUFV BUFV            
C          
C       OTHER                
C       EVAL BUFV = ''
C       ENDSL                
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C     PFADXX CASEQ XML ARTTEXTXML            
C     PFADXX CASEQ RSS ARTTEXTRSS            
C     PFADXX CASEQ ATOM ARTTEXTATOM            
C     PFADXX CASEQ HTML ARTTEXTHTML            
C       ENDCS                
C       ENDIF                
C       ENDSR                
C          
  X * ARTTEXT CASEQ BAR$ART    
  X  
C     ARTTEXTXML BEGSR                
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<content>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</content>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ARTTEXT CASEQ BAR$ART    
  X  
C     ARTTEXTRSS BEGSR                
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<content>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</content>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ARTTEXT CASEQ BAR$ART    
  X  
C     ARTTEXTATOM BEGSR                
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<content type="html">'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</content>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ARTTEXT CASEQ BAR$ART    
  X  
C     ARTTEXTHTML BEGSR                
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYS              
C *     --------------------------------------
C *     Text ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td'+%TRIMR(MAINCOLOR)+
C              MAXWIDTHSTYLE+'>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF + '</td></tr></table>'
C       EXSR WRSTOUT              
C       SETON         — 72 —  
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWINF EXSR BAR$ZEILE    
  X  
C     ARTTEXTAW BEGSR                
C       CLEAR   BUFV            
C       CLEAR   MYSPERRE            
C *     --------------------------------------
C *     Antwort-Text ermitteln
C *     --------------------------------------
C     NOMIT IFEQ ARPN              
C     BEMIT OREQ ARPN              
C     NOMIT OREQ ARMIT              
C     BEMIT OREQ ARMIT              
C     NOMIT OREQ AWMIT              
C     BEMIT OREQ AWMIT              
C     NOMIT OREQ AWAUT              
C     BEMIT OREQ AWAUT              
C          
C     NONFM IFEQ ARNFM              
C     NODLT ANDEQ AWDLT              
C     NOMIT ORNE BEMIT              
C     NODLT ANDEQ AWDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C          
C       EVAL   BUFV = AWTEXT
C     XLATE2:XLATE1 XLATE(P) BUFV BUFV            
C       ELSE                
C       EVAL   BUFV = %TRIM(SPSPERRE)+' '
C       MOVEL(P) 'X' MYSPERRE            
C       MOVEL(P) 'X' MYSPERREN            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKART EXSR BAR$LINK    
  X * LINKARTAW EXSR BAR$LINK    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X  
C     ARTTITEL BEGSR                
C       CLEAR   MYSPERRE            
C *     --------------------------------------
C *     Artikel-Titel
C *     --------------------------------------
C     NOMIT IFEQ ARPN              
C     BEMIT OREQ ARPN              
C     NOMIT OREQ ARMIT              
C     BEMIT OREQ ARMIT              
C          
C     NODLT IFEQ ARDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C     XLATE2:XLATE1 XLATE(P) ARTITEL MYTITEL            
C          
C *     --------------------------------------
C *     Falls Artikel gesperrt
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) TYPSPERRE NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C       MOVEL(P) 'X' MYSPERRE            
C       MOVEL(P) 'X' MYSPERREN            
C       ENDIF                
C *     --------------------------------------
C *     Allgemeinen Titel für Nachricht setzen
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) TYPPN NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Falls Titel leer dann Nummer anzeigen
C *     --------------------------------------
C     *BLANKS IFEQ MYTITEL              
C     *ZERO ADD ARART NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR MYTITEL            
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X  
C     ARTTITEL2 BEGSR                
C       EVAL BUFV = ''
C *     --------------------------------------
C *     Artikel-Beschreibung
C *     --------------------------------------
C     NOMIT IFEQ ARPN              
C     BEMIT OREQ ARPN              
C     NOMIT OREQ ARMIT              
C     BEMIT OREQ ARMIT              
C          
C     NODLT IFEQ ARDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C       EVAL   BUFV = %TRIM(ARTITEL2)
C     XLATE2:XLATE1 XLATE(P) BUFV BUFV            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKARTFILE2 EXSR BAR$LINK    
  X  
C     ARTSPERRE BEGSR                
C       MOVEL(P) 'X' MYSPERRE            
C *     --------------------------------------
C *     Artikel anzeigen erlaubt?
C *     --------------------------------------
C     NOMIT IFEQ ARPN              
C     BEMIT OREQ ARPN              
C     NOMIT OREQ ARMIT              
C     BEMIT OREQ ARMIT              
C          
C     NONFM IFEQ ARNFM              
C     NODLT ANDEQ ARDLT              
C     NOMIT ORNE BEMIT              
C     NODLT ANDEQ ARDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C       CLEAR   MYSPERRE            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     ARTINFO BEGSR                
C       SELECT    
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C     WWTYP WHENEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPFRA              
C     WWTYP OREQ TYPFRR              
C     WWBAR IFEQ NOBAR              
C       EXSR ARTINFOART              
C       ENDIF                
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C     WWTYP WHENEQ TYPAW              
C       EXSR ARTINFOAW              
C       ENDSL                
C       ENDSR                
C          
  X * ARTINFO EXSR BAR$ART    
  X  
C     ARTINFOART BEGSR                
C       MOVEL(P) 'information' DIV            
C       MOVEL(P) ABSTAND1 ABSTAND            
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C       EXSR TABLE8              
C     *ZERO ADD 1 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Verweis auf vorherigen Artikel
C *     --------------------------------------
C       EXSR ROW              
C       EXSR ARTVOR              
C       EXSR COLLEFT              
C          
C *     --------------------------------------
C *     Artikel von/am/um/in/an
C *     --------------------------------------
C     *ZERO ADD ARMIT MIMIT            
C       MOVEL(P) SPVONV MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK6            
C       CAT '<b' :1 LINK6            
C   66   CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       EXSR LINKMIT              
C       CAT LINK :0 LINK6            
C       CAT '</b>' :0 LINK6            
C   N66   EXSR ARTINFOART2              
C       SELECT    
C     NOPN WHENNE ARPN              
C     *ZERO ADD ARPN MIMIT            
C       MOVEL(P) SPAN MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '<b' :1 LINK6            
C   66   CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       EXSR LINKMIT              
C       CAT LINK :0 LINK6            
C       CAT '</b>' :0 LINK6            
C          
C     NORUB WHENNE ARRUB              
C     *ZERO ADD ARRUB RURUB            
C       MOVEL(P) SPIN MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '<b' :1 LINK6            
C       CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       EXSR LINKRUB              
C       CAT LINK :0 LINK6            
C       CAT '</b>' :0 LINK6            
C       ENDSL                
C   66   EXSR ARTINFOART2              
C       MOVEL(P) LINK6 LINK            
C       EXSR COLCENTER              
C          
C *     --------------------------------------
C *     Verweis auf nachfolgenden Artikel
C *     --------------------------------------
C       EXSR ARTNACH              
C       EXSR COLRIGHT              
C       EXSR ROWX              
C       EXSR TABLEX              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDSR                
C          
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOART EXSR BAR$ART    
  X  
C     ARTINFOART2 BEGSR                
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C     NODAT IFNE ARDAT              
C       MOVE ARDAT DATUM            
C       MOVEL(P) DATUM DATUM2            
C   66   CAT '<br>' :0 LINK6            
C       MOVEL(P) SPAM MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT DATUM2 :1 LINK6            
C     ARDAT IFGT DATETIME7              
C       MOVE ARDAT ZEIT            
C       MOVEL(P) ZEIT ZEIT2            
C     5 SUBST(P) ZEIT2 ZEIT2            
C       MOVEL(P) SPUM MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '<a' :1 LINK6            
C       CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       CAT ZEIT2 :0 LINK6            
C       MOVEL(P) SPUHR MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '</a>' :0 LINK6            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFO EXSR BAR$ART    
  X  
C     ARTINFOAW BEGSR                
C       MOVEL(P) 'information' DIV            
C       MOVEL(P) ABSTAND1 ABSTAND            
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C       EXSR TABLE8              
C     *ZERO ADD 1 ROWROWSMAX            
C          
C *     --------------------------------------
C *     Verweis auf vorherige Antwort
C *     --------------------------------------
C       EXSR ROW              
C **     EXSR AWVOR              
C       EXSR COLLEFT              
C          
C *     --------------------------------------
C *     Antwort von/am/um/in
C *     --------------------------------------
C     *ZERO ADD AWAUT MIMIT            
C       MOVEL(P) SPVONV MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK6            
C       CAT '<b' :1 LINK6            
C   66   CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       EXSR LINKMIT              
C       CAT LINK :0 LINK6            
C       CAT '</b>' :0 LINK6            
C   N66   EXSR ARTINFOAW2              
C     *ZERO ADD ARMIT ARMIT            
C     *ZERO ADD ARART ARART            
C       MOVEL(P) SPIN MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '<b' :1 LINK6            
C   N66   CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       EXSR LINKARTAW              
C       CAT LINK :0 LINK6            
C       CAT '</b>' :0 LINK6            
C   66   EXSR ARTINFOAW2              
C       MOVEL(P) LINK6 LINK            
C       EXSR COLCENTER              
C          
C *     --------------------------------------
C *     Verweis auf nachfolgende Antwort
C *     --------------------------------------
C **     EXSR AWNACH              
C       EXSR COLRIGHT              
C       EXSR ROWX              
C       EXSR TABLEX              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDSR                
C          
  X * ARTINFOAW EXSR BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X  
C     ARTINFOAW2 BEGSR                
C *     --------------------------------------
C *     Information ausgeben
C *     --------------------------------------
C     NODAT IFNE AWDAT              
C       MOVE AWDAT DATUM            
C       MOVEL(P) DATUM DATUM2            
C   66   CAT '<br>' :0 LINK6            
C       MOVEL(P) SPAM MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT DATUM2 :1 LINK6            
C     AWDAT IFGT DATETIME7              
C       MOVE AWDAT ZEIT            
C       MOVEL(P) ZEIT ZEIT2            
C     5 SUBST(P) ZEIT2 ZEIT2            
C       MOVEL(P) SPUM MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '<a' :1 LINK6            
C       CAT NAVSTYLE :0 LINK6            
C       CAT '>' :0 LINK6            
C       CAT ZEIT2 :0 LINK6            
C       MOVEL(P) SPUHR MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :1 LINK6            
C       CAT '</a>' :0 LINK6            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFOART EXSR BAR$ART    
  X  
C     ARTVOR BEGSR                
C       EXSR ARTVOR3              
C *     --------------------------------------
C *     Verweis auf vorigen Artikel
C *     --------------------------------------
C       SELECT    
C     NOPN WHENNE ARPN              
C     BEMIT COMP ARMIT       — — 78  
C       OPEN ARTIKELLO       — 77 —  
C   78 ARKEYO1SET SETGT ARTIKELLO       — 77 —  
C   N78 ARKEYO2SET SETGT ARTIKELLO       — 77 —  
C   N77 ARKEYO READE ARTIKELLO       — 77 77  
C       OTHER                
C     NOSERIE COMP RUSERIE       — — 78  
C   78   EXSR ARTVOR2              
C   N78   EXSR ARTNACH2              
C       ENDSL                
C       EXSR LINKART$              
C       EXSR LINKADDB              
C       ENDSR                
C          
  X * ARTVOR EXSR BAR$ART    
  X * ARTNACH EXSR BAR$ART    
  X  
C     ARTVOR2 BEGSR                
C *     --------------------------------------
C *     Verweis auf vorigen Artikel
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C       OPEN ARTIKELLT       — 77 —  
C     ARKEYTSET SETGT ARTIKELLT       — 77 —  
C   N77 ARKEYT READE ARTIKELLT       — 77 77  
C       ELSE                
C       OPEN ARTIKELLU       — 77 —  
C     ARKEYUSET SETGT ARTIKELLU       — 77 —  
C   N77 ARKEYU READE ARTIKELLU       — 77 77  
C       ENDIF                
C       ENDSR                
C          
  X * ARTVOR EXSR BAR$ART    
  X  
C     ARTVOR3 BEGSR                
C *     --------------------------------------
C *     Verweis auf vorigen Artikel
C *     --------------------------------------
C       MOVEL(P) BILDVOR MYTITEL            
C       MOVEL(P) 'vor.gif' EDTITEL            
C       MOVEL(P) DISPLAYBLOCK BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK LINK2            
C          
C       MOVEL(P) BILDVOR MYTITEL            
C       MOVEL(P) 'vor3.gif' EDTITEL            
C       MOVEL(P) VISIHIDDEN5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK LINK3            
C       ENDSR                
C          
  X * ARTINFOART EXSR BAR$ART    
  X  
C     ARTNACH BEGSR                
C       EXSR ARTNACH3              
C *     --------------------------------------
C *     Verweis auf nächsten Artikel
C *     --------------------------------------
C       SELECT    
C     NOPN WHENNE ARPN              
C     BEMIT COMP ARMIT       — — 78  
C       OPEN ARTIKELLO       — 77 —  
C   78 ARKEYO1SET SETLL ARTIKELLO       — 77 —  
C   N78 ARKEYO2SET SETLL ARTIKELLO       — 77 —  
C   N77 ARKEYO READPE ARTIKELLO       — 77 77  
C       OTHER                
C     NOSERIE COMP RUSERIE       — — 78  
C   78   EXSR ARTNACH2              
C   N78   EXSR ARTVOR2              
C       ENDSL                
C       EXSR LINKART$              
C       EXSR LINKADDB              
C       ENDSR                
C          
  X * ARTVOR EXSR BAR$ART    
  X * ARTNACH EXSR BAR$ART    
  X  
C     ARTNACH2 BEGSR                
C *     --------------------------------------
C *     Verweis auf nächsten Artikel
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C       OPEN ARTIKELLT       — 77 —  
C     ARKEYTSET SETLL ARTIKELLT       — 77 —  
C   N77 ARKEYT READPE ARTIKELLT       — 77 77  
C       ELSE                
C       OPEN ARTIKELLU       — 77 —  
C     ARKEYUSET SETLL ARTIKELLU       — 77 —  
C   N77 ARKEYU READPE ARTIKELLU       — 77 77  
C       ENDIF                
C       ENDSR                
C          
  X * ARTNACH EXSR BAR$ART    
  X  
C     ARTNACH3 BEGSR                
C *     --------------------------------------
C *     Verweis auf nächsten Artikel
C *     --------------------------------------
C       MOVEL(P) BILDNACH MYTITEL            
C       MOVEL(P) 'nach.gif' EDTITEL            
C       MOVEL(P) DISPLAYBLOCK BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK LINK2            
C          
C       MOVEL(P) BILDNACH MYTITEL            
C       MOVEL(P) 'nach3.gif' EDTITEL            
C       MOVEL(P) VISIHIDDEN5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK LINK3            
C       ENDSR                
C          
  X * ARTVOR READE BAR$ART    
  X * ARTNACH READPE BAR$ART    
  X  
C     ARKEYO KLIST                
C       KFLD   ARMAN            
C       KFLD   BEMIT            
C          
  X * ARTVOR SETGT BAR$ART    
  X * ARTNACH SETLL BAR$ART    
  X  
C     ARKEYO1SET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARDATAW            
C       KFLD   ARPN            
C       KFLD   ARART            
C          
  X * ARTVOR SETGT BAR$ART    
  X * ARTNACH SETLL BAR$ART    
  X  
C     ARKEYO2SET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARPN            
C       KFLD   ARDATAW            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * ARTVOR2 READE BAR$ART    
  X * ARTNACH2 READPE BAR$ART    
  X  
C     ARKEYT KLIST                
C       KFLD   ARMAN            
C       KFLD   ARPN            
C       KFLD   ARRUB            
C          
  X * ARTVOR2 SETGT BAR$ART    
  X * ARTNACH2 SETLL BAR$ART    
  X  
C     ARKEYTSET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARPN            
C       KFLD   ARRUB            
C       KFLD   ARDAT            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * ARTVOR2 READE BAR$ART    
  X * ARTNACH2 READPE BAR$ART    
  X  
C     ARKEYU KLIST                
C       KFLD   ARMAN            
C       KFLD   ARPN            
C       KFLD   ARRUB            
C          
  X * ARTVOR2 SETGT BAR$ART    
  X * ARTNACH2 SETLL BAR$ART    
  X  
C     ARKEYUSET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARPN            
C       KFLD   ARRUB            
C       KFLD   ARDAT            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * ARTFILEHTML EXSR BAR$ART    
  X  
C     ARTRESIZE BEGSR                
C *     --------------------------------------
C *     Bild in Fenster einpassen
C *     --------------------------------------
C     WWTYP IFNE TYPFRD              
C     WWTYP ANDNE TYPFRR              
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/resize.js'
C       EXSR SRCEXISTJS              
C     *BLANKS IFNE SRC              
C       EVAL BUF =
C       BUF + '<script type="text/javascript" +
C                  language="javascript" +
C           src="'+SRC+'" +
C            id="resize">+
C              </script>'
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Aktuelles Kamerabild anzeigen?
C *     --------------------------------------
C     WWTYP IFEQ TYPPN              
C     WWTYP OREQ TYPART              
C     *BLANKS IFNE ARKAMERA              
C     XLATE2:XLATE1 XLATE(P) ARKAMERA MYTITEL            
C     UPPER:LOWER XLATE(P) MYTITEL CHARS            
C     'ftp://' IFEQ CHARS6              
C     'ftps://' OREQ CHARS7              
C     'sftp://' OREQ CHARS7              
C     'http://' OREQ CHARS7              
C     'https://' OREQ CHARS8              
C     'shttp://' OREQ CHARS8              
C       EVAL MYKAMERA = ARKAMERA
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                

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