Tuesday, June 5, 2012

Multi Level BOM Matrix into a table - CS13 Data


When we have a Multi-Level BOM and its component details like in CS13 Transaction code, it would be very difficult to calculate the BOM Cost for BW users. For this, we have created a table ZBOM_CS13 with the following structure



Field Data Element     Dtype Length  Decimals        Description
           
MATNR MATNR CHAR 18 0      Material Number
COMPONENT IDNRK CHAR 18 0      BOM component
DESCP MAKTX CHAR 40 0                  Material Description
BOM_QTY KMPMG QUAN 13 3       Component quantity
MEINS KMPME UNIT 3 0            unit of measure
MTART MTART CHAR 4 0                        Material Type
MRP_TYPE DISMM CHAR 2 0        MRP Type





Now the table with the below ABAP Code will be filled the Finished goods and its corresponding components.


Please have a look into the program “RCS13001for your reference. 




*********************************************************************************
Report : ZBOM_AUTO_CS13


*&---------------------------------------------------------------------*
*& Report  ZBOM_AUTO_18FEB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*



*eject
* 4.6C
* HGA025984 310100 Verzweigung zum Verwendungsnachweis auf Summenzeilen
* HGB020150 260100 Reserve beim Druck (Var.List)
* HGA020150 240100 UComm  anderes Material (ALV)
* HGD246532 171199 Stoppstufe f. Aufl.
* HGC246532 171199 Daten zur KonstrZei in Summensatz
* HGB246532 151199 Blättern in VLst
* HGA246532 081199 ALV_S
* 4.6B
* HGA046836 270799 Aufl. ProjektStl
* 4.6A
* HGA154419 231298 ECN - FB Anpassung
* 4.5B
* HGC072185 180199 Anzeige KndSelDaten
* HGD059252 161198 Conversion-Error entschaerft
* HGC059252 121198 Nachtrag A033687
* HGA059252 121198 ParmEff-Popup abh. vom Stl.-TopMat (auch bei KndStl)
* 4.0C/4.5A
* HGA033687 140798 KndStl-Aufloesen - Kein Ausweichen auf MatStl mehr
* HGA029649 090798 Langtextausgabe (KndStl)
* HGA132240 190597 Langtextausgabe
* HGA084505 060398 neue Gueltigkeit
* HGB084505 030398 KND-Stueckliste
* 4.0A
* HGA025100 230797 Profilvorbelegung / VList Performance
* 3.1I
* HGA162016 300997 falsche Anz. von Kumulierten, wg. fehlendem OBJTP
* 3.1G
* HGA127128 270197 Langtextkennz. / Druck SelKriterien
* 3.0F
* HGA108310 251096 EinsatzwahrscheinlichkeitsHandling
* HGG099459 180996 TCSPR-Default
* HGB099459 010896 alter Materialobjekttyp
* 3.0E
* HGA080825 030796 Vervollst. HG0D51356; x-stell. MatNum
* HGC072824 150596 CATT; Druck im Batch ausschalten
* HGA072824 150596 Werksberechtigungspruefung
* 3.0D
* HGB070841 260496 keine Memoryverwaltung fuer CA
* HGB057558 210396 Langtext Includes auflösen
* 3.0C
* YHG046403 260196 Anpassung an Basisaenderung bzgl. SUBMIT
* YHG032486 051295 Performance/Konvertierungen, Coding
* 3.0B
* YHG020009 231095 Performance
*                  Puffer Aktivierung / APPEND
* YHG019433 181095 Initialisierung Sortierkennz. in Summensaetzen
* 3.0A
* YHG133751 290695 Erweiterung MaxBloecke - var Liste
* YHG137563 270695 Druck; falsche Positionierung im Listenkopf
* YHG132854 130695 Keine Grafik bei nicht zus.haengender StlStruktur
* YHG123656 160595 Verhalten bei CALLs korrigiert
* 3.0
* YHG140031 040495 SKIP bei var. Liste im Druck korrigiert
* YHG139715 030495 Selectoptions-Anzeige
* YHG139336 300395 Ende der Liste
* YHG139320 300395 Kennz Wissen zugeordnet
* YHG137424 230395 Defaultprofil Absicherung
* YHG134557 160395 Umstellung auf var. Liste
* YHG134257 020395 Korr. CAD-Versorgung
* YHG101965 041094 Schalter Mengenrunden
* YHG100916 150994 Korr. Vgl. mit expliziter Laenge
* 2.2
* YHG088020 100694 Abbr. wg. bei betr.maessig hohen neg. Mengen
* YHG079319 100594 Anzeige Revisionsstand
* YHG079407 030594 Anzeigen Zuordnungen
* YHG078090 120494 neg. Mengen / Batch / Ausnahmeliste / Rahmen
* YHG078090 110494 Anzeige bei Einschraenkungen (z.B. ZwischBgrp)
* YHG077295 050494 MatVerwendung ueber Klassen und Folgeaktionen
* YHG000301 100394 Listenkopf / Anpassung wg. Verwendungsumstellung
* YHG000109 280294 Klassenpositionen
* 2.1D
* YHG072697 180294 GUI-Listanzeige (Nachtrag zu K066003)
* YHG068719 280194 Sortiermoeglichkeiten korrigiert
* YHG066003 240194 GUI-Listanzeige
* 2.1C
* YHG044318 281293 Numerierte Texte / Datumsanzeige
* 2.1
* YHG062728 101293 Langtextanzeige
* YHG056590 021193 Sort von Positionen ohne MatKurztext
* YHG053243 151093 Steuerung der Druckoption geaendert
* YHG052824 141093 Anzeige Mengeneinheiten
* YHG049857 061093 SPA/GPA Vorschlaege
* YHG047511 230993 Zusammenstellung Summensatz geaendert
* YHG044860 130993 CAD-Schnittstelle
* YHG044928 070993 Zusammenstellung Summensatz korr.
* YHG044772 030993 Korr. numerischer Eingaben
* YHG042334 270893 Ausnahmemeldung 'geloescht' aufgenommen
* YHG041147 240893 Dokumentpositionen
* YHG036694 060793 Anzeige und Ueberschriften
* YHG035807 210693 Feldueberlauf bei div. Berechnungen
* YHG035785 210693 Anzeige Gueltigkeitsbereich
* YHG035283 170693 EQUI-Anbindung; Parm. IH-BauGrp u. STPOL-Aenderung
***********************************************************************
*del REPORT RCS13001 MESSAGE-ID 29 LINE-SIZE 79               "YHG066003
*del REPORT RCS13001 MESSAGE-ID 29 LINE-SIZE 81     "YHG066003"YHG139715
REPORT  ZBOM_AUTO_18FEB MESSAGE-ID 29 LINE-SIZE 132                   "YHG139715
                NO STANDARD PAGE HEADING.                     "YHG036694

***********************************************************************
*        D A T E N  -  Definitionen                                   *
***********************************************************************
*---------------------------------------------------------------------*
*        ATAB-Tabellen                                                *
*---------------------------------------------------------------------*
TABLES:
   makt,                                                      "YHG079407
   t418,                                                      "YHG068719
   tcs03,
   tcspr.

types: begin of ty_zbom,
      MATNR LIKE MAST-MATNR,
      COMPONENT LIKE MAST-MATNR,
      DESCP LIKE MAKT-MAKTX,
      BOM_QTY LIKE STPO-MENGE,
      MEINS LIKE MSEG-MEINS,
      MTART LIKE MARA-MTART,
      MRP_TYPE LIKE MARC-DISMM,
      END OF ty_zBOM.



data: it_zbom type standard table of ty_ZBOM with header line.
data: wa_zbom like it_zbom.


DATA: BEGIN OF cl_clstab OCCURS 0,                            "YHG079407
         class LIKE klah-class,                               "YHG079407
         klart LIKE klah-klart,                               "YHG079407
         chked LIKE csdata-xfeld,                             "YHG079407
         noobj LIKE csdata-xfeld,                             "YHG079407
         dsply LIKE csdata-xfeld,                             "YHG079407
      END OF cl_clstab.                                       "YHG079407

DATA: BEGIN OF cl_objtab OCCURS 0.                            "YHG079407
         INCLUDE STRUCTURE ckssk.                             "YHG079407
DATA: END OF cl_objtab.                                       "YHG079407

DATA: BEGIN OF cl_objmemo OCCURS 0,                           "YHG079407
         class LIKE klah-class,                               "YHG079407
         klart LIKE klah-klart.                               "YHG079407
         INCLUDE STRUCTURE ckssk.                             "YHG079407
DATA: END OF cl_objmemo.                                      "YHG079407

*     WAs fuer AnzBlockAusgabe (var. Liste)
DATA: BEGIN OF watab OCCURS 0.                                "YHG134557
         INCLUDE STRUCTURE cltable.                           "YHG134557
DATA: END OF watab.                                           "YHG134557

*     Sicherungstabelle der AnzBlockWAs
DATA: BEGIN OF sav_watab OCCURS 0.                            "YHG134557
         INCLUDE STRUCTURE cltable.                           "YHG134557
DATA: END OF sav_watab.                                       "YHG134557

*     Uebergabestruktur Typ STPOX (fuer STB)
DATA: BEGIN OF stb_orig.                                      "YHG134557
         INCLUDE STRUCTURE stpox.                             "YHG134557
DATA: END OF stb_orig.                                        "YHG134557

*     Uebergabestruktur Typ STPOL_ADD
DATA: BEGIN OF stb_add.                                       "YHG134557
         INCLUDE STRUCTURE stpol_add.                         "YHG134557
DATA: END OF stb_add.                                         "YHG134557

DATA : BEGIN OF vbap_wa OCCURS 0.                             "HGB084505
         INCLUDE STRUCTURE vbap.                              "HGB084505
DATA : END OF vbap_wa.                                        "HGB084505

DATA: matpos_flg LIKE csdata-xfeld,                           "HGB084505
      mpos_page  LIKE sy-pagno,                               "HGB084505
      mpos_line  LIKE sy-linno.                               "HGB084505

DATA: BEGIN OF wa_kdstb OCCURS 0.                             "HGA033687
        INCLUDE STRUCTURE kdstb.                              "HGA033687
DATA: END OF wa_kdstb.                                        "HGA033687


*---------------------------------------------------------------------*
*        interne Tabellen                                             *
*---------------------------------------------------------------------*
DATA: BEGIN OF selpool.
         INCLUDE STRUCTURE cstmat.
DATA: END OF selpool.

DATA: BEGIN OF stb OCCURS 1000.
*del     INCLUDE STRUCTURE STPOL.                             "YHG134557
         INCLUDE STRUCTURE stpox.                             "YHG134557
DATA: END OF stb.

*del DATA: BEGIN OF SUM_STB OCCURS 100.                       "YHG133751
DATA: BEGIN OF sum_stb,                                       "YHG133751
*del     INCLUDE STRUCTURE STPOL.                             "YHG134557
*del     INCLUDE STRUCTURE STPOX.                   "YHG134557"YHG133751
         bmtyp LIKE stpox-bmtyp,                              "YHG133751
         ttidx LIKE stpox-ttidx,                              "YHG133751
         ojtxp LIKE stpox-ojtxp,                              "YHG133751
         mtart LIKE stpox-mtart,                              "YHG133751
         werks like stpox-werks,                              "HGA025984
         vpsta LIKE stpox-vpsta,                              "YHG133751
         fstat LIKE stpox-fstat,                              "YHG133751
         mmein LIKE stpox-mmein,                              "YHG133751
         bwtty LIKE stpox-bwtty,                              "YHG133751
         vprsv LIKE stpox-vprsv,                              "YHG133751
         stprs LIKE stpox-stprs,                              "YHG133751
         verpr LIKE stpox-verpr,                              "YHG133751
         PREIH LIKE STPOX-PREIH,                            "note 507446
         sbdkz LIKE stpox-sbdkz,                              "YHG133751
         xchar LIKE stpox-xchar,                              "YHG133751
*d       mmsta LIKE stpox-mmsta,                 "YHG133751"note 0413072
         MSTAE LIKE STPOX-MSTAE,                           "note 0413072
         MSTDE LIKE STPOX-MSTDE,                           "note 0413072
         mmsta like stpox-mmsta,                            "note 597265
         mmstd like stpox-mmstd,                            "note 597265
         sernp like stpox-sernp,                            "note 597265
         prctr like stpox-prctr,                            "note 597265
         mschg like stpox-mschg,                            "note 597265
         fxpru like stpox-fxpru,                            "note 597265
         kzech LIKE stpox-kzech,                            "note 597265
         kzwsm LIKE stpox-kzwsm,                            "note 597265
         kzeff LIKE stpox-kzeff,                            "note 597265
         mcuob LIKE stpox-mcuob,                            "note 597265
         matkl LIKE stpox-matkl,                            "note 597265
         zeinr LIKE stpox-zeinr,                              "YHG133751
         zeivr LIKE stpox-zeivr,                              "HGC246532
         zeiar LIKE stpox-zeiar,                              "HGC246532
         zeifo LIKE stpox-zeifo,                              "HGC246532
         DISST LIKE STPOX-DISST,                            "note 507446
         DISMM LIKE STPOX-DISMM,                            "note 507446
         mnglg LIKE stpox-mnglg,                              "YHG133751
         msign LIKE stpox-msign,                              "YHG133751
         ausss LIKE stpox-ausss,                              "YHG133751
         kausf LIKE stpox-kausf,                              "YHG133751
         sobsl LIKE stpox-sobsl,                              "YHG133751
         sobsk LIKE stpox-sobsk,                              "YHG133751
         kzaus LIKE stpox-kzaus,                              "YHG133751
         ausdt LIKE stpox-ausdt,                              "YHG133751
         nfmat LIKE stpox-nfmat,                              "YHG133751
         rgekz LIKE stpox-rgekz,                              "YHG133751
         kzdkz LIKE stpox-kzdkz,                              "YHG133751
         lgpro LIKE stpox-lgpro,                              "YHG133751
         revlv LIKE stpox-revlv,                              "YHG133751
         kzkfg LIKE stpox-kzkfg,                              "YHG133751
         fbskz LIKE stpox-fbskz,                              "YHG133751
         stawn LIKE stpox-stawn,                              "YHG133751
         prefe LIKE stpox-prefe,                              "YHG133751
         stabk LIKE stpox-stabk,                              "YHG133751
         dostx LIKE stpox-dostx,                              "YHG133751
         idnrk LIKE stpox-idnrk,                              "YHG133751
         postp LIKE stpox-postp,                              "HGA162016
         sortf LIKE stpox-sortf,                              "YHG133751
         meins LIKE stpox-meins,                              "YHG133751
         potx1 LIKE stpox-potx1,                              "YHG133751
         potx2 LIKE stpox-potx2,                              "YHG133751
         objty LIKE stpox-objty,                              "YHG133751
         dokar LIKE stpox-dokar,                              "YHG133751
         doknr LIKE stpox-doknr,                              "YHG133751
         dokvr LIKE stpox-dokvr,                              "YHG133751
         doktl LIKE stpox-doktl,                              "YHG133751
         class LIKE stpox-class,                              "YHG133751
         klart LIKE stpox-klart,                              "YHG133751
         intrm LIKE stpox-intrm,                              "YHG133751
         xtlnr LIKE stpox-xtlnr,                              "YHG133751
         xloek LIKE stpox-xloek,                              "YHG133751
         sumkz LIKE stpox-sumkz,                              "YHG133751
         index LIKE sy-tabix,                                 "HGA246532
      END OF sum_stb.                                         "YHG133751
*del DATA: END OF SUM_STB.                                    "YHG133751

*     Materialkatalog
DATA: BEGIN OF matcat OCCURS 50.                              "YHG134557
         INCLUDE STRUCTURE cscmat.                            "YHG134557
DATA: END OF matcat.                                          "YHG134557

DATA: BEGIN OF sav_stb OCCURS 100.
*del     INCLUDE STRUCTURE STPOL.                             "YHG134557
         INCLUDE STRUCTURE stpox.                             "YHG134557
DATA: END OF sav_stb.

DATA: BEGIN OF ausnm_stb OCCURS 10,
         objty LIKE stpox-objty,                              "YHG134557
         idnrk LIKE stpox-idnrk,
         revlv LIKE stpox-revlv,                              "YHG134557
*del     MAKTX LIKE STPOL-MAKTX,                              "YHG035283
         doknr LIKE draw-doknr,                               "YHG078090
         dokar LIKE draw-dokar,                               "YHG078090
         doktl LIKE draw-doktl,                               "YHG078090
         dokvr LIKE draw-dokvr,                               "YHG078090
         class LIKE klah-class,                               "YHG078090
         klart LIKE klah-klart,                               "YHG078090
         intrm LIKE stpox-intrm,                              "YHG134557
         ojtxp LIKE stpox-ojtxp,                              "YHG035283
         xtlal LIKE stpox-stlal,
         ausnm LIKE stpox-ausnm,
      END OF ausnm_stb.

DATA: BEGIN OF txt OCCURS 25.
         INCLUDE STRUCTURE tline.
DATA: END OF txt.


*---------------------------------------------------------------------*
*        interne Felder                                               *
*---------------------------------------------------------------------*
DATA:
   cal_aclas LIKE tappl-applclass,                            "YHG044860
*del ANZ_STPTX(3)   TYPE C,                                   "YHG134557
   anz_datuv LIKE stko-datuv,
   anz_datub LIKE stko-datuv,
   hlp_stlal LIKE stko-stlal,
   clo_matnr LIKE mara-matnr,                                 "YHG079407
*del ANZ_STLAL LIKE STKO-STLAL,                               "YHG134557
   anz_abwal LIKE stko-stlal,
   hlp_tabix LIKE sy-tabix,
   txt_key   LIKE thead-tdname,
   txt_kyln(3)    TYPE n,
   col_switch(1)  TYPE c,          "intensified on/off        "YHG066003
   tmp_hrechf     TYPE f,          "temp. HilfsRechenfeld     "YHG035807
   sum_modus(2)   TYPE c,
   summ_flag(1)   TYPE c,
   auth_cnt       LIKE sy-subrc,                              "YHG134557
   ret_code       LIKE sy-subrc.
* ---------------------------------
DATA: lins_out     LIKE sy-linno,                             "YHG036694
      lins_out_sav LIKE sy-linno,                             "YHG036694
      lst_lin_on_p LIKE sy-linno,                             "YHG036694
      lins_to_skip LIKE sy-linno,                             "YHG036694
      lins_per_top LIKE sy-linno,                             "HGB246532
      lins_per_pag LIKE sy-linno.                             "YHG036694

DATA: anr_datuv LIKE aenr-datuv,                              "HGA084505
      anr_techs LIKE tecs-techs.                              "HGA084505

* ---------------------------------
DATA: ueberl_flg(1) TYPE c,                                   "YHG066003
*del  EDTLIN(79) TYPE C,                            "YHG066003"YHG134557
*del  SAV_EDTLIN(79) TYPE C,                        "YHG066003"YHG134557
      first_flg(1) TYPE c,                                    "YHG066003
      anz_meins LIKE stpo-meins,                              "YHG066003
      anz_ktext LIKE makt-maktx.                              "YHG066003
* ---------------------------------
DATA: ausntp_flg(1) TYPE c.                                   "YHG066003
* ---------------------------------
DATA: objty_mrk LIKE stpob-objty,                             "YHG068719
      page_mat LIKE sy-pagno,                                 "YHG068719
      page_kla LIKE sy-pagno,                                 "YHG068719
      page_dok LIKE sy-pagno,                                 "YHG068719
      page_noo LIKE sy-pagno,                                 "YHG068719
      page_exc LIKE sy-pagno.                                 "YHG068719

* ---------------------------------
*     --> kann nach Bereinigung der anderen Reports geloescht werden
*d DATA: REAL_LINE LIKE SY-LINNO.                   "YHG134557"HGA046836
*d DATA: STB-MATNR LIKE MARA-MATNR.                 "YHG134557"HGA046836


* ---------------------------------
*     EndOfBlock-Kennzeichen
DATA: eoblc      LIKE csdata-xfeld,                           "YHG134557
*     Zeilenbreite aus dem aktuellen Profil
      itf_prfsz  LIKE klah-lbrei,                   "YHG134557"YHG032486
*del  SAV_PRFSZ  LIKE KLAH-LBREI,                   "YHG134557"YHG032486
      sav_prfsz  TYPE i,                                      "YHG032486
*     Zeilenbreite des akt. Profils plus Rand ( + 2 )
*del  SIZ_LINPF  LIKE KLAH-LBREI,  "Lnsz plus frame "YHG134557"YHG032486
      siz_linpf  TYPE i,                                      "YHG032486
*     Kennzeichen 'akt. Zeile ist leer'
      lnmpt_flg  LIKE csdata-xfeld,                           "YHG134557
*     das aktuell gueltige Profil
      act_profil LIKE klah-class,                             "YHG134557
*     BlockzeilenZaehler
      blclns_cnt LIKE sy-linno,                               "YHG134557
*     Anzahl Zeilen Listenkopf
      nbr_hdrlns LIKE sy-linno.                               "YHG134557

DATA: dstst_flg LIKE csdata-xfeld.                            "YHG132854

DATA: mem_mngmt(1) TYPE c.                                    "HGB070841

DATA: mnr_lng     TYPE i.                                     "HGA080825


*---------------------------------------------------------------------*
*        Konstanten                                                   *
*---------------------------------------------------------------------*
DATA:
   bom_txobj LIKE thead-tdobject VALUE 'BOM',
*d bom_txid    like thead-tdid value 'MPO',                   "HGA029649
   bom_txid    LIKE thead-tdid,                               "HGA029649
   mbm_txid    LIKE thead-tdid VALUE 'MPO',                   "HGA029649
   kbm_txid    LIKE thead-tdid VALUE 'KPO',                   "HGA029649
*  maximal anzeigbare Menge
   max_num(7)  TYPE p DECIMALS 3 VALUE '9999999999.999',      "YHG035807
   min_num(7)  TYPE p DECIMALS 3 VALUE '9999999999.999-',     "YHG088020
   min_grg   LIKE sy-datum   VALUE '19000101',
   max_grg   LIKE sy-datum   VALUE '99991231'.

DATA: ueberl_kz(1) TYPE c VALUE '*'.                          "YHG066003
DATA: b_flag(1) TYPE c VALUE 'X'.                             "YHG066003

DATA:                                                         "YHG041147
   otyp_mat(1) TYPE c VALUE '1',                              "YHG041147
   ootyp_mat(1) TYPE c VALUE 'M',                             "HGB099459
*  Objekttyp 'kein Objekt'
   otyp_noo(1) TYPE c VALUE '2',                              "YHG134557
*del OTYP_DOC(1) TYPE C VALUE '3'.                 "YHG041147 "YHG000109
   otyp_doc(1) TYPE c VALUE '3',                              "YHG000109
   otyp_kla(1) TYPE c VALUE '4',                              "YHG000109
*  Objekttyp 'Intramaterial'
   otyp_ntm(1) TYPE c VALUE '5'.                              "YHG134557

DATA: all_pstat(9) TYPE c VALUE 'KVEDLAPSB'.                  "YHG079407

* ---------------------------------
*     langes leeres Feld
DATA: ecfld(250) TYPE c.                                      "YHG134557

data: PLANT_ALL  LIKE MAST-WERKS VALUE '*   '.                "HGA025984


*---------------------------------------------------------------------*
*        Selektionsparameter                                          *
*---------------------------------------------------------------------*
*PARAMETERS:
data:
*del PM_MTNRV LIKE MARA-MATNR MEMORY ID MAT,                  "YHG078090
*d pm_mtnrv like mara-matnr memory id mat obligator "YHG078090"HGC059252
   pm_mtnrv LIKE mara-matnr value 'AY0001000',"'CY0000900',"," MEMORY ID mat,                    "HGC059252
   pm_werks LIKE marc-werks value 'KMLS',"MEMORY ID wrk,
   pm_stlal LIKE stko-stlal,
   pm_stlan LIKE stzu-stlan,
   pm_capid LIKE tc04-capid value 'PP01',
*del PM_DATUV LIKE STKO-DATUV DEFAULT SY-DATUM,               "YHG078090
   pm_datuv LIKE stko-datuv ,"DEFAULT sy-datum OBLIGATORY,      "YHG078090
*  Parameterbelegung P-Effektivity
   pm_techs LIKE tecs-techs,                                  "HGA084505
*  Aenderungsnummer
   pm_aennr LIKE aenr-aennr,                                  "HGA084505
*  Einsatzmenge
   pm_emeng LIKE stko-bmeng,
*  zugehoeriges SUBMIT-Hilfsfeld:
   pm_hemng(13)  TYPE n value '',"NO-DISPLAY,                           "YHG035807
*  alv
   pm_alvsa      LIKE rc29l-valst,                            "HGA246532
*  Profil zur Bildschirmanzeige
*d pm_dsprf      like klah-class default 'SAPCSSMXM "YHG133681"HGA025100
   pm_dsprf      LIKE klah-class,                             "HGA025100
*  Profil beim Druck
*d pm_prprf      like klah-class default 'SAPCSSMXM "YHG133681"HGA025100
   pm_prprf      LIKE klah-class,                             "HGA025100
   pm_ausch(1)   TYPE c,
   pm_ltext(1)   TYPE c,
*  (Dok.)Revisionsstand ermitteln
   PM_DRLDT(1)   TYPE C,                                    "note 438371
   pm_dspco(1)   TYPE c,                                      "YHG079407
   pm_altvo(1)   TYPE c,
   pm_stpst      like rc29l-maxst,                            "HGD246532
*d PM_GBRAZ(1)   TYPE C,                                      "HGA046836
   pm_brems(1)   TYPE c,
   pm_erskz(1)   TYPE c,
   pm_erssl(1)   TYPE c,
   pm_beikz(1)   TYPE c,
   pm_bessl(1)   TYPE c,
   pm_bagrp LIKE mara-matnr,
   pm_postp(1)   TYPE c,
   pm_ehndl(1)       TYPE c value '1',"DEFAULT '1',                      "HGA108310
   pm_sanko LIKE stpo-sanko,
   pm_sanfe LIKE stpo-sanfe,
   pm_sanka LIKE stpo-sanka,
   pm_sanin LIKE stpo-sanin,
   pm_sanvs LIKE stpo-sanvs,
   pm_rvrel LIKE stpo-rvrel,
   pm_schgt LIKE stpo-schgt,
   pm_stkkz LIKE stpo-stkkz,                                  "YHG035283
*del PM_ZSTNR(1)   TYPE C DEFAULT 'X',                        "YHG077295
   pm_zstnr(1)   TYPE c,                                      "YHG077295
   pm_sortk(1)   TYPE c,
   pm_idnrk LIKE mara-matnr.

*PARAMETERS:
data:
*  ProjektNr.
   pm_pspnr LIKE prst-pspnr,                                  "HGA046836

   pm_vbeln LIKE kdst-vbeln,                                  "HGB084505
   pm_vbpos LIKE kdst-vbpos.                                  "HGB084505

*  reporteigene Konstanten
DATA:
   list_id    LIKE klah-class VALUE 'SAPCSSMXM         ',     "YHG137424
*  Profil zur Bildschirmanzeige
   dflt_dsprf LIKE klah-class VALUE 'SAPCSSMXMP01      ',     "YHG137424
*  Profil beim Druck
   dflt_prprf LIKE klah-class VALUE 'SAPCSSMXMP01      '.     "YHG137424


DATA:                                                         "HGA046836
*  obsolete
   pm_gbraz TYPE c.                                           "HGA046836

*---------------------------------------------------------------------*
*        spezielle Export- Importbereiche                             *
*---------------------------------------------------------------------*
DATA: BEGIN OF csbomex.
         INCLUDE STRUCTURE csbomex.
DATA: END OF csbomex.


*---------------------------------------------------------------------*
*.. ALV_S  beg .............................................. "HGA246532

TYPE-POOLS: slis.
*..................................
DATA:
   report_name      LIKE sy-repid,
   alvlo_stb        TYPE slis_layout_alv,
   alvvr            LIKE disvariant,
   alvvr_sav        TYPE c,
   exit_by_caller   TYPE c,
   exit_by_user     TYPE slis_exit_by_user.

DATA:
   wa_stb_fields_tb TYPE slis_fieldcat_alv.

DATA:
*  ALV Events complete
   alv_evnt_tb_cmpl TYPE slis_t_event,
*  ALV Events pf exit only
   alv_evnt_tb_pfxt TYPE slis_t_event,
*  ALV Top of page table
   alv_top_tb    TYPE slis_t_listheader,
*  field display properties  stb tab
   stb_fields_tb TYPE slis_t_fieldcat_alv.

DATA:
   alvvr_sav_all    TYPE c VALUE 'A',
   alvvr_sav_no_usr TYPE c VALUE 'X'.

DATA: BEGIN OF alv_stb OCCURS 0.
        INCLUDE STRUCTURE stpox_alv.
DATA: END OF alv_stb.

DATA: BEGIN OF ftab OCCURS 200.
         INCLUDE STRUCTURE dfies.
DATA: END   OF ftab.

DATA: BEGIN OF xcpt_tb OCCURS 10,
        dobjt(42) TYPE c,
        ojtxp(40) TYPE c,
        info(3)   type c,
      END OF xcpt_tb.

DATA:
*  ALV-Variante
   pm_alvvr LIKE ltdx-variant,
*  alv variant user specific
   pm_alvvu TYPE c.

*.. ALV_S  end .......................................................*
*---------------------------------------------------------------------*


*eject
***********************************************************************
*        M A I N  -  Routinen                                         *
***********************************************************************
*eject
INITIALIZATION.
*del SET TITLEBAR 'E01'                                       "YHG036694
*del     WITH 'Anzeigen Mengenübersicht' 'mehrstufig'.        "YHG036694
pm_datuv = sy-datum.
get parameter ID 'FORM' field pm_mtnrv.
*write pm_mtnrv.

   SET TITLEBAR 'E01' WITH text-001 text-002.                 "YHG036694

   IMPORT csbomex FROM MEMORY ID 'CSNN_BOMEX'.

   cal_aclas = csbomex-aclas.                                 "YHG044860

*  CATT-Info besorgen
   PERFORM import_catt_flag.                                  "HGC072824

   PERFORM tcs03_lesen.
   PERFORM tcspr_lesen.
   PERFORM set_schalter.                                      "YHG077295

   IF NOT csbomex-submf = 'x'.
      PERFORM sel_grenzen_01.

*del  IF SY-SUBRC = 0.                                        "YHG134557
         PERFORM sel_grenzen_02.
*del  ENDIF.                                                  "YHG134557

      IF not pm_alvsa IS INITIAL.                             "HGA246532
         PERFORM get_profs.                                   "HGA025100
      ENDIF.                                                  "HGA246532
   ENDIF.


*eject
* ---------------------------------
AT SELECTION-SCREEN.                                          "YHG078090
*  ?Report per SUBMIT gestartet
*  nein, ... per SE38 oder sonstwie
   IF csbomex-submf IS INITIAL.                               "YHG078090
      PERFORM chk_plant_auth.                                 "HGA072824

      IF sy-subrc <> 0.                                       "HGA072824
         IF sy-batch IS INITIAL.                              "HGA072824
            MESSAGE e523 WITH 'E:' pm_werks.                  "HGA072824
         ELSE.                                                "HGA072824
            LEAVE.                                            "HGA072824
         ENDIF.                                               "HGA072824
      ENDIF.                                                  "HGA072824

*     ?weder Stuecklistenverwendung noch StlAnwendung angegeben
*     ja, weder - noch
      IF     pm_stlan IS INITIAL                              "YHG078090
         AND pm_capid IS INITIAL.                             "YHG078090

*        ?Batchverarbeitung aktiv
*        nein
         IF     sy-batch IS INITIAL.                          "YHG078090
*           Msg.: wenigstens eine Verwendg od. eine Anwendg angeben
            MESSAGE e560 WITH ''.                             "YHG078090
*        ja, Report laeuft im Moment im Batch
         ELSE.                                                "YHG078090
*           Report abbrechen - Selektion macht keinen Sinn
            LEAVE.                                            "YHG078090
         ENDIF.                                               "YHG078090
      ENDIF.                                                  "YHG078090

*     ?weder Einsatzmenge noch Alternative angegeben
*     ja, weder - noch
      IF     pm_emeng IS INITIAL                              "YHG078090
         AND pm_stlal IS INITIAL.                             "YHG078090

*        ?Batchverarbeitung aktiv
*        nein
         IF     sy-batch IS INITIAL.                          "YHG078090
*           Msg.: wenigstens eine Verwendg od. eine Anwendg angeben
            MESSAGE w561 WITH ''.                             "YHG078090
         ENDIF.                                               "YHG078090
      ENDIF.                                                  "YHG078090

*     ?weder Material noch KndDaten
*     ja, weder - noch
      IF     pm_mtnrv IS INITIAL                              "HGC059252
         AND (    pm_pspnr IS INITIAL )                       "HGA046836
         AND (    pm_vbeln IS INITIAL                         "HGC059252
               OR pm_vbpos IS INITIAL ).                      "HGC059252
*        ?Batchverarbeitung aktiv
*        nein
         IF     sy-batch IS INITIAL.                          "HGC059252
*           Msg.: wenigstens ein Mat od. KNDDaten angeben
            MESSAGE e562 WITH ''.                             "HGC059252
*        ja, Report laeuft im Moment im Batch
         ELSE.                                                "HGC059252
*           Report abbrechen - Selektion macht keinen Sinn
            LEAVE.                                            "HGC059252
         ENDIF.                                               "HGC059252
      ENDIF.                                                  "HGC059252

      CLEAR:                                                  "HGA084505
         anr_techs,                                           "HGA084505
         anr_datuv.                                           "HGA084505

      IF NOT pm_aennr IS INITIAL.                             "HGA084505
         CALL FUNCTION 'CC_CHANGE_NUMBER_READ'                "HGA084505
              EXPORTING                                       "HGA084505
                   eaennr = pm_aennr                          "HGA084505
              IMPORTING                                       "HGA084505
*d                 atechs = anr_techs               "HGA084505"HGA154419
                   adatuv = anr_datuv.                        "HGA084505

         IF sy-subrc = 0.                                     "HGA084505
            IF NOT anr_datuv IS INITIAL.                      "HGA084505
               IF pm_datuv NE anr_datuv.                      "HGA084505
                  pm_datuv = anr_datuv.                       "HGA084505
                  MESSAGE w042 WITH pm_datuv.                 "HGA084505
               ENDIF.                                         "HGA084505
            ENDIF.                                            "HGA084505
            IF NOT anr_techs IS INITIAL.                      "HGA084505
               IF pm_techs NE anr_techs.                      "HGA084505
                  pm_techs = anr_techs.                       "HGA084505
               ENDIF.                                         "HGA084505
            ENDIF.                                            "HGA084505
         ELSE.                                                "HGA084505
            MESSAGE w521 WITH 'E:' pm_aennr.                  "HGA084505
         ENDIF.                                               "HGA084505
      ENDIF.                                                  "HGA084505
   ENDIF.                                                     "YHG078090


*eject
* ---------------------------------
START-OF-SELECTION.
   lins_per_pag = sy-srows.                                   "HGB246532
*  If list leafing is inaccurate, enlarge window for max. about 1 line

*del NEW-PAGE LINE-COUNT SY-SROWS.                            "YHG036694

*   IF csbomex-submf IS INITIAL.                               "YHG049857
*      SET PARAMETER ID 'CSV' FIELD pm_stlan.                  "YHG049857
***      SET PARAMETER ID 'CSA' FIELD pm_capid.                  "YHG049857
*   ENDIF.                                                     "YHG049857
*
   IF pm_alvsa IS INITIAL.                                    "HGA246532
      report_name = sy-repid.                                 "HGA246532

      alvlo_stb-detail_popup = 'X'.                           "HGA246532
      alvlo_stb-zebra        = 'X'.                           "HGA246532

      PERFORM alv_evnt_tb_prep                                "HGA246532
        USING                                                 "HGA246532
          'A'                                                 "HGA246532
          alv_evnt_tb_cmpl.                                   "HGA246532

      alvvr-report = report_name.                             "HGA246532
      IF NOT pm_alvvr IS INITIAL.                             "HGA246532
        alvvr-variant = pm_alvvr.                             "HGA246532

        IF NOT pm_alvvu IS INITIAL.                           "HGA246532
          alvvr-username = sy-uname.                          "HGA246532
        ENDIF.                                                "HGA246532
      ENDIF.                                                  "HGA246532

      alvvr_sav = alvvr_sav_all.                              "HGA246532
   else.                                                      "HGA246532
      if    pm_dsprf is initial                               "HGA246532
         or pm_prprf is initial.                              "HGA246532

         perform get_profs.                                   "HGA246532
      endif.                                                  "HGA246532

*del  SET PF-STATUS 'SA13'.                                   "YHG139715
      SET PF-STATUS 'S131'.                                   "YHG139715
      SET TITLEBAR 'A01'.
*del     WITH 'Mengenübersicht' ''.                           "YHG036694
   ENDIF.                                                     "HGA246532

*d IF NOT CSBOMEX-SUBMF = 'x'.                                "YHG046403
*del  PM_EMENG = PM_EMENG * 1000 .                  "YHG044772"YHG046403
*d ELSE.                                            "YHG035807"YHG046403
*d    TMP_HRECHF = PM_HEMNG.                        "YHG035807"YHG046403
*d    TMP_HRECHF = TMP_HRECHF / 1000.               "YHG035807"YHG046403
*d    PM_EMENG   = TMP_HRECHF.                      "YHG035807"YHG046403
*d ENDIF.                                                     "YHG046403

   PERFORM field_convert USING pm_stlal.
   PERFORM sel_grenzen_03.

   IF cal_aclas EQ 'CA  '.                                    "HGB070841
      mem_mngmt = '0'.                                        "HGB070841
   ELSE.                                                      "HGB070841
      mem_mngmt = '1'.                                        "HGB070841
   ENDIF.                                                     "HGB070841

