Module pool error

Question

Dear All,
This is continuation of my last doubt.. this is my SAVE code:
WHEN 'OK'.
      CLEAR ok_code.
      DATA : p_prime(8),
             p_bend(8) ,
             p_repair(8) ,
             p_rejected(8).
      DATA:yield2(10).
      DATA:yield3(10).
      IF itab1-idnrk1 CS 'SHRB0'.
        DATA :slit2 TYPE zslit-slit1.
        DATA :menge2 TYPE zslit-***_coil1.
        LOOP AT itab1.
          IF itab1-lot IS NOT INITIAL.
            ON CHANGE OF itab1-slit1.
              itab1-slit6 = v_slit1 - itab1-slit1.
              itab1-menge1 = itab1-menge2 * itab1-slit1.
              itab1-menge3 = itab1-menge2 * itab1-slit6.
              CONCATENATE itab1-charg1 itab1-slit1 INTO itab1-charg2.
              MODIFY  itab1 TRANSPORTING menge1 slit1 slit6  menge3 charg2.
            ENDON.
          ENDIF.
        ENDLOOP.
        DELETE ADJACENT DUPLICATES FROM itab1 COMPARING ALL FIELDS.
        BREAK-POINT.
        DATA : BEGIN OF tot OCCURS 0,
               sum LIKE zslit-***_coil1,
               END OF tot.
        DATA : count1 TYPE zppmill-sno.
        tot-sum = 0.
        LOOP AT itab1.
          IF itab1-idnrk = itab1-idnrk1.
            tot-sum = tot-sum + itab1-menge1.
            AT LAST.
              APPEND tot.
            ENDAT.
          ENDIF.
        ENDLOOP.
        IF tot[] IS NOT INITIAL.
          LOOP AT itab1.
            IF itab1-idnrk1 NE ' '.
              IF itab1-idnrk = itab1-idnrk1.
                itab1-edcut = ( tot-sum * '0.39' ) / 100 .
                itab1-edbaw = ( tot-sum * '1.4' ) / 100.
                itab1-inchip = ( tot-sum * '0.05' ) / 100.
                MODIFY itab1 TRANSPORTING edcut edbaw inchip .
              ENDIF.
            ENDIF.
          ENDLOOP.
        ENDIF.
        BREAK-POINT.
        CLEAR count1.
        SELECT MAX( sno ) FROM zppmill INTO count1.
        LOOP AT itab1.
          IF itab1-idnrk1 NE ' '.
            IF itab1-idnrk = itab1-idnrk1.
              count1 = count1 + 1.
              zppmill-sno = count1.
              zppmill-matnr = p_matnr.
              zppmill-aufnr = p_aufnr.
              zppmill-werks = p_werks.
              zppmill-verwe = crhd-arbpl.
              zppmill-thick = mark_thick.
              zppmill-length = pipe.
              zppmill-bsum = bsum_c4.
              zppmill-con_qty = yield.
              zppmill-prime = p_prime.
              zppmill-bend = p_bend.
              zppmill-repair = p_repair.
              zppmill-reject = p_rejected.
              zppmill-prd_qty = yield3.
              zppmill-crd_user = itab1-ernam.
              zppmill-crd_dt = itab1-ersda.
              zppmill-kaptprog = p_shift.
              zppmill-desc_mil = batch_txt.
              zppmill-opnam = itab1-opnam.
              zppmill-edbaw = itab1-edbaw.
              zppmill-edcut = itab1-edcut.
              zppmill-flag1 = 'X'.
              zppmill-flag2 = 'X'.
              IF sy-subrc = 0.
                INSERT zppmill.
                COMMIT WORK.
              ENDIF.
        ENDIF.
        ENDIF.
              CLEAR : zppmill.
        ENDLOOP.
        CLEAR count1.
        SELECT MAX( sno ) FROM zppmilldet INTO count1.
        LOOP AT ITAB1.
        IF itab1-idnrk1 NE ' '.
        IF itab1-idnrk = itab1-idnrk1.
        ZPPMILLDET-SNO = COUNT1.
        ZPPMILLDET-MATNR = p_matnr.
        ZPPMILLDET-CHARG = ITAB1-CHARG1.
        ZPPMILLDET-NSLIT = ITAB1-SLIT1.
        ZPPMILLDET-CLABS = ITAB1-MENGE1.
        ZPPMILLDET-CRD_DT = itab1-ersda.
        ZPPMILLDET-KAPTPROG = P_SHIFT.
        IF SY-SUBRC = 0.
        INSERT ZPPMILLDET.
        COMMIT WORK.
        ENDIF.
        ENDIF.
        ENDIF.
        CLEAR : ZPPMILLDET.
        ENDLOOP.
        CLEAR count1.
        SELECT MAX( sno ) FROM zppalldet INTO count1.
        LOOP AT ITAB1.
        IF itab1-idnrk1 NE ' '.
        IF itab1-idnrk = itab1-idnrk1.
        ZPPALLDET-SNO = COUNT1.
        ZPPALLDET-MATNR = p_matnr.
        ZPPALLDET-SDATE = SY-DATUM.
        ZPPALLDET-KAPTPROG = P_SHIFT.
        ZPPALLDET-CHARG = ITAB1-CHARG1.
        ZPPALLDET-LOTNO = ITAB1-LOT.
        ZPPALLDET-NPIPE = NOFP.
        ZPPALLDET-FLAG1 = 'X'.
        ZPPALLDET-FLAG2 = 'X'.
        IF SY-SUBRC = 0.
        INSERT ZPPALLDET.
        COMMIT WORK.
        ENDIF.
        ENDIF.
        ENDIF.
        CLEAR : ZPPALLDET.
        ENDLOOP.
Edited by: rsandhosh on Feb 9, 2011 7:55 AM
Moderator message: please do not open multiple threads for the same or similar issue.
Moderator message: please use more descriptive subject lines for your posts.
Edited by: Thomas Zloch on Feb 9, 2011 12:42 PM

Answer 1

hi..
can u tell me exactly where is the button placed?? i mean is it on the application toolbar or where???
plus make sure that CON (func code) is assigned to the button (in screen layout)..
give me a little bit more details abt ur problem??
also as far as LOOP AT SCREEN goes... u can do that inside the code of a PBO module (First PBO preferred 4 ur case).. also the contents of the screen table is the same as what u see in the ELEMENT LIST tab while u r defining the screen (in SE51).
regards,
sagar
Message was edited by:
        Sagar Mehta