Frage bzgl. Ausgabe interner Tabelle, sowie Parameterfeld

[Dorian4909]

Hallo,

ich habe mir ein kleines Programm geschrieben, dass mir die Materialnummern nebst den dazugehörigen Vertriebstexten ausgibt.

Für die Vertriebstexte nutze ich den Funktionsbaustein "READ_TEXT". Dieser gibt quasi eine interne Tabelle zurück, die so aussieht...

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

1. tdformat    tdline
2. =====================              
3.             Rasenmäher    
4.             von  
5. *           Helmchen
6.  

GeSHi ©

Nun möchte ich diese Tabelle so ausgeben, dass
nur dann ein Zeilenumbruch gemacht wird, wenn
in tdformat ein * steht. Herauskommen soll der
Text also so

Rasenmäher von
Helmchen

und nicht wie jetzt

Rasenmäher
von
Helmchen


Desweiteren würde ich gerne Parameter Feld
einbinden, dass mir die Suche innerhalb des
Vertriebstextes ermöglicht (also z.B. Filter
nach "*Helmchen*")

Kann mir hier jemand weiterhelfen?

Gruß, Tom

----

Mein Programm bis jetzt....

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

1. REPORT z_vtext.
2.  
3. DATA: itab TYPE STANDARD TABLE OF tline WITH HEADER LINE.
4. DATA: itab2 TYPE STANDARD TABLE OF mara-matnr.
5. DATA: matnr TYPE mara-matnr.
6. SELECT-OPTIONS imatnr FOR matnr.
7. PARAMETERS sprache TYPE thead-tdspras DEFAULT 'DE'.
8. START-OF-SELECTION.
9.   CLEAR: itab, itab2.
10.   SELECT matnr FROM mara
11.               INTO TABLE itab2
12.               WHERE matnr IN imatnr
13.               AND   matnr NE ''.
14.   LOOP AT itab2 INTO matnr.
15.     SKIP.
16.     WRITE: / matnr.
17.     PERFORM vtext_lesen USING matnr.
18.     IF sy-subrc = 4.
19.       WRITE: AT 30 'Kein Text vorhanden!' COLOR 6 INVERSE INTENSIFIED.
20.     ELSE.
21.       LOOP AT itab.
22.         IF sy-tabix = 1.
23.           WRITE: AT 30 itab-tdline.
24.         ELSE.
25.             WRITE: AT /30 itab-tdline.
26.         ENDIF.
27.       ENDLOOP.
28.     ENDIF.
29.   ENDLOOP.
30.  
31. *&--------------------------------------------------------------------
32. *& Formvtext_lesen
33. *&--------------------------------------------------------------------
34. * text
35. *---------------------------------------------------------------------
36. * --> p1 text
37. * <-- p2 text
38. *---------------------------------------------------------------------
39.  
40. FORM vtext_lesen USING l_matnr TYPE mara-matnr.
41.   DATA: name TYPE thead-tdname.
42.   MOVE l_matnr TO name.
43.   MOVE '10' TO name+18.
44.   MOVE '10' TO name+22.
45.   CALL FUNCTION 'READ_TEXT'
46.        EXPORTING
47.             client                  = sy-mandt
48.             id                      = '0001'
49.             language                = sprache  "sy-langu
50.             name                    = name
51.             object                  = 'MVKE'
52.        TABLES
53.             lines                   = itab
54.        EXCEPTIONS
55.             id                      = 1
56.             language                = 2
57.             name                    = 3
58.             not_found               = 4
59.             object                  = 5
60.             reference_check         = 6
61.             wrong_access_to_archive = 7
62.             OTHERS                  = 8.
63.  
64. ENDFORM. "vtext_lesen
65.  
66.  

GeSHi ©

[Ilja583]

hmm - dieselbe Frage habe ich eben schon bei ABAP-Fans gelesen - und dort sind auch ein paar Antworten gekommen.

Wer also diesbezüglich etwas wissen möchte bitte http://members3.boardhost.com/luisgarcia/msg/10939.html anklicken.



live long and prosper
Stefan


@Admins:

Könnte evtl. einer der Admins diesen Beitrag aus diesem Forum in das "Getting Started" Forum verschieben? Ich denke mal dort passt der thematisch besser.

[Willy1492]

Die dort vorgeschlagenen Lösungen taugen aber wirklich nur, wenn die Format-Spalte nur '* ' und ' ' enthält.
Was machst Du z.B. mit '/ ' in der Formatspalte?
Ganz zu schweigen von anderen Absatzformaten, Anweisungen
/:IF &DEVICE& = 'SCREEN'
/: INCLUDE ...
usw.

Ich bin mir sehr sicher, daß es da passende FBs gibt, habe aber momenten mein WAS TestDrive gecrasht, kann also nicht danach suchen.

[Jessy5246]

... and in addition to Frank's examples, it could also be protected text. In that case you have 'A>' in TDFORMAT and TDLINE starts with '* '. The actual text data starts at TDLINE+2.

Then again, if you know for sure what kind of text you can expect (ideally verified systematically), you may be able to rule out some cases.

Regards,
Wolfgang