Status STANDARD of the user interface zswar missing

[Former Member]

I Get this message when trying to execute the following program.

REPORT zswar .

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME.

PARAMETER: p_date LIKE sy-datum.

PARAMETER: p_rea TYPE char255.

SELECTION-SCREEN: END OF BLOCK b1.

DATA: ws_ucomm LIKE sy-ucomm.

INITIALIZATION.

SET PF-STATUS 'STANDARD' OF PROGRAM 'ZSWAR'.

AT SELECTION-SCREEN.

ws_ucomm = sy-ucomm.

CASE ws_ucomm.

WHEN '&PDF'.

PERFORM f1000_download_form.

EXIT.

WHEN '&BACK'.

SET SCREEN 0.

EXIT.

WHEN '&EXIT'.

SET SCREEN 0.

EXIT.

WHEN '&canc'.

SET SCREEN 0.

LEAVE TO SCREEN 0.

ENDCASE.

&----

---

*& Form F1000_DOWNLOAD_FORM

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM f1000_download_form.

DATA: form_name TYPE rs38l_fnam.

DATA: wa_ctrlop TYPE ssfctrlop,

wa_outopt TYPE ssfcompop.

DATA: t_otfdata TYPE ssfcrescl,

t_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE.

DATA: t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE.

DATA: w_filesize TYPE i.

DATA: w_bin_filesize TYPE i.

• CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

• EXPORTING

• formname = 'ZNEWSMART'

• VARIANT = ' '

• DIRECT_CALL = ' '

• IMPORTING

• fm_name = form_name

• EXCEPTIONS

• no_form = 1

• no_function_module = 2

• OTHERS = 3

• .

• IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

• ENDIF.

• wa_ctrlop-getotf = 'X'.

• wa_ctrlop-no_dialog = 'X'.

• wa_outopt-tdnoprev = 'X'.

• CALL FUNCTION form_name

• EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

• control_parameters = wa_ctrlop

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

• output_options = wa_outopt

• user_settings = 'X'

• mydate = p_date

• reason = p_rea

• IMPORTING

• DOCUMENT_OUTPUT_INFO =

• job_output_info = t_otfdata

• JOB_OUTPUT_OPTIONS =

• EXCEPTIONS

• formatting_error = 1

• internal_error = 2

• send_error = 3

• user_canceled = 4

• OTHERS = 5

• .

• IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

• ENDIF.

• t_otf[] = t_otfdata-otfdata[].

• CALL FUNCTION 'CONVERT_OTF'

• EXPORTING

• format = 'PDF'

• max_linewidth = 132

• ARCHIVE_INDEX = ' '

• IMPORTING

• bin_filesize = w_bin_filesize

• TABLES

• otf = t_otf

• lines = t_pdf_tab

• EXCEPTIONS

• err_max_linewidth = 1

• err_format = 2

• err_conv_not_possible = 3

• OTHERS = 4

• .

• IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

• ENDIF.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'znewsmart'

• VARIANT = ' '

• DIRECT_CALL = ' '

• IMPORTING

FM_NAME = '/1BCDWB/SF00000087'

• EXCEPTIONS

• NO_FORM = 1

• NO_FUNCTION_MODULE = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

bin_filesize = w_bin_filesize

• CODEPAGE = ' '

filename = 'd:\test.PDF'

filetype = 'BIN'

• MODE = ' '

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• COL_SELECT = ' '

• COL_SELECTMASK = ' '

• NO_AUTH_CHECK = ' '

IMPORTING

filelength = w_filesize

TABLES

data_tab = t_pdf_tab

• FIELDNAMES =

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10

.

IF sy-subrc <> 0.

MESSAGE i003(z00) WITH 'File not downloaded succesfully'.

ELSE.

MESSAGE i003(z00) WITH 'File Test.pdf downloaded succesfully '

'under D drive'.

ENDIF.

ENDFORM. " F1000_DOWNLOAD_FORM

Please help me and let me know why i'm getting this message.

[Former Member]

Go to Attributes and change the status of the program to customer production program

[Former Member]

Nope it didn't work it is still giving the message.

I should be getting a download to pdf button when i execute this program.

But i'm not seeing it.

[Former Member]

have u maintained the PF staus for the report

double click on the PF staus STANDARD and check if its active

Message was edited by:

Nehal Fonseca

[Former Member]

Hi Nehal,

What shd i do once i double click on the 'STANDARD'. Please help me with the next steps. I'm new to ABAP and got this program from SDN. How do i set the PF-STATUS.

Please Help.

Regards,

Sai

[Former Member]

PF status is where you maintain what buttons to show on the report.Your Download PDF button needs to be configured there

When you double click on standard it will open up the window where you need to set the function code in user-command.. for ur PDF button. This will be returned in ur ucomm

ill read ur program and

ill send u the steps in a min

[Former Member]

Ok.

Double click on Standard.

choose yes for create

Choose normal form the radio button option that comes next

Enter a description.

Now in the window that appears

choose Application tool bar

in the first box enter &PDF . Hit enter

then you can choose an icon and info text.

Save activate.

There are a lot may issues with ur program. But this will solve the issue of download button.

[Former Member]

Hi Nehal,

Now i get a new err message saying form ZNEWSMART doesn't exist. But i have created the smart form using this name.

Regards,

Sai

[Former Member]

what are u trying to do sai

create a smartofrm and download to pdf?

[Former Member]

Yes Nehal.