RGALLOC1 is a standard Executable ABAP Report 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 RGALLOC1 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.
Title: FI-SL Generate Allocation Select Statement
Text Symbol: 001 = The includes can only be generated from client 00.
Text Symbol: 002 = Table Fields
Text Symbol: 003 = have been generated for the include
Text Symbol: 010 = The include MKGALGLD has been generated
Text Symbol: 020 = The include MKGALGLG has been generated
Text Symbol: 030 = The include MKGALGLU has been generated
Text Symbol: 040 = The include FGLALF10 has been generated
Text Symbol: 050 = The include MKGALGLI has been generated
Text Symbol: 051 = Program SAPFGASL has been generated
Text Symbol: 060 = Number of Messages
Text Symbol: 070 = Update FI-SL Programs
Text Symbol: 078 = Created by:
Text Symbol: 079 = Date :
Text Symbol: 080 = Time :
Text Symbol: 081 = Program :
Text Symbol: 100 = FI-SL Generate Allocation Select Statement
INCLUDE FGIDBF27.
No SAP DATABASE tables are accessed within this REPORT code!
G_GET_TABLES CALL FUNCTION 'G_GET_TABLES' EXPORTING I_TT = 'X' I_SI = 'X' I_SP = 'X' I_ST = 'X' I_AL = 'X' I_AS = 'X' TABLES E_T800A = T_T800A.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = R_S_FIELDS-R TABLE = I_TABLE1-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS OTHERS = 1.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = R_S_FIELDS-S TABLE = I_TABLE1-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS OTHERS = 1.
G_FIELD_SET CALL FUNCTION 'G_FIELD_SET' EXPORTING TABLE = I_TABLE1-NAME UTABLE = ' ' TEXT_FLAG = ' ' FTYPE = 'K' LENGTH24 = 'X' EXCEPTIONS NOT_FOUND = 4.
G_FIELD_GET CALL FUNCTION 'G_FIELD_GET' IMPORTING FIELD_ATTR = DFIES SUBRC = RC.
G_FIELD_GET CALL FUNCTION 'G_FIELD_GET' IMPORTING FIELD_ATTR = DFIES SUBRC = RC.
G_GIVE_FIELDS_FOR_TABLE CALL FUNCTION 'G_GIVE_FIELDS_FOR_TABLE' EXPORTING I_TABLE = I_TABLE-NAME TABLES E_T_FIELDS = LT_FLEXA_FIELDS EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING TABLE = T800A-TAB FIELDNAME = 'DRCRK' EXCEPTIONS OTHERS = 1.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = 'BUDAT' TABLE = I_TABLE-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = 'BLDAT' TABLE = I_TABLE-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = 'WSDAT' TABLE = I_TABLE-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = 'VALUT' TABLE = I_TABLE-NAME IMPORTING FIELD_ATTR = DFIES EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
CALL FUNCTION 0 'CALL FUNCTION ''G_MAX_PERIOD_AND_OFFSET_GET'' ' 0 0, "#EC NOTEXT 0 ' EXPORTING PERIOD = PERIO ' 0 0.
CALL FUNCTION 0 'CALL FUNCTION ''FAGL_PLANNING_SPLIT_YEAR''' 0 2, "#EC NOTEXT 0 'EXPORTING' 0 2. "#EC NOTEXT
CALL FUNCTION 0 'CALL FUNCTION ''G_MAX_PERIOD_AND_OFFSET_GET'' ' 0 0.
CALL FUNCTION 0 'CALL FUNCTION ''G_VALIDATE_RECORD'' ' 0 0. "#EC NOTEXT
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING FIELDNAME = 'GL_SIRID ' NO_GLX_OBJ_PROCESSING = 'X' TABLE = T800A-NTABLE EXCEPTIONS NOT_FOUND = 8 OTHERS = 1.
CALL FUNCTION 0 'CALL FUNCTION ''FAGL_GET_BELNR_FROM_AW'' ' 0 0, 0 ' EXPORTING ' 0 0, 0 ' I_AWTYP = ''GLAL0'' ' 0 0, 0 ' I_AWREF = RT811D-DOCNR ' 0 0, 0 ' I_AWORG = LD_AWORG ' 0 0, 0 ' I_AWSYS = '' '' ' 0 0, 0 ' IMPORTING ' 0 0, 0 ' ET_BELNR = LT_BELNR_KEY ' 0 0, 0 ' EXCEPTIONS ' 0 0, 0 ' NOT_FOUND = 1 ' 0 0, 0 ' OTHERS = 2. ' 0 0,
CALL FUNCTION
0 'CALL FUNCTION ''G_MAX_PERIOD_AND_OFFSET_GET'' ' 0 0, "#EC NOTEXT 0 ' EXPORTING PERIOD = RT811D-PERIO ' 0 0.
CALL FUNCTION 0 'CALL FUNCTION ''G_MAX_PERIOD_AND_OFFSET_GET'' ' 0 0, "#EC NOTEXT 0 ' EXPORTING PERIOD = RT811D-PERIO ' 0 0.
CALL FUNCTION 0 'CALL FUNCTION ''G_MAX_PERIOD_AND_OFFSET_GET'' ' 0 0, "#EC NOTEXT 0 ' EXPORTING PERIOD = PERIOS-PERIO ' 0 0.
CALL FUNCTION 0 'CALL FUNCTION ''FAGL_GET_BELNR_FROM_AW'' ' 0 0, 0 ' EXPORTING ' 0 0, 0 ' I_AWTYP = ''GLAL0'' ' 0 0, 0 ' I_AWREF = IT811D-DOCNR ' 0 0, 0 ' I_AWORG = LD_AWORG ' 0 0, 0 ' I_AWSYS = '' '' ' 0 0, 0 ' IMPORTING ' 0 0, 0 ' ET_BELNR = LT_BELNR_KEY ' 0 0, 0 ' EXCEPTIONS ' 0 0, 0 ' NOT_FOUND = 1 ' 0 0, 0 ' OTHERS = 2. ' 0 0,
G_UPDATE_T800O CALL FUNCTION 'G_UPDATE_T800O' EXPORTING PGMID = 'R3TR' OBJECT = 'PROG' OBJNAME = 'SAPFGASL' GEN_PROGRAM = 'RGALLOC1' USNAM = SY-UNAME UDAT = SY-DATUM UTIME = SY-UZEIT.
G_SPLIT_LINE CALL FUNCTION 'G_SPLIT_LINE' EXPORTING INPUT_LINE = UNSPLITTED_LINE TABLES EXPORT_LINES = SPLITTED_CODE EXCEPTIONS OTHERS = 1.
G_FIELD_SET CALL FUNCTION 'G_FIELD_SET' EXPORTING TABLE = GF_TABLE LANGU = SY-LANGU FTYPE = 'K' LENGTH24 = ' '.
G_FIELD_GET CALL FUNCTION 'G_FIELD_GET' IMPORTING FIELD_ATTR = DFIES SUBRC = RC.
G_FIELD_GET CALL FUNCTION 'G_FIELD_GET' IMPORTING FIELD_ATTR = DFIES SUBRC = RC.
G_UPDATE_T800O CALL FUNCTION 'G_UPDATE_T800O' EXPORTING PGMID = 'R3TR' OBJECT = 'PROG' OBJNAME = CRD_RNAME GEN_PROGRAM = 'RGALLOC1' USNAM = SY-UNAME UDAT = SY-DATUM UTIME = SY-UZEIT.
G_FIELD_READ CALL FUNCTION 'G_FIELD_READ' EXPORTING TABLE = GVL_TABLE FIELDNAME = GVL_FIELD IMPORTING FIELD_ATTR = DFIES EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
CALL FUNCTION * STRING = 'CALL FUNCTION ''G_GLDB_POSTING_x'' IN UPDATE TASK'.
CALL FUNCTION 0 'CALL FUNCTION ''FAGL_ALLOCATION_POST'' ' 0 0, "#EC NOTEXT 0 ' EXPORTING ' 0 0, "#EC NOTEXT 0 ' ID_DOCTY = RKGA2U-DOCTY ' 0 0, "#EC NOTEXT 0 ' ID_ACTIV = ACTIVITY ' 0 0, "#EC NOTEXT 0 ' I_TABNAME = USED_V1-TAB ' 0 0, "#EC NOTEXT 0 ' IT_FLEXA =
' 0 0, "#EC NOTEXT 0 ' ID_LDGRP = IT811C-GL_LDGRP ' 0 0, "#EC NOTEXT 0 ' TABLES ' 0 0, "#EC NOTEXT 0 ' ET_BELNR = t_fi_belnr ' 0 0, "#EC NOTEXT 0 ' IT_PERIODS = itperiods ' 0 0, "#EC NOTEXT 0 ' EXCEPTIONS ' 0 0, "#EC NOTEXT 0 ' ERROR_IN_RWIN = 1 ' 0 0, "#EC NOTEXT 0 ' OTHERS = 2. ' 0 0, "#EC NOTEXT
CALL FUNCTION 0 'CALL FUNCTION ''MESSAGES_SHOW''' 0 2, "#EC NOTEXT 0 'EXCEPTIONS' 0 2, "#EC NOTEXT 0 'inconsistent_range = 1' 0 0, "#EC NOTEXT 0 'no_messages = 2' 0 0, "#EC NOTEXT 0 'OTHERS = 3.' 0 -4, "#EC NOTEXT
CALL FUNCTION * 0 'CALL FUNCTION ''FI_ACCBELNR_GET''' 0 2, * 0 'TABLES' 0 2, * 0 't_belnr = t_fi_belnr.' 0 -4,
BAL_LOG_CREATE CALL FUNCTION 'BAL_LOG_CREATE' EXPORTING I_S_LOG = XS_LOG IMPORTING E_LOG_HANDLE = ES_LOG_HANDLE EXCEPTIONS OTHERS = 1.
BAL_LOG_MSG_ADD_FREE_TEXT CALL FUNCTION 'BAL_LOG_MSG_ADD_FREE_TEXT' EXPORTING I_LOG_HANDLE = ES_LOG_HANDLE I_MSGTY = GC_INFO I_PROBCLASS = GC_CLASS I_TEXT = IV_TEXT EXCEPTIONS LOG_NOT_FOUND = 1 MSG_INCONSISTENT = 2 LOG_IS_FULL = 3 OTHERS = 4.
BAL_DSP_LOG_DISPLAY CALL FUNCTION 'BAL_DSP_LOG_DISPLAY' EXPORTING I_S_DISPLAY_PROFILE = XS_DISPLAY_PROFILE EXCEPTIONS PROFILE_INCONSISTENT = 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.
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 RGALLOC1 or its description.
RGALLOC1 - FI-SL Generate Allocation Select Statement RGALLOC1 - FI-SL Generate Allocation Select Statement RG0UMRUE - User exit for user-defined exchange rate determination RG0UMRPF - documentation and ABAP source code RG0UMRMD - Substitution of company/cons. business area with consolidation unit RG0UMR00 - Subprograms for Currency Translation in FI-LC and FI-GLX