IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

JCL - SORT Discussion :

gestion de fichier vide en jcl


Sujet :

JCL - SORT

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    78
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 78
    Points : 39
    Points
    39
    Par défaut 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

  2. #2
    Membre expert
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2005
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2005
    Messages : 1 473
    Points : 3 283
    Points
    3 283
    Par défaut
    ICETOOL sait faire ça avec l'opérateur COUNT.

    Par exemple, pour lever le code 4 :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 ...>

  3. #3
    Membre actif
    Inscrit en
    Novembre 2009
    Messages
    165
    Détails du profil
    Informations personnelles :
    Âge : 40

    Informations forums :
    Inscription : Novembre 2009
    Messages : 165
    Points : 216
    Points
    216
    Par défaut
    Bonjour,

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

    Soit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

Discussions similaires

  1. gestion de fichier à partir d'un formulaire
    Par seb59dk dans le forum Access
    Réponses: 3
    Dernier message: 06/09/2005, 17h52
  2. Fonctions de gestion de fichiers
    Par sebduth dans le forum Fortran
    Réponses: 4
    Dernier message: 22/08/2005, 11h38
  3. Mysqldump donnant un fichier vide
    Par simoryl dans le forum Shell et commandes GNU
    Réponses: 2
    Dernier message: 15/02/2005, 17h42
  4. [JDOM] Gestion "gros fichiers"
    Par Haazheel dans le forum Format d'échange (XML, JSON...)
    Réponses: 10
    Dernier message: 17/10/2003, 14h42
  5. [Concept] BD ou Gestion par fichier. Intérêt de la BD ?
    Par Cian dans le forum Décisions SGBD
    Réponses: 3
    Dernier message: 28/11/2002, 13h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo