Discussion :

[nysay27]

Bonjour a tous,

J'ai voulu etre le plus clair possible dans le titre.J'effectue le tri d'un fichier par le programme SORT en incluant des conditions et en effectuant un bild par la suite pour obtenir les informations sélectionnées à la suite des autres.

Enfin, je transforme mon fichier en .txt. Seulement, en sortie, je vois sur mon fichier en passant par le mode hexa des blancs après les informations sélectionnées.Y at-il un moyen de "tronquer" la ligne pour supprimer ces blancs et donc adapté la fin de ligne a la taille des informations récupérées?

Merci

[Luc Orient]

Faudrait voir ce que tu as codé pour se prononcer ...

[nysay27]

Sans problème, je voulais savoir si vous aviez une fonction qui vous venait comme cela mais voila la bete, j'ai vu une fonction IFOUTLEN=n qui permet de tronquer à une longueur déterminer par n pour les format de sortie (tronquer si ltext>ifoutlen et remplacer par les blancs si ltext<ifoutlen) mais cela marche avec dfsort.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 //BATCHLD JOB CLASS=0,MSGCLASS=H,                        
 //      REGION=0M,NOTIFY=UZ10834                         
 //*                                                      
 /*JOBPARM S=UZG1                                         
 //*                                                      
 //S005     EXEC PGM=EQQDELDS                             
 //*                                                      
 //SYSPRINT DD SYSOUT=*                                   
 //*                                                      
 //S010     EXEC PGM=EQQYCAIN,PARM='TURC,MSGOFF,,,MISSCP',
 //         REGION=8M                                     
 //*                                                      
 //STEPLIB  DD DISP=SHR,DSN=UZGP.TWUR.SEQQLMD0            
 //         DD DISP=SHR,DSN=UZGP.GEN.LINKLIB              
 //EQQMLIB  DD DISP=SHR,DSN=UZGP.TWUR.MESSAGES            
 //         DD DISP=SHR,DSN=UZGP.TWUR.SEQQMSG0            
 //EQQYPARM DD DISP=SHR,DSN=UZGP.TWUR.PARMLIB(TURPIF)     
 //SYSPRINT DD SYSOUT=*                                   
 //BATCHL   DD DSN=UZ10834.BATCH,                         
 //         SPACE=(CYL,(50,100),RLSE),DISP=(,CATLG)       
 //OI       DD SYSOUT=*                                   
 //AD       DD SYSOUT=*                                   
 //CPOC     DD SYSOUT=*                                   
 //CPOP     DD SYSOUT=*        
//EXPORTAD DD SYSOUT=*                                
//EXPORTOI DD SYSOUT=*                                
//ERREUR   DD SYSOUT=*                                
//EQQMLOG  DD SYSOUT=*                                
//EQQDUMP  DD SYSOUT=*                                
//*SYSPRINT DD SYSOUT=*                               
//SYSUDUMP DD SYSOUT=*                                
//*                                                   
//SYSIN    DD *                                       
ACTION=OPTIONS,BL=Y,BLPRT=Y,ERROR=N;                  
ACTION=LIST,RESOURCE=ADCOM,ADID=*;                    
//S03      EXEC PGM=FTP,PARM='(EXIT'                  
//*                                                   
//NETRC    DD DISP=SHR,DSN=UZGP.FTP.PARMLIB(FTPURBUZ) 
//*                                                   
//OUTPUT   DD SYSOUT=*                                
//SYSPRINT DD SYSOUT=*                                
//*                                                   
//SYSFTPD  DD *                                       
 NETRCLEVEL 2                                         
 CONDDISP DELETE                                      
//INPUT    DD *                                       
FTP01.retraite.lan                                    
CD T:\xxx\xxxx                             
ASCII                     
PUT 'xxx.xxx' +              
       xxx_xxx.TXT
QUIT

[bernard59139]

Bonjour

le SORT, il est où?

Les fichier avec un RECFM=FB sont souvent remplis avec des "espaces" en fin de ligne.
Ce qui devrait être le cas pour le fichier UZ10834.BATCH.

Mais (le MAIS est important) le FTP devrait supprimer les "espaces" en fin de ligne, sauf option par défaut de votre site, option TRAILingblanks/NOTRAILingblanks.


Donc, sans tous les éléments, il m'est impossible de proposer une solution (si elle existe).

a+

[nysay27]

En effet, il n'y a pas de sort car je me suis trompé de JCL toute mes excuses.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
//SLCBATCH JOB CLASS=0,MSGCLASS=H,NOTIFY=UZ10834           
//S1 EXEC PGM=IDCAMS                                       
//SYSPRINT DD SYSOUT=*                                     
//SYSIN DD *                                               
  DELETE UZ10834.BATCHS                                    
  SET MAXCC=0                                              
//S2 EXEC PGM=SORT                                         
//SORTIN DD DISP=SHR,DSN=UZ10834.BATCH                     
//SORTOUT DD DISP=(NEW,CATLG),                             
// SPACE=(TRK,(50,100),RLSE),                              
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),                      
// DSN=UZ10834.BATCHS                                      
//SYSOUT DD SYSOUT=*                                       
//SYSIN DD *                                               
  SORT FIELDS=(COPY)                                       
  INCLUDE COND=(011,011,CH,EQ,C'ACTION(ADD)',OR,           
                003,006,CH,EQ,C' ADID(',OR,                
                003,007,CH,EQ,C' OWNER(',OR,               
                003,005,CH,EQ,C' DESCR(',OR,               
                009,007,CH,EQ,C'PREADID(')                 
                                                           
  OUTREC PARSE=(%00=(STARTAFT=C'(',ENDBEFR=C')',FIXLEN=30))
                BUILD=(1:%00)                              

//S03      EXEC PGM=FTP,PARM='(EXIT'                 
//*                                                  
//NETRC    DD DISP=SHR,DSN=UZGP.FTP.PARMLIB(FTPURBUZ)
//*                                                  
//OUTPUT   DD SYSOUT=*                               
//SYSPRINT DD SYSOUT=*                               
//*                                                  
//SYSFTPD  DD *                                      
NETRCLEVEL 2                                         
CONDDISP DELETE                                      
//INPUT    DD *                                      
FTP01.retraite.lan                                   
CD T:\TEMPORAIRE\xxx                            
ASCII                                                
PUT 'xxx' +                               
       xxx.txt                         
QUIT

Y a t-il un autre moyen que de joué sur les paramètres txt?

[bernard59139]

Bonjour

1. change LRECL=FB en LRECL=VB
2. dans la sysin, change

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   OUTREC PARSE=(%00=(STARTAFT=C'(',ENDBEFR=C')',FIXLEN=30)),
       BUILD=(1:%00)

   en

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   OUTFIL FTOV,VLTRIM=C' ',
       PARSE=(%00=(STARTAFT=C'(',ENDBEFR=C')',FIXLEN=30))
       BUILD=(%00)

bon weekend
+