Quick_EDH : Programme de contrôle de la licence
Posté : lun. 06 déc. 2021, 15:27:41
Bonjour à toutes et tous,
Je souhaite avoir votre aide sur un programme que je souhaite mettre en place. Mais comme je ne suis pas du tout programmeur/développeur. Si quelqu'un m'aider. Voici le source. Merci.
PGM
DCL &MSGID *CHAR LEN(7)
DCL &KEYERR *CHAR LEN(70)
ADDLIBLE LIB(PMEDH)
MONMSG MSGID(CPF0000)
ADDLIBLE LIB(PMEDHTOOLS)
MONMSG MSGID(CPF0000)
PMEDH/PMSYSCOD OPT(*CHK) PRD(13)
RCVMSG MSG(&KEYERR) MSGID(&MSGID)
IF COND(%SST(&MSGID 1 5) *NE 'SYSEC03') THEN(GOTO CMDLBL(ENDPGM))
SNDPGMMSG MSG(&MSGID *BCAT &KEYERR ) MSGTYPE(*INFO) TOMSGQ(MYLIB/MYMSGQ)
ENDPGM : ENDPGM
Je souhaite avoir votre aide sur un programme que je souhaite mettre en place. Mais comme je ne suis pas du tout programmeur/développeur. Si quelqu'un m'aider. Voici le source. Merci.
PGM
DCL &MSGID *CHAR LEN(7)
DCL &KEYERR *CHAR LEN(70)
ADDLIBLE LIB(PMEDH)
MONMSG MSGID(CPF0000)
ADDLIBLE LIB(PMEDHTOOLS)
MONMSG MSGID(CPF0000)
PMEDH/PMSYSCOD OPT(*CHK) PRD(13)
RCVMSG MSG(&KEYERR) MSGID(&MSGID)
IF COND(%SST(&MSGID 1 5) *NE 'SYSEC03') THEN(GOTO CMDLBL(ENDPGM))
SNDPGMMSG MSG(&MSGID *BCAT &KEYERR ) MSGTYPE(*INFO) TOMSGQ(MYLIB/MYMSGQ)
ENDPGM : ENDPGM