*d DESCRIBE FIELD makt-matnr LENGTH mnr_lng.               "HGA080825"uc
   DESCRIBE FIELD makt-matnr                                         "uc
     LENGTH mnr_lng                                                  "uc
     in character mode.                                              "uc

*  die eigentliche Aufloesung
*d IF     PM_VBELN IS INITIAL                       "HGB084505"HGA046836
*d    OR  PM_VBPOS IS INITIAL.                      "HGB084505"HGA046836
   IF     ( pm_vbeln IS INITIAL                               "HGA046836
            OR  pm_vbpos IS INITIAL )                         "HGA046836
      AND ( pm_pspnr IS INITIAL ).                            "HGA046836

   PERFORM ecm_proc_init                                      "HGA084505
*d    using pm_techs.                               "HGA084505"HGA059252
      USING pm_mtnrv                                          "HGA059252
            pm_techs.                                         "HGA059252

*  CS_BOM_EXPLOSION_MAT ersetzt                               "YHG134557
   CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
      EXPORTING
         altvo = pm_altvo
         aufsw = ' '
         auskz = pm_ausch
         bagrp = pm_bagrp
         beikz = pm_beikz
         bessl = pm_bessl
         brems = pm_brems
         capid = pm_capid
         datuv = pm_datuv
         DRLDT = PM_DRLDT                                   "note 438371
         ehndl = pm_ehndl                                     "HGA108310
         emeng = pm_emeng
         erskz = pm_erskz
         erssl = pm_erssl
         mbwls = ' '
         mtnrv = pm_mtnrv
         mehrs = 'X'
*del     MMORY = '1'                                "YHG020009"HGB070841
         mmory = mem_mngmt                                    "HGB070841
         postp = pm_postp
         sanko = pm_sanko
         sanfr = pm_sanfe
         sanka = pm_sanka
         sanin = pm_sanin
         sanvs = pm_sanvs
         rndkz = tcspr-amekz                                  "YHG100738
         rvrel = pm_rvrel
         schgt = pm_schgt
         stkkz = pm_stkkz
         stlal = pm_stlal
         stlan = pm_stlan
         stpst = pm_stpst                                     "HGD246532
         werks = pm_werks
         aumgb = 'X'                                        "NOTE_887365
      IMPORTING
         topmat = selpool
         dstst  = dstst_flg                                   "YHG132854
      TABLES
         stb = stb
         matcat = matcat
      EXCEPTIONS
         material_not_found    = 4
         no_plant_data         = 8
         no_bom_found          = 12
         no_suitable_bom_found = 16
         alt_not_found         = 24
*d       missing_authorization = 28.                          "HGD059252
         missing_authorization = 28                           "HGD059252
         conversion_error      = 36.                          "HGD059252
*d ELSE.                                            "HGB084505"HGA046836
   ELSEIF pm_pspnr IS INITIAL.                                "HGA046836
      CALL FUNCTION 'SD_VBAP_SELECT'                          "HGB084505
         EXPORTING                                            "HGB084505
            i_document_number = pm_vbeln                      "HGB084505
            i_item_number     = pm_vbpos                      "HGB084505
         IMPORTING                                            "HGB084505
            e_vbap            = vbap_wa                       "HGB084505
         EXCEPTIONS                                           "HGB084505
            item_not_found    = 1                             "HGB084505
            OTHERS            = 2.                            "HGB084505

*d    wa_kdstb-matnr = vbap_wa-matnr.               "HGA033687"HGC059252
*d    wa_kdstb-werks = vbap_wa-werks.               "HGA033687"HGC059252
*d    wa_kdstb-vbeln = pm_vbeln.                    "HGA033687"HGC059252
*d    wa_kdstb-vbpos = pm_vbpos.                    "HGA033687"HGC059252

*d    call function 'GET_KDST'                      "HGA033687"HGC059252
*d         exporting                                "HGA033687"HGC059252
*d              all             = 'X'               "HGA033687"HGC059252
*d              no_buffer       = ' '               "HGA033687"HGC059252
*d              set             = 'X'               "HGA033687"HGC059252
*d         tables                                   "HGA033687"HGC059252
*d              wa              = wa_kdstb          "HGA033687"HGC059252
*d         exceptions                               "HGA033687"HGC059252
*d*             CALL_INVALID    = 1                           "HGC059252
*d*             END_OF_TABLE    = 2                           "HGC059252
*d*             GET_WITHOUT_SET = 3                           "HGC059252
*d*             KEY_INCOMPLETE  = 4                           "HGC059252
*d*             KEY_INVALID     = 5                           "HGC059252
*d              no_record_found = 32                "HGA033687"HGC059252
*d*             OTHERS          = 7                           "HGC059252
*d              .                                   "HGA033687"HGC059252

      IF sy-subrc = 0.                                        "HGA033687
*     -->
      IF vbap_wa-matnr NE pm_mtnrv.                           "HGB084505
         matpos_flg = 'x'.                                    "HGB084505
      ENDIF.                                                  "HGB084505

      IF NOT vbap_wa-techs IS INITIAL.                        "HGA084505
         PERFORM ecm_proc_init                                "HGA084505
*d          using vbap_wa-techs.                    "HGA084505"HGA059252
            USING vbap_wa-matnr                               "HGA059252
                  vbap_wa-techs.                              "HGA059252
      ELSE.                                                   "HGA084505
*....... I: pm_techs kann auch init sein
         PERFORM ecm_proc_init                                "HGA084505
*d          using pm_techs.                         "HGA084505"HGA059252
            USING vbap_wa-matnr                               "HGA059252
                  pm_techs.                                   "HGA059252
      ENDIF.                                                  "HGA084505

*     perform werks_best                             "note 353640 384597
*       using                                        "note 353640 384597
*         vbap_wa-matnr                              "note 353640 384597
*       changing                                     "note 353640 384597
*         vbap_wa-werks.                             "note 353640 384597

      IF matpos_flg IS INITIAL  OR                          "note 847517
         pm_mtnrv IS INITIAL.                               "note 847517

      PERFORM COMPUTE_PLANT(SAPLCUKO)                       "note 384597
              USING    VBAP_WA-MATNR                        "note 384597
                       VBAP_WA-WERKS                        "note 384597
              CHANGING VBAP_WA-WERKS.                       "note 384597

      CALL FUNCTION 'CS_BOM_EXPL_KND_V1'                      "HGB084505
         EXPORTING                                            "HGB084505
            altvo = pm_altvo                                  "HGB084505
            aufsw = ' '                                       "HGB084505
            auskz = pm_ausch                                  "HGB084505
            bagrp = pm_bagrp                                  "HGB084505
            beikz = pm_beikz                                  "HGB084505
            bessl = pm_bessl                                  "HGB084505
            brems = pm_brems                                  "HGB084505
            capid = pm_capid                                  "HGB084505
            cuobj = vbap_wa-cuobj                             "HGB084505
            datuv = pm_datuv                                  "HGB084505
            DRLDT = PM_DRLDT                                "note 438371
            ehndl = pm_ehndl                                  "HGB084505
            emeng = pm_emeng                                  "HGB084505
            erskz = pm_erskz                                  "HGB084505
            erssl = pm_erssl                                  "HGB084505
            mbwls = ' '                                       "HGB084505
            mtnrv = vbap_wa-matnr                             "HGB084505
            mehrs = 'X'                                       "HGB084505
            mmory = mem_mngmt                                 "HGB084505
            postp = pm_postp                                  "HGB084505
            sanko = pm_sanko                                  "HGB084505
            sanfr = pm_sanfe                                  "HGB084505
            sanka = pm_sanka                                  "HGB084505
            sanin = pm_sanin                                  "HGB084505
            sanvs = pm_sanvs                                  "HGB084505
            rndkz = tcspr-amekz                               "HGB084505
            rvrel = pm_rvrel                                  "HGB084505
            schgt = pm_schgt                                  "HGB084505
            stkkz = pm_stkkz                                  "HGB084505
            stlal = pm_stlal                                  "HGB084505
            stlan = pm_stlan                                  "HGB084505
            stpst = pm_stpst                                  "HGD246532
            werks = vbap_wa-werks                             "HGB084505
            vbeln = pm_vbeln                                  "HGB084505
            vbpos = pm_vbpos                                  "HGB084505
         IMPORTING                                            "HGB084505
            topmat = selpool                                  "HGB084505
            dstst  = dstst_flg                                "HGB084505
         TABLES                                               "HGB084505
            stb = stb                                         "HGB084505
            matcat = matcat                                   "HGB084505
         EXCEPTIONS                                           "HGB084505
            material_not_found    = 4                         "HGB084505
            no_plant_data         = 8                         "HGB084505
*d          no_bom_found          = 12              "HGB084505"HGC059252
            no_bom_found          = 32                        "HGC059252
            no_suitable_bom_found = 16                        "HGB084505
            alt_not_found         = 24                        "HGB084505
*d          missing_authorization = 28.             "HGB084505"HGD059252
            missing_authorization = 28                        "HGD059252
            conversion_error      = 36.                       "HGD059252
*     <--
* START OF NOTE 847517
      ELSE.

            PERFORM COMPUTE_PLANT(SAPLCUKO)                 "note 1226225
              USING    PM_MTNRV                             "note 1226225
                       VBAP_WA-WERKS                        "note 1226225
              CHANGING VBAP_WA-WERKS.                       "note 1226225

      CALL FUNCTION 'CS_BOM_EXPL_KND_V1'
         EXPORTING
            altvo = pm_altvo
            aufsw = ' '
            auskz = pm_ausch
            bagrp = pm_bagrp
            beikz = pm_beikz
            bessl = pm_bessl
            brems = pm_brems
            capid = pm_capid
            cuobj = vbap_wa-cuobj
            datuv = pm_datuv
            DRLDT = PM_DRLDT
            ehndl = pm_ehndl
            emeng = pm_emeng
            erskz = pm_erskz
            erssl = pm_erssl
            mbwls = ' '
            mtnrv = pm_mtnrv
            mehrs = 'X'
            mmory = mem_mngmt
            postp = pm_postp
            sanko = pm_sanko
            sanfr = pm_sanfe
            sanka = pm_sanka
            sanin = pm_sanin
            sanvs = pm_sanvs
            rndkz = tcspr-amekz
            rvrel = pm_rvrel
            schgt = pm_schgt
            stkkz = pm_stkkz
            stlal = pm_stlal
            stlan = pm_stlan
            stpst = pm_stpst
            werks = vbap_wa-werks
            vbeln = pm_vbeln
            vbpos = pm_vbpos
         IMPORTING
            topmat = selpool
            dstst  = dstst_flg
         TABLES
            stb = stb
            matcat = matcat
         EXCEPTIONS
            material_not_found    = 4
            no_plant_data         = 8
            no_bom_found          = 32
            no_suitable_bom_found = 16
            alt_not_found         = 24
            missing_authorization = 28
            conversion_error      = 36.

      ENDIF.
*END OF NOTE 847517

      ELSE.                                                   "HGC059252
         sy-subrc = 32.                                       "HGC059252
      ENDIF.                                                  "HGA033687
   ELSEIF (     pm_vbeln IS INITIAL                           "HGA046836
            AND pm_vbpos IS INITIAL ) .                       "HGA046836

      PERFORM ECM_PROC_INIT                                 "note 485260
         USING PM_MTNRV                                     "note 485260
               PM_TECHS.                                    "note 485260

      CALL FUNCTION 'CS_BOM_EXPL_PSP_V1'                      "HGA046836
         EXPORTING                                            "HGA046836
            altvo = pm_altvo                                  "HGA046836
            aufsw = ' '                                       "HGA046836
            auskz = pm_ausch                                  "HGA046836
            bagrp = pm_bagrp                                  "HGA046836
            beikz = pm_beikz                                  "HGA046836
            bessl = pm_bessl                                  "HGA046836
            brems = pm_brems                                  "HGA046836
            capid = pm_capid                                  "HGA046836
            datuv = pm_datuv                                  "HGA046836
            DRLDT = PM_DRLDT                                "note 438371
            ehndl = pm_ehndl                                  "HGA046836
            emeng = pm_emeng                                  "HGA046836
            erskz = pm_erskz                                  "HGA046836
            erssl = pm_erssl                                  "HGA046836
            mbwls = ' '                                       "HGA046836
            mehrs = 'X'                                       "HGA046836
            mmory = mem_mngmt                                 "HGA046836
            mtnrv = pm_mtnrv                                  "HGA046836
            postp = pm_postp                                  "HGA046836
            pspnr = pm_pspnr                                  "HGA046836
            rndkz = tcspr-amekz                               "HGA046836
            rvrel = pm_rvrel                                  "HGA046836
            sanko = pm_sanko                                  "HGA046836
            sanfr = pm_sanfe                                  "HGA046836
            sanin = pm_sanin                                  "HGA046836
            sanka = pm_sanka                                  "HGA046836
            sanvs = pm_sanvs                                  "HGA046836
            schgt = pm_schgt                                  "HGA046836
            stkkz = pm_stkkz                                  "HGA046836
            stlal = pm_stlal                                  "HGA046836
            stlan = pm_stlan                                  "HGA046836
            stpst = pm_stpst                                  "HGD246532
            werks = pm_werks                                  "HGA046836
         IMPORTING                                            "HGA046836
            topmat                = selpool                   "HGA046836
            dstst                 = dstst_flg                 "HGA046836
         TABLES                                               "HGA046836
            stb                   = stb                       "HGA046836
            matcat                = matcat                    "HGA046836
         EXCEPTIONS                                           "HGA046836
            material_not_found    = 4                         "HGA046836
            no_plant_data         = 8                         "HGA046836
            no_suitable_bom_found = 16                        "HGA046836
            alt_not_found         = 24                        "HGA046836
            missing_authorization = 28                        "HGA046836
            conversion_error      = 36                        "HGA046836
            no_bom_found          = 40                        "HGA046836
            .                                                 "HGA046836

     IF sy-subrc <> 0.                                        "HGA046836
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.                                                   "HGA046836
   ENDIF.                                                     "HGB084505


*  ggf Grafikbutton ausschalten
   IF NOT dstst_flg IS INITIAL.                               "YHG132854
      SET PF-STATUS sy-pfkey EXCLUDING 'CSGR'.                "YHG132854
   ENDIF.                                                     "YHG132854

*  SubRc auswerten
   PERFORM subrc_explr.


*eject
* ---------------------------------
TOP-OF-PAGE.
   PERFORM top_01_79.
   lins_per_top = sy-linno.                                   "HGB246532


*eject
* ---------------------------------
TOP-OF-PAGE DURING LINE-SELECTION.
   PERFORM top_01_79.
   lins_per_top = sy-linno.                                   "HGB246532


*eject
* ---------------------------------
END-OF-SELECTION.
*del PERFORM ANZEIGEFELDER_SETZEN.
                                                              "YHG134557
*del SORT STB ASCENDING BY IDNRK
   SORT stb ASCENDING BY msign                                "YHG078090
            idnrk ASCENDING                                   "YHG078090
            dokar ASCENDING                                   "YHG041147
            doknr ASCENDING                                   "YHG041147
            dokvr ASCENDING                                   "YHG041147
            doktl ASCENDING                                   "YHG041147
            CLASS ASCENDING                                 "note 529728
            KLART ASCENDING                                 "note 529728
            POSTP ASCENDING                                 "note 529728
            potx1 ASCENDING
            potx2 ASCENDING
*d          sortf ASCENDING.                                "note 507446
*           SORTF ASCENDING                    "Note 759732 "note 507446
*           WERKS ASCENDING.                   "Note 759732 "note 507446
            WERKS ASCENDING                                 "Note 759732
            SORTF ASCENDING.                                "Note 759732

   PERFORM stb_erweitern.
   PERFORM cs13_vorbereiten.

   IF cal_aclas EQ 'CA  '.                                    "YHG044860
      EXPORT selpool TO MEMORY ID 'CSNN_CSTMAT'.              "YHG044860
      EXPORT stb     TO MEMORY ID 'CSNN_STB'.                 "YHG044860
      EXPORT matcat  TO MEMORY ID 'CSNN_MATCAT'.              "YHG134257

      CLEAR: cal_aclas.                                       "YHG044860
      LEAVE.                                                  "YHG044860
   ENDIF.                                                     "YHG044860

   IF not pm_alvsa IS INITIAL.                                "HGA246532
      PERFORM cs13.
      PERFORM clr_hide_area.

      IF NOT mpos_line IS INITIAL.                            "HGB084505
         SCROLL LIST TO PAGE mpos_page LINE mpos_line.        "HGB084505
      ENDIF.                                                  "HGB084505
   ELSE.                                                      "HGA246532
      PERFORM alv_top_tb_prep USING alv_top_tb.               "HGA246532
      PERFORM cs13_alv.                                       "HGA246532

   ENDIF.                                                     "HGA246532

*break hcl4.

return.

*eject
* ---------------------------------
INCLUDE rcsnn001.

*eject
***********************************************************************
*        F O R M  -  Routinen                                         *
***********************************************************************
*eject
*---------------------------------------------------------------------*
*        ANZEIGEFELDER_SETZEN                                         *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  entfaellt mit var. Liste
*                                      "YHG134557
*del FORM ANZEIGEFELDER_SETZEN.
*del ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_01_79                                                *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM anzeige_01_79.
* ---------------------------------
* Routine im wesentlichen nach ANZEIGE_01_79_DRUCK uebernommen
* ---------------------------------
* DATA-Definitionen global vereinbart
*del DATA: UEBERL_KZ(1) TYPE C VALUE '*'.          "YHG035807 "YHG066003
*del DATA: UEBERL_FLG(1) TYPE C.                   "YHG035807 "YHG066003
*del DATA: ANZ_MEINS LIKE STPO-MEINS,                         "YHG066003
*del       ANZ_KTEXT LIKE MAKT-MAKTX.                         "YHG066003

* ---------------------------------
   CHECK stb-sumkz NE 's'.

   IF stb-idnrk IS INITIAL.
      IF stb-doknr IS INITIAL.                                "YHG041147
         IF stb-class IS INITIAL.                             "YHG000109
            anz_meins = stb-meins.
            anz_ktext = stb-potx1.
         ELSE.                                                "YHG000109
            anz_meins = stb-meins.                            "YHG000109
            anz_ktext = stb-ojtxp.                            "YHG000109
         ENDIF.                                               "YHG000109
      ELSE.                                                   "YHG041147
         anz_meins = stb-meins.                               "YHG041147
         anz_ktext = stb-ojtxp.                               "YHG041147
      ENDIF.                                                  "YHG041147
   ELSE.
      anz_meins = stb-mmein.
*del  ANZ_KTEXT = STB-MAKTX.                                  "YHG035283
      anz_ktext = stb-ojtxp.                                  "YHG035283
   ENDIF.

   IF stb-mnglg >= max_num.                                   "YHG035807
      ueberl_flg = ueberl_kz.                                 "YHG035807
   ELSE.                                                      "YHG035807
      IF stb-mnglg <= min_num.                                "YHG088020
         ueberl_flg = ueberl_kz.                              "YHG088020
      ELSE.                                                   "YHG088020
         CLEAR: ueberl_flg.                                   "YHG035807
      ENDIF.                                                  "YHG088020
   ENDIF.                                                     "YHG035807

