• A Sample Program Calling Smartforms 沧海


    You should use 'SSF_FUNCTION_MODULE_NAME' & call function fm_name in your program & not others. 

    *&---------------------------------------------------------------------*
    *& Report  ZTACA_DRIVER_SMARTFORM                                      *
    *&                                                                     *
    *&---------------------------------------------------------------------*
    *&                                                                     *
    *&                                                                     *
    *&---------------------------------------------------------------------*
    REPORT  ZTACA_DRIVER_SMARTFORM                  .
    Tables : sflight.
    Data : fm_name TYPE rs38l_fnam.
    *data : Begin of it_flttab occurs 0,
    *        carrid type sflight-carrid,
    *        connid type sflight-connid,
    *        fldate type sflight-fldate,
    *        seatsmax type sflight-seatsmax,
    *        seatsocc type sflight-seatsocc,
    *        End of it_flttab.
    data : it_flttab like table  of sflight.
    Data : g_salary type i .
    *       it_flttab type standard table of ty_flt.
    g_salary = 1000.
    select carrid connid fldate seatsmax seatsocc from sflight into
    corresponding fields of table it_flttab.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname                 = 'ZTACA_SMFORM2'
    *   VARIANT                  = ' '
    *   DIRECT_CALL              = ' '
     IMPORTING
       FM_NAME                  = fm_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.
    call function fm_name
      Exporting
         salary = g_salary
      TABLES
         it_flttab = it_flttab
      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.
  • 相关阅读:
    解剖PetShop系列之六PetShop表示层设计
    解剖PetShop系列之五PetShop之业务逻辑层设计
    用memset给一个char设置0xff,然后将该char和0xff ==,能相等么?
    用gdb如何查看指定地址的内存内容?
    Open a pipe will block if other side hasn't opened this pipe
    inet_aton和inet_pton的区别
    很多源码中看到的ignore SIGCHLD信号是做什么用的?
    Linux下getopt函数使用Tips
    Linux下编译一个静态链接的程序的注意点
    Linux 脚本和程序对SIGINT的处理方案,脚本通过kill给程序传递信号
  • 原文地址:https://www.cnblogs.com/omygod/p/1055280.html
Copyright © 2020-2023  润新知