Call smartform in web dynpro abap

Question

hi guys,
      I am tring to create PDF from smartform but am getting sy-subrc = 1 error after call function LV_FNAM.
I am attaching the code below. Am not using InteractiveForm UI Elemnt .
data: lv_fnam type rs38l_fnam,
      ls_ssfctrlop type ssfctrlop,
      ls_ssfcompop type ssfcompop,
      ls_book type ppftbook,
      ls_job_output_info type ssfcrescl,
      ls_job_output_options type ssfcresop,
      lv_bytecount type i,
      lt_lines type table of tline,
      ls_line type tline,
      lv_string type string,
      lv_buffer type xstring,
      l_xline type xstring,
      l_pdfstring type xstring,
      it_add_rel type table of zprint_add_rel.
*      p_pdf type xstring.
data : wa_board type mara-matnr,
       plant type marc-werks.
wa_board =  'SYPJ764'.
plant = '2001'.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSSF_ADD_REL'
importing
fm_name = lv_fnam.
ls_ssfctrlop-no_dialog = 'X'.
ls_ssfctrlop-getotf  = 'X'.
ls_ssfctrlop-preview = 'X'.
ls_ssfcompop-tdnoprev = 'X'.
ls_ssfcompop-tdtitle = 'X'.
ls_ssfcompop-tdnewid = 'X'.
call function lv_fnam
exporting
control_parameters = ls_ssfctrlop
output_options = ls_ssfcompop
*is_book = ls_book
board = wa_board " 'SYPJ764'
plant = plant " '2001'
importing
job_output_info = ls_job_output_info
job_output_options = ls_job_output_options
tables
it_add_rel_i = it_add_rel
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
other = 5.
if sy-subrc <> 0.
endif.
*convert to pdf
call function 'CONVERT_OTF'
exporting
format = 'PDF'
importing
bin_filesize = lv_bytecount
tables
otf = ls_job_output_info-otfdata
lines = lt_lines
exceptions
err_conv_not_possible = 1
err_bad_otf = 2.
loop at lt_lines into ls_line.
lv_string = ls_line.
export mydata = lv_string to data buffer lv_buffer.
import mydata to l_xline from data buffer lv_buffer in char-to-hex mode.
concatenate l_pdfstring l_xline into l_pdfstring in byte mode.
endloop.
p_pdf = l_pdfstring.
Please help me out with this error.
Regards,
Santosh

Answer 1

Hi Santhosh,
Please find the below code:
FUNCTION ZP3088_NEW_JOINEE_ACT.
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(PERNR) TYPE  PERSNO
*"  EXPORTING
*"     REFERENCE(L_DISPLAY_PDF) TYPE  NUM1
*"     REFERENCE(L_DATA) TYPE  XSTRING
*"  EXCEPTIONS
*"      TRAINEE_PERNR
* Tables declaration
  TABLES: NAST,PA0041.
*   Type pools declaration
  TYPE-POOLS: SZADR.
*   Internal table declaration
  DATA: L_PDF_LEN TYPE I,
        IT_PDF_LINES TYPE TABLE OF TLINE,
        JOB_OUTPUT_INFO TYPE  SSFCRESCL.
*   Variables declaration
  DATA: G_RETCODE LIKE SY-SUBRC,
        G_FMNAME TYPE RS38L_FNAM.
  DATA: L_HIRE_DATE TYPE DATS,
        L_INCLUDE_DATE TYPE DATS,
        L_WEEK_DAYS TYPE P,
        IT_P0041 LIKE PA0041.
  DATA: DAR TYPE PA0041-DAR01,
        DAT TYPE PA0041-DAT01.
  DATA: L_DEVICE(30) TYPE C,
        LA_CTRL_FORM TYPE SSFCTRLOP,
        LA_OUTPUT_OPT TYPE SSFCOMPOP.
  data: l_persg type PA0001-persg. 
* Start of Actual Code
  SELECT SINGLE persg
    from PA0001
    INTO l_persg
   where pernr eq pernr
     and endda eq '99991231'.
    if l_persg eq 'T' or
       l_persg eq 'W' or
       l_persg eq 'X'.
      raise trainee_pernr.
    endif.
  L_DISPLAY_PDF = 0.
  SELECT SINGLE * FROM PA0041 INTO IT_P0041
         WHERE PERNR EQ PERNR.
  IF SY-SUBRC = 0.
    DO 12 TIMES VARYING DAR FROM IT_P0041-DAR01
                              NEXT IT_P0041-DAR02
                  VARYING DAT FROM IT_P0041-DAT01
                              NEXT IT_P0041-DAT02.
      CASE DAR .
*        WHEN '09'.          "Hiring Date
        WHEN '51'.          "Hiring Date
          L_HIRE_DATE = DAT.
          EXIT.
        WHEN ''.
          EXIT.
      ENDCASE.
    ENDDO.
  ENDIF.
*To get the no. of weekdays between the hire date and current date excluding sat and sun
  IF NOT L_HIRE_DATE IS INITIAL.
    WHILE L_HIRE_DATE LE SY-DATUM.
      CALL FUNCTION 'BWSO_DATE_GET_FIRST_WEEKDAY'
        EXPORTING
          DATE_IN  = L_HIRE_DATE
        IMPORTING
          DATE_OUT = L_INCLUDE_DATE.
      DO 5 TIMES.
        " Making sure that it starts from the from date till to_date calculate before
        IF L_INCLUDE_DATE GE L_HIRE_DATE AND L_INCLUDE_DATE LE SY-DATUM.
          L_WEEK_DAYS = L_WEEK_DAYS + 1.
        ENDIF.
        L_INCLUDE_DATE = L_INCLUDE_DATE + 1.
      ENDDO.
      L_HIRE_DATE = L_INCLUDE_DATE + 2.
    ENDWHILE.
IF L_WEEK_DAYS LE 30.
      L_DISPLAY_PDF = 1.         "Display the PDF document
    ELSE.
      L_DISPLAY_PDF = 0.         "Do Not Display the PDF document
    ENDIF.
  ENDIF.
  IF L_DISPLAY_PDF = 1.
* Clear local variables
    CLEAR:   L_DEVICE,
             LA_CTRL_FORM,
             LA_OUTPUT_OPT.
** Spool Parameters
    LA_OUTPUT_OPT-TDIMMED = 'X'.
    LA_OUTPUT_OPT-TDDELETE = 'X'.
    LA_OUTPUT_OPT-TDLIFETIME = 'X'.
    LA_OUTPUT_OPT-TDDEST = 'LOCL'.
* Get Smartform function module name
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        FORMNAME           = 'ZP3088_NEW_JOINEE_ACT_PDF'
      IMPORTING
        FM_NAME            = G_FMNAME
      EXCEPTIONS
        NO_FORM            = 1
        NO_FUNCTION_MODULE = 2
        OTHERS             = 3.
    IF SY-SUBRC <> 0.
      G_RETCODE = SY-SUBRC.
      SYST-MSGTY = 'E'.
    ELSE.
* Parameters passes to get the output in PDF format
      LA_CTRL_FORM-NO_DIALOG = 'X'.
      LA_CTRL_FORM-PREVIEW = SPACE.
      LA_CTRL_FORM-GETOTF = 'X'.
      LA_CTRL_FORM-LANGU = NAST-SPRAS.
      LA_CTRL_FORM-DEVICE = 'PRINTER'.
Edited by: wahid hussain syed on Nov 4, 2010 3:41 AM
Edited by: wahid hussain syed on Nov 4, 2010 3:41 AM
Edited by: Neil Gardiner on Nov 4, 2010 2:04 PM