NACE

[Former Member]

Hi All,

I have a requirement where I need to Trigger a program (which updates a table) using output type after PGI. For this I have created a output type(Say ZI01) with transmission medium 8. I have done Necessary setting for triggering of this output type after PGI.

I have also created a program with 2 subroutines. In processing routine I have program as ZSDI_TIER3_Z023_ENTRY and form routine ENTRY. In the general tab of output type, in change out put I have given program ZSDI_TIER3_Z023_ENTRY and form SET_CHG_FLAG.

Now my issue is wen iam PGI’ing this output type <b>gets triggered with success message</b> but does not update the table(iam not able to debug in this case). But wen I go in the change mode(ie VL02N) and save it, output type triggers and the table is updated(iam able to debug and c the program its directly going to prog ZSDI_TIER3_Z023_ENTRY and form SET_CHG_FLAG ).

Iam attaching the code so that u guys can tell me where iam going wrong.

Want to know whether i need to attach any further code for making my program work wen the PGI happens.

REPORT zsdi_tier3_z023_entry.

*Include for data Declaration

INCLUDE zsdi_tier3_z023_entry_include.

*PERFORM entry USING retcode xscreen.

&----

---

*& Form ENTRY

&----

---

----

---

• -->RETURN_CODE text

• -->US_SCREEN text

----

---

FORM entry USING return_code us_screen.

break-point.

CLEAR retcode.

xscreen = us_screen.

*********************************

LOGIC for updating the table goes here

*********************************

IF retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM. "ENTRY

&----

---

*& Form SET_CHG_FLAG

&----

---

• Updating Z023 table

----

---

FORM set_chg_flag.

break-point.

SY-SUBRC = 0.

******************************

LOGIC for updation goes here

************************************

ENDFORM. "SET_CHG_FLAG

[Former Member]

solved