Vorhanden?

BAREXIST (RPGLE)



  X * SRCEXIST BEGSR BAREXIST 21  
  X * SRCEXISTJS BEGSR BAREXIST 19  
  X * SRCEXISTSOUND BEGSR BAREXIST 28  
  X * SRCEXISTDIR BEGSR BAREXIST 8  
  X * SRCEXISTFILE BEGSR BAREXIST 8  
  X  
  X * STMFEXISTPARM PLIST BAREXIST 3  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * ARTFILESRC EXSR BARART    
  X * ARTFILEICN EXSR BARART    
  X * ARTFILEICN EXSR BARART    
  X * SRCEXISTSOUND EXSR BAREXIST    
  X * LINKSMILY EXSR BARLINK    
  X * LINKSMILY1 EXSR BARLINK    
  X * LINKBILD EXSR BARLINK    
  X * LINKBILD2 EXSR BARLINK    
  X * JS2SRC EXSR BARSCRIPT    
  X * LINKSRCNEU2 EXSR BARSRC    
  X  
C     SRCEXIST BEGSR                
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(SRC)
C       CALL 'STMFEXIST' STMFEXISTPARM     — 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 BARART    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X  
C     SRCEXISTJS BEGSR                
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(SRC)
C       CALL 'STMFEXIST' STMFEXISTPARM     — 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 BARSEND    
  X * TONAB2 EXSR BARSEND    
  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 'STMFEXIST' STMFEXISTPARM     — 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 BARSEITE    
  X * SEITEFILES2 EXSR BARSEITE    
  X * SEITEFILES3 EXSR BARSEITE    
  X  
C     SRCEXISTDIR BEGSR                
C *     --------------------------------------
C *     Prüfen ob Verzeichnis vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(PFAD3) +'/.'
C       CALL 'STMFEXIST' STMFEXISTPARM     — 77 —  
C       ENDSR                
C          
  X * SEITEFILES2 EXSR BARSEITE    
  X * SEITEFILES3 EXSR BARSEITE    
  X  
C     SRCEXISTFILE BEGSR                
C *     --------------------------------------
C *     Prüfen ob Datei vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS    = %TRIM(MAPFAD)+'/'+
C                    %TRIM(PFAD3)
C       CALL 'STMFEXIST' STMFEXISTPARM     — 77 —  
C       ENDSR                
C          
  X * ARTFILEWW CALL BARART    
  X * ARTFILEMINWW CALL BARART    
  X * SRCEXIST CALL BAREXIST    
  X * SRCEXISTJS CALL BAREXIST    
  X * SRCEXISTSOUND CALL BAREXIST    
  X * SRCEXISTDIR CALL BAREXIST    
  X * SRCEXISTFILE CALL BAREXIST    
  X * TEXTSMILYS5B CALL BARTEXT    
  X  
C     STMFEXISTPARM PLIST                
C       PARM   FILEIFS            
C     *IN77 PARM *ON NOTFOUND            

158 ms | Kontakt | Information | Aibo-Bar © 2005-2025