SAP Reports / Programs | Production Planning and Control | Capacity Requirements Planning | Capacity Evaluations(PP-CRP-ALY) SAP PP
MC65AFL1 SAP ABAP INCLUDE - FORM Routines Starting with L
MC65AFL1 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 MC65AFL1 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 MC65AFL1. "Basic submit
SUBMIT MC65AFL1 AND RETURN. "Return to original report after report execution complete
SUBMIT MC65AFL1 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 Starting with L
INCLUDES used within this REPORT MC65AFL1
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:
CY_CHECK_FOR_CHANGED_SELECTION CALL FUNCTION 'CY_CHECK_FOR_CHANGED_SELECTION' EXPORTING IINDI = INDI IMPORTING EINDI = INDI.
CY_FILL_DET_LIST CALL FUNCTION 'CY_FILL_DET_LIST' EXPORTING BEDARFSART = SEL_VAR_BEDART DET_TYP = VARIABLE_DETAIL IINDI = INDI IRC65A = RC65A PERIOD = SEL_VAR_INDPERIOD IMPORTING EINDI = INDI TABLES AHIECAP = AHIECAP IAVER = AVER IRC65D = DETLS VARIABLE_TAB = SEL_VAR EXCEPTIONS PARAM_NOT_FOUND = 01 MISSING_DATA = 02.
CY_FILL_DET_LIST CALL FUNCTION 'CY_FILL_DET_LIST' EXPORTING ARBPL = SEL_UEB-ARBID BEDARFSART = RC65A-LIBART DET_TYP = STANDARD_DETAIL IRC65A = RC65A KAPID = SEL_UEB-KAPID PERIOD = SEL_UEB-INDPERIOD IINDI = INDI "für 'CY_FILL_VER_KBED' IMPORTING EINDI = INDI "für 'CY_FILL_VER_KBED' TABLES AHIECAP = AHIECAP IAVER = AVER IRC65D = DETLI VARIABLE_TAB = SEL_VAR EXCEPTIONS PARAM_NOT_FOUND = 01 MISSING_DATA = 02.
CY_FILL_DET_LIST CALL FUNCTION 'CY_FILL_DET_LIST' EXPORTING BEDARFSART = SEL_VAR_BEDART DET_TYP = VARIABLE_DETAIL IINDI = INDI IRC65A = RC65A PERIOD = SEL_VAR_INDPERIOD IMPORTING EINDI = INDI TABLES AHIECAP = AHIECAP IAVER = AVER IRC65D = DETLS VARIABLE_TAB = SEL_VAR EXCEPTIONS PARAM_NOT_FOUND = 01 MISSING_DATA = 02.
CY_FILL_DET_LIST CALL FUNCTION 'CY_FILL_DET_LIST' EXPORTING DET_TYP = STANDARD_DETAIL IRC65A = RC65A IINDI = INDI IMPORTING EINDI = INDI TABLES AHIECAP = AHIECAP IAVER = AVER IRC65D = DETLS VARIABLE_TAB = SEL_VAR EXCEPTIONS PARAM_NOT_FOUND = 01 MISSING_DATA = 02.
CY_GET_WORKSTATION_TEXT CALL FUNCTION 'CY_GET_WORKSTATION_TEXT' EXPORTING IARBID = HARBID IMPORTING EARBPL = ARBPL_NAME ETEXT = ARBPL_TEXT EWERKS = ARBPL_WERKS EXCEPTIONS ID_NOT_EXISTS = 01 WORKCENTER_NOT_EXISTS = 02.
CY_GET_CAPACITY_TEXT CALL FUNCTION 'CY_GET_CAPACITY_TEXT' EXPORTING IKAPID = HKAPID IMPORTING EKAPAR = RCRKK-KAPAR EPOOLK = KZ_POOLK ETEXT = RCRKK-KTEXT EWERKS = RCRKK-WERKS EXCEPTIONS ID_NOT_EXISTS = 01.
CY_GET_WORKSTATION_TEXT CALL FUNCTION 'CY_GET_WORKSTATION_TEXT' EXPORTING IARBID = DETLS-ARBID IMPORTING EARBPL = VRG_ARBPL_NAME ETEXT = VRG_ARBPL_TEXT EWERKS = ARBPL_WERKS EXCEPTIONS ID_NOT_EXISTS = 01 WORKCENTER_NOT_EXISTS = 02.
CR_WORKCENTER_READ_INDEX CALL FUNCTION 'CR_WORKCENTER_READ_INDEX' "30F EXPORTING "30F INDEX = INDEX_ARBID "30F IMPORTING "30F CRHD_TXT = ERCRHD_A "30F EXCEPTIONS "30F NOT_FOUND = 1 "30F OTHERS = 2. "30F
CY_GET_WORKSTATION_TEXT CALL FUNCTION 'CY_GET_WORKSTATION_TEXT' EXPORTING IARBID = DETLS-ARBID IMPORTING EARBPL = VRG_ARBPL_NAME ETEXT = ARBPL_TEXT EWERKS = ARBPL_WERKS EXCEPTIONS ID_NOT_EXISTS = 01 WORKCENTER_NOT_EXISTS = 02.
CR_WORKCENTER_READ_INDEX CALL FUNCTION 'CR_WORKCENTER_READ_INDEX' "30F EXPORTING "30F INDEX = INDEX_ARBID "30F IMPORTING "30F CRHD_TXT = ERCRHD_A "30F EXCEPTIONS "30F NOT_FOUND = 1 "30F OTHERS = 2. "30F
CY_GET_CAPACITY_TEXT CALL FUNCTION 'CY_GET_CAPACITY_TEXT' EXPORTING IKAPID = DETLS-KAPID IMPORTING EKAPAR = RCRKK-KAPAR EPOOLK = KZ_POOLK ETEXT = RCRKK-KTEXT EWERKS = RCRKK-WERKS EXCEPTIONS ID_NOT_EXISTS = 01.
LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.
CY_READ_SELECTION_SET CALL FUNCTION 'CY_READ_SELECTION_SET' EXPORTING LISTTYPE = 2 SET = SETPROFIL-ARBPL_SET HILFEFKT = INDI-HILFEFKT IMPORTING VAR_EXIST = VAR_EXIST TABLES DEFTAB = DEFAULTTABLE EXCEPTIONS CAPACITY_SET_NOT_FOUND = 01 ENTRY_SET_NOT_FOUND = 02 INVALID_LISTTYPE = 03 ORDER_SET_NOT_FOUND = 04 WORKCENTER_SET_NOT_FOUND = 05.
LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.
CY_READ_SELECTION_SET CALL FUNCTION 'CY_READ_SELECTION_SET' EXPORTING LISTTYPE = 3 SET = SETPROFIL-AUFTR_SET HILFEFKT = INDI-HILFEFKT IMPORTING VAR_EXIST = VAR_EXIST TABLES DEFTAB = DEFAULTTABLE EXCEPTIONS CAPACITY_SET_NOT_FOUND = 01 ENTRY_SET_NOT_FOUND = 02 INVALID_LISTTYPE = 03 ORDER_SET_NOT_FOUND = 04 WORKCENTER_SET_NOT_FOUND = 05.
LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.
CY_GET_DATA_IF_CALLED CALL FUNCTION 'CY_GET_DATA_IF_CALLED' TABLES CALLTAB = CALLTABLE EXCEPTIONS EMPTY_TABLE = 01.
CALL FUNCTION 'CY_READ_SELECTION_SET' EXPORTING LISTTYPE = 1 SET = SETPROFIL-ANFNG_SET HILFEFKT = INDI-HILFEFKT IMPORTING VAR_EXIST = VAR_EXIST TABLES DEFTAB = DEFAULTTABLE EXCEPTIONS CAPACITY_SET_NOT_FOUND = 01 ENTRY_SET_NOT_FOUND = 02 INVALID_LISTTYPE = 03 ORDER_SET_NOT_FOUND = 04 WORKCENTER_SET_NOT_FOUND = 05.
CY_READ_SELECTION_SET CALL FUNCTION 'CY_READ_SELECTION_SET' EXPORTING LISTTYPE = 4 SET = SETPROFIL-KAPAR_SET HILFEFKT = INDI-HILFEFKT IMPORTING VAR_EXIST = VAR_EXIST TABLES DEFTAB = DEFAULTTABLE EXCEPTIONS CAPACITY_SET_NOT_FOUND = 01 ENTRY_SET_NOT_FOUND = 02 INVALID_LISTTYPE = 03 ORDER_SET_NOT_FOUND = 04 WORKCENTER_SET_NOT_FOUND = 05.
LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING BILD = BILD BILDGRUPPE = BILDGRUPPE.
CY_GET_CAPACITY_TEXT * CALL FUNCTION 'CY_GET_CAPACITY_TEXT' "22.12.1993 Kochm
CY_GET_CAPACITY_TEXT CALL FUNCTION 'CY_GET_CAPACITY_TEXT' "01.02.1996 Kochm
CY_GET_COLUMN_DEFINITIONS CALL FUNCTION 'CY_GET_COLUMN_DEFINITIONS' EXPORTING ILIVAR = RC65A-LIVAR TABLES KOMBI = KOMBI ZEIZU = ZEIZU.
CY_FILL_INTSPAL CALL FUNCTION 'CY_FILL_INTSPAL' EXPORTING IINDI = INDI IRC65A = RC65A IMPORTING EINDI = INDI ERC65A = RC65A TABLES IAVER = AVER INTSPAL = INTSPAL KOMBI = KOMBI EXCEPTIONS MISSING_DATA = 01.
CY_GET_PERIOD_KTEXT CALL FUNCTION 'CY_GET_PERIOD_KTEXT' TABLES PERTEXT = PERTEXT.
CY_GET_TCY19 CALL FUNCTION 'CY_GET_TCY19' EXPORTING ILIVAR = RC65A-LIVAR TABLES ETCY19 = ITCY19.
GET_PRINT_PARAMETERS CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING IMMEDIATELY = 'X' LAYOUT = 'X_65_80' LINE_COUNT = 65 LINE_SIZE = 80 IMPORTING OUT_PARAMETERS = EXP_PARAMETERS VALID = EXP_VALID EXCEPTIONS ARCHIVE_INFO_NOT_FOUND = 1 INVALID_PRINT_PARAMS = 2 INVALID_ARCHIVE_PARAMS = 3 OTHERS = 4.
GET_PRINT_PARAMETERS CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING IMMEDIATELY = 'X' LAYOUT = 'X_65_132' LINE_COUNT = 65 LINE_SIZE = 132 IMPORTING OUT_PARAMETERS = EXP_PARAMETERS VALID = EXP_VALID EXCEPTIONS ARCHIVE_INFO_NOT_FOUND = 1 INVALID_PRINT_PARAMS = 2 INVALID_ARCHIVE_PARAMS = 3 OTHERS = 4.
CY_CONV_DATE_TO_PERIOD CALL FUNCTION 'CY_CONV_DATE_TO_PERIOD' EXPORTING IDATE = RC65A-LIDAV IMPORTING EINDPERIOD = INDPERVON EXCEPTIONS NOT_FOUND = 01.
CY_CONV_DATE_TO_PERIOD CALL FUNCTION 'CY_CONV_DATE_TO_PERIOD' EXPORTING IDATE = RC65A-LIDAB IMPORTING EINDPERIOD = INDPERBIS EXCEPTIONS NOT_FOUND = 01.
CY_GET_ALL_TCY20 CALL FUNCTION 'CY_GET_ALL_TCY20' EXPORTING ILIVAR = RC65A-LIVAR TABLES ETCY20 = ATCY20. "7.01.1994
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 MC65AFL1 or its description.