J_1SFERA is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Read address data for bundling of newspapers in postal shipping...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter J_1SFERA into the relevant SAP transactions such as SE38 or SE80
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.
Interfaces to FERAG Systems From: &0..........
Selection Text: P_SEQ = Prod.Seq.for Postal Shipping
Selection Text: PVA = Edition
Selection Text: DZEUG = Publication
Selection Text: DSETNAME = Path for Output File
Selection Text: WR_DATEN = List Interfaces
Selection Text: VDATE = Shipping Date
Selection Text: UNIX_DAT = Interfaces to Unix File
Selection Text: S_LFART = Delivery Types (Order)
Title: IS-M/SD CH/V: Interface Data for FERAG Systems
Text Symbol: 012 = **********************************************************************
Text Symbol: 011 = *** E R R O R M E S S A G E S ***
Text Symbol: 010 = **********************************************************************
Text Symbol: 009 = FERAG Interface
Text Symbol: 008 = FERAG Interface Data
Text Symbol: 902 = Print Control
Text Symbol: 016 = ************* PROD. SEQUENCE STATISTICS ******************************
Text Symbol: 015 = ProdSeq No.Contnrs No.PPacks No.Iss
Text Symbol: 014 = No errors found
Text Symbol: 013 = Key Error Message
Text Symbol: 007 = Cannot Open Dataset
Text Symbol: 001 = Program Control
Text Symbol: 006 = Postal code missing in tab. JSTPLZPRO
Text Symbol: 005 = Postal code missing in tab. JSTPLZORT
Text Symbol: 004 = City number missing in tab. JSTORTPRO
Text Symbol: 003 = Entry missing in tab. J_1SORGZEB
Text Symbol: 002 = Output Control
Text Symbol: 908 = Cover Sht
Text Symbol: 909 = Cover Sh.Text
Text Symbol: 910 = Print Imm.
Text Symbol: 911 = Print Cover Sheet
Text Symbol: 912 = Text on Cov.Sheet
Text Symbol: 903 = Name of Spool List
Text Symbol: 904 = No. of Printouts
Text Symbol: 905 = Printer
Text Symbol: 906 = Delete After Print
Text Symbol: 913 = Lang.
Text Symbol: 907 = Reten.Period
No INCLUDES are used within this REPORT code!
No SAP DATABASE tables are accessed within this REPORT code!
J_1S_SHIPPING_DATA_GET_PRODSEQ * call function 'J_1S_SHIPPING_DATA_GET_PRODSEQ' "rr19990201 * exporting "rr19990201 * date = vdate "rr19990201 * tables "rr19990201 * out_prodseq = pseqtab_all. "rr19990201
J_1S_SHIPPING_DATA_GET_CNTNER * call function 'J_1S_SHIPPING_DATA_GET_CNTNER' "rr19990201 * exporting "rr19990201 * vrsnddatum = vdate "rr19990201 * prodseq = pseqtab-prodseq "rr19990201 * tables "rr19990201 * out_container = gebindetab. "rr19990201
J_1S_SHIPPING_DATA_GET_BUNDLE CALL FUNCTION 'J_1S_SHIPPING_DATA_GET_BUNDLE' EXPORTING containernr = gebindetab-gebindenr TABLES out_bundle = bundetab.
J_1S_SHIPPING_DATA_GET_ADDRESS CALL FUNCTION 'J_1S_SHIPPING_DATA_GET_ADDRESS' EXPORTING bundle = bundetab-bundnr * flg_namenszus = zeilenzahl = '4'"Anzahl Adresszeilen TABLES address_tab = adressentab .
FILE_VALIDATE_NAME call function 'FILE_VALIDATE_NAME' exporting logical_filename = 'ISM_GROUP_FERAG_INTERFACE' "<= File-Gruppe changing physical_filename = dsetname "<= Pfad vom Selektionsbild exceptions others = 4.
ISP_JRTBEABST_MAINTAIN CALL FUNCTION 'ISP_JRTBEABST_MAINTAIN' EXPORTING aufgabe = '05' beabstart = space inputbeabst = jrtbeabst inputaddress = jgtsadr IMPORTING outputaddress = jgtsadr EXCEPTIONS address_not_found = 1 jrtbeabst_not_found = 2.
J_1S_ADDRESS_INTO_PRINTFORM CALL FUNCTION 'J_1S_ADDRESS_INTO_PRINTFORM' EXPORTING in_adrs = jgtsadr IMPORTING out_adrs = jgtsadr.
ISP_ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ISP_ADDRESS_INTO_PRINTFORM' EXPORTING * anschr_typ = anschr_typ = jgtsadr-erstadr " (neu) rr1999051 * FLG_NAMENSZUS = ' ' sadrwa_in = jgtsadr zeilenzahl = '4' IMPORTING sadrwa_out = adrs EXCEPTIONS OTHERS = 1.
J_1S_ADDRESS_INTO_PRINTFORM CALL FUNCTION 'J_1S_ADDRESS_INTO_PRINTFORM' EXPORTING in_adrs = jgtsadr IMPORTING out_adrs = jgtsadr.
ISP_ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ISP_ADDRESS_INTO_PRINTFORM' EXPORTING anschr_typ = jvvvspadr-adressvar sadrwa_in = jgtsadr zeilenzahl = 4 IMPORTING sadrwa_out = adrs.
ISP_ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ISP_ADDRESS_INTO_PRINTFORM' EXPORTING anschr_typ = '1' sadrwa_in = adresse_in zeilenzahl = '4' IMPORTING sadrwa_out = adresse_text EXCEPTIONS OTHERS = 1.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
J_1SFERA - IS-M/SD CH/V: Interface Data for FERAG Systems J_1SFERA - IS-M/SD CH/V: Interface Data for FERAG Systems J_1SFEE_STATISTICS - IS-M/SD-CH: Monthly Statistics for Postal Charge Settlement J_1SFEE_STATISTICS - IS-M/SD-CH: Monthly Statistics for Postal Charge Settlement J_1SFEE_CALC_SWISS - IS-M/SD: Postal Charge Forecast (CH) J_1SFEE_CALC_SWISS - IS-M/SD: Postal Charge Forecast (CH)