Entries in customised table

Question

Hi,
   I created a customised table,in that user will enter H(hold)in a particular field.he will take the printout using the prog which i created and he will check whether the details are correct and if correct then they wants to change all the H to S.
   Here i dont know how to change all H to S .not that manually the user will go and change all the H to S.it should be automatically all H should change to S.
   Pls help me to solve the problem and give me in details would be more usefull for me.
Thanks,
Raj.

Answer 1

> Hi Rajendra
>
Hi Eswar,
   Even i put in end of the prog but it is not fetching the data.pls check help to solve the issue.
   below is the coding i used and i wants to use the code in   Form  1200_INPUT.
Database tables
TABLES : Z2006TMMAMEND.        "Amendment Notice Master Data
Internal tables
DATA : BEGIN OF ITAB OCCURS 0,
              ZMATNR  LIKE Z2006TMMAMEND-ZMATNR,
              ZMAKTX  LIKE Z2006TMMAMEND-ZMAKTX,
              ZAMEND  LIKE Z2006TMMAMEND-ZAMEND,
              ZMATKL  LIKE Z2006TMMAMEND-ZMATKL,
              ZCHARG  LIKE Z2006TMMAMEND-ZCHARG,
              ZWEEKS  LIKE Z2006TMMAMEND-ZWEEKS,
              ZDATES  LIKE Z2006TMMAMEND-ZDATES,
              ZSTATUS LIKE Z2006TMMAMEND-ZSTATUS,
       END OF ITAB.
******TO GET THE LAST AMENDMENT NO
DATA : BEGIN OF ITABLAST OCCURS 0,
             ZMATNR  LIKE Z2006TMMAMEND-ZMATNR,
             ZMAKTX  LIKE Z2006TMMAMEND-ZMAKTX,
             ZAMEND  LIKE Z2006TMMAMEND-ZAMEND,
             ZMATKL  LIKE Z2006TMMAMEND-ZMATKL,
             ZCHARG  LIKE Z2006TMMAMEND-ZCHARG,
             ZWEEKS  LIKE Z2006TMMAMEND-ZWEEKS,
             ZDATES  LIKE Z2006TMMAMEND-ZDATES,
             ZSTATUS LIKE Z2006TMMAMEND-ZSTATUS,
       END OF ITABLAST.
******FOR INPUT AMENDMENT NOTICES LISTING FOR YEAR WEEK NO***********.
DATA : BEGIN OF ITAB_H OCCURS 0,
             ZMATNR  LIKE Z2006TMMAMEND-ZMATNR,
             ZMAKTX  LIKE Z2006TMMAMEND-ZMAKTX,
             ZAMEND  LIKE Z2006TMMAMEND-ZAMEND,
             ZMATKL  LIKE Z2006TMMAMEND-ZMATKL,
             ZCHARG  LIKE Z2006TMMAMEND-ZCHARG,
             ZWEEKS  LIKE Z2006TMMAMEND-ZWEEKS,
             ZDATES  LIKE Z2006TMMAMEND-ZDATES,
             ZSTATUS LIKE Z2006TMMAMEND-ZSTATUS,
             ZAMENDL LIKE Z2006TMMAMEND-ZAMEND,
       END OF ITAB_H.
******FOR  AMENDMENT NOTICES UPDATE LIST***********
DATA : BEGIN OF ITAB_S OCCURS 0,
              ZMATNR  LIKE Z2006TMMAMEND-ZMATNR,
              ZMAKTX  LIKE Z2006TMMAMEND-ZMAKTX,
              ZAMEND  LIKE Z2006TMMAMEND-ZAMEND,
              ZMATKL  LIKE Z2006TMMAMEND-ZMATKL,
              ZCHARG  LIKE Z2006TMMAMEND-ZCHARG,
              ZWEEKS  LIKE Z2006TMMAMEND-ZWEEKS,
              ZDATES  LIKE Z2006TMMAMEND-ZDATES,
              ZSTATUS LIKE Z2006TMMAMEND-ZSTATUS,
              ZAMENDL LIKE Z2006TMMAMEND-ZAMEND,
              ZAMENDR LIKE Z2006TMMAMEND-ZAMEND,
        END OF ITAB_S.
