Ausgeben

BAR$STOUT (RPGLE)



  X * WRSTOUT BEGSR BAR$STOUT 28  
  X * WRSTOUTHEAD BEGSR BAR$STOUT 12  
  X * WRSTOUTV BEGSR BAR$STOUT 27  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * HINWEIS1 EXSR BAR$ART    
  X * HINWEIS1 EXSR BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * MNTMAIN EXSR BAR$ART    
  X * MNTMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X * ARTMAIN EXSR BAR$ART    
  X * ARTFILERSS EXSR BAR$ART    
  X * ARTFILEATOM EXSR BAR$ART    
  X * ARTFILEHTML EXSR BAR$ART    
  X * ARTTEXTXML EXSR BAR$ART    
  X * ARTTEXTXML EXSR BAR$ART    
  X * ARTTEXTRSS EXSR BAR$ART    
  X * ARTTEXTRSS EXSR BAR$ART    
  X * ARTTEXTATOM EXSR BAR$ART    
  X * ARTTEXTATOM EXSR BAR$ART    
  X * ARTTEXTHTML EXSR BAR$ART    
  X * ARTTEXTHTML EXSR BAR$ART    
  X * FORM EXSR BAR$FORM    
  X * FORMSUCHE1 EXSR BAR$FORM    
  X * FORMSUCHE2 EXSR BAR$FORM    
  X * FORMX EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * LISTEFRR EXSR BAR$LISTE    
  X * LISTEMNT EXSR BAR$LISTE    
  X * NAVX EXSR BAR$NAV    
  X * SENDCSS EXSR BAR$SEND    
  X * SENDXML EXSR BAR$SEND    
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDPLIST EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML3 EXSR BAR$SEND    
  X * KAMERAS EXSR BAR$SEND    
  X * KAMERAS EXSR BAR$SEND    
  X * ENVVARS EXSR BAR$SEND    
  X * ENVVARS EXSR BAR$SEND    
  X * TONAB1 EXSR BAR$SEND    
  X * TONAB2 EXSR BAR$SEND    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * TABLEX EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * COLTEXTSTART EXSR BAR$TABLE    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  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 BAR$SEND    
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDPLIST EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  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 BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X * ARTTEXTXML EXSR BAR$ART    
  X * ARTTEXTRSS EXSR BAR$ART    
  X * ARTTEXTATOM EXSR BAR$ART    
  X * ARTTEXTHTML EXSR BAR$ART    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * KAMERAS EXSR BAR$SEND    
  X * ENVVARS EXSR BAR$SEND    
  X * COLTEXTADD2 EXSR BAR$TABLE    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  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                

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