Discussion :

[brunodu60]

Bonjour,

Je viens de créer un CL permettant de supprimer et de restaurer une bib de l'AS400 de production vers l'AS400 de Backup. Dans ce CL j'utilise la cde SBMRMTCMD CMD('BIB FICHIER').

Comment faire pour éviter de mettre en dur le nom du fichier, je souhaiterais le remplacer par une variable &FICHIER.

Merci de vos aides

[Mercure]

J'emploierais plutot RUNRMTCMD que j'insérerais dans un CL et je soumettrais ensuite ce CL en batch par un simple SBMJOB. Pas besoin de DDM.

Peux-tu coller ici ton CL ?

[brunodu60]

Voici mon CL:
PGM PARM(&BIB)

DCL VAR(&BIB) TYPE(*CHAR) LEN(10)
DCL VAR(&DLTLIB) TYPE(*CHAR) LEN(17)

/*----------------------*/
/* Traitement sur HAWAI */
/*----------------------*/
SBMRMTCMD CMD('DLTF COPIEFICH/TOTO') +
DDMFILE(SERVICE/TRTAHHAW)
SBMRMTCMD CMD('CRTSAVF COPIEFICH/TOTO') +
DDMFILE(SERVICE/TRTAHHAW)
/*----------------------*/

CLRPFM FILE(SERVICE/QTXTSRC) MBR(OUTPUTO)
OVRDBF FILE(INPUT) TOFILE(SERVICE/QTXTSRC) MBR(INPUTO)
OVRDBF FILE(OUTPUT) TOFILE(SERVICE/QTXTSRC) MBR(OUTPUTO)
CALL PGM(SERVICE/ENVOIFILE)

FTP RMTSYS(HAWAI)

/*----------------------*/
/* Traitement sur HAWAI */
/*----------------------*/
CHGVAR VAR(&DLTLIB) VALUE('DLTLIB ' *CAT &BIB)
SBMRMTCMD CMD('&DLTLIB') DDMFILE(SERVICE/TRTAHHAW)
SBMRMTCMD CMD('RSTLIB SAVLIB(&BIB) DEV(*SAVF) +
SAVF(COPIEFICH/TOTO)') +
DDMFILE(SERVICE/TRTAHHAW)
/*----------------------*/

DLTOVR FILE(*ALL)
MONMSG MSGID(CPF0000)

ENDPG

Comment faire pour que le paramètre &BIB soit pris en compte?

[jump400]

Bjr,

Voilà comment faire :

Code :

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

1
2
3
4
5
6
7
CHGVAR VAR(&DLTLIB) VALUE('DLTLIB ' *CAT &BIB)
          SBMRMTCMD  CMD(&DLTLIB) DDMFILE(SERVICE/TRTAHHAW)     

          SBMRMTCMD  CMD('RSTLIB SAVLIB(' *CAT &BIB *TCAT ') +  
                       DEV(*SAVF) SAVF(COPIEFICH/TOTO)') +      
                       DDMFILE(SERVICE/TRTAHHAW)

Attention, dans le premier SBMRMTCMD, la variable &DLTLIB ne doit pas être entourée de quotes, sinon c'est la chaîne '&DLTLIB' qui est transmise et exécutée au lieu de son contenu.

De toute manière, il n'est pas nécessaire de passer par cette variable &DLTLIB. il suffit de faire directement :

Code :

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

1
2
          SBMRMTCMD  CMD('DLTLIB ' *CAT &BIB) DDMFILE(SERVICE/TRTAHHAW)

Le "secret" réside dans les opérateurs de concaténation (*CAT, *TCAT et *BCAT). Ne pas hésiter à demander de la formation ; l'AS400 n'est pas une machine tout à fait comme les autres et on peut perdre beaucoup de temps (donc d'argent ) à essayer d'apprendre sur le "tas")

[brunodu60]

Merci cela fonctionne