Bonjour,
je souhaiterai pouvoir extraire les infos de la 1ere ligne du 1er au 60e caractères.
Et de passer cette info en variable, afin de pouvoir le mettre dans cette info en message.
Exemple :
84;EUR;*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0
20180129_0001260_0002256519385_ppf_factures_AB21.csv 00000000000
M ;CALLAN ;OLIVIER ;03XXXXXW ;00XXXXXXU;000000216
Info à récupérer :
Pour transférer vers un destinataire&FICVAR=20180129_0001260_0002256519385_ppf_factures_AB21.csv
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 //*------------------------- //* ENVOI FICHIER //*------------------------- //S0000020 EXEC SYPELREQ //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * APPL=000 COMP=3 LOCAL=XXXXX DEST=XXXXX DSNORIG=RBM.REM.CCCV010.PS.DOCA N=M7DAXXXJ MSG1=&FICVAR //*
Xavier
Partager