topic Re: Error in my Function Module in Application Development and Automation Discussions

Error in my Function Module

Former Member — Wed, 28 Oct 2009 09:53:58 GMT

Dear Experts,

I have created a Function Module to call it from a Dependency .. the main object of this "Dependency & FM" is to calculate a Date in the characteristic of the batch ..

Note :

GRDate is the characteristic which hold the date i will work on "Import"

FRUD is the characteristic which will hold the manipulated date "Export"

Here is my Code :



FUNCTION ZUPDATEDATE.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(GLOBALS) LIKE  CUOV_00 STRUCTURE  CUOV_00
*"  TABLES
*"      MATCH STRUCTURE  CUOV_01
*"      QUERY STRUCTURE  CUOV_01
*"  EXCEPTIONS
*"      FAIL
*"      INTERNAL_ERROR
*"--------------------------------------------------------------------
DATA:
        HELPDATE      LIKE AUSP-ATWRT,
        TEMPDATE      Type F.

REFRESH MATCH.

* Read date
READ TABLE QUERY WITH KEY 'GRDate'.
* Convert date
  CALL FUNCTION 'CTCV_CONVERT_FLOAT_TO_DATE'
       EXPORTING
            FLOAT = QUERY-ATFLV
       IMPORTING
            DATE  = HELPDATE.
*Compute
  TEMPDATE = HELPDATE + 1 .
  TEMPDATE = TEMPDATE * 86400.

* Return
READ TABLE QUERY WITH KEY 'FRUD'.

MATCH = QUERY.
MATCH-ATFLV = TEMPDATE.

* Change dates in customer exit
  CALL CUSTOMER-FUNCTION '003'
       EXPORTING
            GLOBALS = GLOBALS
            HSDAT   = HELPDATE
            VFDAT   = TEMPDATE
       TABLES
            QUERY   = QUERY
       CHANGING
            MATCH   = MATCH
       EXCEPTIONS
            OTHERS  = 1.

  APPEND MATCH.

ENDFUNCTION.

Please Advice

Re: Error in my Function Module

Former Member — Wed, 28 Oct 2009 10:07:14 GMT

Hello


* Read date
*READ TABLE QUERY WITH KEY 'GRDate'. " remove this
READ TABLE QUERY WITH KEY VARNAM = 'GRDate'. " add this
* Convert date
  CALL FUNCTION 'CTCV_CONVERT_FLOAT_TO_DATE'
       EXPORTING
            FLOAT = QUERY-ATFLV
       IMPORTING
            DATE  = HELPDATE.
*Compute
  TEMPDATE = HELPDATE + 1 .
  TEMPDATE = TEMPDATE * 86400.
 
* Return
*READ TABLE QUERY WITH KEY 'FRUD'. " remove this
READ TABLE QUERY WITH KEY VARNAM = 'FRUD'. " add this

Re: Error in my Function Module

Former Member — Wed, 28 Oct 2009 10:26:49 GMT

Hi,

Just make sure the 'GRDate' is stored in the database table. It might also be stored as GRDATE.

Thanks,

Harini

Re: Error in my Function Module

Former Member — Wed, 28 Oct 2009 10:51:11 GMT

Thanks alot Dzed for your quick response ..

I have edited the code as you requested to be like this :

but still an error while trying to change the batch "Error in Dependency processing, Function ZUPDATEDate"



FUNCTION ZUPDATEDATE.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(GLOBALS) LIKE  CUOV_00 STRUCTURE  CUOV_00
*"  TABLES
*"      MATCH STRUCTURE  CUOV_01
*"      QUERY STRUCTURE  CUOV_01
*"  EXCEPTIONS
*"      FAIL
*"      INTERNAL_ERROR
*"--------------------------------------------------------------------
DATA:
        HELPDATE      LIKE AUSP-ATWRT,
        TEMPDATE      Type F.

REFRESH MATCH.

* Read date
READ TABLE QUERY WITH KEY VARNAM = 'GRDate'.
* Convert date
  CALL FUNCTION 'CTCV_CONVERT_FLOAT_TO_DATE'
       EXPORTING
            FLOAT = QUERY-ATFLV
       IMPORTING
            DATE  = HELPDATE.
*Compute
  HELPDATE = HELPDATE + 1 .
  TEMPDATE = HELPDATE * 86400.

* Return
READ TABLE QUERY WITH KEY VARNAM = 'FRUD'.

MATCH = QUERY.
MATCH-ATFLV = TEMPDATE.

* Change dates in customer exit
  CALL CUSTOMER-FUNCTION '003'
       EXPORTING
            GLOBALS = GLOBALS
       TABLES
            QUERY   = QUERY
       CHANGING
            MATCH   = MATCH
       EXCEPTIONS
            OTHERS  = 1.

  APPEND MATCH.

ENDFUNCTION.

Please Advice

Re: Error in my Function Module

Former Member — Thu, 29 Oct 2009 08:36:46 GMT

I have to not add any other parameters but GLOBAL