Discussion :

[Nageur]

Bonjour,
Je cherche à mettre le contenu de plusieurs membres d'une bibliothèque dans un fichier séquentiel sous MVS.
Il me semble que ceci peut être fait par un IEBPTCH mais je n'en suis pas sur.
Merci pour votre aide.

[Darkzinus]

Bonjour, c'est effectivement possible (tu auras des caractères d'impression présents en colonne 1 que tu peux supprimer via un sort à la suite de l'utilitaire) :

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
//IEBPT  EXEC PGM=IEBPTPCH                      
//*** MESSAGES (FBA,121)                        
//SYSPRINT DD SYSOUT=*                          
//*** INPUT PARTITIONED DATA SET (FB,80)        
//SYSUT1   DD DSNAME=&BIBPDS,DISP=SHR                                          
//*** OUTPUT PRINT DATA SET (FBA,121)           
//SYSUT2   DD DSN=FICSEQENTIEL,       
//            DISP=(NEW,CATLG,DELETE),           
//            SPACE=(TRK,(1,100),RLSE)
//*** CONTROL STATEMENT                         
//SYSIN DD *                                    
 PRINT     TYPORG=PO,                           
           MAXFLDS=80,                          
           MAXLINE=1000                         
 RECORD    FIELD=(80)                           
/*

[Nageur]

Bonjour,

Oui c'est ceci et j'ai donc un "reformatage" à faire après pour enlever ce premier caractère et récupérer les infos dans un fichier de 80 de long.

Merci