     PGM PARM(&MAXSIGN)

     DCL        VAR(&MAXSIGN) TYPE(*CHAR) LEN(6)

     MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(END))

/* Retrieve maximum sign-on attemps allowed                          */
     RTVSYSVAL  SYSVAL(QMAXSIGN) RTNVAR(&MAXSIGN)

END:
     ENDPGM
