GRAFINC4 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 GRAFINC4 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: Graphics Routines for RMCLGRAF 3.0E (Network Graphic)
No INCLUDES are used within this REPORT code!
No SAP DATABASE tables are accessed within this REPORT code!
CNET_SET_OPTIONS CALL FUNCTION 'CNET_SET_OPTIONS' EXPORTING NODELPOP = NET_CONST-YES "kein Confirm Delete * ignoreuser = net_const-yes "keine User Modification poss.
CNET_LOGIC_NETWORK CALL FUNCTION 'CNET_LOGIC_NETWORK' TABLES ALL_LINES = ALL_LINES_TAB ALL_LVALS = ALL_LVALS_TAB ALL_NODES = ALL_NODES_TAB ALL_NVALS = ALL_NVALS_TAB DELETIONS = DELETE_TAB LINES = LINES_TAB LVALS = LVALS_TAB NODES = NET_NODES_TAB NVALS = NVALS_TAB.
CNET_GRAPHIC_NETWORK CALL FUNCTION 'CNET_GRAPHIC_NETWORK' EXPORTING ABAP_CMD = ABAP_CMD CONFIRM = NET_CONST-CONFIRM_YES PROFILE = PROFILE * PWDID = ' ' * SET_FOCUS = 'X' * SORT = 'X' * SO_CONTENTS = ' ' * SO_SEND = ' ' STAT = STAT STATUS_TEXT = STATUS_TEXT * SUPER = ' ' * WINID = ' ' IMPORTING GR_MES = GR_MES "Benutzeraktion (Message) GR_MODE = MODE "Modus beim Einfügen/Dupliz.
CNET_LOGIC_NETWORK CALL FUNCTION 'CNET_LOGIC_NETWORK' exporting confirm = net_const-confirm_yes lg_mes = lg_mes lg_mode = mode tables ALL_LINES = ALL_LINES_TAB ALL_LVALS = ALL_LVALS_TAB ALL_NODES = ALL_NODES_TAB ALL_NVALS = ALL_NVALS_TAB DELETIONS = DELETE_TAB LINES = LINES_TAB LVALS = LVALS_TAB NODES = NET_NODES_TAB NVALS = NVALS_TAB.
GRAPH_SET_CUA_STATUS CALL FUNCTION 'GRAPH_SET_CUA_STATUS' EXPORTING PROGRAM = PROG STATUS = 'GRAFIK' TABLES EXCLUDING = EXCLUDING_TAB EXCEPTIONS INV_CUA_INFO = 1.
CNET_SET_LEGEND CALL FUNCTION 'CNET_SET_LEGEND' EXPORTING FOOT_LINE = FOOT_LINE HEAD_LINE = HEAD_LINE LEGEND_TYPE = NET_CONST-TYPE_A TABLES LEGEND = LEGEND.
CNET_SET_POPUP_DATA CALL FUNCTION 'CNET_SET_POPUP_DATA' EXPORTING OBJECT = 'U3' ID = POPUP_TAB-ID TEXT = POPUP_TAB-TEXT * HELP_TEXT = EXCEPTIONS INV_OBJECT = 1 OTHERS = 2.
CLSE_SELECT_KSSK CALL FUNCTION 'CLSE_SELECT_KSSK' EXPORTING * ADD_KSSK = ' ' CLINT = SUP_CLASS-CLINT * IMPKLART = ' ' KLART = PM_KLART MAFID = 'K' OBJEK = AUSP_OBJ * REFRESH = ' ' * TABLE = ' ' * VIEW = ' ' KEY_DATE = PM_DATUV TABLES EXP_KSSK = I_KSSK0 EXCEPTIONS NO_ENTRY_FOUND = 1 SET_CLASSTYPE = 2 SET_MAFID = 3 OTHERS = 4.
CLME_FEATURES_OF_CLASS_ALL CALL FUNCTION 'CLME_FEATURES_OF_CLASS_ALL' EXPORTING CLASS = SUP_CLASS-CLASS CLASSTYPE = PM_KLART LANGUAGE = SY-LANGU KEY_DATE = PM_DATUV TABLES TFEATURES = IMERK EXCEPTIONS CLASS_NOT_FOUND = 1 NO_AUTHORITY = 2 OTHERS = 3.
CLSE_SELECT_AUSP CALL FUNCTION 'CLSE_SELECT_AUSP' EXPORTING KLART = PM_KLART OBJEK = AUSP_OBJ ATINN = IMERK-ATINN MAFID = 'K' KEY_DATE = PM_DATUV * ATCOD = * tables * IN_OBJEK = * IN_ATINN = * T_AUSP = * IN_WERTC = * IN_WERTN = * IN_ATCOD = EXCEPTIONS NO_ENTRY_FOUND = 1 PARAMETERS_NOT_SUFFICIENT = 2 OTHERS = 3.
CLMA_CLASS_EXIST CALL FUNCTION 'CLMA_CLASS_EXIST' EXPORTING CLASS = CLAS_STRUC-CLASS CLASSTYPE = TMP_KLART * description_only = 'X' IMPORTING * class_description = clas_struc-cltxt RET_CODE = SAVE_SUBRC EXCEPTIONS OTHERS = 1.
CLAF_CHECK_ALLOCATION CALL FUNCTION 'CLAF_CHECK_ALLOCATION' EXPORTING classname = clas_struc-class * CLASSNUMBER = ' ' CLASSTYPE = PM_KLART * OBJECT = ' ' KEY_DATE = PM_DATUV CHANGE_SERVICE_CLF = ' ' IMPORTING ALLOCATION_EXIST = ALLOC_FLAG * allocation_exist_in_future = EXCEPTIONS OTHERS = 1.
CLSE_SELECT_KSSK CALL FUNCTION 'CLSE_SELECT_KSSK' EXPORTING * ADD_KSSK = ' ' CLINT = NEW_CLASS-CLINT * IMPKLART = ' ' * KLART = ' ' MAFID = 'K' * OBJEK = ' ' * REFRESH = ' ' * TABLE = ' ' * VIEW = ' ' KEY_DATE = PM_DATUV TABLES EXP_KSSK = I_KSSK0 EXCEPTIONS NO_ENTRY_FOUND = 1 SET_CLASSTYPE = 2 SET_MAFID = 3 OTHERS = 4.
CLSE_SELECT_KSSK CALL FUNCTION 'CLSE_SELECT_KSSK' EXPORTING * ADD_KSSK = ' ' * clint = ' ' * IMPKLART = ' ' KLART = PM_KLART MAFID = 'K' OBJEK = OBJECT * REFRESH = ' ' * TABLE = ' ' * VIEW = ' ' KEY_DATE = PM_DATUV TABLES EXP_KSSK = I_KSSK0 EXCEPTIONS NO_ENTRY_FOUND = 1 SET_CLASSTYPE = 2 SET_MAFID = 3 OTHERS = 4.
CLSA_STRUCTURE_RECURSION CALL FUNCTION 'CLSA_STRUCTURE_RECURSION' EXPORTING CLASS = CLAS_STRUC-CLASS CLASSTYPE = PM_KLART HEADCLASS = SUP_CLASS-CLASS HEADCLINT = SUP_CLASS-CLINT * LANGUAGE = SY-LANGU WITH_TEXT = ' ' * MODE = 'U' * REFRESH = 'X' * STRUCTURE_DEPTH = 99 KEY_DATE = PM_DATUV RECURSION_CHECK = 'X' * tables * STRUKT = EXCEPTIONS ERR_INKONSISTENT = 1 ERR_NO_SUBCLASS = 2 ERR_OVERFLOW = 3 ERR_REKURSIV = 4 OTHERS = 5.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING * DEFAULTOPTION = 'Y' DIAGNOSETEXT1 = TEXT-050 "Löschen aller Zuordnungen DIAGNOSETEXT2 = TEXTLINE * diagnosetext3 = ' ' TEXTLINE1 = TEXT-051 TEXTLINE2 = TEXT-052 TITEL = TEXT-053 "Zuordnungen löschen * START_COLUMN = 25 * START_ROW = 6 IMPORTING ANSWER = TMP_FLAG EXCEPTIONS OTHERS = 1.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING * DEFAULTOPTION = 'Y' DIAGNOSETEXT1 = TEXT-014 "Klassenstruktur geändert * DIAGNOSETEXT2 = ' ' * DIAGNOSETEXT3 = ' ' TEXTLINE1 = TEXT-015 "Wollen Sie sichern ? * TEXTLINE2 = ' ' TITEL = TEXT-013 "Grafische Klassenpflege * START_COLUMN = 25 * START_ROW = 6 IMPORTING ANSWER = TMP_FLAG 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.