Ausgeben

BARSTOUT (RPGLE)



  X * WRSTOUT BEGSR BARSTOUT 28  
  X * WRSTOUTHEAD BEGSR BARSTOUT 12  
  X * WRSTOUTV BEGSR BARSTOUT 27  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * HINWEIS1 EXSR BARART    
  X * HINWEIS1 EXSR BARART    
  X * IDXMAIN EXSR BARART    
  X * IDXMAIN EXSR BARART    
  X * MNTMAIN EXSR BARART    
  X * MNTMAIN EXSR BARART    
  X * KALMAIN EXSR BARART    
  X * KALMAIN EXSR BARART    
  X * ARTMAIN EXSR BARART    
  X * ARTFILEXML EXSR BARART    
  X * ARTFILERSS EXSR BARART    
  X * ARTFILEATOM EXSR BARART    
  X * ARTFILEHTML EXSR BARART    
  X * ARTTEXTXML EXSR BARART    
  X * ARTTEXTXML EXSR BARART    
  X * ARTTEXTRSS EXSR BARART    
  X * ARTTEXTRSS EXSR BARART    
  X * ARTTEXTATOM EXSR BARART    
  X * ARTTEXTATOM EXSR BARART    
  X * ARTTEXTHTML EXSR BARART    
  X * ARTTEXTHTML EXSR BARART    
  X * FORM EXSR BARFORM    
  X * FORMSUCHE1 EXSR BARFORM    
  X * FORMSUCHE2 EXSR BARFORM    
  X * FORMX EXSR BARFORM    
  X * FORMLOGIN EXSR BARFORM    
  X * FORMARTPN EXSR BARFORM    
  X * LISTEFRR EXSR BARLISTE    
  X * LISTEMNT EXSR BARLISTE    
  X * NAVX EXSR BARNAV    
  X * SENDCSS EXSR BARSEND    
  X * SENDXML EXSR BARSEND    
  X * SENDXML EXSR BARSEND    
  X * SENDXML EXSR BARSEND    
  X * SENDXML EXSR BARSEND    
  X * SENDRSS EXSR BARSEND    
  X * SENDRSS EXSR BARSEND    
  X * SENDRSS EXSR BARSEND    
  X * SENDRSS EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDOSDX EXSR BARSEND    
  X * SENDOSDX EXSR BARSEND    
  X * SENDOSDX EXSR BARSEND    
  X * SENDPLIST EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML3 EXSR BARSEND    
  X * KAMERAS EXSR BARSEND    
  X * KAMERAS EXSR BARSEND    
  X * ENVVARS EXSR BARSEND    
  X * ENVVARS EXSR BARSEND    
  X * TONAB1 EXSR BARSEND    
  X * TONAB2 EXSR BARSEND    
  X * WRSTOUTHEAD EXSR BARSTOUT    
  X * TABLEX EXSR BARTABLE    
  X * ROWX EXSR BARTABLE    
  X * COLTEXTSTART EXSR BARTABLE    
  X * COLINPUTBUFV EXSR BARTABLE    
  X * COLTEXTAREA EXSR BARTABLE    
  X * ZEILEARTRSS EXSR BARZEILE    
  X * ZEILEARTATOM EXSR BARZEILE    
  X * ZEILEAWRSS EXSR BARZEILE    
  X * ZEILEAWATOM EXSR BARZEILE    
  X  
C     WRSTOUT BEGSR                
C     *IN37 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt von BUF ausgeben
C *     --------------------------------------
C       ADD BUFLEN SIZE6            
C          
C *     --------------------------------------
C *     Inhalt von BUF ausgeben
C *     --------------------------------------
C   38 '§':LF XLATE BUF BUF            
C   N38 '§':NL XLATE BUF BUF            
C          
C *     --------------------------------------
C *     Inhalt von BUF in ASCII umsetzen
C *     --------------------------------------
C   38   CALLP(E) QTQCVRT ( EBCDIC:0:
C         BUFTEXT:BUFLEN:
C         ASCII:0:0:BUFLEN:
C         BUFTEXT:RCVLEN:
C         DUMMY:FB)
C *     --------------------------------------
C *     Inhalt von BUF ausgeben
C *     --------------------------------------
C       CALLP(E) STOUT ( BUFTEXT:BUFLEN:QUSEC)
C       ENDIF                
C       CLEAR   BUF            
C       ENDSR                
C          
  X * SENDCSS EXSR BARSEND    
  X * SENDXML EXSR BARSEND    
  X * SENDRSS EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDOSDX EXSR BARSEND    
  X * SENDPLIST EXSR BARSEND    
  X * SENDSTMF EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X  
C     WRSTOUTHEAD BEGSR                
C     *IN37 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt von BUF ausgeben
C *     --------------------------------------
C       SUB BUFLEN SIZE6            
C       ENDIF                
C *     --------------------------------------
C *     Inhalt von BUF ausgeben
C *     --------------------------------------
C       EXSR WRSTOUT              
C       ENDSR                
C          
  X * HINWEIS1 EXSR BARART    
  X * IDXMAIN EXSR BARART    
  X * KALMAIN EXSR BARART    
  X * ARTTEXTXML EXSR BARART    
  X * ARTTEXTRSS EXSR BARART    
  X * ARTTEXTATOM EXSR BARART    
  X * ARTTEXTHTML EXSR BARART    
  X * SENDRSS EXSR BARSEND    
  X * SENDATOM EXSR BARSEND    
  X * SENDOSDX EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * SENDHTML EXSR BARSEND    
  X * KAMERAS EXSR BARSEND    
  X * ENVVARS EXSR BARSEND    
  X * COLTEXTADD2 EXSR BARTABLE    
  X * COLINPUTBUFV EXSR BARTABLE    
  X * COLTEXTAREA EXSR BARTABLE    
  X * ZEILEARTRSS EXSR BARZEILE    
  X * ZEILEARTATOM EXSR BARZEILE    
  X * ZEILEAWRSS EXSR BARZEILE    
  X * ZEILEAWATOM EXSR BARZEILE    
  X  
C     WRSTOUTV BEGSR                
C     *IN37 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt von BUFV ausgeben
C *     --------------------------------------
C       ADD BUFVLEN SIZE6            
C          
C *     --------------------------------------
C *     Inhalt von BUFV ausgeben
C *     --------------------------------------
C   38 NL:LF XLATE BUFV BUFV            
C          
C *     --------------------------------------
C *     Inhalt von BUFV in ASCII umsetzen
C *     --------------------------------------
C   38   CALLP(E) QTQCVRT ( EBCDIC:0:
C         BUFVTEXT:BUFVLEN:
C         ASCII:0:0:BUFVLEN:
C         BUFVTEXT:RCVLEN:
C         DUMMY:FB)
C *     --------------------------------------
C *     Inhalt von BUFV ausgeben
C *     --------------------------------------
C       CALLP(E) STOUT ( BUFVTEXT:BUFVLEN:QUSEC)
C       ENDIF                
C       CLEAR   BUFV            
C       ENDSR                

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