How to Write a FOX Formula in Intergrated Planning Functions?

Question

HI BI-IP Experts,
I have just written a FOX formula to call an ABAP Function Module which will execute a Process CHain to run.
Here is what I wrong in the FOX formula in the Planning Function ZPF_FOX_CALL_PC.
Call Function Z_CALL_PROC_CHAIN
= * 1.
I had to add in this line otherwise the system do not allow me to save the FOX.
In the Function Module Z_CALL_PROC_CHAIN, it contains the following codes:
    SUBMIT rsprocess
           WITH type    = 'CHAIN'
           WITH variant = 'Process chain name'
           AND RETURN.
Next I created a workbook with a button that executes this Planning Function ZPF_FOX_CALL_PC.
The button contains 3 lines:
CMD => Execute Planning Function
Planning Function Name => ZPF_FOX_CALL_PC
CMD => SAVE_AREA.
After I clicked on the button, my excel seems to be running and I waited for very long but nothing happens.
And it seems to be running and running and won't stop.
Is it because the program is running in a loop because I missed out some codes in the FOX?
Thanks,
Shunhui.

Answer 1

hi,
Since you have not given any condition, the fox formula is being executed for all the number of records...thats why you are seeing the loop.
example if you have 10 records in your BPS template, the formula is getting executed 10 times for each
you need to select the field for condition which will make 1 entry, so the function module gets executed just once..
or.. in the function module when you trigger the process chain, make an entry in a database table... when the 2nd row starts, it will check the table... if the entry exists, it will skip the scheduling of process chain... so on..
In the process chain.. at the end, delete the entry from the database..
so your code in the function module should be like this ... assume you have 10 records..
select * from table zlock  where process chain name = pc name  
(this is to check if the process chain is already running, if yes skip, if no trigger the process chain)
if sy-subrc eq = 0.
exit
else.
DATA: number           TYPE tbtcjob-jobcount,
      name             TYPE tbtcjob-jobname VALUE 'JOB_TEST',
      print_parameters TYPE pri_params.
CALL FUNCTION 'JOB_OPEN'
  EXPORTING
    jobname          = name
  IMPORTING
    jobcount         = number
  EXCEPTIONS
    cant_create_job  = 1
    invalid_job_data = 2
    jobname_missing  = 3
    OTHERS           = 4.
(this will trigger the process chain in background)
IF sy-subrc = 0.
  SUBMIT rsprocess
  WITH type = 'CHAIN'
  WITH variant = 'PC name'
  VIA JOB name NUMBER number
                    AND RETURN.
(after the process chain started, make an entry in the lock table.. so it will not be executed again)
insert entry in table zlock
ENDif.
endif.
I understand this is complex, but I think its one solution I can think of.