SAP SCRIPT SAMPLE CODE

REPORT Z94406_SAPSCR_NOTIF .

TABLES: qmel,qmih,z94392_notif,iflot.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS: N_NUMBER LIKE z94392_notif-QMNUM ,
N_TYPE LIKE z94392_notif-QMART ,
F_LOCA LIKE z94392_notif-btpln ,
NAME LIKE z94392_notif-QMNAM .
SELECTION-SCREEN END OF BLOCK b1.

SELECT SINGLE * FROM QMEL WHERE QMNUM = N_NUMBER AND QMART = N_TYPE AND
QMNAM = NAME.

SELECT SINGLE * FROM QMIH WHERE QMNUM = N_NUMBER AND BTPLN = F_LOCA.


CALL FUNCTION 'OPEN_FORM'
EXPORTING

  • APPLICATION = 'TX'
  • ARCHIVE_INDEX =
  • ARCHIVE_PARAMS =
  • DEVICE = 'PRINTER'
  • DIALOG = 'X'
FORM = 'Z94406_SAPSCR_NOTIF'
LANGUAGE = SY-LANGU
  • OPTIONS =
  • MAIL_SENDER =
  • MAIL_RECIPIENT =
  • MAIL_APPL_OBJECT =
  • RAW_DATA_INTERFACE = '*'
  • IMPORTING
  • LANGUAGE =
  • NEW_ARCHIVE_PARAMS =
  • RESULT =
  • EXCEPTIONS
  • CANCELED = 1
  • DEVICE = 2
  • FORM = 3
  • OPTIONS = 4
  • UNCLOSED = 5
  • MAIL_OPTIONS = 6
  • ARCHIVE_ERROR = 7
  • INVALID_FAX_NUMBER = 8
  • MORE_PARAMS_NEEDED_IN_BATCH = 9
  • SPOOL_ERROR = 10
  • CODEPAGE = 11
  • OTHERS = 12
.
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 'WRITE_FORM'
EXPORTING
ELEMENT = '100'
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'MAIN'

  • IMPORTING
  • PENDING_LINES =
  • EXCEPTIONS
  • ELEMENT = 1
  • FUNCTION = 2
  • TYPE = 3
  • UNOPENED = 4
  • UNSTARTED = 5
  • WINDOW = 6
  • BAD_PAGEFORMAT_FOR_PRINT = 7
  • SPOOL_ERROR = 8
  • CODEPAGE = 9
  • OTHERS = 10
.
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 'CLOSE_FORM'

  • IMPORTING
  • RESULT =
  • RDI_RESULT =
  • TABLES
  • OTFDATA =
  • EXCEPTIONS
  • UNOPENED = 1
  • BAD_PAGEFORMAT_FOR_PRINT = 2
  • SEND_ERROR = 3
  • SPOOL_ERROR = 4
  • CODEPAGE = 5
  • OTHERS = 6
.
IF sy-subrc 0.
  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

No comments:

Post a Comment