PGM
             DCL &DATA *CHAR 266
             DCLF MEMOIDXD
             RTVJOBA    CURUSER(&USER)
             RTVUSRPRF  GRPPRF(&GRP)
 RTVPRF:     IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0'
             ELSE CHGVAR &IN30 '1'
             CHGVAR &IN31 '0'
             RTVUSRIDXE USRIDX(AF4TOOL/MEMO) SELECT(*EQ &USER) +
                          RTNVAL(&DATA)
              MONMSG CPF0000 EXEC(CHGVAR &DATA ' ')
              CHGVAR &MEMOTXT %SST(&DATA 11 256)
 AFFPRF:     SNDRCVF    RCDFMT(FMT)
             IF &IN03 RETURN
             IF &IN10 GOTO RTVGRP
             CHGVAR &DATA (&USER *CAT &MEMOTXT)
             ADDUSRIDXE USRIDX(AF4TOOL/MEMO) INSERTYPE(*RPLKEY) +
                          ENTRY(&DATA)
             GOTO AFFPRF
 RTVGRP:     CHGVAR &IN30 '0'
             CHGVAR &IN31 '1'
             RTVUSRIDXE USRIDX(AF4TOOL/MEMO) SELECT(*EQ &GRP) +
                          RTNVAL(&DATA)
              MONMSG CPF0000 EXEC(CHGVAR &DATA ' ')
              CHGVAR &MEMOTXT %SST(&DATA 11 256)
 AFFGRP:     SNDRCVF    RCDFMT(FMT)
             IF &IN03 RETURN
             IF &IN12 GOTO RTVPRF
             CHGVAR &DATA (&GRP *CAT &MEMOTXT)
             ADDUSRIDXE USRIDX(AF4TOOL/MEMO) INSERTYPE(*RPLKEY) +
                          ENTRY(&DATA)
             GOTO AFFGRP
             ENDPGM