gestion de fichier vide en jcl

[twisty]

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

[Luc Orient]

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 ...>

[Lemmings1406]

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.