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

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