Function to change CATS status to released for approval

Question

I have a requirement where I need to change in batch cats records from status 10 to status 20 'released for approval'
I can't find how to change the status in  BAPI_CATIMESHEETMGR_CHANGE
and another function CATS_APPROVAL only works for approving or rejection of records.
is there another bapi or function which I can use to change the record status of cats ?
or the other way around is also acceptable that I can set the status back from '20' released for approval to '10' locked.
kind regards
arthur de smidt

Answer 1

when debugging cat2 I found a form which handles the release for approval. but I'm nog sure if there is more to it. for so far I can see it updates the status directly and that's it. when I go further on I come in the screenpainter prog. any clues if it's normal to use this code for my own abap ??
further on I don't understand the function of ASSIGN_FIELDS_IN_ICATSD ?
can somebody explain this one ??
include : LCATSF33
      FORM FREE_ONE_CELL                                            *
      free one cell on dynp                                         *
FORM FREE_ONE_CELL USING U_NUMBER
                         U_WORKDATE LIKE CATSDB-WORKDATE.
assign the correct fields
  PERFORM ASSIGN_FIELDS_IN_ICATSD USING U_NUMBER.
  IF <STATUS> = STATUS-LOCK OR <STATUS> = STATUS-REJE.
count records
    TOTAL_RECORDS = TOTAL_RECORDS + 1.
date in the future ?
    IF TCATS-FUTURE IS INITIAL.
      IF U_WORKDATE > SY-DATLO.
        FUTURE_RECORDS = FUTURE_RECORDS + 1.
        MESSAGE S024 WITH FUTURE_RECORDS TOTAL_RECORDS.
        EXIT.
      ENDIF.
    ENDIF.
    READ TABLE ICATSDB WITH KEY MANDT = SY-MANDT
                                WORKDATE = U_WORKDATE
                                COUNTER = <COUNTER>
                                BINARY SEARCH.
    IF SY-SUBRC = 0.
      ICATSDB-STATUS = STATUS-FREE.
      IF ICATSDB-ACTION IS INITIAL.
        ICATSDB-ACTION = ACTION-UPDATE.
      ENDIF.
      MODIFY ICATSDB INDEX SY-TABIX.
      <STATUS> = STATUS-FREE.
set global marker that data have been unlocked
      FREE_DATA = YX.
    ELSE.
      MESSAGE X030.
    ENDIF.
  ENDIF.
ENDFORM.
kind regards
arthur