E-Mail senden

MAILS (RPGLE)



  X * WRITE BEGSR MAILS 10  
  X * WRITEB BEGSR MAILS 8  
  X * WRITE2 BEGSR MAILS 7  
  X * WRITE3 BEGSR MAILS 8  
  X * *PSSR BEGSR MAILS 2  
  X  
  X * *ENTRY PLIST MAILS 2  
  X  
H  
H *COPYRIGHT JÜRGEN REULE 2010-2023
H  
H DATFMT(*ISO) TIMFMT(*ISO)
H DFTACTGRP(*NO) ACTGRP('QILE')
H COPYRIGHT('COPYRIGHT JÜRGEN REULE 2010-2023')
H  
F MAILS U F   A   E           DISK   RENAME(MAILS:MAILF)
F                              
D LEN     S   5 S 0   INZ
D POS     S   5 S 0   INZ
D POS1     S           INZ LIKE(POS)
D POS2     S           INZ LIKE(POS)
D POSB     S           INZ LIKE(POS)
D POSM     S           INZ LIKE(POS)
D DATE     S     D     INZ
D CHAR     S   1 A     INZ
D CHAR3     S   3 A     INZ
D LONGMSG     S   5000 A      
D LONGMSGLEN     S           INZ LIKE(LEN)
D                    
D NN     C           CONST(':/N')
D PP     C           CONST(':/P')
D                    
D CONTROLLEN     C           CONST(3)
D MAXLEN     C           CONST(78)
D                    
C          
C       TIME   DATE            
C       CLEAR   SRCSEQ            
C     *YMD MOVEL(P) DATE SRCDAT            
C     ' ' CHECKR LONGMSG LONGMSGLEN            
C          
C     *ZERO ADD 1 POS            
C     *ZERO ADD POS POS1            
C     POS1 ADD MAXLEN POSB            
C     POS1 ADD MAXLEN POSM            
C          
C *     --------------------------------------
C *     Zeilen ermitteln und ausgeben
C *     --------------------------------------
C     POS DOWLE LONGMSGLEN              
C       SUBST(P) LONGMSG:POS CHAR            
C          
C       SELECT    
C *     --------------------------------------
C *     Leerzeichen
C *     --------------------------------------
C     ' ' WHENEQ CHAR              
C     1 ADD POS POSB            
C          
C *     --------------------------------------
C *     Steuerzeichen?
C *     --------------------------------------
C     ':' WHENEQ CHAR              
C       SUBST(P) LONGMSG:POS CHAR3            
C          
C       SELECT    
C *     --------------------------------------
C *     Neue Zeile
C *     --------------------------------------
C     NN WHENEQ CHAR3              
C     *ZERO ADD POS POS2            
C       EXSR WRITE              
C       EXSR WRITE2              
C       EXSR WRITE3              
C          
C *     --------------------------------------
C *     Neuer Absatz
C *     --------------------------------------
C     PP WHENEQ CHAR3              
C     *ZERO ADD POS POS2            
C       EXSR WRITE              
C       EXSR WRITE2              
C       EXSR WRITE3              
C       EXSR WRITEB              
C          
C *     --------------------------------------
C *     Lange Zeile
C *     --------------------------------------
C     POS WHENGE POSM              
C     *ZERO ADD POSB POS2            
C       EXSR WRITE              
C       EXSR WRITE3              
C       ENDSL                
C *     --------------------------------------
C *     Lange Zeile
C *     --------------------------------------
C     POS WHENGE POSM              
C     *ZERO ADD POSB POS2            
C       EXSR WRITE              
C       EXSR WRITE3              
C       ENDSL                
C *     --------------------------------------
C *     Weitersuchen
C *     --------------------------------------
C       ADD 1 POS            
C       ENDDO                
C *     --------------------------------------
C *     Letzte Zeile ausgeben
C *     --------------------------------------
C     1 ADD POS POS2            
C       EXSR WRITE              
C       EXSR WRITE3              
C          
C       SETON         — LR —  
C          
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X  
C     WRITE BEGSR                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C     POS2 SUB POS1 LEN     78 — —  
C   78 LEN SUBST(P) LONGMSG:POS1 SRCDTA            
C   N78   CLEAR   SRCDTA            
C       ADD 1 SRCSEQ            
C       WRITE MAILF       — 77 —  
C       ENDSR                
C          
  X * *MAIN* EXSR MAILS    
  X  
C     WRITEB BEGSR                
C *     --------------------------------------
C *     Leerzeile ausgeben
C *     --------------------------------------
C       CLEAR   SRCDTA            
C       ADD 1 SRCSEQ            
C       WRITE MAILF       — 77 —  
C       ENDSR                
C          
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X  
C     WRITE2 BEGSR                
C *     --------------------------------------
C *     Überspringen
C *     --------------------------------------
C       ADD CONTROLLEN POS            
C       ADD CONTROLLEN POS2            
C       ENDSR                
C          
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X * *MAIN* EXSR MAILS    
  X  
C     WRITE3 BEGSR                
C *     --------------------------------------
C *     Weitersuchen
C *     --------------------------------------
C     *ZERO ADD POS2 POS1            
C     POS1 ADD MAXLEN POSB            
C     POS1 ADD MAXLEN POSM            
C       ENDSR                
C          
C     *PSSR BEGSR                
C       ENDSR '*CANCL'              
C          
C     *ENTRY PLIST                
C       PARM   LONGMSG            

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