*del IF SY-UCOMM NE 'CSPR'.                         "YHG066003"YHG134557
   PERFORM anzeige_01_79_liste.                               "YHG066003
*del ELSE.                                          "YHG066003"YHG134557
*del    PERFORM ANZEIGE_01_79_DRUCK.                "YHG066003"YHG134557
*del ENDIF.                                         "YHG066003"YHG134557

*  ?Klassenposition
*   und Zuordnungen komplett od. teilweise anzeigen bzw. drucken
*  ja
   IF     stb-objty EQ otyp_kla                               "YHG079407
      AND (     NOT pm_dspco IS INITIAL                       "YHG079407
*d          OR  sy-ucomm EQ 'CSCA'                "YHG079407"note 351902
*d          OR  sy-ucomm EQ 'CSPR' ).             "YHG079407"note 351902
            OR  SV_UCOMM EQ 'CSCA'                          "note 351902
            OR  SV_UCOMM EQ 'CSPR' ).                       "note 351902

*     Teilkey der Klassenpositionentabelle fuellen
      cl_clstab-class = stb-class.                            "YHG079407
      cl_clstab-klart = stb-klart.                            "YHG079407

*     Bearbeitungsstand zur aktuellen Klassenposition versorgen
      READ TABLE cl_clstab                                    "YHG079407
         WITH KEY cl_clstab(21)                               "YHG079407
         BINARY SEARCH.                                       "YHG079407

*     ?Zuordnungen anzeigen
*     ja
      IF NOT cl_clstab-dsply IS INITIAL.                      "YHG079407
*        ?Klassenposition bereits bearbeitet
*        nein
         IF cl_clstab-chked IS INITIAL.                       "YHG079407
*           Klassenposition bearbeiten
            PERFORM chk_cl_clstab_entry.                      "YHG079407
         ENDIF.                                               "YHG079407

*        ?gibt es ueberhaupt Zuordnungen zum Anzeigen
*        ja
         IF cl_clstab-noobj IS INITIAL.                       "YHG079407
*           na also, dann los
            PERFORM anzeige_04_79.                            "YHG079407
         ENDIF.                                               "YHG079407
      ENDIF.                                                  "YHG079407
   ENDIF.                                                     "YHG079407
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_01_79_DRUCK                                          *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  entfaellt mit var. Liste                                   "YHG134557
*del FORM ANZEIGE_01_79_DRUCK.
*del ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_01_79_LISTE                                          *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  komplett ueberarbeitet                                     "YHG134557
FORM anzeige_01_79_liste.                                     "YHG066003
DATA: lkl_blockname LIKE klah-class.
* ---------------------------------
*  Feld fuer ObjAnzeige in Uebergabestruktur initialisieren
   CLEAR: stb_add-dobjt.
   CLEAR: lkl_blockname.

*  ?die Komponente ist ...
   CASE stb_orig-objty.
*     ... ein Material
      WHEN otyp_mat.
*        Blockname festlegen
         lkl_blockname = 'ITEM_M            '.

*     ... ein Material (ein altes)
      WHEN 'M'.
*        Blockname festlegen
         lkl_blockname = 'ITEM_M            '.

*     ... objektlos; z.B. eine Textposition
      WHEN otyp_noo.
*        Blockname festlegen
         lkl_blockname = 'ITEM_NOO          '.

*     ... ein Dokument
      WHEN otyp_doc.
*        Blockname festlegen
         lkl_blockname = 'ITEM_D            '.

*     ... eine Klasse
      WHEN otyp_kla.
*        Blockname festlegen
         lkl_blockname = 'ITEM_C            '.

*     ... ein Intramaterial
      WHEN otyp_ntm.
*        Blockname festlegen
         lkl_blockname = 'ITEM_NTM          '.

*     ... ein UFO
      WHEN OTHERS.
*        Blockname festlegen
         CLEAR: lkl_blockname.
   ENDCASE.

*  Ueberlaufschalter in Uebergabestruktur uebernehmen
   stb_add-ovfls = ueberl_flg.
   stb_add-dunit = anz_meins.

*  ?Komponente ist selber Stueckliste
*  ja
   IF NOT stb_orig-xtlnr IS INITIAL.                          "YHG133751
*    Kennzeichen in Uebergabestruktur setzen
     stb_add-bomfl = b_flag.                                  "YHG133751
   ENDIF.                                                     "YHG133751

*  ?es gibt einen Positionstext
*  ja
   IF NOT stb_orig-potx1 IS INITIAL.
*     ?der Positionstext stimmt mit dem Kurztext ueberein
*     ja
      IF     stb_orig-potx1 EQ stb_orig-ojtxp.
*        dann kann man den Positionstext loeschen
         CLEAR: stb_orig-potx1.
      ENDIF.
   ENDIF.

*d IF NOT pm_ltext IS INITIAL.                    "HGA132240"note 306308
*d    IF NOT stb-ltxsp IS INITIAL.                "HGA132240"note 306308
   IF     NOT PM_LTEXT IS INITIAL                           "note 306308
      AND NOT STB-LTXSP IS INITIAL.                         "note 306308

         PERFORM LTEXT_HOLEN.                                 "HGA132240

         IF SY-SUBRC = 0.                                     "HGA132240
            READ TABLE TXT INDEX 1.                           "HGA132240
            IF STB-POTX1 = TXT-TDLINE.                        "HGA132240
               if stb_orig-potx1 is initial.                "note 375902
                  if stb_orig-ojtxp = txt-tdline.           "note 375902
                     clear: stb_orig-ojtxp.                 "note 375902
                  endif.                                    "note 375902
               endif.                                       "note 375902

               CLEAR: STB_ORIG-POTX1.                         "HGA132240

               READ TABLE TXT INDEX 2.                        "HGA132240
               IF STB-POTX2 = TXT-TDLINE.                     "HGA132240
                  CLEAR: STB_ORIG-POTX2.                      "HGA132240
               ENDIF.                                         "HGA132240
            ENDIF.                                            "HGA132240

            PERFORM TXT_CONV_CHK                            "note 306308
              TABLES                                        "note 306308
                TXT                                         "note 306308
              USING                                         "note 306308
                ' '                                         "note 306308
                ' '.                                        "note 306308

            CALL FUNCTION 'FORMAT_TEXTLINES'                  "HGA132240
               EXPORTING                                      "HGA132240
*d                   FORMATWIDTH = 41                         "HGA132240
                     FORMATWIDTH = 40                       "note 667950
                     LINEWIDTH   = 40                       "note 875961
               TABLES                                         "HGA132240
                     LINES       = TXT.                       "HGA132240

            IF     STB_ORIG-POTX1 IS INITIAL                  "HGA132240
               AND STB_ORIG-POTX2 IS INITIAL.                 "HGA132240

               READ TABLE TXT INDEX 1.                        "HGA132240
               STB_ORIG-POTX1 = TXT-TDLINE.                   "HGA132240
               STB-POTX1      = TXT-TDLINE.                   "HGA132240

               READ TABLE TXT INDEX 2.                        "HGA132240
               STB_ORIG-POTX2 = TXT-TDLINE.                   "HGA132240
               STB-POTX2      = TXT-TDLINE.                   "HGA132240
            ENDIF.                                            "HGA132240
         ELSE.                                                "HGA029649
            TXT-TDLINE = TEXT-097.                            "HGA029649
            APPEND TXT.                                       "HGA029649
         ENDIF.                                               "HGA132240
*d    ENDIF.                                      "HGA132240"note 306308
   ELSE.                                                    "note 306308
      PERFORM TXT_CONV_CHK                                  "note 306308
        TABLES                                              "note 306308
          TXT                                               "note 306308
        USING                                               "note 306308
          STB_ORIG-POTX1                                    "note 306308
          STB_ORIG-POTX2.                                   "note 306308
   ENDIF.                                                     "HGA132240

*  ?Komponente ist Wissensbaustein zugeordnet
*  ja
   IF NOT stb_orig-knobj IS INITIAL.                          "YHG139320
*     Kennzeichen in Uebergabestruktur setzen
      stb_add-knofl = 'X'.                                    "YHG139320
   ENDIF.                                                     "YHG139320

*  Positionszeile
*  je nach Farbschalter
   IF col_switch IS INITIAL.
*     hellen Hintergrund an-
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
      col_switch = 'x'.
   ELSE.
*     ... oder ausschalten
      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
      CLEAR: col_switch.
   ENDIF.

*  WATAB initialisieren und komplett leeren
   CLEAR: watab. REFRESH: watab.
*  Uebergabestruktur (Typ STPOX) ...
*d watab-tname = 'STPOX'. watab-table = stb_orig .                   "uc
   WATAB-TNAME = 'STPOX'.                                            "uc
   assign watab-table to <x_watab-table>  casting.                   "uc
   assign stb_orig    to <x_stpox_wa>     casting.                   "uc
   <x_watab-table> = <x_stpox_wa> .                                  "uc
*  ... sichern
   APPEND watab.

*  WATAB initialisieren
   CLEAR watab.
*  Uebergabestruktur (Typ STPOL_ADD) ...
*d watab-tname = 'STPOL_ADD'. watab-table = stb_add .                "uc
   WATAB-TNAME = 'STPOL_ADD'.                                        "uc
   assign watab-table to <x_watab-table>  casting.                   "uc
   assign stb_add     to <x_STPOL_ADD_wa> casting.                   "uc
   <x_watab-table> = <x_STPOL_ADD_wa> .                              "uc
*  ... sichern
   APPEND watab.

*  WATAB initialisieren
   CLEAR watab.

*  Daten zur Position ausgeben
   PERFORM write_block
      USING  lkl_blockname
*            ausgegebene Zeilen nicht zaehlen
             ' '
*            Hide ausfuehren
             'x'.                                             "YHG123656

*  ?soll Langtext ausgegeben werdem
*  ja
   IF NOT pm_ltext IS INITIAL.
*     ?gibt es Langtext
*     ja
      IF NOT stb-ltxsp IS INITIAL.
*        Langtext einlesen
*d       perform ltext_holen.                                 "HGA132240
         READ TABLE txt INDEX 1.                              "HGA132240

*        ?Langtext konnte eingelesen werden
*        ja
         IF sy-subrc = 0.
*           pro Textzeile ...
            LOOP AT txt.
*              ?wenn Zeile 1 ...
               IF sy-tabix = 1.
*                 gleich der ersten PosTextzeile ist, - nicht ausgeben
                  CHECK stb-potx1 <> txt-tdline.
               ENDIF.

*              ?wenn Zeile 1 ...
               IF sy-tabix = 2.
*                 gleich der zweiten PosTextzeile ist, - nicht ausgeben
                  CHECK stb-potx2 <> txt-tdline.
               ENDIF.

*              Uebergabestruktur initialisieren
               CLEAR: stb_add.
*              Textzeile in Uebergabestruktur uebernehmen
               stb_add-tline = txt-tdline.

*              WATAB initialisieren und komplett leeren
               CLEAR watab. REFRESH watab.
*              Uebergabestruktur (Typ STPOL_ADD) ...
*d             watab-tname = 'STPOL_ADD'. watab-table = stb_add .    "uc
               WATAB-TNAME = 'STPOL_ADD'.                            "uc
               assign watab-table to <x_watab-table>  casting.       "uc
               assign stb_add     to <x_STPOL_ADD_wa> casting.       "uc
               <x_watab-table> = <x_STPOL_ADD_wa> .                  "uc
*              ... sichern
               APPEND watab.

*              WATAB initialisieren und komplett leeren
               CLEAR watab.
*              Langtextzeile ausgeben
               PERFORM write_block
                  USING 'LTEXT_LIN         '
*                       ausgegebene Zeilen nicht zaehlen
                        ' '
*                       Hide ausfuehren
                        'x'.                                  "YHG123656
            ENDLOOP.
         ENDIF.
      ENDIF.
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_04_79                                                *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM anzeige_04_79.                                           "YHG079407
*del IF SY-UCOMM NE 'CSPR'.                                   "YHG134557
   PERFORM anzeige_04_79_liste.
*del ELSE.                                                    "YHG134557
*del    PERFORM ANZEIGE_04_79_DRUCK.                          "YHG134557
*del ENDIF.                                                   "YHG134557
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_04_79_DRUCK                                          *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  entfaellt mit var. Liste                                   "YHG134557
*del FORM ANZEIGE_04_79_DRUCK.
*del ENDFORM.


*eject
*---------------------------------------------------------------------*
*        ANZEIGE_04_79_LISTE                                          *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  komplett ueberarbeitet                                     "YHG134557
FORM anzeige_04_79_liste.                                     "YHG079407
* ---------------------------------
DATA: sav_cl_objmemo LIKE cl_objmemo.
* ---------------------------------
*  Teilkey der KlassenObjekteMemotabelle fuellen
   sav_cl_objmemo(18)   = stb-class.
   sav_cl_objmemo+18(3) = stb-klart.

*  Merktabelle lesen
   READ TABLE cl_objmemo
      WITH KEY sav_cl_objmemo(21)
      BINARY SEARCH.

*  ?passende Eintraege (Zuordnungen) gefunden
*  ja
   IF sy-subrc = 0.
      CLEAR: stb_add.
*     Alle passenden Zuordnungen ...
      LOOP AT cl_objmemo FROM sy-tabix.
*        ?Eintrag passt noch
*        nein
         IF cl_objmemo(21) NE sav_cl_objmemo(21).
*           Ausgabe beenden
            EXIT.
         ENDIF.

*        MatNr fuer HIDE-Bereich festlegen
*d       CLO_MATNR = CL_OBJMEMO-OBJECT(18).                   "HGA080825
         clo_matnr = cl_objmemo-object(mnr_lng).              "HGA080825

*        Klassenobjekt (Mat) in Uebergabestruktur uebernehmen
*d       WRITE CL_OBJMEMO-OBJECT(18) TO STB_ADD-CLOBJ.        "HGA080825
         WRITE cl_objmemo-object TO stb_add-clobj(mnr_lng).   "HGA080825
*        Kurztext zum Objekt in Uebergabestruktur uebernehmen
         WRITE cl_objmemo-text(40) TO stb_add-clotx.

*        WATAB initialisieren und komplett leeren
         CLEAR: watab. REFRESH: watab.
*        Uebergabestruktur (Typ STPOL_ADD) ...
*d       watab-tname = 'STPOL_ADD'. watab-table = stb_add .          "uc
         WATAB-TNAME = 'STPOL_ADD'.                                  "uc
         assign watab-table to <x_watab-table>  casting.             "uc
         assign stb_add     to <x_STPOL_ADD_wa> casting.             "uc
         <x_watab-table> = <x_STPOL_ADD_wa> .                        "uc
*        ... sichern
         APPEND watab.

*        WATAB initialisieren
         CLEAR watab.
*        Daten zum Objekt der Klasse ausgeben
         PERFORM write_block
            USING 'CLASS_OBJ         '
*                 ausgegebene Zeilen nicht zaehlen
                  ' '
*                 Hide nicht ausfuehren
                  ' '.                                        "YHG123656
      ENDLOOP.
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        AUSNAHMEN_AUSGEBEN                                           *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM ausnahmen_ausgeben.
* ---------------------------------
* Routine im wesentlichen nach AUSNAHMEN_AUSGEBEN_DRUCK uebernommen
* ---------------------------------
   ausntp_flg = 'x'.                                          "YHG066003
*del IF SY-UCOMM NE 'CSPR'.                         "YHG066003"YHG134557
   PERFORM ausnahmen_ausgeben_liste.                          "YHG066003
*del ELSE.                                          "YHG066003"YHG134557
*del    PERFORM AUSNAHMEN_AUSGEBEN_DRUCK.           "YHG066003"YHG134557
*del ENDIF.                                         "YHG066003"YHG134557
   CLEAR: ausntp_flg.                                         "YHG066003
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        AUSNAHMEN_AUSGEBEN_DRUCK                                     *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  entfaellt mit var. Liste
*del FORM AUSNAHME_AUSGEBEN_DRUCK.
*del ENDFORM.


*eject
*---------------------------------------------------------------------*
*        AUSNAHMEN_AUSGEBEN_LISTE                                     *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  komplett ueberarbeitet                                     "YHG134557
FORM ausnahmen_ausgeben_liste.                                "YHG066003
*----------------------------------
DATA: lkl_stlal LIKE stko-stlal,
      lkl_ausnm LIKE stpox-ausnm,
      lkl_blockname LIKE klah-class.
*----------------------------------
   CLEAR: lkl_stlal,
          lkl_ausnm.

   READ TABLE ausnm_stb INDEX 1.
   CHECK sy-subrc = 0 .

   NEW-PAGE.

   IF page_exc < 1.
      page_exc = sy-pagno.
   ENDIF.

   SORT ausnm_stb ASCENDING BY ausnm
                  objty ASCENDING
                  xtlal ASCENDING.

   CLEAR: stb_add.
   WRITE text-030 TO stb_add-tline(76).

   FORMAT COLOR COL_BACKGROUND INTENSIFIED ON.

   CLEAR: watab. REFRESH watab.

*d watab-tname = 'STPOL_ADD'. watab-table = stb_add .                "uc
   WATAB-TNAME = 'STPOL_ADD'.                                        "uc
   assign watab-table to <x_watab-table>  casting.                   "uc
   assign stb_add     to <x_STPOL_ADD_wa> casting.                   "uc
   <x_watab-table> = <x_STPOL_ADD_wa> .                              "uc
   APPEND watab.
   CLEAR: watab.

   PERFORM write_block
      USING 'X_GNRL_HDNG       '
*           ausgegebene Zeilen nicht zaehlen
            ' '
*           Hide nicht ausfuehren
            ' '.                                             "YHG123656

   LOOP AT ausnm_stb.
      IF     lkl_stlal NE ausnm_stb-xtlal
         OR  lkl_ausnm NE ausnm_stb-ausnm.

         lkl_stlal = ausnm_stb-xtlal.
         lkl_ausnm = ausnm_stb-ausnm.

         CLEAR: stb_add.

         CASE ausnm_stb-ausnm.
            WHEN 'DELE'.
               WRITE text-039 TO stb_add-tline(76).
            WHEN 'NBER'.
               WRITE text-031 TO stb_add-tline(76).
            WHEN 'NREK'.
               WRITE text-032 TO stb_add-tline(76).
            WHEN 'REKU'.
               WRITE text-034 TO stb_add-tline(76).
            WHEN 'NOTX'.
               IF     NOT pm_stlal IS INITIAL
                  AND NOT pm_altvo IS INITIAL.

                  WRITE text-035 TO stb_add-tline(35).
                  WRITE pm_stlal TO stb_add-tline+36(2).
                  WRITE text-036 TO stb_add-tline+39(37).
                  CONDENSE stb_add-tline.
               ELSE.
                  WRITE text-035 TO stb_add-tline(35).
                  WRITE ausnm_stb-xtlal TO stb_add-tline+36(2).
                  WRITE text-036 TO stb_add-tline+39(37).
                  CONDENSE stb_add-tline.
               ENDIF.
         ENDCASE.

         CLEAR: watab. REFRESH watab.

