SNDPGMMSG contenu d'un PFM (CL)

[Hell 400]

Bonjour,

Je cherche, en CL, à récupérer le contenu d'un membre d'un PF (un log d'un script QSH) et le renvoyer par un SNDPGMMSG.
Et je cale...
Quelqu'un a une idée ?

Merci

[FORMULARY]

Un truc de ce genre devrait aller :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PGM                       
                          
DCLF  MABIB/MONFICHIER    
                          
BCLE:                     
                          
RCVF  *FILE               
MONMSG CPF0000 *N RETURN  
                          
SNDPGMMSG &VARIABLE ....  
MONMSG CPF0000            
                          
GOTO BCLE                 
                          
ENDPGM

On récupère l'enregistrement du fichier dans une variable
(Si le fichier n'a qu'une variable bien sûr)
et on envoie le message.
Comme on ne récupère qu'un enregistrement à la fois, on boucle !