Discussion :

[JauB]

Bonjour,
Est ce qu'il y a une commande (langage CL) pour tester sur l'existence d'un fichier dans une bibliothèque donnée ?
En fait je veux copier un fichier à partir d'une bibliothèque BIB1 vers QTEMP à chaque exécution d'un CL CL1. Mais cette copie ne doit normalement s'ffectuer que lors du premier lancement du CL (question d'optimisation). Comme ça, si le fichier y existe déjà, c'est pas la peine de l'y copier.
Merci d'avance.

[K2R400]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CHKOBJ     OBJ(QTEMP/FICHIER) OBJTYPE(*FILE)
MONMSG     MSGID(CPF9801) EXEC(DO)       
... n'existe pas
ENDDO

[JauB]

Merci pour ta réponse,
En fait les insctructions que je veux exécuter au cas où l'objet n'existe pas dans le QTEMP sont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CPYF       FROMFILE(MABIB/&FILE) TOFILE(QTEMP/&FILE) +
              MBROPT(*ADD) CRTFILE(*YES)

Ce code dois-je l'insérer entre le MONMSG et le ENDDO ?
ou comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CHKOBJ     OBJ(QTEMP/FICHIER) OBJTYPE(*FILE)
MONMSG     MSGID(CPF9801) EXEC(DO)       
... n'existe pas
ENDDO

[K2R400]

Ce code dois-je l'insérer entre le MONMSG et le ENDDO ? ou comment faire ?

Oui.

Pour que le CLP ne plante pas tu peux monitorer les erreurs.
Dans ton cas du peux directement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CPYF       FROMFILE(MABIB/&FILE) TOFILE(QTEMP/&FILE) +
              MBROPT(*REPLACE) CRTFILE(*YES)
MONMSG CPF0000

[JauB]

Mais c'est pas ça ce que je cherche à faire !
En fait je veux tester si lefichier existe déjà dans le QTEMP,si oui je ne le copie pas, sinon je dois lecopier à partir de MABIB.
Voilà comment j'ai procédé (suite à ton précédente réponse):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
PGM        PARM(&FILE)
             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
             CHKOBJ     OBJ(QTEMP/&FILE) OBJTYPE(*FILE)
             MONMSG     MSGID(CPF9801) EXEC(DO)
                CPYF       FROMFILE(MABIB/&FILE) TOFILE(QTEMP/&FILE) +
                             MBROPT(*ADD) CRTFILE(*YES)
             ENDDO
             CLRPFM     QTEMP/&FILE
             ENDPGM

J'ai débougué sur le CLP et ça marche
Merci.

Oui.

Pour que le CLP ne plante pas tu peux monitorer les erreurs.
Dans ton cas du peux directement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CPYF       FROMFILE(MABIB/&FILE) TOFILE(QTEMP/&FILE) +
              MBROPT(*REPLACE) CRTFILE(*YES)
MONMSG CPF0000

[K2R400]

Euhhh, attention après ta copie, tu effaces le contenu du fichier

[JauB]

Oui oui je le clear pour y écrire d'une façon temporaire (par utilisateur), j'en suis conscient

Euhhh, attention après ta copie, tu effaces le contenu du fichier

[rcordonnier]

Bonjour,

pour ma part je pense que un CPF9801 serait plus indiqué dans ce cas
objet non trouvé dans la bibliothèque (le cpf0000 est plutot bateau comme detection d'erreur)
une remarque:
pourquoi conserver des objets dans qtemp, par convention dans beaucoup d'entreprise qtemp est une librairie d'objets temporaires qui ne sont sensés servir que le temps d'execution des programmes qui les appellent.

mais chacun fait ce qu'il veut...........

bien cordialeemnt

[VEVERT59]

Mais c'est pas ça ce que je cherche à faire !
En fait je veux tester si lefichier existe déjà dans le QTEMP,si oui je ne le copie pas, sinon je dois lecopier à partir de MABIB.
Voilà comment j'ai procédé (suite à ton précédente réponse):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
PGM        PARM(&FILE)
             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
             CHKOBJ     OBJ(QTEMP/&FILE) OBJTYPE(*FILE)
             MONMSG     MSGID(CPF9801) EXEC(DO)
                CPYF       FROMFILE(MABIB/&FILE) TOFILE(QTEMP/&FILE) +
                             MBROPT(*ADD) CRTFILE(*YES)
             ENDDO
             CLRPFM     QTEMP/&FILE
             ENDPGM

J'ai débougué sur le CLP et ça marche
Merci.

Bonjour,
Je ne vois pas l'intérêt de copie dans QTEMP..comme son nom l'indique c'est temporaire, cela n'existe que pendant la durée du travail, à moins que nous n'ayez détourner de son intention première...

[JauB]

Tout simplement parce que je dois remplir un fichier par utilisateur afin de l'imprimer. En copiant le fichier dans QTEMP je suis sûr que chaque utilisateur écrira dans son propre fichier (car la QTEMP se crée par session, elle n'est pas partagée entre les différents utilisateurs connectés, d'où son intérêt !)

Bonjour,
Je ne vois pas l'intérêt de copie dans QTEMP..comme son nom l'indique c'est temporaire, cela n'existe que pendant la durée du travail, à moins que nous n'ayez détourner de son intention première...

[Mercure]

Un CRTDUPOBJ à la place du CPYF me semblerait plus approprié dans ce CL.

[JauB]

Why ?
Le fichier que je copie et toujours à blanc ! par le CPYF c'est comme si je copie juste la structure (dans le QTEMP) !

Un CRTDUPOBJ à la place du CPYF me semblerait plus approprié dans ce CL.

[Mercure]

Because

1. Ce n'est pas la bonne méthode pour dupliquer un fichier ou un objet
2. La commande CRTDUPOBJ est faite pour cela
3. CRTDUPOBJ est plus rapide que CPYF
4. Avec CRTDUPOBJ, on peut dupliquer le fichier ou l'objet avec ou sans les données qu'il est susceptible de contenir. Avec CPYF, on est appelé à clearer les éventuelles données par sécurité et c'est d'ailleurs bien ce que tu fais
5. ...

J'en oublie sans doute mais ce sont là les éléments qui me viennent de suite à l'esprit.

[JauB]

OK, je suis convaincu

Because

1. Ce n'est pas la bonne méthode pour dupliquer un fichier ou un objet
2. La commande CRTDUPOBJ est faite pour cela
3. CRTDUPOBJ est plus rapide que CPYF
4. Avec CRTDUPOBJ, on peut dupliquer le fichier ou l'objet avec ou sans les données qu'il est susceptible de contenir. Avec CPYF, on est appelé à clearer les éventuelles données par sécurité et c'est d'ailleurs bien ce que tu fais
5. ...

J'en oublie sans doute mais ce sont là les éléments qui me viennent de suite à l'esprit.