PGM
             RMVMSG     PGMQ(*PRV) CLEAR(*ALL)
             ENDPGM