Create QRCode via ABAP code

[JerryWang]

In the previous blog we discuss how to generate QRCode to enable it be scanned via mobile phone.

In that solution, the QRCode is generated and stored in a PDF file via ABAP webdynpro framework, we only provide the form template. In fact it is quite easy to adapt the solution to generate the PDF by ourselves, so that the QRCode could be used more flexibly in many other scenario for example as an attachment of email.

Note: it is still necessary to create a form interface and form template as described in the blog.

The report source code is below:

PARAMETERS: content TYPE string.

DATA:

  ls_outputparams TYPE sfpoutputparams,

  ls_docparams    TYPE sfpdocparams,

  ls_pdf_file        TYPE fpformoutput,

  ls_post            TYPE crmd_soc_post,

  lv_fm_name      TYPE rs38l_fnam.

ls_outputparams-noprint   = 'X'.

ls_outputparams-nopributt = 'X'.

ls_outputparams-noarchive = 'X'.

ls_outputparams-nodialog  = 'X'.

ls_outputparams-preview   = 'X'.

ls_outputparams-getpdf    = 'X'.

CALL FUNCTION 'FP_JOB_OPEN'

  CHANGING

    ie_outputparams = ls_outputparams

  EXCEPTIONS

    cancel                = 1

    usage_error        = 2

    system_error       = 3

    internal_error      = 4

    OTHERS              = 5.

CHECK sy-subrc = 0.

TRY.

    CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'

      EXPORTING

        i_name        = 'ZPF_QRCODE' " put your own form template name here

      IMPORTING

        e_funcname = lv_fm_name.

  CATCH cx_fp_api_repository

        cx_fp_api_usage

        cx_fp_api_internal.

    RETURN.

ENDTRY.

ls_docparams-langu     = 'E'.

ls_docparams-country   = 'US'.

CALL FUNCTION lv_fm_name

  EXPORTING

    /1bcdwb/docparams  = ls_docparams

    qrcode_input            = content

  IMPORTING

    /1bcdwb/formoutput = ls_pdf_file

  EXCEPTIONS

    usage_error         = 1

    system_error       = 2

    internal_error      = 3

    OTHERS             = 4.

CHECK sy-subrc = 0.

CALL FUNCTION 'FP_JOB_CLOSE'

EXCEPTIONS

    usage_error    = 1

    system_error   = 2

    internal_error  = 3

OTHERS         = 4.

execute the report, the PDF binary is stored in ls_pdf_file-pdf.

It could be scanned by the QRCode scanner installed in my mobile phone: