PGM
             STRCMTCTL  LCKLVL(*CHG)
               MONMSG CPF8351 EXEC(DO)
               ENDCMTCTL
               STRCMTCTL  LCKLVL(*CHG)
               ENDDO
             CALL JPGM2
              MONMSG     MSGID(CPF0000 RPG0000) EXEC(ROLLBACK)
 
             ENDCMTCTL
             ENDPGM