HI ALL,
I MA WORKING ON MODULE POOL PROGRAM AND THIS IS MY FIRST MODULE POOL PROGRAM.
IN THAT I NEED TO MOVE DATA FROM ONE ZTABLE TO OTHER ZTABLE BASED ON CONDITION.
HOW CAN I DO THAT , HERE I AM POSTING MY CODING PART AND I DID THIS ONE IN PBO.
SELECT HFM_GL_ACCOUNT
HFM_GL_AMT_LC
HFM_GL_ACC_TYPE
HFM_VALUE_TYPE
FROM ZACINFIT015HFM
INTO TABLE GI_TABLE
WHERE HFM_GL_ACC_TYPE = 'BS'
AND ( HFM_VALUE_TYPE = 02 OR HFM_VALUE_TYPE = 01 ).
*IF SY-SUBRC EQ 0.
* SORT GI_TABLE BY HFM_VALUE_TYPE.
* SELECT HFM_VALUE_TYPE
* HFM_GL_AMT_LC_10
* HFM_GL_AMT_LC_11
* HFM_GL_AMT_LC_25
* HFM_GL_AMT_LC_99
* FROM ZACINFIT017HFM
* INTO TABLE GI_TABLE_17
* FOR ALL ENTRIES IN GI_TABLE
* WHERE HFM_VALUE_TYPE = GI_TABLE-HFM_VALUE_TYPE.
* ENDIF.
LOOP AT GI_TABLE INTO GS_TABLE.
IF GS_TABLE-HFM_VALUE_TYPE = 02 AND GS_TABLE-HFM_VALUE_TYPE ne 01 and GS_TABLE-HFM_GL_ACC_TYPE = 'BS'.
GS_TABLE_17-HFM_GL_AMT_LC_10 = 0.
MOVE GS_TABLE-HFM_GL_AMT_LC TO GS_TABLE_17-HFM_GL_AMT_LC_99.
MOVE-CORRESPONDING GS_TABLE TO GS_OUTPUT.
* MOVE-CORRESPONDING GS_TABLE_17 TO GS_OUTPUT.
ELSEIF GS_TABLE-HFM_VALUE_TYPE = 01 AND GS_TABLE-HFM_VALUE_TYPE ne 02 and GS_TABLE-HFM_GL_ACC_TYPE = 'BS'.
GS_TABLE_17-HFM_GL_AMT_LC_99 = 0.
MOVE GS_TABLE-HFM_GL_AMT_LC TO GS_TABLE_17-HFM_GL_AMT_LC_10.
MOVE-CORRESPONDING GS_TABLE_17 TO GS_OUTPUT.
ENDIF.
GS_TABLE_17-HFM_GL_AMT_LC_25 = ( GS_TABLE_17-HFM_GL_AMT_LC_99 - GS_TABLE_17-HFM_GL_AMT_LC_10 ).
MOVE-CORRESPONDING GS_TABLE_17 TO GS_OUTPUT.
* ENDIF.
MOVE-CORRESPONDING GS_TABLE TO GS_OUTPUT.
APPEND GS_OUTPUT TO GI_OUTPUT.
* INSERT INTO ZACINFIT017HFM VALUES Gs_OUTPUT.
MODIFY ZACINFIT017HFM FROM GS_OUTPUT.
CLEAR GS_OUTPUT.
ENDLOOP.
REGARDS,
S.KAVITHA