sap代码 ABAP

* 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