Vorhanden?

BAR$EXIST (RPGLE)



  X * SRCEXIST BEGSR BAR$EXIST 21  
  X * SRCEXISTJS BEGSR BAR$EXIST 19  
  X * SRCEXISTSOUND BEGSR BAR$EXIST 28  
  X * SRCEXISTDIR BEGSR BAR$EXIST 8  
  X * SRCEXISTFILE BEGSR BAR$EXIST 8  
  X  
  X * IFS$EXISTPARM PLIST BAR$EXIST 3  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * ARTFILESRC EXSR BAR$ART    
  X * ARTFILEICN EXSR BAR$ART    
  X * ARTFILEICN EXSR BAR$ART    
  X * SRCEXISTSOUND EXSR BAR$EXIST    
  X * LINKSMILY EXSR BAR$LINK    
  X * LINKSMILY1 EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD2 EXSR BAR$LINK    
  X * JS2SRC EXSR BAR$SCRIPT    
  X * LINKSRCNEU2 EXSR BAR$SRC    
  X  
C     SRCEXIST BEGSR                
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     PFADXX COMP HTML       — — 78  
C   N78   EVAL SRC = %TRIM(HTTP)+
C             %TRIM(SRC)+%TRIM(QUERY)
C   78   EVAL SRC = %TRIM(PFADREL)+
C             %TRIM(SRC)+%TRIM(QUERY)
C       ELSE                
C       EVAL SRC = ''
C       ENDIF                
C       ENDSR                
C          
  X * ARTRESIZE EXSR BAR$ART    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     SRCEXISTJS BEGSR                
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     PFADXX COMP HTML       — — 78  
C   N78   EVAL SRC = %TRIM(HTTP)   +%TRIM(SRC)
C   78   EVAL SRC = %TRIM(PFADREL)+%TRIM(SRC)
C       ELSE                
C       EVAL SRC = ''
C       ENDIF                
C       ENDSR                
C          
  X * TONAB1 EXSR BAR$SEND    
  X * TONAB2 EXSR BAR$SEND    
  X  
C     SRCEXISTSOUND BEGSR                
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C     *BLANKS IFNE MASECURE              
C       EXSR SRCEXIST              
C       ELSE                
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     *IN23 COMP *OFF       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   N78   EVAL SRC =       'http://'+HOST+
C            '/'+%TRIM(SRC)
C   78   EVAL SRC = %TRIM(PFADREL)+%TRIM(SRC)
C       ELSE                
C       EVAL SRC = ''
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES3 EXSR BAR$SEITE    
  X  
C     SRCEXISTDIR BEGSR                
C *     --------------------------------------
C *     Prüfen ob Verzeichnis vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(PFAD3) +'/.'
C       CALL 'IFS$EXIST' IFS$EXISTPARM     — 77 —  
C       ENDSR                
C          
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES3 EXSR BAR$SEITE    
  X  
C     SRCEXISTFILE BEGSR                
C *     --------------------------------------
C *     Prüfen ob Datei vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(PFAD3)
C       CALL 'IFS$EXIST' IFS$EXISTPARM     — 77 —  
C       ENDSR                
C          
  X * ARTFILEWW CALL BAR$ART    
  X * ARTFILEMINWW CALL BAR$ART    
  X * SRCEXIST CALL BAR$EXIST    
  X * SRCEXISTJS CALL BAR$EXIST    
  X * SRCEXISTSOUND CALL BAR$EXIST    
  X * SRCEXISTDIR CALL BAR$EXIST    
  X * SRCEXISTFILE CALL BAR$EXIST    
  X * TEXTSMILYS5B CALL BAR$TEXT    
  X  
C     IFS$EXISTPARM PLIST                
C       PARM   FILEIFS            
C     *IN77 PARM *ON NOTFOUND            

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