J_1ITD4F SAP ABAP INCLUDE - Subroutines for TDS Reprint.
J_1ITD4F is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter J_1ITD4F into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT J_1ITD4F. "Basic submit
SUBMIT J_1ITD4F AND RETURN. "Return to original report after report execution complete
SUBMIT J_1ITD4F VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Subroutines for TDS Reprint.
INCLUDES used within this REPORT J_1ITD4F
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
STRING_SPLIT CALL FUNCTION 'STRING_SPLIT' EXPORTING STRING = AM DELIMITER = '.'
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING AMOUNT = AMOUNT FILLER = SPACE LANGUAGE = SY-LANGU IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 01 TOO_LARGE = 02.
STRING_CONCATENATE CALL FUNCTION 'STRING_CONCATENATE' EXPORTING STRING1 = AMOUNT1 STRING2 = ' only' IMPORTING STRING = XC EXCEPTIONS TOO_SMALL = 01.
STRING_CONCATENATE CALL FUNCTION 'STRING_CONCATENATE' EXPORTING STRING1 = AMOUNT1 STRING2 = ' and paise' IMPORTING STRING = XX_AMOUNT1 EXCEPTIONS TOO_SMALL = 01.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING AMOUNT = AMOUNT CURRENCY = SY-WAERS FILLER = SPACE LANGUAGE = SY-LANGU IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 01 TOO_LARGE = 02.
STRING_CONCATENATE CALL FUNCTION 'STRING_CONCATENATE' EXPORTING STRING1 = AMOUNT2 STRING2 = ' only' IMPORTING STRING = XX_AMOUNT2 EXCEPTIONS TOO_SMALL = 01.
STRING_CONCATENATE CALL FUNCTION 'STRING_CONCATENATE' EXPORTING STRING1 = XX_AMOUNT1 STRING2 = XX_AMOUNT2 IMPORTING STRING = XC EXCEPTIONS TOO_SMALL = 01.
J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' EXPORTING I_BUKRS = ZBUKRS I_BUDAT = ZCERT-J_1ITDFRDT IMPORTING EXCISE_YEAR = XYEAR EXCEPTIONS MISS_COMPANY = 1 OTHERS = 2.
READ_TEXT_INLINE CALL FUNCTION 'READ_TEXT_INLINE' EXPORTING ID = 'PAN' INLINE_COUNT = 1 LANGUAGE = 'E' NAME = TEXT_NAME OBJECT = 'LFA1' TABLES INLINES = TINLINES LINES = TLINES EXCEPTIONS ERROR_MESSAGE = 01.
READ_TEXT_INLINE CALL FUNCTION 'READ_TEXT_INLINE' EXPORTING ID = 'WARD' INLINE_COUNT = 1 LANGUAGE = 'E' NAME = TEXT_NAME OBJECT = 'LFA1' TABLES INLINES = TINLINES LINES = TLINES EXCEPTIONS ERROR_MESSAGE = 01 .
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = SELEMENT WINDOW = SWINDOW FUNCTION = SFUNCTION EXCEPTIONS ELEMENT = 01 FUNCTION = 02 TYPE = 03 UNOPENED = 04 UNSTARTED = 05 WINDOW = 06.
TEXT_SYMBOL_SETVALUE CALL FUNCTION 'TEXT_SYMBOL_SETVALUE' EXPORTING NAME = SSYMBOLS VALUE = SVALUES.
FI_COMPANY_CODE_CHECK CALL FUNCTION 'FI_COMPANY_CODE_CHECK' EXPORTING * i_bukrs = zbukrs "29.02.2000
OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING APPLICATION = 'TX' DEVICE = 'PRINTER' DIALOG = 'X' FORM = FORM OPTIONS = OPTIONS EXCEPTIONS CANCELED = 01 DEVICE = 02 FORM = 03 OPTIONS = 04 UNCLOSED = 05.
START_FORM CALL FUNCTION 'START_FORM' EXPORTING LANGUAGE = 'E' EXCEPTIONS FORM = 01 FORMAT = 02 UNENDED = 03 UNOPENED = 04 UNUSED = 05.
CONTROL_FORM CALL FUNCTION 'CONTROL_FORM' EXPORTING COMMAND = 'NEW-PAGE' EXCEPTIONS UNOPENED = 01 UNSTARTED = 02.
END_FORM CALL FUNCTION 'END_FORM' IMPORTING RESULT = RESULT EXCEPTIONS UNOPENED = 01.
CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING RESULT = RESULT EXCEPTIONS UNOPENED = 01.
CALL FUNCTION 'J_1I7_USEREXIT_TANNO' TABLES TEMP_BUKRS = ZCOMP TEMP_SECT = ZSECTIO TEMP_QSSKZ = WTAB TEMP_GSBER = ZGSBER CHANGING TEMP_TANNO = P_TANNO EXCEPTIONS OTHERS = 1.
J_1I7_USEREXIT_ADDRESS CALL FUNCTION 'J_1I7_USEREXIT_ADDRESS' EXPORTING TEMP_BUKRS = ZBUKRS TEMP_SECT = ZSECT IMPORTING TEMP_TDSCIRCLE = F_TDSCIRCLE TEMP_TDSRANGE1 = F_TDSRANGE1 TEMP_TDSRANGE2 = F_TDSRANGE2 TABLES TEMP_GSBER = ZGSBER TEMP_ADDR = ADDR.
J_1I7_USEREXIT_CERTIFICATE call function 'J_1I7_USEREXIT_CERTIFICATE' tables temp_bukrs = zcomp temp_sect = zsectio temp_gsber = zgsber changing temp_cert = form exceptions others = 1.
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name J_1ITD4F or its description.