ABAP Code for Adobe Form Preview

Below is a simple code for test Adobe Form:

 

  fp_outputparams-device   = 'PRINTER'.
  fp_outputparams-nodialog = 'X'.
  fp_outputparams-preview  = 'X'.
  fp_outputparams-CONNECTION  = 'ADS'.
  fp_outputparams-ADSTRLEVEL  = '00'.
  fp_outputparams-BUMODE      = '-'.
  fp_outputparams-DATASET     = 'PBFORM'.
  fp_outputparams-DEST  = 'LP01'.

  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.
    WRITE /  'Error in FP_JOB_OPEN'.
  ENDIF.


  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'           
    EXPORTING
      i_name     = p_fpname
    IMPORTING
      e_funcname = fm_name.

  CALL FUNCTION fm_name
    EXPORTING
      /1bcdwb/docparams = fp_docparams
      iwa_header        = lwa_header
      it_item	        = lt_item
      iv_tc_flag        = space
    EXCEPTIONS
      usage_error       = 1
      system_error      = 2
      internal_error    = 3.
  IF sy-subrc <> 0.
    WRITE: /  'Error in', fm_name.
  ENDIF.

  CALL FUNCTION 'FP_JOB_CLOSE'
    EXCEPTIONS
      usage_error           = 1
      system_error          = 2
      internal_error        = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    WRITE /  'Error in FP_JOB_CLOSE'.
  ENDIF.