Example: Calling Forms in an Application Program 

The following program excerpts show you how the function modules are called.

...

       1.      FP_JOB_OPEN opens the spool job.

       2.      FP_FUNCTION_MODULE_NAME gets the form name.

       3.      Generated function module of the form

       4.      FP_JOB_CLOSE closes the spool job.

In this example, the parameters CUSTOMER, BOOKINGS, and CONNECTIONS are sent to the form interface, where they must already be defined.

 

DATA: CUSTOMER          TYPE SCUSTOM,

      BOOKINGS          TYPE TY_BOOKINGS,

      CONNECTIONS       TYPE TY_CONNECTIONS,

      FM_NAME           TYPE RS38L_FNAM,

      FP_DOCPARAMS      TYPE SFPDOCPARAMS,

      FP_OUTPUTPARAMS   TYPE SFPOUTPUTPARAMS.

 

 

* GETTING THE DATA

            <data selection>

 

 

* PRINT:

 

* Sets the output parameters and opens the spool job

  CALL FUNCTION 'FP_JOB_OPEN'

    CHANGING

      IE_OUTPUTPARAMS       = FP_OUTPUTPARAMS

    EXCEPTIONS

      CANCEL                = 1

      USAGE_ERROR           = 2

      SYSTEM_ERROR          = 3

      INTERNAL_ERROR        = 4

      OTHERS                = 5.

  IF SY-SUBRC <> 0.

            <error handling>

  ENDIF.

 

* Get the name of the generated function module

  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'

    EXPORTING

      I_NAME                     = ‘<form name>’

    IMPORTING

      E_FUNCNAME                 = FM_NAME.

  IF SY-SUBRC <> 0.

      <error handling>

  ENDIF.

 

* Call the generated function module

  CALL FUNCTION FM_NAME

    EXPORTING

      /1BCDWB/DOCPARAMS        = FP_DOCPARAMS

      CUSTOMER                 = CUSTOMER

      BOOKINGS                 = BOOKINGS

      CONNECTIONS              = CONNECTIONS

*   IMPORTING

*     /1BCDWB/FORMOUTPUT       =

    EXCEPTIONS

      USAGE_ERROR           = 1

      SYSTEM_ERROR          = 2

      INTERNAL_ERROR           = 3.

IF SY-SUBRC <> 0.

      <error handling>

ENDIF.

 

* Close the spool job

  CALL FUNCTION 'FP_JOB_CLOSE'

*   IMPORTING

*     E_RESULT             =

    EXCEPTIONS

      USAGE_ERROR           = 1

      SYSTEM_ERROR          = 2

      INTERNAL_ERROR        = 3

      OTHERS                = 4.

  IF SY-SUBRC <> 0.

            <error handling>

  ENDIF.