‎2007 Jul 27 9:29 AM
hi all.
in below code..commented is my original one n i changed it to up to 1 rows.
so is it rite this coding..?
its giving time out dump..
how to come out this prob?
TABLES: DD03L.
DATA: BEGIN OF WDD03M,
FIELDNAME LIKE DD03M-FIELDNAME,
TABNAME LIKE DD03M-TABNAME,
CHECKTABLE LIKE DD03M-CHECKTABLE,
ROLLNAME LIKE DD03M-ROLLNAME,
ENTITYTAB LIKE DD03M-ENTITYTAB,
DOMNAME LIKE DD03M-DOMNAME,
DDTEXT LIKE DD03M-DDTEXT,
END OF WDD03M.
DATA: FLD LIKE TOBJ-FIEL1.
SELECT SINGLE FIELDNAME
TABNAME
CHECKTABLE
ROLLNAME
ENTITYTAB
DOMNAME
DDTEXT
INTO (WDD03M-FIELDNAME
,WDD03M-TABNAME
,WDD03M-CHECKTABLE
,WDD03M-ROLLNAME
,WDD03M-ENTITYTAB
,WDD03M-DOMNAME
,WDD03M-DDTEXT
)
FROM DD03M
WHERE TABNAME LIKE 'AUTH%'
AND DDLANGUAGE = SY-LANGU
AND FIELDNAME = FLD
AND FLDSTAT = 'A'
AND ROLLSTAT = 'A'
AND DOMSTAT = 'A'
AND TEXTSTAT = 'A'.
data: AUTH(30) type c .
concatenate '%' AUTH '%' into AUTH.
SELECT FIELDNAME
TABNAME
CHECKTABLE
ROLLNAME
ENTITYTAB
DOMNAME
DDTEXT
INTO corresponding fields of WDD03M
FROM DD03M
WHERE TABNAME LIKE AUTH
AND DDLANGUAGE = SY-LANGU
AND FIELDNAME = FLD
AND FLDSTAT = 'A'
AND ROLLSTAT = 'A'
AND DOMSTAT = 'A'
AND TEXTSTAT = 'A'.
endselect.
if sy-subrc <> 0 .
write:/ ' not ret'.
else.
write: wdd03m.
endif.
‎2007 Jul 27 9:34 AM
Hi,
Whats the error that you get in the DUMP.
SELECT SINGLE FIELDNAME
TABNAME
CHECKTABLE
ROLLNAME
ENTITYTAB
DOMNAME
DDTEXT
INTO corresponding fields of WDD03M
FROM DD03M
WHERE TABNAME LIKE AUTH
AND DDLANGUAGE = SY-LANGU
AND FIELDNAME = FLD
AND FLDSTAT = 'A'
AND ROLLSTAT = 'A'
AND DOMSTAT = 'A'
AND TEXTSTAT = 'A'.
Regards,
Sesh
‎2007 Jul 27 9:34 AM
Hi,
If you want only 1 single row to be picked up then use select single instead of select Endselect:
Select Single ( Lista ll ur fields)
INTO corresponding fields of WDD03M
FROM DD03M
WHERE ( give the condition ).
Pls reward points if useful
Regards,
Shruthi
‎2007 Jul 30 11:09 AM