Comment tester la présence d'un fichier plat?

[magmerlin]

Bonjour,

Je voudrais tester la présence d'un fichier plat par JCL. J'avais trouvé la méthode suivante (LISTCAT)

Code :

1
2
3
4
5
6
//TESTDIM  EXEC PGM=IDCAMS                    
//SYSPRINT DD SYSOUT=*                        
//SYSIN    DD *                               
 LISTCAT ENTRIES(mon_fichier) -
        ALL                                   
/*

MAis cela ne marche pas dans mon besoin précis car mon fichier est suffixé par une date passée en paramètre:

Code :

1
2
3
4
5
6
7
8
9
SET DATE=JJMMAA
....
.... 
//TESTDIM  EXEC PGM=IDCAMS                    
//SYSPRINT DD SYSOUT=*                        
//SYSIN    DD *                               
 LISTCAT ENTRIES(mon_fichier.D&DATE) -
        ALL                                   
/*

Ca plante.

Avez-vous une idée qui répondrait à mon besoin ?
MErci

[Homer-ac]

bonjour,
Si un listcat (ou un print, ou un repro) est une solution simple mais on bute sur l'impossibilité en MVS de variabiliser un fichier 'cartes' de type sysin. Ce pb est assez récurrent. La solution la plus usuelle, créer le fichier SYSIN par un STEP en amont qui crée un fichier d'après ce qu'il à reçu en PARM=
Un REXX, un COBOL, ce que l'on veut en fait. En passant il existe certainement un programme 'maison' sur le site qui fait ça. Un exemple COBOL entre autres ici ou en REXX mais si c'est pour tester qu'un fichier existe autant le faire directement dans le REXX tres simple

Code :

1
2
3
4
5
/* REXX test fichier */
arg DSN .
DSN = strip(DSN,'B',"'")
if SYSDSN("'"DSN"'") = 'OK' then EXIT 0
else EXIT 4

NB. En prod. via un outil d'ordonnancement/préparation, style TWS, ce problème est pris en compte par l'outil, on peut variabiliser n'importe quoi.

[Homer-ac]

En complément, et pour répondre à une question par MP (à éviter sur ce forum, toute question/réponse peut être utile à qqun d'autre).
Le REXX est à copier dans un PDS quelconque de FB 80.
Exécution Batch via le JCL suivant

Code :

1
2
3
4
5
//STEPREXX EXEC PGM=IKJEFT01,PARM='ESTLA MON.FICHIER.A.TESTER'  
//SYSTSPRT DD SYSOUT=*                                          
//SYSPROC  DD DISP=SHR,DSN=MON.PDS.CONTENANT.LE.REXX.ESTLA      
//SYSTSIN  DD DUMMY                                             
//*

En SYSPROC le PDS qui contient le REXX.
en PARM le nom du membre qui contient le REXX suivi de ce que l'on veut lui passer en PARM, ici un nom de fichier.
Pour ce REXX simplifié, pas de message, seulement RC = 0 si fichier trouvé, et 4 si non trouvé ou accessible.

[Lemmings1406]

Allez voir ce sujet, il pourra vous apporter une solution assez simple:

http://www.developpez.net/forums/d84...ables-systeme/

[rokma95]

Ceci pourrait répondre à ta question :

Code :

1
2
3
4
5
6
7
//TSTVIDE EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                         
//DD1      DD DSN=RNRJP10.NRJU01JR.NRJ0.D%OYMD1..H%OHHMM,      
//            DISP=SHR                                         
//SYSIN    DD *                                                
 PRINT INFILE(DD1) COUNT (1);                                  
//*

[sam01]

Envoyé par Homer-ac

bonjour,

Un REXX, un COBOL, ce que l'on veut en fait. En passant il existe certainement un programme 'maison' sur le site qui fait ça.

Bonjour Homer-ac, aurais-tu un exemple en REXX (l'équivalent du COBOL) ?

Merci.

[Peut-êtreUneRéponse]

@Sam01, @Homer-ac nous a quitté il y a quelque temps.

J'ai une pensée pour ses proches chaque fois que je revoi un thread remonter avec une de ses réponses.

.

[sam01]

Ok merci.

J'ai appris ça...