*d       watab-tname = 'STPOL_ADD'. watab-table = stb_add .          "uc
         WATAB-TNAME = 'STPOL_ADD'.                                  "uc
         assign watab-table to <x_watab-table>  casting.             "uc
         assign stb_add     to <x_STPOL_ADD_wa> casting.             "uc
         <x_watab-table> = <x_STPOL_ADD_wa> .                        "uc
         APPEND watab.
         CLEAR: watab.

         PERFORM write_block
            USING 'X_DTL_HDNG        '
*                 ausgegebene Zeilen nicht zaehlen
                  ' '
*                 Hide nicht ausfuehren
                  ' '.                                        "YHG123656
      ENDIF.

*     Feld fuer ObjAnzeige in Uebergabestruktur initialisieren
      CLEAR: stb_orig.
      CLEAR: lkl_blockname.

*     ?die Komponente ist ...
      CASE ausnm_stb-objty.
*        ... ein Material
         WHEN otyp_mat.
            stb_orig-idnrk = ausnm_stb-idnrk.
            stb_orig-revlv = ausnm_stb-revlv.

*           Blockname festlegen
            lkl_blockname = 'X_ITEM_M          '.

*        ... ein Material (ein altes)
         WHEN 'M'.
            stb_orig-idnrk = ausnm_stb-idnrk.
            stb_orig-revlv = ausnm_stb-revlv.

*           Blockname festlegen
            lkl_blockname = 'X_ITEM_M          '.

*        ... objektlos; z.B. eine Textposition
         WHEN otyp_noo.
*           Blockname festlegen
            lkl_blockname = 'X_ITEM_NOO        '.

*        ... ein Dokument
         WHEN otyp_doc.
            stb_orig-doknr = ausnm_stb-doknr.
            stb_orig-dokar = ausnm_stb-dokar.
            stb_orig-doktl = ausnm_stb-doktl.
            stb_orig-dokvr = ausnm_stb-dokvr.

*           Blockname festlegen
            lkl_blockname = 'X_ITEM_D          '.

*        ... eine Klasse
         WHEN otyp_kla.
            stb_orig-class = ausnm_stb-class.
            stb_orig-klart = ausnm_stb-klart.

*           Blockname festlegen
            lkl_blockname = 'X_ITEM_C          '.

*        ... ein Intramaterial
         WHEN otyp_ntm.
            stb_orig-intrm = ausnm_stb-intrm.

*           Blockname festlegen
            lkl_blockname = 'X_ITEM_NTM        '.

*        ... ein UFO
         WHEN OTHERS.
*           Blockname festlegen
            CLEAR: lkl_blockname.
      ENDCASE.

      stb_orig-ojtxp = ausnm_stb-ojtxp.

*     WATAB initialisieren und komplett leeren
      CLEAR: watab. REFRESH: watab.
*     Uebergabestruktur (Typ STPOX) ...
*d    watab-tname = 'STPOX'. watab-table = stb_orig .                "uc
      WATAB-TNAME = 'STPOX'.                                         "uc
      assign watab-table to <x_watab-table>  casting.                "uc
      assign stb_orig    to <x_STPOX_wa>     casting.                "uc
      <x_watab-table> = <x_STPOX_wa> .                               "uc
*     ... sichern
      APPEND watab.

*     WATAB initialisieren
      CLEAR watab.

*     Daten zur Position ausgeben
      PERFORM write_block
         USING  lkl_blockname
*               ausgegebene Zeilen nicht zaehlen
                ' '
*               Hide ausfuehren
                'x'.                                          "YHG123656


   ENDLOOP.
   ULINE AT /1(siz_linpf).

   PERFORM end_page.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        AUSNAHME_MERKEN                                              *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM ausnahme_merken.
   ausnm_stb-objty = stb-objty.                               "YHG134557
   ausnm_stb-idnrk = stb-idnrk.
   ausnm_stb-revlv = stb-revlv.                               "YHG134557
   ausnm_stb-doknr = stb-doknr.                               "YHG078090
   ausnm_stb-dokar = stb-dokar.                               "YHG078090
   ausnm_stb-doktl = stb-doktl.                               "YHG078090
   ausnm_stb-dokvr = stb-dokvr.                               "YHG078090
   ausnm_stb-class = stb-class.                               "YHG078090
   ausnm_stb-klart = stb-klart.                               "YHG078090
   ausnm_stb-intrm = stb-intrm.                               "YHG134557
*del AUSNM_STB-MAKTX = STB-MAKTX.                             "YHG035283
   ausnm_stb-ojtxp = stb-ojtxp.                               "YHG035283
   IF stb-ausnm EQ 'NOTX'.
      ausnm_stb-xtlal = stb-xtlal.
   ENDIF.
   ausnm_stb-ausnm = stb-ausnm.
   hlp_tabix = sy-tabix.
   COLLECT ausnm_stb.
   sy-tabix = hlp_tabix.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        CS13                                                         *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM cs13.
*d IF NOT SY-BATCH IS INITIAL.                      "YHG078090"HGC072824
   IF     NOT sy-batch IS INITIAL                             "HGC072824
      AND cattaktiv IS INITIAL.                               "HGC072824

      PERFORM print_mode_batch.                               "YHG078090
   ENDIF.                                                     "YHG078090

*  ?Druck eingeschaltet
*  ja
*d IF sy-ucomm EQ 'CSPR'.                         "YHG134557"note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
*     Druckprofil aktivieren
      act_profil = pm_prprf.                                  "YHG134557

      perform prof_get_cmpl                                   "HGB020150
         using itf_prfsz.                                     "HGB020150

      perform prrsv_tb_cre.                                   "HGB020150
*  nein, Bildschirmausgabe
   ELSE.                                                      "YHG134557
*     Bildschirmausgabeprofil aktivieren
      act_profil = pm_dsprf.                                  "YHG134557
   ENDIF.                                                     "YHG134557

*  im Profil definierte Zeilenbreite besorgen
   CALL FUNCTION 'CLFC_PROFILE_SIZE'                          "YHG134557
        EXPORTING                                             "YHG134557
*del         LISTID           = 'SAPCSSMXM         '"YHG134557"YHG137424
             listid                = list_id                  "YHG137424
             profile               = act_profil               "YHG134557
        IMPORTING                                             "YHG134557
*del         SIZE                  = SAV_PRFSZ      "YHG134557"YHG032486
             size                  = itf_prfsz                "YHG032486
        EXCEPTIONS                                            "YHG134557
             listid_not_found      = 01                       "YHG134557
             no_valid_listid       = 02                       "YHG134557
             no_valid_profile      = 03                       "YHG134557
             profile_not_found     = 04                       "YHG134557
             profile_not_in_listid = 05.                      "YHG134557

   sav_prfsz = itf_prfsz.                                     "YHG032486

   IF sy-subrc <> 0.                                          "YHG137424
*     ?Druck eingeschaltet
*     ja
*d    IF sy-ucomm EQ 'CSPR'.                      "YHG137424"note 351902
      IF SV_UCOMM EQ 'CSPR'.                                "note 351902
*        Druckprofil aktivieren
         act_profil = dflt_prprf.                             "YHG137424
*     nein, Bildschirmausgabe
      ELSE.                                                   "YHG137424
*        Bildschirmausgabeprofil aktivieren
         act_profil = dflt_dsprf.                             "YHG137424
      ENDIF.                                                  "YHG137424

      CALL FUNCTION 'CLFC_PROFILE_SIZE'                       "YHG137424
           EXPORTING                                          "YHG137424
                listid  = list_id                             "YHG137424
                profile = act_profil                          "YHG137424
           IMPORTING                                          "YHG137424
*del            SIZE    = SAV_PRFSZ.                "YHG137424"YHG032486
                size    = itf_prfsz.                          "YHG032486

      sav_prfsz = itf_prfsz.                                  "YHG032486
   ENDIF.                                                     "YHG137424

*  Zeilenbreiten wg. Rahmen um 2 erhoehen
   siz_linpf = sav_prfsz + 2.                                 "YHG134557

*d IF sy-ucomm EQ 'CSPR'.                         "YHG139715"note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
      PERFORM prep_druck.                                     "YHG139715
   ENDIF.                                                     "YHG139715

   PERFORM create_dsp_sel.                                    "YHG139715

*d IF sy-ucomm EQ 'CSPR'.                         "YHG139715"note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
      PERFORM selkrit_druck.                                  "YHG139715
   ENDIF.                                                     "YHG139715

   LOOP AT stb.
*     Uebergabestrukturen initialisieren
      CLEAR: stb_orig,                                        "YHG134557
             stb_add.                                         "YHG134557

      IF stb-ttidx <> matcat-index.                           "YHG134557
         READ TABLE matcat INDEX stb-ttidx.                   "YHG134557
      ENDIF.                                                  "YHG134557

*     STB-Eintrag in Uebergabestruktur uebernehmen
      stb_orig = stb.                                         "YHG134557

      IF pm_zstnr IS INITIAL.
         CHECK stb-xtlnr IS INITIAL.
      ENDIF.

      IF NOT pm_idnrk IS INITIAL.
         CHECK stb-idnrk EQ pm_idnrk.
      ENDIF.

*del  IF SY-TABIX = 1.                             "YHG068719 "YHG078090
      IF objty_mrk IS INITIAL.                                "YHG078090
         objty_mrk = stb-objty.                               "YHG068719
      ENDIF.                                                  "YHG068719

      IF     objty_mrk NE stb-objty                           "YHG068719
         AND pm_sortk  NE '2'.                                "YHG068719

         objty_mrk = stb-objty.                               "YHG068719
*d       IF sy-ucomm NE 'CSPR'.                   "YHG068719"note 351902
         IF SV_UCOMM NE 'CSPR'.                             "note 351902
*del        ULINE (81).                             "YHG068719"YHG134557
            ULINE AT /1(siz_linpf).                           "YHG134557
            PERFORM end_page.                                 "YHG068719
         ENDIF.                                               "YHG068719

         NEW-PAGE.                                            "YHG068719
      ENDIF.                                                  "YHG068719

      PERFORM anzeige_01_79.
   ENDLOOP.

   IF sy-subrc <> 0.
      MESSAGE s513 WITH 'E: '.
      EXIT.
   ELSE.                                                      "YHG036694
*d    IF sy-ucomm NE 'CSPR'.                      "YHG036694"note 351902
      IF SV_UCOMM NE 'CSPR'.                                "note 351902
*del     ULINE (81).                                "YHG066003"YHG134557
         ULINE AT /1(siz_linpf).                              "YHG134557
         PERFORM end_page.                                    "YHG036694
      ENDIF.                                                  "YHG036694
   ENDIF.

   PERFORM ausnahmen_ausgeben.

*d IF sy-ucomm EQ 'CSPR'.                         "YHG139336"note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
      SKIP 1.                                                 "YHG139336
*     Ende der Liste
      FORMAT COLOR COL_BACKGROUND.                            "YHG139336
      WRITE: /       text-098 INTENSIFIED.                    "YHG139336
   ENDIF.                                                     "YHG139336
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        CS13_VORBEREITEN                                             *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM cs13_vorbereiten.
   CASE pm_sortk.
      WHEN '1'.
*del     SORT STB ASCENDING BY MAKTX                          "YHG035283
*del     SORT STB ASCENDING BY OJTXP               "YHG035283 "YHG068719
         SORT stb ASCENDING BY objty                          "YHG068719
                  ojtxp ASCENDING                             "YHG068719
                  potx1 ASCENDING                             "YHG056590
                  potx2 ASCENDING                             "YHG056590
                  idnrk ASCENDING
                  dokar ASCENDING                             "YHG041147
                  doknr ASCENDING                             "YHG041147
                  dokvr ASCENDING                             "YHG041147
                  doktl ASCENDING                             "YHG041147
                  sortf ASCENDING
                  sumkz ASCENDING.
      WHEN '2'.
         SORT stb ASCENDING BY sortf
                  idnrk ASCENDING
                  dokar ASCENDING                             "YHG041147
                  doknr ASCENDING                             "YHG041147
                  dokvr ASCENDING                             "YHG041147
                  doktl ASCENDING                             "YHG041147
*del              MAKTX ASCENDING                             "YHG035283
                  ojtxp ASCENDING                             "YHG035283
                  potx1 ASCENDING                             "YHG056590
                  potx2 ASCENDING                             "YHG056590
                  sumkz ASCENDING.
      WHEN OTHERS.
*del     SORT STB ASCENDING BY IDNRK                          "YHG068719
         SORT stb ASCENDING BY objty                          "YHG068719
                  idnrk ASCENDING                             "YHG068719
                  dokar ASCENDING                             "YHG041147
                  doknr ASCENDING                             "YHG041147
                  dokvr ASCENDING                             "YHG041147
                  doktl ASCENDING                             "YHG041147
*del              MAKTX ASCENDING                             "YHG035283
                  ojtxp ASCENDING                             "YHG035283
                  potx1 ASCENDING                             "YHG056590
                  potx2 ASCENDING                             "YHG056590
                  sortf ASCENDING
                  sumkz ASCENDING.
   ENDCASE.

*  ?Fuer Klassenpositionen alle Zuordnungen ausgeben
*  ja
   IF NOT pm_dspco IS INITIAL.                                "YHG079407
*     alle Zuordnungen aller Klassenpositionen besorgen
      PERFORM get_cla_allocs_all.                             "YHG079407
   ENDIF.                                                     "YHG079407
ENDFORM.


FORM END_PAGE.                                                "HGB246532
* completely revised and moved from RCSNN001
* ---------------------------------

data:
   lin_to_skip_to like sy-linno,
   lins_listed    like sy-linno.
* ---------------------------------
   check sy-ucomm ne 'CSPR'.
   FORMAT RESET.

   lins_out = sy-linno.
   lins_listed = lins_per_pag - lins_per_top.

   if lins_out > lins_per_pag.
      LINS_OUT = LINS_OUT - LINS_per_pag.
      DO.
         IF LINS_OUT <= LINS_listed.
            EXIT.
         ENDIF.
         LINS_OUT = LINS_OUT - LINS_listed.
      ENDDO.

      LINS_TO_SKIP = LINS_listed - LINS_OUT.
   else.
      LINS_TO_SKIP = LINS_per_pag - LINS_OUT.
   endif.

   lin_to_skip_to = sy-linno + lins_to_skip.
   skip to line lin_to_skip_to.
   WRITE: / ' '.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        LISTE_DRUCKEN                                                *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM liste_drucken.                                           "YHG053243
   PERFORM cs13.                                              "YHG053243
ENDFORM.                                                      "YHG053243


*eject
*---------------------------------------------------------------------*
*        LTEXT_HOLEN                                                  *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM ltext_holen.
DATA: BEGIN OF txhdr.                                         "HGB057558
         INCLUDE STRUCTURE thead.                             "HGB057558
DATA: END OF txhdr.                                           "HGB057558
*----------------------------------

   CLEAR: txt_key.
   WRITE sy-mandt  TO txt_key USING NO EDIT MASK.
   txt_kyln = strlen( txt_key ).
   WRITE stb-stlty TO txt_key+txt_kyln.
   txt_kyln = strlen( txt_key ).
   WRITE stb-stlnr TO txt_key+txt_kyln USING NO EDIT MASK.
   txt_kyln = strlen( txt_key ).
   WRITE stb-stlkn TO txt_key+txt_kyln.
   txt_kyln = strlen( txt_key ).
   WRITE stb-stpoz TO txt_key+txt_kyln.

*d bom_txid = mbm_txid.                           "HGA029649"note 411978
*d IF stb-stlty EQ typ_knd.                       "HGA029649"note 411978
*d   bom_txid = kbm_txid.                         "HGA029649"note 411978
*d ENDIF.                                         "HGA029649"note 411978

   bom_txid(1) = stb-stlty.                                 "note 411978
   bom_txid+1  = 'PO'.                                      "note 411978

   CALL FUNCTION 'READ_TEXT'
      EXPORTING
            id = bom_txid
*del        LANGUAGE = SY-LANGU                               "YHG062728
            language = stb-ltxsp                              "YHG062728
            name = txt_key
            object = bom_txobj
      IMPORTING                                               "HGB057558
            header = txhdr                                    "HGB057558
      TABLES
*d          lines =  txt.                                     "HGA029649
            lines =  txt                                      "HGA029649
      EXCEPTIONS                                              "HGA029649
            not_found = 1.                                    "HGA029649

   IF sy-subrc = 0.                                           "HGA029649
     PERFORM create_txincl_cmd.                               "HGB057558

     CALL FUNCTION 'TEXT_INCLUDE_REPLACE'                     "HGB057558
        EXPORTING                                             "HGB057558
              header = txhdr                                  "HGB057558
        TABLES                                                "HGB057558
              lines =  txt.                                   "HGB057558
   ENDIF.                                                     "HGA029649
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        NEU_ANZEIGE                                                  *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM neu_anzeige.                                             "YHG079407
   CLEAR: objty_mrk.
*  Liste anzeigen
   PERFORM cs13.
*  Hidebereich loeschen
   PERFORM clr_hide_area.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        OBJ_IDENT                                                    *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM obj_ident.                                               "YHG068719
*  weder Mat noch Doc
*del CHECK: STB-OBJTY = '2' OR STB-OBJTY IS INITIAL.          "YHG079407
   CHECK: stb-objty NE otyp_mat,                              "YHG079407
          stb-objty NE ootyp_mat,                             "HGB099459
          stb-objty NE otyp_doc,                              "YHG079407
          stb-objty NE otyp_ntm.                              "YHG134557

*  ?T418-WA schon ok
*  nein
   IF stb-postp NE t418-postp.
*     T418 einlesen
      PERFORM t418_lesen USING stb-postp.
   ENDIF.

*  ?MatNr-Eingabe bei diesem PosTyp moeglich
*   und keine Textposition
*  trifft zu
   IF     t418-matin NE '-'
      AND t418-txpos IS INITIAL.

*     aktuelles Objekt ist Material NLAG
      stb-objty = '1'.
*     PosKurztext in ObjKurztext uebernehmen.
      stb-ojtxp = stb-potx1.
      MODIFY stb.
   ELSE.
      IF stb-objty IS INITIAL.
         stb-objty = '2'.
         MODIFY stb.
      ENDIF.
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        SEL_GRENZEN_01                                               *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM sel_grenzen_01.
   IF tcs03-lowdt IS INITIAL.
      pm_datuv = syst-datum.
   ELSE.
      pm_datuv = min_grg.
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        SEL_GRENZEN_02                                               *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM sel_grenzen_02.
*del PM_CAPID = TCSPR-CAPID.                                  "YHG049857
*del PM_STLAN = TCSPR-STLAN.                                  "YHG049857

*  ?Report wurde von woanders per Submit gestartet
*  nein
*del IF CSBOMEX-SUBMF IS INITIAL.                   "YHG049857"YHG134557
*  Stuecklistenverwendung aus der ParameterArea vorschlagen
*   GET PARAMETER ID 'CSV' FIELD pm_stlan.                     "YHG049857
*  Stuecklistenanwendung aus der ParameterArea vorschlagen
*   GET PARAMETER ID 'CSA' FIELD pm_capid.                     "YHG049857
*del ENDIF.                                         "YHG049857"YHG134557
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        SET_MARGIN                                                   *
*---------------------------------------------------------------------*
*        in Include RCSNN001 verlagert                        "YHG078090
*---------------------------------------------------------------------*


