SAP Reports / Programs | Production Planning and Control | Capacity Requirements Planning | Capacity Evaluations(PP-CRP-ALY) SAP PP

Home SAP Development ABAP Coding SAP Fiori SAP Training SAP Tables SAP Objects...

MC65AFG1 SAP ABAP INCLUDE - FORM Routines That Start With G

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

MC65AFG1 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 MC65AFG1 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 MC65AFG1. "Basic submit
SUBMIT MC65AFG1 AND RETURN. "Return to original report after report execution complete
SUBMIT MC65AFG1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement

Text pool values

Title: FORM Routines That Start With G

INCLUDES used within this REPORT MC65AFG1

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:

DATE_CONVERT_TO_FACTORYDATE CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE' EXPORTING CORRECT_OPTION = PLUS DATE = PERIOD_LAST_DATE FACTORY_CALENDAR_ID = IRC65A-KALID IMPORTING DATE = PERIOD_LAST_DATE FACTORYDATE = FCAL_DATE_LAST EXCEPTIONS CORRECT_OPTION_INVALID = 01 DATE_AFTER_RANGE = 02 DATE_BEFORE_RANGE = 03 DATE_INVALID = 04 FACTORY_CALENDAR_NOT_FOUND = 05.

FACTORYDATE_CONVERT_TO_DATE CALL FUNCTION 'FACTORYDATE_CONVERT_TO_DATE' EXPORTING FACTORYDATE = FCAL_DATE_NEXT FACTORY_CALENDAR_ID = IRC65A-KALID IMPORTING DATE = PERIOD_NEXT_DATE EXCEPTIONS FACTORYDATE_AFTER_RANGE = 01 FACTORYDATE_BEFORE_RANGE = 02 FACTORYDATE_INVALID = 03 FACTORY_CALENDAR_ID_MISSING = 04 FACTORY_CALENDAR_NOT_FOUND = 05.

PROGNOSEPERIODEN_ERMITTELN CALL FUNCTION 'PROGNOSEPERIODEN_ERMITTELN' EXPORTING EANZPR = ANZPER EDATUM = PERIOD_LAST_DATE EPERIV = IRC65A-PERIV TABLES PPERX = PPERX EXCEPTIONS T009B_FEHLERHAFT = 01 T009_NICHT_GEFUNDEN = 02.

DATE_CONVERT_TO_FACTORYDATE CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE' EXPORTING CORRECT_OPTION = PLUS DATE = DATE FACTORY_CALENDAR_ID = IRC65A-KALID IMPORTING DATE = DATEPS FACTORYDATE = START_BTAG EXCEPTIONS CORRECT_OPTION_INVALID = 01 DATE_AFTER_RANGE = 02 DATE_BEFORE_RANGE = 03 DATE_INVALID = 04 FACTORY_CALENDAR_NOT_FOUND = 05.

DATE_GET_WEEK CALL FUNCTION 'DATE_GET_WEEK' EXPORTING DATE = DATE IMPORTING WEEK = START_WEEK EXCEPTIONS DATE_INVALID = 01.

WEEK_GET_FIRST_DAY CALL FUNCTION 'WEEK_GET_FIRST_DAY' EXPORTING WEEK = START_WEEK IMPORTING DATE = DATEPS EXCEPTIONS WEEK_INVALID = 01.

DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING I_DATE = DATE I_PERIV = IRC65A-PERIV IMPORTING E_BUPER = ARB_POPER E_GJAHR = ARB_GJAHR EXCEPTIONS INPUT_FALSE = 01 T009_NOTFOUND = 02 T009B_NOTFOUND = 03.

FIRST_DAY_IN_PERIOD_GET CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = ARB_GJAHR I_PERIV = IRC65A-PERIV I_POPER = ARB_POPER IMPORTING E_DATE = DATEPS EXCEPTIONS INPUT_FALSE = 01 T009_NOTFOUND = 02 T009B_NOTFOUND = 03.

CY_GET_WORKSTATION_TEXT CALL FUNCTION 'CY_GET_WORKSTATION_TEXT' EXPORTING IARBID = IARBID IMPORTING EARBPL = ARBPL_NAME ETEXT = ARBPL_TEXT EWERKS = arbpl_werks "46A EXCEPTIONS ID_NOT_EXISTS = 01 WORKCENTER_NOT_EXISTS = 02.

CY_GET_CAPACITY_TEXT CALL FUNCTION 'CY_GET_CAPACITY_TEXT' EXPORTING IKAPID = IKAPID IMPORTING EKAPAR = RCRKK-KAPAR ENAME = RCRKK-NAME ETEXT = RCRKK-KTEXT EWERKS = RCRKK-WERKS EXCEPTIONS ID_NOT_EXISTS = 01.

CR_CAPACITY_KAKO_GET CALL FUNCTION 'CR_CAPACITY_KAKO_GET' EXPORTING I_KAPID = IKAPID IMPORTING E_KAKO = ARB_KAKO "wegen KAKO-KAPEH EXCEPTIONS NOT_FOUND = 01.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-026 "// Bedarf IMPORTING OUTTEXT = GRAPHIK_TDIM2-C.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-119 "// Angebot IMPORTING OUTTEXT = GRAPHIK_TDIM2-C.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-027 "//freie Kapazität IMPORTING OUTTEXT = GRAPHIK_TDIM2-C.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-028 "// Überlast IMPORTING OUTTEXT = GRAPHIK_TDIM2-C.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-029 "// Perioden IMPORTING OUTTEXT = DIM1.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-030 "// Arbeitsplatz/Kapazität IMPORTING OUTTEXT = DIM3.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-031 "// Standardübersicht IMPORTING OUTTEXT = TITL.

GRAPH_BUSG_COLOR_SET

CALL FUNCTION 'GRAPH_BUSG_COLOR_SET' "UB EXPORTING "UB PALETTE_ID = '1' "UB RESET = CON_YES "UB TABLES "UB PALETTE = PALETTE "UB EXCEPTIONS "UB INV_PALETTE_ID = 01 "UB INV_PALETTE = 02. "UB

GRAPH_MATRIX CALL FUNCTION 'GRAPH_MATRIX' EXPORTING DIM1 = DIM1 DIM2 = ' ' DIM3 = DIM3 TITL = TITL VALT = GRAPHIK_EINHEIT SET_FOCUS = 'X' TABLES DATA = GRAPHIK_DATA OPTS = OPTS TDIM1 = GRAPHIK_TDIM1 TDIM2 = GRAPHIK_TDIM2 TDIM3 = GRAPHIK_TDIM3.

GRAPH_BUSG_COLOR_SET CALL FUNCTION 'GRAPH_BUSG_COLOR_SET' "UB EXPORTING "UB RESET = CON_YES "UB TABLES "UB PALETTE = PALETTE "UB EXCEPTIONS "UB INV_PALETTE_ID = 01 "UB INV_PALETTE = 02. "UB

LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.

CONVERT_WITH_OVERFLOW_CHECK CALL FUNCTION 'CONVERT_WITH_OVERFLOW_CHECK' EXPORTING I_KRUND = SPACE I_VALUE = KAPDATA-BEDARF IMPORTING E_VALUE = BEDARF.

CONVERT_WITH_OVERFLOW_CHECK CALL FUNCTION 'CONVERT_WITH_OVERFLOW_CHECK' EXPORTING I_KRUND = SPACE I_VALUE = KAPDATA-ANGEBOT IMPORTING E_VALUE = ANGEBOT.

CY_CONV_DATE_TO_PERIOD CALL FUNCTION 'CY_CONV_DATE_TO_PERIOD' EXPORTING IDATE = RC65A-LIDAV IMPORTING EINDPERIOD = INDPERV EXCEPTIONS NOT_FOUND = 01.

CY_CONV_DATE_TO_PERIOD CALL FUNCTION 'CY_CONV_DATE_TO_PERIOD' EXPORTING IDATE = RC65A-LIDAB IMPORTING EINDPERIOD = INDPERB EXCEPTIONS NOT_FOUND = 01.

LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.

CY_GET_DATA_FOR_AVO_ARPL_GRAPH CALL FUNCTION 'CY_GET_DATA_FOR_AVO_ARPL_GRAPH' EXPORTING ARBID = ARBID IRC65A = RC65A IINDI = INDI TABLES IGANTTDATA = GANTTDATA EXCEPTIONS NO_DB_SELECTION = 01.

LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-113 " Auftrag IMPORTING OUTTEXT = DGLEG-DYAUFT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-062 "Ist-Lage IMPORTING OUTTEXT = DGLEG-LAGE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-054 "Soll-Werte IMPORTING OUTTEXT = NTITEL.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-055 "Rest-Werte IMPORTING OUTTEXT = NTITEL.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-058 "Vorgänge/Arbeitsplatz IMPORTING OUTTEXT = LEGEND.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-056 "Materialien IMPORTING OUTTEXT = TTEXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-058 "Vorgänge auf einem Arbeitsplatz IMPORTING OUTTEXT = WHEADER.

GRAPH_GANTT
  CALL FUNCTION 'GRAPH_GANTT'
       EXPORTING
          CONFIRM = 'X'
          DFEL    = DFEL
*         DFMS    = DFMS
*         HGRID   = 'X'
          LEGEND  = LEGEND
*         MODIF   = 'ON'                                          "31I
          MODIF   = 'PICK'                                  "31I
          NOTXT   = 'X'
          STAT    = GANTT_STAT
          TLINE   = HEUTE
          TMBEG   = START
          TMEND   = ENDE
          TMVIEW  = MIN_FRUEH_BEG
          TTEXT   = TTEXT
          TTITLE  = TITEL
          TUNIT   = GRAZEIT
          VGRID   = 'X'
          WHEADER = WHEADER
          NO_EL_POPUP = 'X'
          NO_EX_POPUP = 'X'
          NO_IT_POPUP = 'X'
          NO_MS_POPUP = 'X'
     IMPORTING
          CUA_ID = CUA_ID
          G_TYP =  G_TYP
          M_TYP =  M_TYP
          AKT_TMBEG = START
          AKT_TMEND = ENDE
          AKT_TUNIT = GRAZEIT
          AKT_SVIEW = MIN_FRUEH_BEG
       TABLES
            ELEM = ELEM
            ITEM = ITEM
            LGEL = LGEL
            LGMS = MIST
            MIST = MIST
            MSGT = BACK.

GRAPH_GANTT CALL FUNCTION 'GRAPH_GANTT' EXPORTING DFEL = DFEL LEGEND = LEGEND NOTXT = 'X' STAT = GANTT_STAT TTEXT = TTEXT TTITLE = TITEL VGRID = 'X' WHEADER = WHEADER NO_EL_POPUP = 'X' NO_EX_POPUP = 'X' NO_IT_POPUP = 'X' NO_MS_POPUP = 'X' IMPORTING CUA_ID = CUA_ID G_TYP = G_TYP M_TYP = M_TYP AKT_TMBEG = START AKT_TMEND = ENDE AKT_TUNIT = GRAZEIT AKT_SVIEW = MIN_FRUEH_BEG TABLES ELEM = ELEM ITEM = ITEM LGEL = LGEL LGMS = MIST MIST = MIST MSGT = BACK.

GRAPH_GANTT CALL FUNCTION 'GRAPH_GANTT' EXPORTING CONFIRM = 'X' DFEL = DFEL LEGEND = LEGEND * MODIF = 'ON' "31I MODIF = 'PICK' "31I NOTXT = 'X' STAT = GANTT_STAT TTEXT = TTEXT TTITLE = TITEL VGRID = 'X' WHEADER = WHEADER NO_EL_POPUP = 'X' NO_EX_POPUP = 'X' NO_IT_POPUP = 'X' NO_MS_POPUP = 'X' IMPORTING CUA_ID = CUA_ID G_TYP = G_TYP M_TYP = M_TYP AKT_TMBEG = START AKT_TMEND = ENDE AKT_TUNIT = GRAZEIT AKT_SVIEW = MIN_FRUEH_BEG TABLES ELEM = ELEM ITEM = ITEM LGEL = LGEL LGMS = MIST MIST = MIST MSGT = BACK.

LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-089 "Durchführen IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-063 "früheste Lage IMPORTING OUTTEXT = DGLEG-LAGE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-090 "T IMPORTING OUTTEXT = DGLEG-TERM.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-067 "späteste Lage IMPORTING OUTTEXT = DGLEG-LAGE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-090 "T IMPORTING OUTTEXT = DGLEG-TERM.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-063 "früheste Lage IMPORTING OUTTEXT = DGLEG-LAGE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-090 "T IMPORTING OUTTEXT = DGLEG-TERM.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-064 "Rüsten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-065 "Bearbeiten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-066 "Abrüsten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-067 "späteste Lage IMPORTING OUTTEXT = DGLEG-LAGE.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-090 "T IMPORTING OUTTEXT = DGLEG-TERM.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-064 "Rüsten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-065 "Bearbeiten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-066 "Abrüsten IMPORTING OUTTEXT = DGLEG-ABSCHNITT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-079 "früheste Lage, Durchführen IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-080 "späteste Lage, Durchführen IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-081 "früheste Lage, Rüsten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-082 "früheste Lage, Bearbeiten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-083 "früheste Lage, Abrüsten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-084 "späteste Lage, Rüsten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-085 "späteste Lage, Bearbeiten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-086 "späteste Lage, Abrüsten IMPORTING OUTTEXT = LGEL-TXT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-087 "Ist-Lage IMPORTING OUTTEXT = LGEL-TXT.

CONVERT_WITH_OVERFLOW_CHECK CALL FUNCTION 'CONVERT_WITH_OVERFLOW_CHECK' EXPORTING I_KRUND = SPACE I_VALUE = AUS_S000-BEDARF IMPORTING E_VALUE = PER-BEDARF.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-100 "Perioden IMPORTING OUTTEXT = DIM1.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-101 "Aufträge IMPORTING OUTTEXT = DIM2.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-060 "Kapazitätsdetail IMPORTING OUTTEXT = TITL.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-057 " Legende IMPORTING OUTTEXT = LEGD.

GRAPH_MATRIX
    CALL FUNCTION 'GRAPH_MATRIX'
         EXPORTING
              DIM1      = DIM1
              DIM2      = DIM2
              DIM3      = '    '
              TITL      = TITL
              VALT      = GRAPHIK_EINHEIT
              STAT      = STAT
              INFORM    = '2'
              SUPER     = 'X'
              SET_FOCUS = 'X'
         IMPORTING
              M_TYP     = M_TYP
              B_TYP     = B_TYP
              MOD_ROW   = MOD_ROW
              MOD_COL   = MOD_COL
         TABLES
              DATA      = GRAPHIK_DATA
              OPTS      = OPTS
              TDIM1     = GRAPHIK_TDIM1
              TDIM2     = GRAPHIK_TDIM2
              TDIM3     = GRAPHIK_TDIM3.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-113 " Auftrag IMPORTING OUTTEXT = DGLEG-DYAUFT.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-029 "Perioden IMPORTING OUTTEXT = DIM1.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-072 "Werte IMPORTING OUTTEXT = DIM2.

CY_CUT_TEXT CALL FUNCTION 'CY_CUT_TEXT' EXPORTING INTEXT = TEXT-032 "Variable Übersicht IMPORTING OUTTEXT = TITL.

GRAPH_MATRIX CALL FUNCTION 'GRAPH_MATRIX' EXPORTING DIM1 = DIM1 DIM2 = DIM2 * DIM3 = TEXT-030 "Arbeitsplatz/Kapazität TITL = TITL VALT = GRAPHIK_EINHEIT "// RK 19.08.1996

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 MC65AFG1 or its description.

MC65AFG1 - FORM Routines That Start With G
MC65AFF1 - FORM Routines That Start With F
MC65AFE1 - FORM Routines That Start With E
MC65AFD1 - Include Program for SAPMC65A with Form Routines Starting with D
MC65AFC1 - FORM Routines That Start With C
MC65AFB1 - DISST_SET_MAT

LLDBIT09

IUUC_CREATE_LOGGING_TABLES_MT

J_1I_QER_EFILE

I_RFUTAX00_ALV

J_3RF_PPINV_TOP

MBSVAF01_SET_LTEXT_TR

J_8A3002

J_1STSTR