* P30E_AV (P30K075924): Arbeitsvorrat-Exitroutine eingebaut
* P30E_PAR (P30K081591/3.0E): Parallelisierung
* 30F_LÖVM (P30K090659/3.0F): Aufträge mit LÖVM nicht berücksichtigen
* 30F_CHK (P30K090659/3.0F): Meldung für Aufträge 'falschen' Typs
* 30F_STOR (P30K090659/3.0F): Stornofunktion
* 30F_BRK (P30K090659/3.0F): Breakpoints von JL
*&---------------------------------------------------------------------*
*& Include MKKACTOP Modulpool SAPMKKAC *
*& *
*&---------------------------------------------------------------------*
PROGRAM SAPMKKAC .
TABLES: AUFK, KKA0100, TKKAP, TKKAT, T001W.
Tables: ckmlmv001t.
TABLES: AFPO, MAKT, SAFK. "für Serienaufträge und Pkosa
DATA: VERS_ALLE,
VERS_AUSG,
ABGRVERS_PATTERN LIKE TKKAP-VERSA, "Pattern für submit
WERK_PATTERN LIKE AUFK-WERKS, "Pattern für submit
AUFTRAG_PATTERN LIKE AUFK-AUFNR, "Pattern für submit
BATCH_CHK,
VERARB_AUSF,
VERARB_SIMU,
VERARB_ANZE,
FEHLAUFT_CHK,
INFO_CHK,
PROTSICH_CHK,
OK_CODE(4),
FCODE(4), "save-okcode-Feld
MEMORY_OKCODE(4), " okcode für Übergabe
PER_STR(7), "Periode+GeschJahr
JOBNAME LIKE TBTCJOB-JOBNAME,
JOBNUMMER LIKE TBTCJOB-JOBCOUNT, " JOB: Jobnummer
SPOOLNUMMER LIKE TSP01-RQIDENT, " JOB: Spoolnummer
LAUFZEIT LIKE SY-UZEIT, " JOB: Laufzeit
DRUCKNAME LIKE PRI_PARAMS-PLIST, " DRUCK: Listname
DRUCKTITEL LIKE PRI_PARAMS-PRTXT, " DRUCK: Text für Deckblatt
BEGIN OF SAV_PARAM. " Export-Param.
INCLUDE STRUCTURE PRI_PARAMS.
DATA: END OF SAV_PARAM,
OLD_VERID LIKE AFPO-VERID, " alter FertVers-Wert in loop
* verid_false, " Check ob Verid für Prot. ok "P30E
VERID_FALSE TYPE I, " Check ob Verid für Prot. ok "P30E
VALID_SAFNR LIKE AFPO-SAFNR, " speichert verwendete SAFNR
* Beginn P30K033159
MULTIPLE_SAUF(1) TYPE C, " not_single_collector aus FB
VALID_PKOSA_COUNTER TYPE I, " zählt Pkosa mit AbgrSchl
* Ende P30K033159
LOOP_COUNTER TYPE I. " Select-Schleifenzähler
* Beginn P30K033159 " Liste der Pkosa aus FB
DATA: TAB_VKKS0 LIKE VKKS0 OCCURS 0 WITH HEADER LINE.
* Ende P30K033159
DATA: BEGIN OF TAB_PARAM OCCURS 0.
INCLUDE STRUCTURE KABA00.
DATA: END OF TAB_PARAM.
RANGES FERTVERS FOR AFPO-VERID.
RANGES AUFKNUMMERN FOR AUFK-AUFNR.
* Für F4-Hilfe der Abgrenzungsversion
DATA BEGIN OF HELP_FIELDS OCCURS 1.
INCLUDE STRUCTURE HELP_VALUE.
DATA END OF HELP_FIELDS.
DATA: BEGIN OF HELP_VALUES OCCURS 1,
VALUE LIKE TKKAT-TEXTA,
END OF HELP_VALUES.
DATA: LD_KOKRS LIKE AUFK-KOKRS, "KoKrs des selekt. Auftr., Werks, etc.
LD_ABGSL LIKE AUFK-ABGSL, "AbgrSchl des selekt. Auftr.
LD_OBJNR LIKE AUFK-OBJNR, "Objektnr des selekt. Auftr."30F_LÖVM
LD_AUTYP LIKE AUFK-AUTYP, "Auftragstyp des sel. Auftr. "30F_CHK
DUMMY_ACTION(1). "Aktion im KoKrs-PopUp
DATA: GS_CKPHV LIKE CKPHV, "Struktur zur KtrHier-Bearbeitung "40C
GD_TOPKZ TYPE C, "Kennzeichen ob Top-Knoten "40C
GD_TOPKTR LIKE CKPHV-KSTRG, "Top-Knoten der Hierarchie "40C
GT_CKPH LIKE CKPH OCCURS 0 WITH HEADER LINE, "40C
GT_KKHIE LIKE KKHIE OCCURS 0 WITH HEADER LINE. "40C
DATA GD_SCMA_ACTIVE type kka_yes_no. "I_46A_SCMA
data old_2curr like KKA0100-2CURR. "I_46A
* Konstanten-Definitionen
CONSTANTS:
CON_X VALUE 'X',
CON_NODAY LIKE SY-DATUM " Ohne Datum
VALUE ' ',
CON_NOTME LIKE SY-UZEIT " Ohne Zeit
VALUE ' ',
CON_WTIME LIKE SY-UZEIT " Max. Wartezeit
VALUE '000010',
CON_SPACE TYPE C VALUE ' ', " Character SPACE
CON_TCODE_EZ_E LIKE SY-TCODE " Tcode der Ez.verarb. Auftrag
VALUE 'KKAX', " (ermitteln)
CON_TCODE_SA_E LIKE SY-TCODE " Tcode der Sammelverarb.
VALUE 'KKAO', " (ermitteln)
CON_TCODE_EZ_A LIKE SY-TCODE " Tcode der Ez.verarb. Auftrag
VALUE 'KKAY', " (anzeigen)
CON_TCODE_SA_A LIKE SY-TCODE " Tcode der Sammelverarb.
VALUE 'KKAQ', " (anzeigen)
CON_TCODE_KT_E LIKE SY-TCODE " Tcode der Ez.verarb. KtrHier
VALUE 'KKAV', " (ermitteln) "I40C
CON_TCODE_KT_A LIKE SY-TCODE " Tcode der Ez.verarb. KtrHier
VALUE 'KKAW', " (anzeigen) "I40C
CON_TCODE_SE_E LIKE SY-TCODE " Tcode der Ez.verarb. Pkosa
VALUE 'KKAS', " (ermitteln)
CON_TCODE_SE_A LIKE SY-TCODE " Tcode der Ez.verarb. Pkosa
VALUE 'KKAT', " (anzeigen)
CON_KEY_ID(7) VALUE 'KKA_OKC'. " Memory-ID für Übergabe
* Beginn P30E_AV
* Konstanten für Arbeitsvorrat-Exit-Routine (vgl. SAPKKA07)
CONSTANTS: CON_ABGR_ABORT_MSGTY VALUE ' ',
CON_ABGR_APLID LIKE TCMF6-APLID VALUE 'KKA',
* con_abgr_object_id like tcmf5-object_id value 'CX1', "D_40C
CON_ABGR_OBJECT_ID LIKE TCMF5-OBJECT_ID VALUE 'KKA', "I_40C
CON_YES VALUE 'X',
CON_NO VALUE ' '.
* Ende P30E_AV
* Konstanten für KtrHier-Bearbeitung
CONSTANTS: CON_HIART LIKE KKHIE-HIART VALUE '1', "Hierarchieart Kstrg
CON_OBART LIKE KKHIE-OBART VALUE '1'. "Objektart Kstrg
CONSTANTS: "CON_VARIANT_SAVE VALUE 'A', "ALV-Sichern Benutzer+Allgemein
"D_46A
CON_REPID LIKE DISVARIANT-REPORT VALUE 'SAPKKA07'.
data gd_save_mode. "I_46A
* Beginn P30E_PAR
DATA: GD_PARAM_RFC LIKE RSPARAMS-SELNAME, "Parametername für RFC-Gruppe
GD_RFC_GROUP LIKE RZLLITAB-CLASSNAME, "RFC-Gruppe (im Online gef.)
GD_SINGLE_MODE, "zum Anschalten von task_limit = 1
GD_DEBUG_MODE. "zur Ausgabe der Debug-Info
* Ende P30E_PAR
DATA: GD_NO_PARBEW. "keine parallele Bewertung rechnen im Testlauf
DATA: GD_STORNO, "gesetzt, wenn storniert werden soll "30F_STOR
GD_BREAKS. "gesetzt, wenn Breakpunkte gesetzt w. "30F_BRK
DATA: GD_EINZEL. "gesetzt, wenn Einzelbearb.WIP-Ermittlung "I45A
INCLUDE LKKAGF88. "Auftragstypen (Konstanten) "30F_CHK
*begin of note 679133 "H679133
DATA: KKA07_MEMORY_ID_SOURCE_ID(30) VALUE 'SAPKKA07-BG-SAPMKKAC_SC_ID',
source_id(7),
s_id_sapmkkac(7) value 'KKAC '.
*end of note 679133 "H679133