*eject
*---------------------------------------------------------------------*
*        SET_SCHALTER                                                 *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM set_schalter.                                            "YHG077295
   check csbomex-submf is initial.                            "HGA246532

   IF NOT tcspr-zbgrp IS INITIAL.
      pm_zstnr = 'X'.
   ENDIF.

   IF NOT tcspr-ltext IS INITIAL.                             "HGA127128
      pm_ltext = 'X'.                                         "HGA127128
   ENDIF.                                                     "HGA127128

   IF NOT TCSPR-DSPCO IS INITIAL.                             "HGA246532
      pm_DSPCO = 'X'.                                         "HGA246532
   ENDIF.                                                     "HGA246532

   IF NOT TCSPR-valst IS INITIAL.                             "HGA246532
      pm_alvsa = 'X'.                                         "HGA246532
   ENDIF.                                                     "HGA246532
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        STB_ERWEITERN                                                *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM stb_erweitern.
* ---------------------------------
DATA: hlf_rechf TYPE f.
DATA: lst_index LIKE sy-tabix.                                "HGA246532

* ---------------------------------

   CLEAR: sum_modus.
   CLEAR: cl_clstab,                                          "YHG079407
          cl_objmemo.                                         "YHG079407
   REFRESH: cl_clstab,                                        "YHG079407
            cl_objmemo.                                       "YHG079407

   IF pm_sortk EQ '2'.
      sum_modus = 'x'.
   ENDIF.
   IF NOT pm_ltext IS INITIAL.
      sum_modus+1 = 'x'.
   ENDIF.

   DESCRIBE TABLE stb LINES lst_index.                        "HGA246532

   LOOP AT stb.
      hlp_tabix = sy-tabix.                                   "YHG134431
      PERFORM obj_ident.                                      "YHG068719

      CHECK stb-sumkz NE '*'.

      PERFORM cl_clstab_maint.                                "YHG079407
      sy-tabix = hlp_tabix.                                   "YHG134431
*del  HLP_TABIX = SY-TABIX.                                   "YHG134431

      IF NOT stb-ausnm IS INITIAL.
         PERFORM ausnahme_merken.
      ENDIF.

      CLEAR: summ_flag.
      PERFORM summ_flag_setzen.

      IF summ_flag EQ 'x'.
         IF sum_stb-sumkz IS INITIAL.                         "YHG047511
            CLEAR: hlf_rechf.                                 "YHG047511
         ENDIF.                                               "YHG047511

         PERFORM stb_markieren.

*del     SUM_STB-MNGLG = SUM_STB-MNGLG + STB-MNGLG.           "YHG036694
         IF hlf_rechf < max_num.                              "YHG036694
            hlf_rechf = hlf_rechf + stb-mnglg.                "YHG036694
         ENDIF.                                               "YHG036694
      ELSE.
         IF sum_stb-sumkz = '*'.
            hlf_rechf = hlf_rechf + sum_stb-mnglg.            "YHG044928
            IF hlf_rechf < max_num.                           "YHG036694
               sum_stb-mnglg = hlf_rechf.                     "YHG036694
            ELSE.                                             "YHG036694
               sum_stb-mnglg = max_num.                       "YHG036694
            ENDIF.                                            "YHG036694

            sum_stb-index = lst_index + 1 .                   "HGA246532
            PERFORM sumsatz_aufnehmen.
            hlf_rechf = stb-mnglg.                            "YHG044928
            lst_index = lst_index + 1 .                       "HGA246532
         ENDIF.

*del     SUM_STB = STB.                                       "YHG133751
         MOVE-CORRESPONDING stb TO sum_stb.                   "YHG133751
      ENDIF.
   ENDLOOP.
                                                              "YHG036694
   IF sum_stb-sumkz = '*'.
      hlf_rechf = hlf_rechf + sum_stb-mnglg.                  "YHG047511
      IF hlf_rechf < max_num.                                 "YHG036694
         sum_stb-mnglg = hlf_rechf.                           "YHG036694
      ELSE.                                                   "YHG036694
         sum_stb-mnglg = max_num.                             "YHG036694
      ENDIF.                                                  "YHG036694

      sum_stb-index = lst_index + 1 .                         "HGA246532
      PERFORM sumsatz_aufnehmen.
      CLEAR: hlf_rechf.                                       "YHG047511
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        STB_MARKIEREN                                                *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM stb_markieren.
   DATA: read_index LIKE sy-tabix.

* ----------------------------------
   CLEAR: read_index.

   stb-sumkz = 's'.

   if stb-werks ne sum_stb-werks.                             "HGA025984
      sum_stb-werks = plant_all.                              "HGA025984
   endif.                                                     "HGA025984

   MODIFY stb INDEX sy-tabix.

   IF sum_stb-sumkz NE '*'.
      sum_stb-sumkz = '*'.

      sav_stb = stb.                                          "YHG044928

      read_index = sy-tabix - 1 .
      READ TABLE stb INDEX read_index.

      sum_stb-mnglg = stb-mnglg.

      stb-sumkz = 's'.
      MODIFY stb INDEX sy-tabix.

      stb = sav_stb.                                          "YHG044928
   ENDIF.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        SUMM_FLAG_SETZEN                                             *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM summ_flag_setzen.
   CASE sum_modus.
      WHEN '  '.
*del     IF     STB-IDNRK EQ SUM_STB-IDNRK                    "YHG078090
         IF     stb-msign EQ sum_stb-msign                    "YHG078090
            AND stb-postp EQ sum_stb-postp                    "HGA162016
            AND STB-WERKS EQ SUM_STB-WERKS                  "note 507446
            AND stb-idnrk EQ sum_stb-idnrk                    "YHG078090
            AND stb-dokar EQ sum_stb-dokar                    "YHG041147
            AND stb-doknr EQ sum_stb-doknr                    "YHG041147
            AND stb-dokvr EQ sum_stb-dokvr                    "YHG041147
            AND stb-doktl EQ sum_stb-doktl                    "YHG041147
            AND stb-class EQ sum_stb-class                    "YHG079407
            AND stb-klart EQ sum_stb-klart                    "YHG079407
            AND stb-intrm EQ sum_stb-intrm                    "YHG133751
            AND NOT sum_stb IS INITIAL.

*del        IF STB-IDNRK IS INITIAL.                          "YHG041147
            IF     stb-idnrk IS INITIAL                       "YHG041147
               AND stb-msign EQ sum_stb-msign                 "YHG078090
               AND stb-postp EQ sum_stb-postp                 "HGA162016
               AND stb-dokar EQ sum_stb-dokar                 "YHG041147
               AND stb-doknr EQ sum_stb-doknr                 "YHG041147
               AND stb-dokvr EQ sum_stb-dokvr                 "YHG041147
*del           AND STB-DOKTL EQ SUM_STB-DOKTL.      "YHG041147"YHG079407
               AND stb-doktl EQ sum_stb-doktl                 "YHG079407
               AND stb-class EQ sum_stb-class                 "YHG079407
*del           AND STB-KLART EQ SUM_STB-KLART.      "YHG079407"YHG133751
               AND stb-klart EQ sum_stb-klart                 "YHG133751
               AND stb-intrm EQ sum_stb-intrm.                "YHG133751
               IF     sum_stb-potx1 EQ stb-potx1
                  AND sum_stb-potx2 EQ stb-potx2.
                     summ_flag = 'x'.
               ENDIF.
            ELSE.
               summ_flag = 'x'.
            ENDIF.
         ENDIF.
      WHEN 'x '.
*del     IF     STB-IDNRK EQ SUM_STB-IDNRK                    "YHG078090
         IF     stb-msign EQ sum_stb-msign                    "YHG078090
            AND stb-postp EQ sum_stb-postp                    "HGA162016
            AND STB-WERKS EQ SUM_STB-WERKS                  "note 507446
            AND stb-idnrk EQ sum_stb-idnrk                    "YHG078090
            AND stb-dokar EQ sum_stb-dokar                    "YHG041147
            AND stb-doknr EQ sum_stb-doknr                    "YHG041147
            AND stb-dokvr EQ sum_stb-dokvr                    "YHG041147
            AND stb-doktl EQ sum_stb-doktl                    "YHG041147
            AND stb-class EQ sum_stb-class                    "YHG079407
            AND stb-klart EQ sum_stb-klart                    "YHG079407
            AND stb-intrm EQ sum_stb-intrm                    "YHG133751
            AND stb-sortf EQ sum_stb-sortf
            AND NOT sum_stb IS INITIAL.

*del        IF STB-IDNRK IS INITIAL.                          "YHG041147
            IF    stb-idnrk IS INITIAL                        "YHG041147
               AND stb-msign EQ sum_stb-msign                 "YHG078090
               AND stb-postp EQ sum_stb-postp                 "HGA162016
               AND stb-dokar EQ sum_stb-dokar                 "YHG041147
               AND stb-doknr EQ sum_stb-doknr                 "YHG041147
               AND stb-dokvr EQ sum_stb-dokvr                 "YHG041147
*del           AND STB-DOKTL EQ SUM_STB-DOKTL.      "YHG041147"YHG079407
               AND stb-doktl EQ sum_stb-doktl                 "YHG079407
               AND stb-class EQ sum_stb-class                 "YHG079407
*del           AND STB-KLART EQ SUM_STB-KLART.      "YHG079407"YHG133751
               AND stb-klart EQ sum_stb-klart                 "YHG133751
               AND stb-intrm EQ sum_stb-intrm.                "YHG133751
               IF     sum_stb-potx1 EQ stb-potx1
                  AND sum_stb-potx2 EQ stb-potx2.
                     summ_flag = 'x'.
               ENDIF.
            ELSE.
               summ_flag = 'x'.
            ENDIF.
         ENDIF.
      WHEN ' x'.
*del     IF     STB-IDNRK EQ SUM_STB-IDNRK                    "YHG078090
         IF     stb-msign EQ sum_stb-msign                    "YHG078090
            AND stb-postp EQ sum_stb-postp                    "HGA162016
            AND STB-WERKS EQ SUM_STB-WERKS                  "note 507446
            AND stb-idnrk EQ sum_stb-idnrk                    "YHG078090
            AND stb-dokar EQ sum_stb-dokar                    "YHG041147
            AND stb-doknr EQ sum_stb-doknr                    "YHG041147
            AND stb-dokvr EQ sum_stb-dokvr                    "YHG041147
            AND stb-doktl EQ sum_stb-doktl                    "YHG041147
            AND stb-class EQ sum_stb-class                    "YHG079407
            AND stb-klart EQ sum_stb-klart                    "YHG079407
            AND stb-intrm EQ sum_stb-intrm                    "YHG133751
            AND stb-potx1 EQ sum_stb-potx1
            AND stb-potx2 EQ sum_stb-potx2.
            summ_flag = 'x'.
         ENDIF.
      WHEN 'xx'.
*del     IF     STB-IDNRK EQ SUM_STB-IDNRK                    "YHG078090
         IF     stb-msign EQ sum_stb-msign                    "YHG078090
            AND stb-postp EQ sum_stb-postp                    "HGA162016
            AND STB-WERKS EQ SUM_STB-WERKS                  "note 507446
            AND stb-idnrk EQ sum_stb-idnrk                    "YHG078090
            AND stb-dokar EQ sum_stb-dokar                    "YHG041147
            AND stb-doknr EQ sum_stb-doknr                    "YHG041147
            AND stb-dokvr EQ sum_stb-dokvr                    "YHG041147
            AND stb-doktl EQ sum_stb-doktl                    "YHG041147
            AND stb-class EQ sum_stb-class                    "YHG079407
            AND stb-klart EQ sum_stb-klart                    "YHG079407
            AND stb-intrm EQ sum_stb-intrm                    "YHG133751
            AND stb-potx1 EQ sum_stb-potx1
            AND stb-potx2 EQ sum_stb-potx2
            AND stb-sortf EQ sum_stb-sortf.
            summ_flag = 'x'.
         ENDIF.
   ENDCASE.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        SUMSATZ_AUFNEHMEN                                            *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM sumsatz_aufnehmen.
   sav_stb = stb.

   CLEAR: stb.

*d STB = SUM_STB.                                             "YHG133751
   IF pm_sortk NE '2'.                                        "YHG019433
      CLEAR: sum_stb-sortf.                                   "YHG019433
   ENDIF.                                                     "YHG019433
   MOVE-CORRESPONDING sum_stb TO stb.                         "YHG133751

   CLEAR: stb-datuv,
          stb-datub.
   APPEND stb.

   stb = sav_stb.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        T418_LESEN                                                   *
*---------------------------------------------------------------------*
*        -->                                                          *
*                                                                     *
*        <-- T418-WA                                                  *
*                                                                     *
*---------------------------------------------------------------------*
FORM t418_lesen USING lkl_postp.
*  T418-WA initialisieren
   CLEAR:
      t418.

*  Key angeben
   t418-postp = lkl_postp.
*  PosTypDefinition lesen
   READ TABLE t418.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        TCS03_LESEN                                                  *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM tcs03_lesen.
   tcs03-agb29 = '29'.
   READ TABLE tcs03.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        TCSPR_LESEN                                                  *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM tcspr_lesen.
   tcspr-csusr = sy-uname.
   READ TABLE tcspr.

   IF sy-subrc <> 0.                                          "HGG099459
      tcspr-csusr = 'DUMMY'.                                  "HGG099459
      READ TABLE tcspr.                                       "HGG099459
   ENDIF.                                                     "HGG099459
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        TOP_01_79                                                    *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM top_01_79.
*d CHECK sy-ucomm NE 'CSSL'.                      "YHG139715"note 351902
   CHECK SV_UCOMM NE 'CSSL'.                                "note 351902
* ---------------------------------
* Routine im wesentlichen nach TOP_01_79_DRUCK uebernommen
* ---------------------------------
*del FORMAT INTENSIFIED.                           "YHG036694 "YHG066003

*del  IF SY-UCOMM NE 'CSPR'.                       "YHG036694 "YHG066003
*del     WRITE: /       TEXT-002,                  "YHG036694 "YHG066003
*del             70     SY-DATUM DD/MM/YYYY.       "YHG036694 "YHG066003
*del     ULINE.                                    "YHG036694 "YHG066003
*del  ENDIF.                                       "YHG036694 "YHG066003

*del IF SY-UCOMM NE 'CSPR'.                         "YHG066003"YHG134557
   PERFORM top_01_79_liste.                                   "YHG066003
*del ELSE.                                          "YHG066003"YHG134557
*del    PERFORM TOP_01_79_DRUCK.                    "YHG066003"YHG134557
*del ENDIF.                                         "YHG066003"YHG134557
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        TOP_01_79_DRUCK                                              *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  entfaellt mit var. Liste                                   "YHG134557
*del FORM TOP_01_79_DRUCK.
*del ENDFORM.


*eject
*---------------------------------------------------------------------*
*        TOP_01_79_LISTE                                              *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
*  komplett ueberarbeitet
FORM top_01_79_liste.                                         "YHG066003

   CASE objty_mrk.                                            "YHG068719
      WHEN '1'.                                               "YHG068719
         IF page_mat < 1.                                     "YHG068719
            page_mat = sy-pagno.                              "YHG068719
         ENDIF.                                               "YHG068719
      WHEN 'M'.                                               "HGB099459
         IF page_mat < 1.                                     "HGB099459
            page_mat = sy-pagno.                              "HGB099459
         ENDIF.                                               "HGB099459
      WHEN '2'.                                               "YHG068719
         IF page_noo < 1.                                     "YHG068719
            page_noo = sy-pagno.                              "YHG068719
         ENDIF.                                               "YHG068719
      WHEN '3'.                                               "YHG068719
         IF page_dok < 1.                                     "YHG068719
            page_dok = sy-pagno.                              "YHG068719
         ENDIF.                                               "YHG068719
      WHEN '4'.                                               "YHG000109
         IF page_kla < 1.                                     "YHG000109
            page_kla = sy-pagno.                              "YHG000109
         ENDIF.                                               "YHG000109
   ENDCASE.                                                   "YHG068719

*  Zeilenzaehler initialisieren
   CLEAR: blclns_cnt.
*  SAV-WATAB-Entry initialisieren
   CLEAR: sav_watab.
*  SAV-WATAB leeren
   REFRESH: sav_watab.

*  die aktuellen WATab-Eintraege (var. Liste)
*del LOOP AT WATAB.                                           "YHG020009
*     ... nach SAV_WATAB ...
*del  SAV_WATAB = WATAB.                                      "YHG020009
*     ... sichern
*del  APPEND SAV_WATAB.                                       "YHG020009
*del ENDLOOP.                                                 "YHG020009
   sav_watab[] = watab[].                                     "YHG020009

*  ?EinstiegsStl ist MehrfachStl
*  ja
   IF NOT selpool-stlal IS INITIAL.
*     fuehrende Nullen der AlternativenNr entfernen
      IF selpool-stlal(1) = '0'.
         selpool-stlal(1) = ' '.
      ENDIF.
*  nein, keine MehrfachStl
   ELSE.
*     AlternativenNr loeschen
      CLEAR: selpool-stlal.
   ENDIF.

*  Ausgabeformat festlegen
   FORMAT COLOR COL_BACKGROUND INTENSIFIED OFF.

*  ?Druck
*  ja
*d IF sy-ucomm EQ 'CSPR'.                                   "note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
*     Strich auf Zeile 2 mit Strichlinie aus AnzBlock ueberschreiben
*del  SKIP TO LINE 2.                                         "YHG139336
*del  SKIP TO LINE 1.                               "YHG139336"YHG137563
      SKIP TO LINE 2.                                         "YHG137563
   ENDIF.

*  WATAB initialisieren und komplett leeren
   CLEAR: watab. REFRESH: watab.
*  Uebergabestruktur (Typ CSTMAT) ...
*d watab-tname = 'CSTMAT'. watab-table = selpool .                   "uc
   WATAB-TNAME = 'CSTMAT'.                                           "uc
   assign watab-table to <x_watab-table>  casting.                   "uc
   assign selpool    to <x_CSTMAT_wa>     casting.                   "uc
   <x_watab-table> = <x_CSTMAT_wa> .                                 "uc
*  ... sichern
   APPEND watab.

*  WATAB initialisieren
   CLEAR: watab,
          stb_add.

   stb_add-sldtv = pm_datuv.
   stb_add-pspnr = pm_pspnr.                                  "HGA046836
   stb_add-vbeln = pm_vbeln.                                  "HGC072185
   stb_add-vbpos = pm_vbpos.                                  "HGC072185

*  Uebergabestruktur (Typ STPOL_ADD).
*d watab-tname = 'STPOL_ADD'. watab-table = stb_add .                "uc
   WATAB-TNAME = 'STPOL_ADD'.                                        "uc
   assign watab-table to <x_watab-table>  casting.                   "uc
   assign stb_add     to <x_STPOL_ADD_wa> casting.                   "uc
   <x_watab-table> = <x_STPOL_ADD_wa> .                              "uc
