gestion de fichier vide en jcl

Version imprimable

08/03/2011, 14h27
twisty

gestion de fichier vide en jcl

Bonjour,

Dans un jcl, je souhaite utiliser un fichier, à condition qu'il ne soit pas vide. Si c'est le cas, je veux passer au step suivant. Pourriez-vous me communiquer l'instruction, en jcl, qui permet de savoir si ce fichier est vide ou non ?

Merci d'avance.

Twisty

ICETOOL sait faire ça avec l'opérateur COUNT.

Par exemple, pour lever le code 4 :
Code:

1 2 3 4 5 6 //ICETOOL EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COUNT FROM(IN) RC4 EMPTY //IN DD DISP=SHR,DSN=< ... fichier à tester ...>

Bonjour,

Je ne connaissais pas cette façon de faire, j'utilise plutôt IDCAMS:

Soit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
//TESTFIC  EXEC  PGM=IDCAMS                                           
//*                                                                   
//SYSPRINT DD SYSOUT=*                                                
//INDD     DD  DSN=Fichier_a_tester,                            
//                 DISP=SHR           
//SYSIN    DD  *                                                      
     PRINT IFILE(INDD) COUNT(1)                                       
     IF LASTCC NE 0 THEN SET MAXCC =4                                 
/*                                                  
//IFTEST1  IF (TESTFIC.RC EQ 0) THEN    
//step......
//ENDTEST1 ENDIF

Soit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
//TESTFIC  EXEC  PGM=IDCAMS                                           
//*                                                          
//SYSPRINT DD  SYSOUT=*,                                              
//             OUTPUT=*.OUTA                                          
//SYSIN    DD  *                                                      
     PRINT INDATASET('Fichier à tester') COUNT(1)               
     IF LASTCC NE 0 THEN SET MAXCC = 4                                
/*                                                                    
//IFTEST1  IF (TESTFIC.RC EQ 0) THEN    
//step......
//ENDTEST1 ENDIF

La seule différence entre les deux steps, c'est que le second (Print Indataset) permet de tester le fichier qu'il soit existant ou non.

24/03/2025, 17h18
TIPI 30

1 pièce(s) jointe(s)

fichier à génération

Bonjour,
j'ai testé la solution 2 pour savoir si un fichier est vide.
Avec un fichier à génération, si je mets (0) au lieu du numéro de génération ça ne fonctionne pas.
Avez-vous une solution ?
En vous remerciant.
Pièce jointe 665852
25/03/2025, 10h55
escartefigue

Avec un fichier à génération, la solution 2 n'a pas forcément de raison d'être puisqu'il existe toujours à minima la racine du GDG.
Du coup, la version classique avec le nom du dataset dans la carte DD et la génération 0 est applicable :

//INDD DD DISP=SHR,DSN=MON.GDG(0)

Le seul cas où ça plantera, c'est si la racine GDG a été détruite... ce qui ne devrait pas arriver.
26/03/2025, 17h28
bernard59139

Bonjour

pour completer

un "PRINT INDATASET(xxxx)" ne fonctionne pas avec les versions de GDG. le fichier xxxx doit être " fully qualified".
cad, que pour une version de gdg, il faut coder xxxx.G0123V00.

idem pour tous les ordres idcams, pour la commande TSO ALLOCATE.

a+