DATA :I_ITABLAST LIKE ITABLAST OCCURS 0 WITH HEADER LINE.
DATA: WA         LIKE ITAB.
DATA: WA1        LIKE ITAB_H.
DATA: WA2        LIKE ITAB_S.
DATA: V_INT      TYPE INT4.
DATA: W_ZMATKL   LIKE Z2006TMMAMEND-ZMATKL.
DATA: W_ZWEEKS   LIKE Z2006TMMAMEND-ZWEEKS.
DATA: L_TABIX    LIKE SY-TABIX.
*SELECTION-SCREEN
selection-screen begin of block mysel with frame title text-001.
SELECT-OPTIONS : S_ZMATNR FOR Z2006TMMAMEND-ZMATNR,
                 S_ZWEEKS FOR Z2006TMMAMEND-ZWEEKS,
                 S_ZCHARG FOR Z2006TMMAMEND-ZCHARG,
                 S_ZAMEND FOR Z2006TMMAMEND-ZAMEND,
                 S_ZDATES FOR Z2006TMMAMEND-ZDATES.
selection-screen end of block mysel.
selection-screen begin of block mysel1 with frame title text-002.
PARAMETERS: C1 RADIOBUTTON GROUP R1,
            C2 RADIOBUTTON GROUP R1,
            C3 RADIOBUTTON GROUP R1,
            C4 RADIOBUTTON GROUP R1.
selection-screen end of block mysel1.
*selection-screen begin of block mysel2 with frame title text-003.
*SELECTION-SCREEN PUSHBUTTON /79(10) charly USER-COMMAND CONF.
*selection-screen end of block mysel2.
*INITIALIZATION.
MOVE 'CONF' TO charly.
START-OF-SELECTION
START-OF-SELECTION.
  IF C1 = 'X'.
    PERFORM 1100_DELETE.
  ELSEIF C2 = 'X'.
    PERFORM 1200_INPUT.
  ELSEIF C3 = 'X'.
    PERFORM 1300_UPDATE.
ELSEIF C4 = 'X'.
    PERFORM 1400_PRINT.
  ENDIF.
*END-OF-SELECTION.
TOP-OF-PAGE
top-of-page.
*& Form TOP_OF_PAGE
text
******FOR LIST OF DELETED AMENDMENT NOTICES***********
FORM TOP_OF_PAGEC1.
  SKIP.
  WRITE:/51 'MOTION SMITH CHART',  100 'Page :', 110 sy-pagno.
  SKIP.
  WRITE:/43 'LIST OF DELETED AMENDMENT NOTICES' ,100 'Date :', 110 sy-datum.
  SKIP.
ENDFORM.                               "TOP_OF_PAGEC1
******FOR INPUT AMENDMENT NOTICES LISTING FOR YESR WEEK NO***********
FORM TOP_OF_PAGEC2.
  SKIP.
  WRITE:/51 'MOTION SMITH CHART',  100 'Page :', 110 sy-pagno.
  SKIP.
  WRITE:/43 'INPUT AMENDMENT NOTICES LISTING' ,100 'Date :', 110 sy-datum.
  SKIP.
endform.                               "TOP_OF_PAGEC2
******FOR  AMENDMENT NOTICES UPDATE LIST***********
FORM TOP_OF_PAGEC3.
  SKIP.
  WRITE:/51 'MOTION SMITH CHART',  100 'Page :', 110 sy-pagno.
  SKIP.
  WRITE:/43 'AMENDMENT NOTICE UPDATE LIST' ,100 'Date :', 110 sy-datum.
  SKIP.
endform.                               "TOP_OF_PAGEC3
******FOR PRINT AMENDMENT LIST***********
FORM TOP_OF_PAGEC4.
  SKIP.
  WRITE:/51 'MOTION SMITH  AMENDMENT  LIST', 100 'Date :', 110 sy-datum, 140 'Page :', 150 sy-pagno.
  SKIP.
endform.                               "TOP_OF_PAGEC4
*&      Form  1100_DELETE
      text
-->  p1        text
<--  p2        text
FORM 1100_DELETE .
  NEW-PAGE.
  ULINE.
  PERFORM TOP_OF_PAGEC1.
  SELECT SINGLE ZMATKL INTO W_ZMATKL FROM Z2006TMMAMEND WHERE ZMATNR IN S_ZMATNR.
  WRITE:/ 'AGENCY CODE:', W_ZMATKL.
  SKIP.
  ULINE.
  SKIP.
  WRITE:/ 'CHART/PUBLICATION', 30 'DESCRIPTION', 61 '************* A  M  E  N  D  M  E  N  T  S *************'.
  SKIP.
  ULINE.
  SELECT * FROM  Z2006TMMAMEND INTO CORRESPONDING FIELDS OF TABLE ITAB
                                    WHERE ZMATNR IN S_ZMATNR
                                      AND ZWEEKS IN S_ZWEEKS
                                      AND ZCHARG IN S_ZCHARG
                                      AND ZAMEND IN S_ZAMEND
                                      AND ZDATES IN S_ZDATES
                                      AND ZSTATUS EQ 'D'.
  SORT ITAB BY ZMATNR.
  LOOP AT ITAB.
    WA = ITAB.
    AT NEW ZMATNR.
      V_INT = 1.
      WRITE:/ WA-ZMATNR(18), WA-ZMAKTX(40).
    ENDAT.
    IF V_INT >= 1 AND V_INT < 6.
      WRITE: WA-ZAMEND(11).
    ELSE.
      WRITE: /61 WA-ZAMEND(11).
      V_INT = 1.
    ENDIF.
    V_INT = V_INT + 1.
  ENDLOOP.