*  ... sichern
   APPEND watab.

*  WATAB initialisieren
   CLEAR watab.
*  Listenkopf ausgeben
   PERFORM write_block
      USING 'LISTHDR           '
*           ausgegebene Zeilen zaehlen
            'x'
*           Hide nicht ausfuehren
            ' '.                                              "YHG123656

   IF ausntp_flg IS INITIAL.
*     WATAB initialisieren und komplett leeren
      CLEAR: watab. REFRESH: watab.
*     Uebergabestruktur (Typ STPOX) ...
      watab-tname = 'STPOX'.
*     ... sichern
      APPEND watab.

*     WATAB initialisieren und komplett leeren
*del  CLEAR: WATAB.                                           "YHG133751
*     Uebergabestruktur (Typ CSCMAT) ...
*del  WATAB-TNAME = 'CSCMAT'. WATAB-TABLE = MATCAT.           "YHG133751
*     ... sichern
*del  APPEND WATAB.                                           "YHG133751

*     WATAB initialisieren
      CLEAR watab.
*     Uebergabestruktur (Typ STPOL_ADD) ...
      watab-tname = 'STPOL_ADD'.
*     ... sichern
      APPEND watab.

*     WATAB initialisieren
      CLEAR watab.

*     Ausgabe festlegen
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
*     Listenueberschrift ausgeben
      PERFORM write_block
         USING 'LISTHDNG          '
*              ausgegebene Zeilen zaehlen
               'x'
*              Hide ausfuehren
               ' '.                                           "YHG123656
   ENDIF.

*  WATab-Entry (var. Liste) initialisieren
   CLEAR: watab.
*  WATab (var. Liste) leeren
   REFRESH: watab.

*  gesicherte Saetze aus SAV_WATAB
*del LOOP AT SAV_WATAB.                                       "YHG020009
*     wieder nach WATAB ...
*del  WATAB = SAV_WATAB.                                      "YHG020009
*     ... uebernehmen
*del  APPEND WATAB.                                           "YHG020009
*del ENDLOOP.                                                 "YHG020009
   watab[] = sav_watab[].                                     "YHG020009

*  Anzahl Zeilen Listenkopf sichern
   nbr_hdrlns = blclns_cnt.
*  Reset Zeilenzaehler
   CLEAR: blclns_cnt.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        WRITE_BLOCK                                                  *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM write_block                                              "YHG133914
     USING lcl_blcnm
           lcl_lncnt
           lcl_hidef.                                         "YHG123656

DATA: first_swt(1) TYPE c.
* ---------------------------------

*d IF sy-ucomm EQ 'CSPR'.                         "HGB020150"note 351902
   IF SV_UCOMM EQ 'CSPR'.                                   "note 351902
     read table prrsv_tb                                      "HGB020150
       with key lcl_blcnm.                                    "HGB020150

     reserve prrsv_tb-maxln lines.                            "HGB020150
   endif.                                                     "HGB020150

*  Kennzeichen 'erste Zeile ausgeben' setzen
   first_swt = 'x'.

*  bis zum St. Nimmerleinstag
   DO.
*     Zeile ausgeben
      PERFORM write_line
*del     USING 'SAPCSSMXM         '                           "YHG137424
         USING list_id                                        "YHG137424
               act_profil
               lcl_blcnm
               first_swt
               ' '.

*     ?Ist die auszugebende Zeile leer (und sitzt BLANK-LINES OFF!!)
*     nein
      IF lnmpt_flg IS INITIAL.
*        ?sollen die ausgegebenen Zeilen (weiter-) gezaehlt werden
*        ja
         IF NOT lcl_lncnt IS INITIAL.
*           Zeilenzaehler um eins erhoehen
            blclns_cnt = blclns_cnt + 1 .
         ENDIF.

*        ?wird gerade gedruckt
*        nein
*d       IF sy-ucomm NE 'CSPR'.                             "note 351902
         IF SV_UCOMM NE 'CSPR'.                             "note 351902
*           gib die Rahmenstriche aus
            WRITE 1 sy-vline.
            WRITE AT siz_linpf sy-vline.

*           ... und - wenn gewuenscht -
            IF NOT lcl_hidef IS INITIAL.                      "YHG123656
*              ... versorge den HIDE-Bereich
               PERFORM hide_routine_01.
            ENDIF.                                            "YHG123656

            IF     lcl_blcnm EQ 'ITEM_M            '          "HGB084505
               AND     mpos_line  IS INITIAL                  "HGB084505
               AND NOT first_swt  IS INITIAL                  "HGB084505
               AND NOT matpos_flg IS INITIAL                  "HGB084505
               AND matcat-matnr   EQ pm_mtnrv.                "HGB084505

               mpos_page = syst-pagno.                        "HGB084505
               mpos_line = syst-linno - nbr_hdrlns - 2.       "HGB084505

               IF mpos_line < 1.                              "HGB084505
                  mpos_line = 1.                              "HGB084505
               ENDIF.                                         "HGB084505
            ENDIF.                                            "HGB084505
         ELSE.                                                "YHG140031
            IF sy-colno = 1.                                  "YHG140031
               SKIP.                                          "YHG140031
            ENDIF.                                            "YHG140031
         ENDIF.
      ENDIF.

*     ?sitzt EndOfBlock-Kennzeichen
*     ja
      IF NOT eoblc IS INITIAL.
*        ... dann Schleife beenden
         EXIT.
      ENDIF.

*     Kennzeichen 'erste Zeile ausgeben' zuruecknehmen
      CLEAR: first_swt.
   ENDDO.
ENDFORM.


*eject
*---------------------------------------------------------------------*
*        WRITE_LINE                                                   *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*
FORM write_line
  "YHG133914
   USING lcl_lstid
         lcl_profl
         lcl_blcnm
         lcl_first
         lcl_nline.

DATA: val_shift LIKE sy-cucol.


* ---------------------------------
*  ?wenn nicht gedruckt wird, ...
*d IF sy-ucomm NE 'CSPR'.                                   "note 351902
   IF SV_UCOMM NE 'CSPR'.                                   "note 351902
*     ... Blockausgabe um eine Stelle nach rechts verschieben
      val_shift = 1 .
*  sonst ...
   ELSE.
*     ... nicht
      CLEAR: val_shift.
   ENDIF.

*  neue Zeile
   NEW-LINE.

*  ?wird gerade gedruckt
*  nein
*d IF sy-ucomm NE 'CSPR'.                                   "note 351902
   IF SV_UCOMM NE 'CSPR'.                                   "note 351902
*     Leerzeile in Profillaenge + 2 ausgeben
      WRITE AT 2(sav_prfsz) ecfld.
**  ja, es wird gedruckt
*   ELSE.
**     Hintergrundfarben etc. ausschalten
*      FORMAT RESET.
   ENDIF.

*  Zeile endgueltig ausgeben
   CALL FUNCTION 'CS_VLIST_BLOCK_PROCESSING'
        EXPORTING
             blcnm = lcl_blcnm
             lstid = lcl_lstid
             profl = lcl_profl
             first = lcl_first
             rshift = val_shift
             newline = lcl_nline
        IMPORTING
             eoblc = eoblc
             lnmpt = lnmpt_flg
        TABLES
             watab = watab
        EXCEPTIONS
             call_invalid = 4.
ENDFORM.


*. Here begins ALV section ............................       "HGA246532
FORM alv_dsp_sel_dsp.
*...................................

DATA:
  sel_fields_tb    TYPE slis_t_fieldcat_alv,
  wa_sel_fields_tb TYPE slis_fieldcat_alv.

DATA:
  alvlo_sel TYPE slis_layout_alv.
*....................................

  PERFORM alv_dsp_sel_prep.

  PERFORM alv_evnt_tb_prep
    USING
      'B'
      alv_evnt_tb_pfxt.

  wa_sel_fields_tb-fieldname = 'TEXT'.
  wa_sel_fields_tb-outputlen = 30.
  wa_sel_fields_tb-col_pos   = 1.
  APPEND wa_sel_fields_tb TO sel_fields_tb.

  wa_sel_fields_tb-fieldname = 'WERT'.
  wa_sel_fields_tb-outputlen = 32.
  wa_sel_fields_tb-col_pos   = 2.
  APPEND wa_sel_fields_tb TO sel_fields_tb.

  WRITE text-050 TO alvlo_sel-window_titlebar.

  alvvr-handle = '2'.                                         "note 877609
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = report_name
      is_layout          = alvlo_sel
      i_save             = ' '
      is_variant         = alvvr                              "note 877609
      it_fieldcat        = sel_fields_tb
      it_events          = alv_evnt_tb_pfxt
      i_screen_start_column    = 7
      i_screen_start_line      = 8
      i_screen_end_column      = 71
      i_screen_end_line        = 16
    IMPORTING
      e_exit_caused_by_caller = exit_by_caller
      es_exit_caused_by_user  = exit_by_user
    TABLES
      t_outtab = dsp_sel
    EXCEPTIONS
      program_error = 1
      OTHERS        = 2.

  IF sy-subrc = 0.
    IF exit_by_caller = 'X'.
*     Forced Exit by calling program
*     <do_something>.
    ELSE.
*     User left list via F3, F12 or F15
      IF exit_by_user-back = 'X'.       "F3
*       <do_something>.
      ELSE.
        IF exit_by_user-exit = 'X'.     "F15
*         <do_something>.
        ELSE.
          IF exit_by_user-cancel = 'X'. "F12
*           <do_something>.
          ELSE.
*           should not occur!
*           <do_Abnormal_End>.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
*   Fatal error callin ALV
*   MESSAGE AXXX(XY) WITH ...
  ENDIF.
ENDFORM. "alv_dsp_sel_dsp


FORM alv_dsp_sel_prep.
*...................................

  CHECK dsp_sel[] IS INITIAL.

  READ TEXTPOOL sy-repid INTO txt_sel.

  CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
      curr_report     = report_name
    TABLES
      selection_table = inp_sel
    EXCEPTIONS
      not_found       = 01
      no_report       = 02.

  LOOP AT inp_sel
    WHERE selname NE 'PM_HEMNG'
      AND selname NE 'PM_DSPCO'
      AND selname NE 'PM_DSPRF'
      AND selname NE 'PM_LTEXT'
      AND selname NE 'PM_PRPRF'.

    LOOP AT txt_sel
*d    WHERE id+1 EQ inp_sel-selname.                                 "uc
      WHERE key EQ inp_sel-selname.                                  "uc

*d    ASSIGN (txt_sel-id+1) TO <pm_name>.                            "uc
      ASSIGN (txt_sel-key) TO <pm_name>.                             "uc
      IF NOT <pm_name> IS INITIAL.
*d      dsp_sel-text = txt_sel-text+8.                               "uc
        dsp_sel-text = txt_sel-entry.                                "uc

        dsp_sel-wert = inp_sel-low.

        IF inp_sel-selname EQ 'PM_DATUV'.
          CLEAR:
            dsp_sel-wert.
          WRITE pm_datuv TO dsp_sel-wert.
        ENDIF.

        IF    inp_sel-selname EQ 'PM_EMENG'
          AND NOT pm_emeng IS INITIAL.

          CLEAR:
            dsp_sel-wert.
          WRITE pm_emeng TO dsp_sel-wert DECIMALS 3.

          WHILE dsp_sel-wert(1) EQ space.
            SHIFT dsp_sel-wert LEFT.
          ENDWHILE.
        ENDIF.

        APPEND dsp_sel.
      ENDIF.
    ENDLOOP.
  ENDLOOP.

  SORT dsp_sel BY text.

  CHECK NOT ecm_sl[] IS INITIAL.

  REFRESH:
    dsp_sel2.

  CLEAR:
    dsp_sel.
  dsp_sel-text = '_'.
  APPEND dsp_sel.

  dsp_sel-text = text-020.
  APPEND dsp_sel.

  LOOP AT ecm_sl INTO wa_ecm_sl.
    CHECK NOT wa_ecm_sl-value IS INITIAL.
    CHECK NOT wa_ecm_sl-fieldname EQ 'DATE_LO'.

    dsp_sel2-text = wa_ecm_sl-text.

    dsp_sel2-wert = wa_ecm_sl-value.
    APPEND dsp_sel2.
  ENDLOOP.

  APPEND LINES OF dsp_sel2 TO dsp_sel.
ENDFORM. "alv_dsp_sel_prep


FORM alv_evnt_tb_prep
  USING
    event_spec TYPE c
    event_tb TYPE slis_t_event.
*..................................

DATA:
  wa_event_tb TYPE slis_alv_event.
*..................................

  CHECK event_tb[] IS INITIAL.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = event_tb.

  CASE event_spec.
*   complete
    WHEN 'A'.
      READ TABLE event_tb
        WITH KEY name = slis_ev_top_of_page
        INTO wa_event_tb.

      IF sy-subrc = 0.
        wa_event_tb-form = 'ALV_TOP_OF_PAGE'.
        APPEND wa_event_tb TO event_tb.
      ENDIF.


      READ TABLE event_tb
        WITH KEY name = slis_ev_user_command
        INTO wa_event_tb.

      IF sy-subrc = 0.
        wa_event_tb-form = 'ALV_USER_COMMAND'.
        APPEND wa_event_tb TO event_tb.
      ENDIF.


      READ TABLE event_tb
        WITH KEY name = slis_ev_pf_status_set
        INTO wa_event_tb.

      IF sy-subrc = 0.
        wa_event_tb-form = 'ALV_PF_STATUS_SET_MAIN'.
        APPEND wa_event_tb TO event_tb.
      ENDIF.

*   PF EXIT only
    WHEN 'B'.
      READ TABLE event_tb
        WITH KEY name = slis_ev_pf_status_set
        INTO wa_event_tb.

      IF sy-subrc = 0.
        wa_event_tb-form = 'ALV_PF_STATUS_SET_EXIT'.
        APPEND wa_event_tb TO event_tb.
      ENDIF.
  ENDCASE.
ENDFORM. "alv_evnt_tb_prep


FORM alv_pf_status_set_exit
  USING
    rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'SNN1'
    EXCLUDING rt_extab.
ENDFORM. "alv_pf_status_set_exit


FORM alv_pf_status_set_main
  USING
    rt_extab TYPE slis_t_extab.

*  SET PF-STATUS 'S131_ALV'
*    EXCLUDING rt_extab.
ENDFORM. "alv_pf_status_set_main


FORM alv_stb_prep.
*..................................

  CHECK stb-sumkz NE 's'.

  IF stb-idnrk IS INITIAL.
    IF stb-doknr IS INITIAL.
      IF stb-class IS INITIAL.
        anz_meins = stb-meins.
        anz_ktext = stb-potx1.
      ELSE.
        anz_meins = stb-meins.
        anz_ktext = stb-ojtxp.
      ENDIF.
    ELSE.
      anz_meins = stb-meins.
      anz_ktext = stb-ojtxp.
    ENDIF.
  ELSE.
    anz_meins = stb-mmein.
    anz_ktext = stb-ojtxp.
  ENDIF.

  IF stb-mnglg >= max_num.
    ueberl_flg = ueberl_kz.
  ELSE.
    IF stb-mnglg <= min_num.
      ueberl_flg = ueberl_kz.
    ELSE.
      CLEAR: ueberl_flg.
    ENDIF.
  ENDIF.

  CLEAR:
    stb_add-dobjt,
    stb_add-objic.

  CASE stb_orig-objty.
    WHEN otyp_mat.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.

    WHEN 'M'.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.

    WHEN otyp_noo.
      WRITE: stb_orig-potx1 TO ecfld.
      stb_add-objic = '@0Q@'.

    WHEN otyp_doc.
      write stb_orig-doknr to ecfld.                        "note 489354

      IF ecfld CP '*# '. ENDIF.                             "note 489354
      sy-fdpos = sy-fdpos + 1.                              "note 489354

      CONCATENATE
*d      stb_orig-doknr                                      "note 489354
        stb_orig-dokar
        stb_orig-doktl
        stb_orig-dokvr
*d      INTO ecfld                                          "note 489354
        INTO ecfld+sy-fdpos                                 "note 489354
        SEPARATED BY space.

      stb_add-objic = '@AR@'.

    WHEN otyp_kla.
      CONCATENATE
        stb_orig-class
        stb_orig-klart
        INTO ecfld
        SEPARATED BY space.

      stb_add-objic = '@7C@'.

    WHEN otyp_ntm.
      WRITE: stb_orig-intrm TO ecfld.

    WHEN OTHERS.
  ENDCASE.

*d  CONDENSE ecfld.                                         "note 515408
  stb_add-dobjt = ecfld(40).
  CLEAR: ecfld.

  stb_add-ovfls = ueberl_flg.
  stb_add-dunit = anz_meins.

  IF NOT stb_orig-xtlnr IS INITIAL.
    stb_add-bomfl = b_flag.
  ENDIF.

  IF NOT stb_orig-knobj IS INITIAL.
    stb_add-knofl = 'X'.
  ENDIF.

*d  MOVE-CORRESPONDING stb_orig TO alv_stb.                 "note 331962
  MOVE-CORRESPONDING stb_add TO alv_stb.
  MOVE-CORRESPONDING stb_orig TO alv_stb.                   "note 331962

* Phantom item adjusted for ALV filtering                   "Note 1327742
  IF NOT alv_stb-dumps IS INITIAL.                          "Note 1327742
    TRANSLATE alv_stb-dumps TO UPPER CASE.  "#EC TRANSLANG  "Note 1327742
  ENDIF.                                                    "Note 1327742

  APPEND alv_stb.
ENDFORM. "alv_stb_prep


FORM alv_top_of_page.
*.....................................

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = alv_top_tb.
ENDFORM. "alv_top_of_page


FORM alv_top_tb_prep
  USING
    top_tb TYPE slis_t_listheader.
*......................................

DATA:
  wa_top_tb TYPE slis_listheader.

DATA:
  lkl_matnr like mara-matnr.                               "note 363714
*......................................

* CLEAR wa_top_tb.
* wa_top_tb-typ  = 'H'.
* CONCATENATE
*   text-001
*   text-002
*   INTO wa_top_tb-info
*   SEPARATED BY space(1).
* APPEND wa_top_tb TO top_tb.

  CLEAR wa_top_tb.

  if    not pm_vbeln is initial
    and pm_pspnr is initial.

    wa_top_tb-typ  = 'S'.
    ecfld    = text-025.
    ecfld+13 = '/'.
    ecfld+14 = text-026.
    wa_top_tb-key  = ecfld(19).
    condense wa_top_tb-key.
    CLEAR: ecfld.

    concatenate
      pm_vbeln
      pm_vbpos
      into wa_top_tb-info
      separated by ' / '.

    APPEND wa_top_tb TO top_tb.
  endif.

  if    not pm_pspnr is initial
    and pm_vbeln is initial.

    wa_top_tb-typ  = 'S'.
    ecfld = text-028.
    ecfld+13 = '/'.
    ecfld+14 = text-029.
    wa_top_tb-key  = ecfld(19).
    condense wa_top_tb-key no-gaps.
    CLEAR: ecfld.

    write pm_pspnr to wa_top_tb-info.
    wa_top_tb-info+25 = '/'.
    wa_top_tb-info+27 = pm_mtnrv.
    condense wa_top_tb-info.
    APPEND wa_top_tb TO top_tb.
  endif.

  if wa_top_tb is initial.
    wa_top_tb-typ  = 'S'.
    ecfld = text-010.
    wa_top_tb-key  = ecfld(11).
    CLEAR: ecfld.
