procédure de mise en place

BoTTom | 
PGM PARM(&LIB)
DCL &LIB *CHAR 10
             CRTRPGMOD  MODULE(QTEMP/RTVDBLEN) SRCFILE(CPYDBSTMF) +
                          DBGVIEW(*SOURCE)
             CRTCLMOD   MODULE(QTEMP/CPYDBSTMFC) SRCFILE(CPYDBSTMF) +
                          DBGVIEW(*SOURCE)
             CRTPGM     PGM(&LIB/CPYDBSTMFC) MODULE(QTEMP/CPYDBSTMFC +
                          QTEMP/RTVDBLEN)
             CRTCMD     CMD(&LIB/CPYDBSTMF) PGM(&LIB/CPYDBSTMFC) +
                          SRCFILE(CPYDBSTMF)
ENDPGM




©AF400