| Summary: | DC - Selektion aller Programme - Aufnahme des aktuellen Releases auf den Selektionscreen (Sammelbug) | ||
|---|---|---|---|
| Product: | [SCX/Suite] SCX/Suite Allgemein | Reporter: | Bertelmann, Marc <Marc.Bertelmann> |
| Component: | DC Allgemein | Assignee: | Niedermark, Janina <Janina.Niedermark> |
| Status: | RESOLVED FIXED | QA Contact: | |
| Severity: | enhancement | ||
| Priority: | P2 | CC: | cbr, florian.lenz, gunar.kunze |
| Version: | 7.4 | Keywords: | Orion |
| Hardware: | All | ||
| OS: | All | ||
| Whiteboard: | |||
| Kundennummer: | Bestellnummer: | ||
| PV Übergabe: | --- | Phase Roadmap: | --- |
| Erledigt mit: | Orion | SAP Release: | --- |
| Transport: | CRM-ID/Ticket: | ||
|
Description
Bertelmann, Marc
2017-02-10 10:36:56 CET
Fuba konnte nicht gefunden werden. Beispiel Coding finden wir hier:
Aufzurufen im INITIALISATION Teil. Die Variable "gf_reldc" wird darauf auf dem Selektionsbild dargestellt...
Report: /GIB/DCC_TARGET_REP
FORM cust_determ_release .
DATA lf_1 TYPE c LENGTH 3.
DATA lf_2 TYPE c LENGTH 3.
DATA lf_comp LIKE spam_cvers-component.
lf_comp = 'GIBSCM'.
CLEAR gf_release.
CALL FUNCTION 'OCS_COMPONENT_LATEST_PATCH'
EXPORTING
iv_component = lf_comp
IMPORTING
ev_comp_rel = gf_release
EXCEPTIONS
unknown_component = 1
spam_in_progress = 2
internal_error = 3
OTHERS = 4.
IF sy-subrc = 0.
" Ergebnis bearbeiten und in Ausgabefeld schreiben
IF gf_release IS NOT INITIAL.
CLEAR: lf_1, lf_2.
SPLIT gf_release AT '_' INTO: lf_1 lf_2.
CLEAR gf_t1. CLEAR gf_reldc.
CONCATENATE lf_1+0(2) '.' lf_1+2(1) INTO gf_t1.
CONCATENATE text-vs5 gf_t1 INTO gf_reldc SEPARATED BY space.
ENDIF.
ELSE.
CLEAR: lf_1, lf_2.
CLEAR gf_t1. CLEAR gf_reldc.
CONCATENATE text-vs5 gf_t1 INTO gf_reldc SEPARATED BY space.
ENDIF.
**## HW 8584, CSC
ENDFORM. " CUST_DETERM_RELEASE
Vereinheitlichung der Modul und Releaseinformationen auf den bestehenden Selektionsbildern unter Berücksichtigung Umbenennung SCX |