ENDFORM.                    " 1100_DELETE
*&      Form  1200_INPUT
      text
-->  p1        text
<--  p2        text
FORM 1200_INPUT .
  NEW-PAGE.
  ULINE.
SET PF-STATUS 'Z2006RMMAMEND'.
AT USER-COMMAND .
AT SELECTION-SCREEN.
  IF SY-UCOMM = 'CONF'.
      UPDATE Z2006TMMAMEND SET ZSTATUS = 'S'
                         WHERE ZSTATUS = 'H'.
  ENDIF.
  PERFORM TOP_OF_PAGEC2.
  SELECT SINGLE ZWEEKS INTO W_ZWEEKS FROM Z2006TMMAMEND WHERE ZWEEKS IN S_ZWEEKS.
  WRITE:/43 'FOR YEAR WEEK N0 :', W_ZWEEKS.
  SKIP.
  ULINE.
  SKIP.
  WRITE:/ 'AGENCYCODE', 15 'CHART NO', 30 'DESCRIPTION', 61 'YR/WK', 70 'LAST FAMD', 85 'LAMEND', 100 'AMENDMENT'.
  SKIP.
  ULINE.
**********TO GET THE INPUT AMENDMENT NOTICE LISTING FOR YEAR WEEK.
  SELECT * FROM  Z2006TMMAMEND INTO CORRESPONDING FIELDS OF TABLE ITAB
                                    WHERE ZMATNR IN S_ZMATNR
                                      AND ZWEEKS IN S_ZWEEKS
                                      AND ZCHARG IN S_ZCHARG
                                      AND ZAMEND IN S_ZAMEND
                                      AND ZDATES IN S_ZDATES
                                      AND ZSTATUS EQ 'H'.
***********TO GET THE LAST AMENDMENT NO.
  SELECT * FROM Z2006TMMAMEND INTO CORRESPONDING FIELDS OF TABLE ITABLAST
                                     WHERE ZMATNR  IN S_ZMATNR
                                       AND ZWEEKS  IN S_ZWEEKS
                                       AND ZSTATUS EQ 'S'.
  SORT ITABLAST DESCENDING BY ZWEEKS.
  LOOP AT ITAB.
    CLEAR ITABLAST.
    LOOP AT ITABLAST WHERE ZMATNR = ITAB-ZMATNR.
      EXIT.
    ENDLOOP.
    IF SY-SUBRC EQ 0.
      MOVE ITAB-ZMATKL TO ITAB_H-ZMATKL.
      MOVE ITAB-ZMATNR TO ITAB_H-ZMATNR.
      MOVE ITAB-ZMAKTX TO ITAB_H-ZMAKTX.
      MOVE ITAB-ZWEEKS TO ITAB_H-ZWEEKS.
      MOVE ITAB-ZAMEND TO ITAB_H-ZAMEND.
      READ TABLE ITABLAST WITH KEY ZMATNR = ITAB-ZMATNR.
      MOVE ITABLAST-ZAMEND TO ITAB_H-ZAMENDL.
      APPEND ITAB_H.
      CLEAR ITAB_H.
    ENDIF.
  ENDLOOP.
   SORT ITAB_H BY ZMATNR.
  LOOP AT ITAB_H.
    WA1 = ITAB_H.
    AT NEW ZMATNR.
      V_INT = 1.
      WRITE:/ WA1-ZMATKL(9),15 WA1-ZMATNR(18),30 WA1-ZMAKTX(40), 61 WA1-ZWEEKS(6),85 WA1-ZAMENDL.
    ENDAT.
    IF V_INT >= 1 AND V_INT < 3.
      WRITE: WA1-ZAMEND(11).
    ELSE.
      WRITE: /100 WA1-ZAMEND(11).
      V_INT = 1.
    ENDIF.
    V_INT = V_INT + 1.
  ENDLOOP.
