Colonnes  . . :    6 100                                Edition                                                 TOTHPAUL/QRPGLESRC 
 SEU==>                                                                                                                     SNDMAIL 
 FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0                             
        **************  Début des données  **************************************************************************************   
0001.00  * Utilisation des Sockets en RPG                                                                   981209                  
0002.00  * Merci à Frédéric Faure                                                        981209                  
0003.00                                                                                                     981209                  
0003.02 D/COPY TOTHPAUL/QRPGLESRC,FORM.H                                                                    981216                  
0003.03 D/COPY TOTHPAUL/QRPGLESRC,SOCK.H                                                                    981216                  
0003.75                                                                                                     981214                  
0003.76  * VAR                                                                                              981214                  
0003.77 D HSocket         S             10I 0                                                               981214                  
0003.79 D Result          S             10I 0                                                               981214                  
0003.80 D Buffer          S           1024                                                                  990413                  
0003.81 D pBuffer         S               *   Inz(%addr(Buffer))                                            981214                  
0003.96 D Size            s             10I 0                                                               981215                  
0003.97                                                                                                     981214                  
0016.00  *--- Début du programme -------------------------------------                                      981209                  
0016.01  * paramètres du programme                                                                          981209                  
0016.02 C     *Entry        Plist                                                                           981217                  
0016.03 C                   Parm                    From             25            user@server              981217                  
0016.04 C                   Parm                    To               25            user@server              981217                  
0016.05 C*                  Parm                    Cc               25            user@server              981209                  
                                                                                                                                    
 F3=Exit   F4=Invite   F5=Réafficher   F9=Rappel   F10=Curseur   F11=Basculer                                                       
 F16=Répéter recherche   F17=Répéter remplacement   F24=Autres touches                                                              
                                         (C) COPYRIGHT IBM CORP. 1981, 1999.