IMPORT/ EXPORT DYNPRO

[Shane1331]

Hallo,

ich lese eine Dynpro-Definition mittels IMPORT DYNPRO.
Diese verändere ich (ich kopiere einen TabReiter) und speichere sie mit EXPORT DYNPRO wieder ab und generiere sie mit GENERATE DYNPRO.

soweit so gut.
nur Leider steht in der Tabelle mit den Objektdefinitionen des Dynpros nirgendwo ein OK_CODE. Den muss ich aber natürlich hinterlegen.

Weiss jemand wo die gepeichert werden??

fragt Enno.

[ewx]

Hat sich erledigt...

[Philippa2744]

die Lösung würde mich interessieren, woran lag es denn?

LoLo

[Willy1492]

s. Thread im forum von abap-fans.de:
http://members3.boardhost.com/luisgarcia/msg/14837.html

Frank

[Philippa2744]

thnx

[ewx]

Ich habe mal etwas gebastelt...

Die Anwendungsmöglichkeiten sind wahrscheinlich eher begrenzt, aber gut wenn man weiss, dass es geht:

Ich habe ein Dynpro 9000 in dem Programm SAPMZTESTTAB1 angelegt. Auf diesem Dynpro ist nur ein TabstripControl mit einem Reiter. Das Control heisst DYNA1 und der Reiter DYNA1_TAB1.

in dem folgenden Programm kann man die Anzahl der zu generierenden TabReiter angeben. Das Programm liest dann soviele Einträge aus der Ländertabelle -- einfach nur damit die Reiter einen anständigen Namen kriegen und nicht TAB01 TAB02 TAB03 usw heissen.

Die DynproDefinition wird gelesen und alle zuvor generierten Reiter werden gelöscht. Dann wird der Reiter DYNA1_TAB1 als Referenz immer wieder mit anderem Text und anderem Funktionscode (Danke Frank für die Struktur RES1!) dazugefügt. Danach bleibt noch der Export der Dynprodefinition und die Generierung.

Danach wird die Transaktion aufgerufen, die das Dynpro 9000 aufruft.

In diesem Falle könnte man sich ja sogar auf dem einzigen Subscreen, der dann ja jedem Reiter zugeordnet ist, ein TableControl vorstellen, auf dem dann die Umsätze der einzelnen Länder aufgelistet werden. So oder so ähnlich.
Ach ja: Der Reiter, der kopiert wird, ist im Dynpro als "Unsichtbar markiert", so dass er nicht angezeigt wird.

.eNNo.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT ztest3 .
2. DATA: d1(100),
3.       d2(10) TYPE n,
4.       d3(30),
5.       tabname(20),
6.       xres1 like D021S_RES1,
7.       landx TYPE landx,
8.       nummer(2) TYPE n,
9.       tabix TYPE sytabix.
10. DATA:
11.   h TYPE d020s,
12.   f LIKE d021s OCCURS 0 WITH HEADER LINE,
13.   e LIKE d022s OCCURS 0 WITH HEADER LINE,
14.   m LIKE d023s OCCURS 0 WITH HEADER LINE.
15.  
16. PARAMETERS: p_anz(2) TYPE n DEFAULT 7.
17.  
18. START-OF-SELECTION.
19.  
20.   IMPORT DYNPRO h f e m
21.     ID 'SAPMZTESTTAB1                           9000'.
22.  
23.   READ TABLE f WITH KEY fnam = 'DYNA1_SCA'.
24.   IF sy-subrc = 0.
25.     f-line = p_anz.
26.     f-coln = '99'.
27.     MODIFY f INDEX sy-tabix.
28.   ENDIF.
29.  
30. ******** Alte Reiter löschen ************
31.   LOOP AT f WHERE fnam(4) = 'TAB_' AND coln > 1.
32.     DELETE f.
33.   ENDLOOP.
34.  
35. **** Referenz-Reiter lesen
36.   READ TABLE f WITH KEY fnam = 'DYNA1_TAB1'.
37.   IF sy-subrc = 0.
38.     CLEAR nummer.
39.     SELECT landx FROM t005t INTO landx UP TO p_anz ROWS
40.     WHERE spras = 'D'.
41.       nummer = sy-dbcnt.
42.       CONCATENATE 'DYNA1_TAB' nummer INTO tabname.
43.       READ TABLE f WITH KEY fnam = tabname.
44.       IF sy-subrc > 0.
45.         tabix = sy-tabix + 1.
46.         f-coln = f-coln + 1.
47.         f-auth = '100'.
48.         f-leng = 12.
49.         SET BIT 6 OF f-fmb1 TO 0.
50.         CONCATENATE 'TAB_' nummer INTO f-fnam.
51.         xres1 = f-res1.
52.         xres1-funccode = f-fnam.
53.         f-res1 = xres1.
54.         f-stxt = landx.
55.         INSERT f INTO f INDEX tabix.
56.       ENDIF.
57.     ENDSELECT.
58.     EXPORT DYNPRO h f e m
59.         ID 'SAPMZTESTTAB1                           9000'.
60.     GENERATE DYNPRO h f e m
61.         ID 'SAPMZTESTTAB1                           9000'
62.       MESSAGE d1 LINE d2 WORD d3.
63.   ENDIF.
64.  
65.   CALL TRANSACTION 'ZTESTTAB'.

GeSHi ©

[Willy1492]

Ist da die Systembelastung nicht ein wenig hoch?
Für jeden Transaktionsaufruf Dynpro lesen, ändern generieren...
Und was machst Du, wenn 2 User gleichzeitig Dein Programm starten?

[ewx]

Hi Frank,

die Systembelastung sollte sich eigentlich in Grenzen halten. Und ob ich nun eine umfangreiche Selektion mache und dann merke -- uups, das war ja viel zu viel: BACK, neu selektieren etc. oder das Programm ein bisschen verspielt ist... ;--)

Aber mit deinem anderen Einwand hast du nicht hanz unrecht... Dann muss man das eben so konzipieren, dass das so eine Art InitialGenerierung sein muss: Per Customizing kann man verschiedene "Länder" (siehe Beispiel) auswählen und dafür wird dann das Programm generiert. Dann ist auch die Systembelastung wech...!

Gruß, Enno.
PS Ich nehme mal an, du bist Systemadministrator...?