*ENHANCEMENT-SECTION     RCS13001_L1 SPOTS ES_RCS13001.
    write pm_mtnrv to lkl_matnr.                            "note 363714
*d  wa_top_tb-info = pm_mtnrv.                              "note 363714
    wa_top_tb-info = lkl_matnr.                             "note 363714
*END-ENHANCEMENT-SECTION.
*$*$-Start: RCS13001_L1-------------------------------------------------------------------------$*$*
*ENHANCEMENT 1  MGV_MATNR_LAMA_RCS13001.    "active version
    write pm_mtnrv to wa_top_tb-info.                       " DI note 577359

*ENDENHANCEMENT.
*$*$-End:   RCS13001_L1-------------------------------------------------------------------------$*$*
    APPEND wa_top_tb TO top_tb.
  endif.

  CLEAR wa_top_tb.
  wa_top_tb-typ  = 'S'.
  ecfld    = text-005.
  ecfld+5  = '/'.
  ecfld+6  = text-006.
  ecfld+11 = '/'.
  ecfld+12 = text-014.
  wa_top_tb-key  = ecfld(17).
  condense wa_top_tb-key no-gaps.
  CLEAR: ecfld.

  CONCATENATE
    selpool-werks
    selpool-stlan
    selpool-stlal
    INTO wa_top_tb-info
    SEPARATED BY ' / '.
  APPEND wa_top_tb TO top_tb.

  CLEAR wa_top_tb.
  wa_top_tb-typ  = 'S'.
  wa_top_tb-key = text-019.
  condense wa_top_tb-key.
  wa_top_tb-info = selpool-maktx.
  APPEND wa_top_tb TO top_tb.

  CLEAR wa_top_tb.
  wa_top_tb-typ  = 'S'.
  ecfld = text-013.
  ecfld+13 = ' ('.
* ecfld+15 = selpool-bmein.                                  "NOTE_975832
  Write selpool-bmein to ecfld+15(3).                        "NOTE_975832
  ecfld+18 = ')'.
  wa_top_tb-key  = ecfld(19).
  CLEAR: ecfld.

*d wa_top_tb-info = selpool-bmeng.                          "note 317957
  write selpool-bmeng to wa_top_tb-info .                   "note 317957
  condense wa_top_tb-info.
  APPEND wa_top_tb TO top_tb.

* ^_NOTE_811372

  CLEAR wa_top_tb.
  wa_top_tb-typ = 'S'.
  ecfld = text-009.
  ecfld+11 = ' ('.
* ecfld+13 = selpool-emgme.                                  "NOTE_975832
  Write selpool-emgme to ecfld+13(3).                        "NOTE_975832
  ecfld+16 = ')'.
  wa_top_tb-key  = ecfld(17).
  CLEAR: ecfld.
  write selpool-emeng to wa_top_tb-info unit selpool-bmein.
  CONDENSE wa_top_tb-info.
  APPEND wa_top_tb TO top_tb.

*v_NOTE_811372

  CLEAR wa_top_tb.
  wa_top_tb-typ  = 'S'.
* so it looks better
  APPEND wa_top_tb TO top_tb.
ENDFORM. "alv_top_tb_prep


FORM alv_user_command
  USING i_ucomm LIKE sy-ucomm
    i_selfield TYPE slis_selfield.
*.......................................

  CASE i_ucomm.
    when 'ANMS'.                                              "HGA020150
      leave to transaction sy-tcode.                          "HGA020150

    WHEN 'CSAP' or '&IC1'.
      SORT stb BY index.

      READ TABLE alv_stb INDEX i_selfield-tabindex.
      READ TABLE stb INDEX alv_stb-index.
      READ TABLE matcat INDEX stb-ttidx.

      PERFORM position_anzeigen.

    WHEN 'CSAO'.
      SORT stb BY index.

      READ TABLE alv_stb INDEX i_selfield-tabindex.
      READ TABLE stb INDEX alv_stb-index.

      PERFORM objekt_anzeigen.

    WHEN 'CSWU'.
      SORT stb BY index.

      READ TABLE alv_stb INDEX i_selfield-tabindex.
      READ TABLE stb INDEX alv_stb-index.

      PERFORM verwendung_anzeigen.

    WHEN 'CSSL'.
      PERFORM alv_dsp_sel_dsp.

    WHEN 'CSSX'.
      PERFORM alv_xcpt_tb_dsp.

  ENDCASE.
ENDFORM. "alv_user_command


FORM alv_xcpt_tb_dsp.
*.......................................

DATA:
  xcpt_fields_tb    TYPE slis_t_fieldcat_alv,
  wa_xcpt_fields_tb TYPE slis_fieldcat_alv.

DATA:
  alvlo_xcpt TYPE slis_layout_alv.
*.......................................

  PERFORM alv_xcpt_tb_prep.

  PERFORM alv_evnt_tb_prep
    USING
      'B'
      alv_evnt_tb_pfxt.

  wa_xcpt_fields_tb-fieldname = 'DOBJT'.
  wa_xcpt_fields_tb-outputlen = 42.
  wa_xcpt_fields_tb-col_pos   = 1.
  APPEND wa_xcpt_fields_tb TO xcpt_fields_tb.

  wa_xcpt_fields_tb-fieldname = 'OJTXP'.
  wa_xcpt_fields_tb-outputlen = 40.
  wa_xcpt_fields_tb-col_pos   = 2.
  APPEND wa_xcpt_fields_tb TO xcpt_fields_tb.

  WRITE text-030 TO alvlo_xcpt-window_titlebar.
  alvlo_xcpt-info_fieldname = 'INFO'.

  alvvr-handle = '3'.                                         "note 877609
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = report_name
      is_layout          = alvlo_xcpt
      i_save             = ' '
      is_variant         = alvvr                              "note 877609
      it_fieldcat        = xcpt_fields_tb
      it_events          = alv_evnt_tb_pfxt
      i_screen_start_column    = 4
      i_screen_start_line      = 4
      i_screen_end_column      = 87
      i_screen_end_line        = 12
    IMPORTING
      e_exit_caused_by_caller = exit_by_caller
      es_exit_caused_by_user  = exit_by_user
    TABLES
      t_outtab = xcpt_tb
    EXCEPTIONS
      program_error = 1
      OTHERS        = 2.

  IF sy-subrc = 0.
    IF exit_by_caller = 'X'.
*     Forced Exit by calling program
*     <do_something>.
    ELSE.
*     User left list via F3, F12 or F15
      IF exit_by_user-back = 'X'.       "F3
*       <do_something>.
      ELSE.
        IF exit_by_user-exit = 'X'.     "F15
*         <do_something>.
        ELSE.
          IF exit_by_user-cancel = 'X'. "F12
*           <do_something>.
          ELSE.
*           should not occur!
*           <do_Abnormal_End>.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
*   Fatal error callin ALV
*   MESSAGE AXXX(XY) WITH ...
  ENDIF.
ENDFORM. "alv_xcpt_tb_dsp


FORM alv_xcpt_tb_prep.
*...................................

DATA:
  BEGIN OF wa_xcpt_tb,
    dobjt(42) TYPE c,
    ojtxp(40) TYPE c,
    info(3)   type c,
  END OF wa_xcpt_tb,

  dontshift(2) type c value '. ',

  lkl_stlal LIKE stko-stlal,
  lkl_ausnm LIKE stpox-ausnm.
*..................................

  CHECK xcpt_tb[] IS INITIAL.

  CLEAR:
    wa_xcpt_tb,
    lkl_stlal,
    lkl_ausnm.

  READ TABLE ausnm_stb INDEX 1.
  CHECK sy-subrc = 0 .

  SORT ausnm_stb
    ASCENDING
    BY ausnm
       objty ASCENDING
       xtlal ASCENDING.

  CLEAR:
    stb_add.

  LOOP AT ausnm_stb.
    IF   lkl_stlal NE ausnm_stb-xtlal
      OR lkl_ausnm NE ausnm_stb-ausnm.

      lkl_stlal = ausnm_stb-xtlal.
      lkl_ausnm = ausnm_stb-ausnm.

      CLEAR:
        wa_xcpt_tb.

      IF sy-tabix > 1.
        APPEND wa_xcpt_tb TO xcpt_tb.
      ENDIF.

      CASE ausnm_stb-ausnm.
        WHEN 'DELE'.
          WRITE text-039 TO wa_xcpt_tb.
        WHEN 'NBER'.
          WRITE text-031 TO wa_xcpt_tb.
        WHEN 'NREK'.
          WRITE text-032 TO wa_xcpt_tb.
        WHEN 'REKU'.
          WRITE text-034 TO wa_xcpt_tb.
        WHEN 'NOTX'.
          IF    NOT pm_stlal IS INITIAL
            AND NOT pm_altvo IS INITIAL.

            WRITE text-035 TO wa_xcpt_tb(35).
            WRITE pm_stlal TO wa_xcpt_tb+36(2).
            WRITE text-036 TO wa_xcpt_tb+39(35).
            CONDENSE wa_xcpt_tb.
          ELSE.
            WRITE text-035 TO wa_xcpt_tb(35).
            WRITE ausnm_stb-xtlal TO wa_xcpt_tb+36(2).
            WRITE text-036 TO wa_xcpt_tb+39(35).
            CONDENSE wa_xcpt_tb.
          ENDIF.
      ENDCASE.

      wa_xcpt_tb-info = 'C30'.
      APPEND wa_xcpt_tb TO xcpt_tb.
    ENDIF.

    CLEAR:
      ecfld,
      wa_xcpt_tb.

    CASE ausnm_stb-objty.
      WHEN otyp_mat.
        CONCATENATE
          ausnm_stb-idnrk
          ausnm_stb-revlv
          INTO ecfld
          SEPARATED BY space.

      WHEN 'M'.
        CONCATENATE
          ausnm_stb-idnrk
          ausnm_stb-revlv
          INTO ecfld
          SEPARATED BY space.

      WHEN otyp_doc.
        CONCATENATE
          ausnm_stb-doknr
          ausnm_stb-dokar
          ausnm_stb-doktl
          ausnm_stb-dokvr
          INTO ecfld
          SEPARATED BY space.

      WHEN otyp_kla.
        CONCATENATE
          ausnm_stb-class
          ausnm_stb-klart
          INTO ecfld
          SEPARATED BY space.

      WHEN otyp_ntm.
        WRITE: ausnm_stb-intrm TO ecfld.

      WHEN OTHERS.
    ENDCASE.

    CONDENSE ecfld.
    wa_xcpt_tb-dobjt = dontshift.
    WRITE ecfld TO wa_xcpt_tb-dobjt+2(40).
    wa_xcpt_tb-ojtxp = ausnm_stb-ojtxp.
    APPEND wa_xcpt_tb TO xcpt_tb.
  ENDLOOP.
ENDFORM. "alv_xcpt_tb_prep


FORM cs13_alv.
*...................................

  LOOP AT stb.
*   Uebergabestrukturen initialisieren
    CLEAR:
      stb_orig,
      stb_add.

    IF stb-ttidx <> matcat-index.
      READ TABLE matcat INDEX stb-ttidx.
    ENDIF.

    IF pm_zstnr IS INITIAL.
      CHECK stb-xtlnr IS INITIAL.
    ENDIF.

    IF NOT pm_idnrk IS INITIAL.
      CHECK stb-idnrk EQ pm_idnrk.
    ENDIF.

*   STB-Eintrag in Uebergabestruktur uebernehmen
    stb_orig = stb.

    PERFORM alv_stb_prep.
  ENDLOOP.

  PERFORM stb_fields_tb_prep.

*  alvvr-handle = '1'.                                         "note 877609
*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*    EXPORTING
*      i_callback_program = report_name
*      i_structure_name   = 'STPOX_ALV'
*      is_layout          = alvlo_stb
*      i_save             = alvvr_sav_all
*      is_variant         = alvvr
*      it_events          = alv_evnt_tb_cmpl
*      it_fieldcat        = stb_fields_tb
*    IMPORTING
*      e_exit_caused_by_caller = exit_by_caller
*      es_exit_caused_by_user  = exit_by_user
*    TABLES
*      t_outtab = alv_stb
*    EXCEPTIONS
*      program_error = 1
*      OTHERS        = 2.
*
*  IF sy-subrc = 0.
*    IF exit_by_caller = 'X'.
**     Forced Exit by calling program
**     <do_something>.
*    ELSE.
**     User left list via F3, F12 or F15
*      IF exit_by_user-back = 'X'.       "F3
**       <do_something>.
*      ELSE.
*        IF exit_by_user-exit = 'X'.     "F15
**         <do_something>.
*        ELSE.
*          IF exit_by_user-cancel = 'X'. "F12
**           <do_something>.
*          ELSE.
**           should not occur!
**           <do_Abnormal_End>.
*          ENDIF.
*        ENDIF.
*      ENDIF.
*    ENDIF.
*  ELSE.
**   Fatal error callin ALV
**   MESSAGE AXXX(XY) WITH ...
*  ENDIF.
*
*  IF sy-subrc <> 0.
*    MESSAGE s513 WITH 'E: '.
*    EXIT.
*  ENDIF.


loop at alv_stb.
WA_zbom-MATNR = pm_mtnrv.
WA_zbom-COMPONENT = alv_stb-DOBJT.
WA_zbom-DESCP = alv_stb-OJTXP.
WA_zbom-BOM_QTY = alv_stb-MNGLG.
WA_zbom-MEINS = alv_stb-DUNIT.
WA_zbom-MTART = alv_stb-MTART.
WA_zbom-MRP_TYPE = alv_stb-DISMM.

* insert into zbom values wa_zbom.

modify zbom_cs13 from wa_zbom.
* APPEND wa_zbom to IT_ZBOM.
* write :/ 'Rows inserted', sy-dbcnt .
clear wa_zbom.
endloop.


ENDFORM. "cs13_alv


FORM stb_fields_tb_prep.
*.....................................

*dCALL FUNCTION 'GET_FIELDTAB'                                "uc 070302
*d  EXPORTING                                                 "uc 070302
*d    langu    = sy-langu                                     "uc 070302
*d    tabname  = 'STPOX_ALV'                                  "uc 070302
*d    withtext = ' '                                          "uc 070302
*d    only     = 'T'                                          "uc 070302
*d  TABLES                                                    "uc 070302
*d    fieldtab = ftab                                         "uc 070302
*d  EXCEPTIONS                                                "uc 070302
*d    OTHERS   = 1.                                           "uc 070302

  CALL FUNCTION 'DDIF_FIELDINFO_GET'                          "uc 070302
    EXPORTING                                                 "uc 070302
      LANGU                = SY-LANGU                         "uc 070302
      TABNAME              = 'STPOX_ALV'                      "uc 070302
*     UCLEN                = '01'                             "uc 070302
    TABLES                                                    "uc 070302
      DFIES_TAB            = ftab                             "uc 070302
    EXCEPTIONS                                                "uc 070302
      OTHERS               = 1.                               "uc 070302

  LOOP AT ftab.
    CLEAR: wa_stb_fields_tb.

    CASE ftab-fieldname.
      WHEN 'OBJIC'.
        wa_stb_fields_tb-fieldname = 'OBJIC'.
        wa_stb_fields_tb-outputlen = 3 .
        wa_stb_fields_tb-icon       =  'X' .
        wa_stb_fields_tb-key        =  'X' .
        wa_stb_fields_tb-fix_column =  'X' .
        wa_stb_fields_tb-col_pos   =  1.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'DOBJT'.
        wa_stb_fields_tb-fieldname = 'DOBJT'.
        wa_stb_fields_tb-outputlen = 23 .
        wa_stb_fields_tb-key        =  'X' .
        wa_stb_fields_tb-fix_column =  'X' .
        wa_stb_fields_tb-col_pos   =  2.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'OJTXP'.
        wa_stb_fields_tb-fieldname = 'OJTXP'.
        wa_stb_fields_tb-outputlen = 32.
        wa_stb_fields_tb-col_pos   =  3.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'OVFLS'.
        wa_stb_fields_tb-fieldname = 'OVFLS'.
        wa_stb_fields_tb-outputlen = 3 .
        wa_stb_fields_tb-just      = 'R' .
        wa_stb_fields_tb-col_pos   = 4.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'MNGLG'.
        wa_stb_fields_tb-fieldname = 'MNGLG'.
        wa_stb_fields_tb-col_pos   = 5.
        wa_stb_fields_tb-outputlen = 18.
        wa_stb_fields_tb-no_sum    = 'X'.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'SUMKZ'.
        wa_stb_fields_tb-fieldname = 'SUMKZ'.
        wa_stb_fields_tb-just      = 'R' .
        wa_stb_fields_tb-outputlen = 3 .
        wa_stb_fields_tb-col_pos   = 6.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN 'DUNIT'.
        wa_stb_fields_tb-fieldname = 'DUNIT'.
        wa_stb_fields_tb-outputlen = 3 .
        wa_stb_fields_tb-col_pos   = 7.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

      WHEN OTHERS.
        wa_stb_fields_tb-fieldname = ftab-fieldname.
        wa_stb_fields_tb-no_out    = 'X'.
        wa_stb_fields_tb-no_sum    = 'X'.
        APPEND wa_stb_fields_tb TO stb_fields_tb.

    ENDCASE.
  ENDLOOP.
ENDFORM. "stb_fields_tb_prep
*. Here ends ALV section ..............................       "HGA246532

*---------------------------------------------------------------------*
*                                                                     *
*---------------------------------------------------------------------*
*        Input :                                                      *
*                                                                     *
*        Output:                                                      *
*                                                                     *
*---------------------------------------------------------------------*


*********************************************************************************




*********************************************************************************
Report: ZBOM_CS13_MAIN

***************************************************************************************************************************************************************************************************************************************************








*&---------------------------------------------------------------------*
*& Report  ZBOM_AUTO_MAIN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*


REPORT  ZBOM_CS13_MAIN.


tables: zbom_cs13.


types : BEGIN OF ty_ITMAT,
        MATNR LIKE MARA-MATNR,
        END OF ty_ITMAT.


data: itmat type standard table of ty_itmat with header line.




*data: gv_flag type char20 value 'MAIN'.


delete from ZBOM_CS13.


write:/ sy-dbcnt, ' rows deleted'.


SELECT MATNR INTO CORRESPONDING FIELDS OF TABLE ITMAT FROM MARA WHERE
*MATNR IN MATERIAL.
MTART = 'FERT'.


*write:/ 'SAP'.






LOOP AT ITMAT.


*write:/ itmat-matnr.


set parameter id 'FORM' field itmat-matnr.


SUBMIT ZBOM_AUTO_CS13 and return.


endloop.




***************************************************************************************************************************************************************************************************************************************************

No comments:

Post a Comment