ENDFORM.                    " 1200_INPUT
*&      Form  1300_UPDATE
      text
-->  p1        text
<--  p2        text
FORM 1300_UPDATE .
  NEW-PAGE.
  ULINE.
  PERFORM TOP_OF_PAGEC3.
  SKIP.
  ULINE.
  SKIP.
  WRITE:/ 'CHART/PUBLICATION', 30 'DESCRIPTION', 61 'AMENDMENT NO', 81 'AMENDMENT DATE', 100 'LAST AMENDMENT'.
  SKIP.
  ULINE.
  SELECT * FROM  Z2006TMMAMEND INTO CORRESPONDING FIELDS OF TABLE ITAB
                                    WHERE ZMATNR  IN S_ZMATNR
                                      AND ZWEEKS  IN S_ZWEEKS
                                      AND ZCHARG  IN S_ZCHARG
                                      AND ZAMEND  IN S_ZAMEND
                                      AND ZDATES  IN S_ZDATES
                                      AND ZSTATUS EQ 'S'.
    sort itab by zmatnr ZCHARG descending.
  loop at itab.
    l_tabix = sy-tabix.
    at new zmatnr.
      read table itab  index l_tabix.
      MOVE ITAB-ZMATKL TO ITAB_S-ZMATKL.
      MOVE ITAB-ZMATNR TO ITAB_S-ZMATNR.
      MOVE ITAB-ZMAKTX TO ITAB_S-ZMAKTX.
      MOVE ITAB-ZAMEND TO ITAB_S-ZAMEND.
      MOVE ITAB-ZWEEKS TO ITAB_S-ZWEEKS.
      MOVE ITAB-ZAMEND TO ITAB_S-ZAMENDR.
      l_tabix = l_tabix + 1.
      read table itab index l_tabix.
      MOVE ITAB-ZAMEND TO ITAB_S-ZAMENDL.
      APPEND ITAB_S.
      CLEAR  ITAB_S.
    ENDAT.
  ENDLOOP.
  LOOP AT ITAB_S.
    WA2 = ITAB_S.
    AT NEW ZMATNR.
      V_INT = 1.
      WRITE:/ WA2-ZMATKL,9'-',13 WA2-ZMATNR,27 WA2-ZMAKTX(40),63 WA2-ZAMENDR(15),83 WA2-ZWEEKS(6),103 WA2-ZAMENDL(15).
    ENDAT.
  ENDLOOP.
ENDFORM.                    " 1300_UPDATE
*&      Form  1400_PRINT
      text
-->  p1        text
<--  p2        text
FORM 1400_PRINT .
  NEW-PAGE.
  ULINE.
  PERFORM TOP_OF_PAGEC4.
  SELECT SINGLE ZMATKL INTO W_ZMATKL FROM Z2006TMMAMEND WHERE ZMATNR IN S_ZMATNR.
  WRITE:/ 'AGENCY CODE:', W_ZMATKL.
  SKIP.
  ULINE.
  SKIP.
  WRITE:/ 'CHART NUMBER', 20 'EDITION DATE', 45 'DESCRIPTION', 75 '************* A  M  E  N  D  M  E  N  T  S *************'.
  SKIP.
  ULINE.
  SELECT * FROM  Z2006TMMAMEND INTO CORRESPONDING FIELDS OF TABLE ITAB
                                    WHERE ZMATNR IN S_ZMATNR
                                      AND ZWEEKS IN S_ZWEEKS
                                      AND ZCHARG IN S_ZCHARG
                                      AND ZAMEND IN S_ZAMEND
                                      AND ZDATES IN S_ZDATES.
  SORT ITAB BY ZMATNR.
  LOOP AT ITAB.
    WA = ITAB.
    AT NEW ZMATNR.
      V_INT = 1.
      WRITE:/  WA-ZMATNR(18),20 wa-zcharg(10),35 WA-ZMAKTX(40).
    ENDAT.
    IF V_INT >= 1 AND V_INT < 6.
      WRITE: WA-ZAMEND(12).
    ELSE.
      WRITE: /76 WA-ZAMEND(12).
      V_INT = 1.
    ENDIF.
    V_INT = V_INT + 1.
  ENDLOOP.
ENDFORM.                    " 1400_PRINT
***********TO UPDATE THE CUSTOMISED TABLE WHEN USER PRESS THE CONF BUTTON
AT USER-COMMAND .
*AT SELECTION-SCREEN.
  IF SY-UCOMM = 'CONF'.
      UPDATE Z2006TMMAMEND SET ZSTATUS = 'S'
                         WHERE ZSTATUS = 'H'.
  ENDIF.