PGM PARM(&PARMLIB  &PARMFILE &PARMMBR  &PARMTYPE &PARMDSRC &PARMTSRC +
                   &PARMDOBJ &PARMTOBJ &PARMTEXT &PARMTEST)

  DCL &PARMLIB    *CHAR LEN(10)
  DCL &PARMFILE   *CHAR LEN(10)
  DCL &PARMMBR    *CHAR LEN(10)
  DCL &PARMTYPE   *CHAR LEN(10)
  DCL &PARMDSRC   *CHAR LEN(07) /* DATE WHEN SOURCE CHANGED */
  DCL &PARMTSRC   *CHAR LEN(06) /* TIME WHEN SOURCE CHANGED */
  DCL &PARMDOBJ   *CHAR LEN(07) /* DATE WHEN OBJECT CHANGED */
  DCL &PARMTOBJ   *CHAR LEN(06) /* TIME WHEN OBJECT CHANGED */
  DCL &PARMTEXT   *CHAR LEN(50)
  DCL &PARMTEST   *CHAR LEN( 1) /* Y/N */

  DCL &CONTROL    *CHAR LEN(32)
  DCL &QUALNAME   *CHAR LEN(30)
  DCL &INFO       *CHAR LEN(86)

  CHGVAR &QUALNAME VALUE(&PARMLIB *CAT &PARMFILE *CAT &PARMMBR)
  IF (&PARMMBR  *EQ '          ') GOTO DONE

  IF (&PARMTYPE *EQ '*NONE     ') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('T ' *CAT &QUALNAME)
          CHGVAR &INFO    VALUE('          ')
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO
  ELSE +
  IF (&PARMTYPE *NE '          ') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('T ' *CAT &QUALNAME)
          CHGVAR &INFO    VALUE(&PARMTYPE)
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO

  IF (&PARMDSRC *NE '0000000') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('S ' *CAT &QUALNAME)
          CHGVAR &INFO VALUE(&PARMTYPE *CAT &PARMDSRC *CAT &PARMTSRC)
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO

  IF (&PARMDOBJ *NE '0000000') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('O ' *CAT &QUALNAME)
          CHGVAR &INFO VALUE(&PARMTYPE *CAT '             ' +
                                       *CAT &PARMDOBJ *CAT &PARMTOBJ)
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO

  IF (&PARMTEXT *EQ '*NONE ') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('D ' *CAT &QUALNAME)
          CHGVAR &INFO    VALUE(&PARMTYPE          +
            *CAT '                          '      +
            *CAT '                                                  ')
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO
  ELSE +
  IF (&PARMTEXT *NE '*NONE ') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('D ' *CAT &QUALNAME)
          CHGVAR &INFO    VALUE(&PARMTYPE          +
            *CAT '                          '      +
            *CAT &PARMTEXT)
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
       ENDDO

DONE:
  IF (&PARMTEST *EQ 'Y') +
       THEN(DO)
          CHGVAR &CONTROL VALUE('G ' *CAT &QUALNAME)
          CALL PGM(MIMBRINF) PARM(&CONTROL &INFO)
          SNDMSG MSG(&INFO) TOUSR(*REQUESTER)
       ENDDO
ENDPGM