Transferring data into WF container

Question

Hi All ,
Now I am trying to Pass some field values into a container element by using the below statement.
in my ABAP program.
SWC_SET_ELEMENT t_cont 'L_DATE' WA_PROC01-SPPDAT.
where I am fetching a date value into the workarea wa_proc01.
L_DATE is my WF Container element and t_cont is of type swcont.
And while debugging the method I wrote in the method or the BO as below.
DATA :w_task TYPE swwwihead-wi_rh_task VALUE 'WS90600050'.
SWC_GET_ELEMENT t_cont 'L_DATE' WA_PROC01-SPPDAT.
CALL FUNCTION 'SAP_WAPI_READ_CONTAINER'
to read the values of the container at runtime.
But I dont see any container elements in there.
Pls let me knw where I am gettting wrong.
I did this much seeing some previous threads.
Regards,
Krishna.

Answer 1

Thanks for your interest.
Below is the code of the Method.
Actually in thtis method I want to fetch the data from the DB table for a Project definition and Expence category.
I am entering the details in a custom screen and then trying to pass those screen values into this WF container elements so that I can Send Mails and create mised deadline steps based on the values of the Elements.
For triggering the workflow I am using SWE_EVENT_CREATE and Passing the data into WF container using
SWC_SET_ELEMENT t_cont 'L_DATE' WA_PROC01-SPPDAT.
and triggering WF also from program using
        CALL FUNCTION 'EWW_WORKFLOW_START'.
I also tried triggering on event creating using in the WF.
It triggers all the things fine but I am confused how to use my WF elements etc.
1  *****           Implementation of object type ZPS_ORPF             *****
2  INCLUDE <OBJECT>.
3  BEGIN_DATA OBJECT. " Do not change.. DATA is generated
4  * only private members may be inserted into structure private
5  DATA:
6  " begin of private,
7  "   to declare private attributes remove comments and
8  "   insert private attributes here ...
9  " end of private,
10    BEGIN OF KEY,
11        PROJECTDEFINITION LIKE ZPS_PROC-PSPID,
12    END OF KEY.
13  END_DATA OBJECT. " Do not change.. DATA is generated
14
15  BEGIN_METHOD ZGET_DATE CHANGING CONTAINER.
16   TYPES: BEGIN OF TP_ZPS.
17      INCLUDE structure zps_proc.
18  TYPES: END OF TP_ZPS.
19  TYPES: BEGIN OF TP_ZPS01.
20          INCLUDE STRUCTURE ZPS_PROC01.
21  TYPES: END OF TP_ZPS01.
22
23  DATA : L_SPNDAT TYPE ZSPNITPPUBDAT,
24         L_ZCT TYPE ZCAT_TYPE,
25         L_ZPP TYPE ZPACKAGE.
26  DATA : T_ZPS01 TYPE TABLE OF TP_ZPS01 WITH HEADER LINE INITIAL SIZE 0.
DATA : T_ZPS TYPE TABLE OF TP_ZPS WITH HEADER LINE INITIAL SIZE 0.
DATA : L_PSPID TYPE PS_PSPID.
data : wa_proc01 like line of T_ZPS01.
  GET PARAMETER ID 'PSP' FIELD L_PSPID.
  GET PARAMETER ID 'ZCT' FIELD L_ZCT.
  GET PARAMETER ID 'ZPP' FIELD L_ZPP.
CLEAR T_ZPS.
break CLSTORPF1.
data:
w_task TYPE swwwihead-wi_rh_task VALUE 'WS90600050',
t_cont  TYPE TABLE OF swcont.
data :w_task1 like SWR_STRUCT-WORKITEMID value 'WS90600050'.
SWC_GET_ELEMENT t_cont 'L_DATE' WA_PROC01-SPPDAT.
CALL FUNCTION 'SAP_WAPI_READ_CONTAINER'
  EXPORTING
    WORKITEM_ID                    = W_TASK1
  TABLES
    SIMPLE_CONTAINER               = t_cont.
SELECT * FROM ZPS_PROC INTO CORRESPONDING FIELDS OF TABLE
              T_ZPS WHERE PSPID EQ L_PSPID.
select * from zps_proc01 into corresponding fields of table t_zps01
            where pspid = l_pspid and expcat = l_zct.
            if sy-subrc eq 0.
            endif.
******For testing purpose only
    data: exit type c.
      do.
      if exit = 'X'.
      exit.
      endif.
      enddo.
ENDFORM.
I am trying to learn this.Pls accept my apologies if I am doing very simple mistakes.
Regards,
Krishna.