PGM
             STRCMTCTL  LCKLVL(*CS) NFYOBJ(AF4TOOL/JNOTIFY (*FILE +
                          JNOTIFY))
               MONMSG CPF8351 EXEC(DO)
               ENDCMTCTL
               STRCMTCTL  LCKLVL(*CS) NFYOBJ(AF4TOOL/JNOTIFY (*FILE +
                            JNOTIFY))
               ENDDO
             CALL JPGM4
              MONMSG     MSGID(CPF0000 RPG0000) EXEC(ROLLBACK)
 
             ENDCMTCTL
             ENDPGM