Déplacer un membre source

BoTTom |
             CMD        PROMPT('Déplacer membre source')
             PARM       KWD(SRCFILE) TYPE(Q1) MIN(1) PROMPT('Fichier +
                          source')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(SRCMBR) TYPE(*NAME) MIN(1) +
                          PROMPT('membre source')
             PARM       KWD(TOFILE) TYPE(Q2) MIN(1) PROMPT('Vers +
                          fichier source')
 Q2:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(TOMBR) TYPE(*NAME) DFT(*SAME) +
                          SPCVAL((*SAME)) MIN(0) PROMPT('Nouveau nom')
             PARM       KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*NONE) VALUES(*NEW *ADD *REPLACE) +
                          SPCVAL((*NONE)) MIN(0) PROMPT('Option de +
                          membre')




©AF400