Hier die Verwendung eines Includes für die Erzeugung des Fieldcatalogs.
Die Erzeugung kann nur mit OCCURS 0 erfolgen, die ja mittlerweile obsolet ist. Eine Erzeugung über Standardtable (mit oder ohne Headerline ) ist nicht möglich.
In der Definition funktioniert nur like oder TYPE mit generischen Typen.
Speziell bei C ist hier aber auf Case Sensititivät aufzupassen, damit der Build des ALV dann funktioniert.
DATA: BEGIN OF GT_OUT OCCURS 0,
VBELN LIKE VBAP-VBELN,"Verkaufsbelegnummer
POSNR LIKE VBAP-POSNR,"Verkaufsbelegposition
VBELNL(80) TYPE C, "Verkaufsbelegnummernliste
ERDAT LIKE VBAP-ERDAT,"Verkaufsbelegerfassungsdatum
MATNR LIKE VBAP-MATNR,"Verkaufsbeleg Fertigmaterial
WERKS LIKE VBAP-WERKS,"Verkaufsbeleg Werk
KWMENG LIKE VBAP-KWMENG,"Verkaufsbeleg Menge
MEINS LIKE MARA-MEINS,"Verkaufsbeleg Mengenheit
* faktor LIKE zzsd_rohmenge-faktor, "Ab hier Komponente:
IDNRK LIKE STPO-IDNRK,"Materialnummer
MTART LIKE MARA-MTART,"Materialart
EKGRP LIKE MARC-EKGRP,"Einkäufergruppe
PWERK LIKE AFPO-DWERK,"Produktionswerk
MNGLG LIKE VBAP-KWMENG,"
* LIKE ZZSD_ROHMENGE-MNGLG,"Menge für norm.M.
MEINS2 LIKE MARA-MEINS,"Mengeneinheit für normierte Mischung
BMENG LIKE STKO-BMENG,"Basismenge des FERT
BMEIN LIKE STKO-BMEIN,"Basiseinheit des FERT
GMENG LIKE VBAP-KWMENG,"Ges.K.Menge
GMEIN LIKE MARA-MEINS,"K.Menge Einheit
"quote LIKE zzsd_rohmenge-quote,
"PROZ LIKE ZZSD_ROHMENGE-PROZ,"% Verbrauch
WLABS LIKE MARD-LABST,"Werksbestand
LABST LIKE MARD-LABST,"Lagerbestand gesammt
EISBE TYPE EISBE,"Sicherheitsbestand "HST Insert
CONS LIKE VBAP-KWMENG,
CONSJ LIKE VBAP-KWMENG,
* LIKE ZZSD_ROHMENGE-CONS,"Mittlerer Verbr.M.
CMEIN LIKE MARA-MEINS,"Mittlerer Verbrauch Einheit
PLAG TYPE P LENGTH 10 DECIMALS 2,"Prozent Lager
PEIS TYPE P LENGTH 10 DECIMALS 2,"Prozent Eiserne Res.
PVER TYPE P LENGTH 10 DECIMALS 2,"Prozent Verbrauch
PVERJ TYPE P LENGTH 10 DECIMALS 2,"Prozent Verbrauch Jahr
ZAEHLER TYPE I VALUE '1',"Zähler
STATUS(7) TYPE C, "t_status,"Status MPBQS
* STATUS TYPE CHAR10_alv, "t_status,"Status MPBQS
MAKTX LIKE MAKT-MAKTX,"Materialtext
PMLAG TYPE P LENGTH 10 DECIMALS 0,"Prozentmaximum Lager
PMEIS TYPE P LENGTH 10 DECIMALS 0,"Prozentmaximum Eiserne Res.
PMVER TYPE P LENGTH 10 DECIMALS 0,"Prozentmaximum Verbrauch
END OF GT_OUT. WHEN ‚STATUS‘.
LS_FIELDCAT-SELTEXT_S = ‚Status‘.
LS_FIELDCAT-SELTEXT_M = ‚Status‘.
LS_FIELDCAT-SELTEXT_L = ‚Status‘.
LS_FIELDCAT-LOWERCASE = ‚X‘.
JackPilot 