How to find loop in Supervisor Hirarchy.

How to find loop in Supervisor Hirarchy.
Employee - > supervisor 1 (Manager) ->supervisor 2 (Manager) -> Employee (Manager)
Thanks

Remember to always truncate the time portion when checking effective dates in HRMS. So the query should be rewritten as:
SELECT
a.business_group_id, a."PERSON_ID",a.assignment_id, a."EMPLOYEE_NUMBER", a."FULL_NAME",
a."SUPERVISOR_ID", a."SUPERVISOR_EMP_NO", a."SUPERVISOR",
a."ORGANIZATION_ID",a."POSITION",
LEVEL level1,
CONNECT_BY_ROOT supervisor_emp_no top_supervisor,
CONNECT_BY_ISCYCLE loopback,
CONNECT_BY_ROOT supervisor_id as top_supervisor_id,
SYS_CONNECT_BY_PATH (supervisor_emp_no, '/') PATH
FROM (SELECT
papf.business_group_id,
papf.person_id,
paaf.assignment_id,
papf.employee_number,
papf.full_name,
paaf.supervisor_id,
papf1.employee_number supervisor_emp_no,
papf1.full_name supervisor,
paaf.organization_id,
hr_general.DECODE_POSITION(paaf.position_id) position
FROM per_all_people_f papf,
per_all_assignments_f paaf,
per_all_people_f papf1
WHERE papf.person_id = paaf.person_id
AND papf1.person_id = paaf.supervisor_id
and papf.CURRENT_EMPLOYEE_FLAG = 'Y'
AND paaf.primary_flag = 'Y'
AND papf.business_group_id = paaf.business_group_id
AND papf1.business_group_id = papf.business_group_id
AND TRUNC(SYSDATE) BETWEEN papf.effective_start_date
AND papf.effective_end_date
AND TRUNC(SYSDATE) BETWEEN paaf.effective_start_date
AND paaf.effective_end_date
AND TRUNC(SYSDATE) BETWEEN papf1.effective_start_date
AND papf1.effective_end_date
) a
where CONNECT_BY_ISCYCLE > 0
CONNECT BY NOCYCLE PRIOR a.person_id = a.supervisor_id
ORDER SIBLINGS BY a.person_id

Similar Messages

How to find the Employee Supervisor name

Hi,
Could any body please help me to find out the employee supervisor name oracle hrms?
Regards
sami.

The above query from Ashish is fine for a quick one-off query, but for any production-quality code you should always surround SYSDATE with the TRUNC function when comparing to Effective Start and End Dates. The reason for this is SYSDATE includes a Time component; however, the DateTrack APIs ensure that the Effective Start and End Date columns do not, ie: they have a Time component of *00:00:00* (midnight). If you don't use the TRUNC function you can potentially miss records in your query whose Effective End Date is on the same day as SYSDATE, as the time component of SYSDATE will be after midnight.
For example:
Assignment ID = 123
Effective Start Date = 01-Jan-2012 00:00:00
Effective End Date = 18-May-2012 00:00:00
WHERE SYSDATE BETWEEN asg.effective_start_date AND asg.effective_end_date
At this moment SYSDATE = 18-May-2012 09:41:22
...which is after the Assignment's Effective End Date, even though in reality the record should have been included in the result set.
Barry Goodsell

How to find infinite loop?

Dear Oracle Gurus,
I have one (some?) problem and no idea what to do.
Our platform is IBM xSeries 234, RHEL3, 10g (version ...0.2). Database has only Oracle Application Repository shemas.
Here is output from OS:
#ps aux
... oracleandja (LOCAL=NO) -More then 200 lines
... /d2/oradb/andja/bin/emagent
... oracleandja (LOCAL=NO)
... ora_pmon_andja
... ora_mman_andja
... ora_dbw0_andja
... ora_lgwr_andja
... ora_ckpt_andja
... ora_smon_andja
... ora_reco_andja
... ora_cjq0_andja
... ora_d000_andja
... ora_s000_andja
... ora_qmnc_andja
... ora_mmnl_andja
#top
216 processes: 214 sleeping, 2 running, 0 zombie, 0 stopped
1st CPU: 100%
2nd CPU: 25%
When I try to shutdown DB from SQL+, I got this:
ORA-24324: service handle not initialized
ORA-24323: value not allowed
ORA-00020: maximum number of processes (%s) exceeded
The most interesting error has written in .trc file:
ORA-00600: internal error code, arguments: [kksfbc-reparse-infinite-loop], [], [], [], [], [], [], []
Can you give me some advice how to find this infinite loop? And how to deal with this?
Is there anything that I can do to solve this without reinstalling whole DB and AS?
Regards

If you cannot shut Oracle down using a shutdown immediate then you will need to get a new /nolog session and issue a "shutdown abort".
From the error messages you listed it would appear you ran intot your maximum number of proceess limit and you will need to fix that.
However the bug report for bug 3411348.8 makes it appear you would only get this error when performing DDL like alter table .. upgrade, ?
What exactly was being done on your system when the problem started?
HTH -- Mark D Powell --

How to find out the user-exits?

hi.
how to find out the user-exits?
regards
eswar.

Hi,
*& Report ZEXITFINDER
*report zexitfinder.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
tables : tstc, "SAP Transaction Codes
tadir, "Directory of Repository Objects
modsapt, "SAP Enhancements - Short Texts
modact, "Modifications
trdir, "System table TRDIR
tfdir, "Function Module
enlfdir, "Additional Attributes for Function Modules
tstct. "Transaction Code Texts
*& Variables
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
*& Selection Screen Parameters
selection-screen begin of block a01 with frame title text-001.
selection-screen skip.
parameters : p_tcode like tstc-tcode obligatory.
selection-screen skip.
selection-screen end of block a01.
*& Start of main program
start-of-selection.
Validate Transaction Code
select single * from tstc
where tcode eq p_tcode.
Find Repository Objects for transaction code
if sy-subrc eq 0.
select single * from tadir
where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir
where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir
where pname = tstc-pgmna.
select single * from enlfdir
where funcname = tfdir-funcname.
select single * from tadir
where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name = enlfdir-area.
move : tadir-devclass to v_devclass.
endif.
endif.
Find SAP Modifactions
select * from tadir
into table jtab
where pgmid = 'R3TR'
and object = 'SMOD'
and devclass = v_devclass.
select single * from tstct
where sprsl eq sy-langu
and tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ 'No of Exits:' , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) 'No User Exit exists'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'Transaction Code Does Not Exist'.
endif.
Take the user to SMOD for the Exit that was selected.
at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.
Regards

How to find out the Transactions used per month & the USER who used that

Hi,
1)How to find out the Transactions used per month & the USER who used that?
2)and can i get the above same for minimum 20 month?
System : SAP- Enterprise Core Component.

You can use my program...
*& Report Z_ABAP_TCODE_MONITOR
*****& Program Type : Report *
*****& Title : Z_ABAP_TCODE_MONITOR *
*****& Transaction code : ZTCODE_USAGE *
*****& Developer name : Shailendra Kolakaluri *
*****& Deveopment start date : 26 th Dec 2011 *
*****& Development Package : ZDEV *
*****& Transport No : DEVK906086 *
*****& Program Description : This program is to display
*List all tcodes executed during previous day.
*& Show the number of users executing tcodes
*& Modification history
REPORT Z_ABAP_TCODE_MONITOR.
*& List all tcodes executed during previous day.
*& Show the number of users executing tcodes
TYPE-POOLS : slis.
DATA: ind TYPE i,
 fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
 layout TYPE slis_layout_alv,
 variant TYPE disvariant,
 events TYPE slis_t_event WITH HEADER LINE,
 heading TYPE slis_t_listheader WITH HEADER LINE.
*REPORT z_report_usage.
TYPES: BEGIN OF zusertcode,
date TYPE swncdatum,
user TYPE swncuname,
mandt TYPE swncmandt,
tcode TYPE swnctcode,
report TYPE swncreportname,
count TYPE swncshcnt,
END OF zusertcode.
*data : date type n.
DATA: t_usertcode TYPE swnc_t_aggusertcode,
 wa_usertcode TYPE swncaggusertcode,
 wa TYPE zusertcode,
 t_ut TYPE STANDARD TABLE OF zusertcode,
 wa_result TYPE zusertcode,
 t_result TYPE STANDARD TABLE OF zusertcode.
PARAMETER: month TYPE dats DEFAULT sy-datum.
*PARAMETER: date TYPE dats.
*select-options : username for wa_usertcode-account.
START-OF-SELECTION.
PERFORM get_data.
PERFORM get_fieldcatalog.
PERFORM set_layout.
PERFORM get_event.
PERFORM get_comment.
PERFORM display_data.
FORM get_data .
*date = sy-datum - 2 .
After start-of-selection add this line (parameter Month required 01 as day).
concatenate month+0(6) '01' into month.
CALL FUNCTION 'SWNC_COLLECTOR_GET_AGGREGATES'
 EXPORTING
 component = 'TOTAL'
 ASSIGNDSYS = 'DEV'
 periodtype = 'M'
 periodstrt = month
 TABLES
 usertcode = t_usertcode
 EXCEPTIONS
 no_data_found = 1
 OTHERS = 2.
wa-date = month.
*wa-date = date.
wa-mandt = sy-mandt.
wa_usertcode-account = username.
LOOP AT t_usertcode INTO wa_usertcode.
 wa-user = wa_usertcode-account.
 IF wa_usertcode-entry_id+72 = 'T'.
 wa-tcode = wa_usertcode-entry_id.
 wa-report = space.
 ELSE.
 wa-tcode = space.
 wa-report = wa_usertcode-entry_id.
 ENDIF.
 COLLECT wa INTO t_ut.
ENDLOOP.
SORT t_ut BY report ASCENDING.
CLEAR: wa, wa_result.
endform.
FORM get_fieldcatalog .
fcat-tabname = 't_ut'.
fcat-fieldname = 'DATE'.
fcat-seltext_l = 'Date'.
fcat-key = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname = 't_ut'.
fcat-fieldname = 'MANDT'.
fcat-seltext_l = 'Client'.
fcat-key = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname = 't_ut'.
fcat-fieldname = 'USER'.
fcat-seltext_l = 'User Name'.
fcat-key = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname = 't_ut'.
fcat-fieldname = 'TCODE'.
fcat-seltext_l = 'Transaction Code'.
fcat-key = 'X'.
APPEND fcat.
ENDFORM.
*& Form SET_LAYOUT
 text
--> p1 text
<-- p2 text
FORM set_layout .
layout-colwidth_optimize = 'X'.
ENDFORM. " SET_LAYOUT
*& Form GET_EVENT
 text
--> p1 text
<-- p2 text
*FORM get_event .
events-name = slis_ev_top_of_page.
events-form = 'TOP_OF_PAGE'.
APPEND events.
*ENDFORM. " GET_EVENT
**& Form GET_COMMENT
 text
--> p1 text
<-- p2 text
*FORM get_comment .
DATA: text(30).
text = 'Billing Report'.
heading-typ = 'H'.
heading-info = text.
APPEND heading.
*ENDFORM. " GET_COMMENT
**& Form top_of_page
 text
--> p1 text
<-- p2 text
*FORM top_of_page .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = heading[]
I_LOGO =
I_END_OF_LIST_GRID =
*ENDFORM. " top_of_page
*& Form DISPLAY_DATA
 text
--> p1 text
<-- p2 text
FORM display_data .
sort t_ut[].
DELETE ADJACENT DUPLICATES FROM t_ut[] COMPARING ALL FIELDS.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-cprog
 is_layout = layout
 it_fieldcat = fcat[]
 i_save = 'A'
 is_variant = variant
 it_events = events[]
 TABLES
 t_outtab = t_ut
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " DISPLAY_DATA

How to find the number of records per months in cube

Hi,
how to find the number of records per months for my all cubes?
Can i use the ListCube transaction to find totl number f records per cube monthwise ?
Jimmy

Hi,
Here is a program to generate no of records and list of ODS and Cubes in Active version.Schedule this program in background and create a cube to load this information and schedule to the data from the file generated by the program. Schedule this all per you requirement.
1.Copy the code into your Z<programname> from Se38.
2.change the FILENAME in CALL FUNCTION 'GUI_DOWNLOAD' in the program to the location from where you can pick the information to load data to cube(eg Application server).
3.Save program.
4.Schedule the program in background as required
5.Create cube with infoobjects to hold no of records and Infoprovider name
6.Load this cube based on event after the program job is done.
Hence you can report on this cube to see no of records in CUBE or ODS in your box.
Please find the code below.
Cheers,
Kavitha Kamesh.
types: begin of itabs ,
 tabname type dd02l-tabname,
 end of itabs.
data: itab type itabs occurs 0 with header line.
data: counter type i.
data: begin of itab1 occurs 0,
tabname type dd02l-tabname,
counter type i,
end of itab1.
DATA: ITABTABNAME TYPE STRING.
DATA: LENGTH TYPE I.
DATA: OBJECT(30).
data: str(6) type c.
select tabname from dd02l into table itab where ( tabname LIKE '/BIC/F%' or tabname LIKE '/BIC/A%00' )
and TABCLASS = 'TRANSP' and AS4LOCAL = 'A'.
loop at itab.
select count(*) from (itab-tabname) into counter.
str = itab-tabname.
if str = '/BIC/F'.
LENGTH = STRLEN( ITAB-TABNAME ).
SHIFT itab-tabname BY 6 PLACES LEFT.
ELSEIf str = '/BIC/A'.
SHIFT itab-tabname BY 6 PLACES LEFT.
LENGTH = STRLEN( ITAB-TABNAME ).
LENGTH = LENGTH - 2.
endif.
itab1-tabname = itab-tabname(LENGTH).
append itab1.
itab1-counter = counter.
clear itab-tabname.
clear: COUNTER.
endloop.
*********** itab1
loop at itab1.
write:/ itab1-tabname, itab1-counter.
endloop.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
 FILENAME = 'c:records.xls'
 FILETYPE = 'ASC'
* APPEND = ' '
 WRITE_FIELD_SEPARATOR = ','
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* IMPORTING
* FILELENGTH =
TABLES
 DATA_TAB = itab1
* FIELDNAMES =
* EXCEPTIONS
* FILE_WRITE_ERROR = 1
* NO_BATCH = 2
* GUI_REFUSE_FILETRANSFER = 3
* INVALID_TYPE = 4
* NO_AUTHORITY = 5
* UNKNOWN_ERROR = 6
* HEADER_NOT_ALLOWED = 7
* SEPARATOR_NOT_ALLOWED = 8
* FILESIZE_NOT_ALLOWED = 9
* HEADER_TOO_LONG = 10
* DP_ERROR_CREATE = 11
* DP_ERROR_SEND = 12
* DP_ERROR_WRITE = 13
* UNKNOWN_DP_ERROR = 14
* ACCESS_DENIED = 15
* DP_OUT_OF_MEMORY = 16
* DISK_FULL = 17
* DP_TIMEOUT = 18
* FILE_NOT_FOUND = 19
* DATAPROVIDER_EXCEPTION = 20
* CONTROL_FLUSH_ERROR = 21
* OTHERS = 22
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

How to find total number of records in a BDoc?

Dear all,
I have replicated about BP 1088 records from ISU into CRM system with block size 100. Technically on SMW01, for each successfully processed BDoc, there will be 100 records (corresponds to 100 block size). But due to some failed BDocs, not all "successfully" BDocs will have 100 records each, some may have only 1 record inside...or 30...or 88 for example. So, may i know how to find or is there a report i can look into to find the total number of records clearly shown for each of the successfully processed green status BDocs???
Please help and points will be rewards!!
Thank You
Best Regards,
CK

I am just showing this to show how to get the rowcount along with the cursor, if the program has so much gap of between verifying the count(*) and opening the cursor.
Justin actually covered this, he said, oracle has to spend some resources to build this functionality. As it is not most often required, it does not makes much sence to see it as a built-in feature. However, if we must see the rowcount when we open the cursor, here is a way, but it is little bit expensive.
SQL> create table emp_crap as select * from emp where 1 = 2;
Table created.
SQL> declare
2   v_cnt     number := 0;
3   zero_rows         exception;
4 begin
5    for rec in (select * from (select rownum rn, e.ename from emp_crap e) order by 1 desc)
6     loop
7        if v_cnt = 0 then
8           v_cnt := rec.rn;
9        end if;
10     end loop;
11     if v_cnt = 0 then
12        raise zero_rows;
13     end if;
14   exception
15    when zero_rows then
16      dbms_output.put_line('No rows');
17   end;
18 /
No rows
PL/SQL procedure successfully completed.
-- Now, let us use the table, which has the data
SQL> declare
2   v_cnt     number := 0;
3   zero_rows         exception;
4 begin
5    for rec in (select * from
6          (select rownum rn, e.ename from emp e)
7          order by 1 desc)
8     loop
9        if v_cnt = 0 then
10           v_cnt := rec.rn;
11           dbms_output.put_line(v_cnt);
12        end if;
13     end loop;
14     if v_cnt = 0 then
15        raise zero_rows;
16     end if;
17   exception
18    when zero_rows then
19      dbms_output.put_line('No rows');
20   end;
21 /
14
PL/SQL procedure successfully completed.Thx,
Sri

How to find total recs in a local table for a particular condition

Hi,
How to find total recs in a local table for a particular condition?
Thanks,
CD

Well, you may want to try this as well, and compare to the LOOP way. Not sure what kind of overhead you may get doing this way. Here ITAB is our main internal table, and ITAB_TMP is a copy of it. Again I think there may be some overhead in doing the copy. Next, delete out all records which are the reverse of your condition. Then whatever is left is the rows that you want to count. Then simply do a LINES operator on the internal table, passing the number of lines to LV_COUNT.
data: itab type table of ttab.
data: itab_tmp type table of ttab.
itab_tmp[] = itab[].
delete table itab_tmp where fld1 <> 'A'.
lv_count = lines( itab_tmp ).
Regards,
Rich Heilman

How to find classtype and class for a material.

Hi,
How to find classtype and class for a material.
which table contains this data.
Thanks
Kiran

Hi Kiran,
Check below sample code. Use this BAPI which will give all info about the class for the material.
DATA:      l_objectkey_imp    TYPE bapi1003_key-object
                                     VALUE IS INITIAL.
CONSTANTS: lc_objecttable_imp TYPE bapi1003_key-objecttable
                                     VALUE 'MARA',
             lc_classtype_imp   TYPE bapi1003_key-classtype
                                     VALUE '001',
             lc_freight_class   TYPE bapi1003_alloc_list-classnum
                                     VALUE 'FREIGHT_CLASS',
             lc_e               TYPE bapiret2-type VALUE 'E',
             lc_p(1)            TYPE c             VALUE 'P',
             lc_m(1)            TYPE c             VALUE 'M'.
SORT i_deliverydata BY vbeln posnr matnr.
CLEAR wa_deliverydata.
LOOP AT i_deliverydata INTO wa_deliverydata.
    REFRESH: i_alloclist[],
             i_return[].
    CLEAR:   l_objectkey_imp.
    l_objectkey_imp = wa_deliverydata-matnr.
*Get classes and characteristics
    CALL FUNCTION 'BAPI_OBJCL_GETCLASSES'
      EXPORTING
        objectkey_imp         = l_objectkey_imp
        objecttable_imp       = lc_objecttable_imp
        classtype_imp         = lc_classtype_imp
*   READ_VALUATIONS       =
        keydate               = sy-datum
        language              = sy-langu
      TABLES
        alloclist             = i_alloclist
*   ALLOCVALUESCHAR       =
*   ALLOCVALUESCURR       =
*   ALLOCVALUESNUM        =
        return                = i_return
Thanks,
Vinod.

How to find the screen name in a screen?

Hello experts
I am using loop at screen to make my selection screen dynamic
please tell me how to find all screen-name of a screen.
thanks in advance.
Chitta Ranjan Mahato
Moderator message: please think about it before asking, you are naming the selection fields yourself in your program, if still in doubt, just debug your "loop at screen"
Edited by: Thomas Zloch on Nov 9, 2010 12:57 PM

I am writing a program where in selection screen there will be two radio button named application server and presentation server when user choose application server screen changes dynamically and the block containg related to appliction server will be displayed in selection screen. to achieve this i have write code like
at selection-screen output.
if <radiobutton-name> = 'X'.
loop at screen.
{color:green}
if screen-name = 'radiobutton-name'.
{color}
if scree
thanks
chitta ranjan mahato

How to find the exact user exit in enhancement.

Hi All,
I am in learning phase. I am working on TCODE VA01 and want to change the PO Date. But i am unable to find out the exact user exit. If somebody could guide me that what is the procedure to find the exact user exit for a perticular field or like that. I am know how to find all the enhancements in the TCODE.

hi
Run this program and give the tcode and it will list down all the user exits for that Tcode.
REPORT z_find_userexit NO STANDARD PAGE HEADING.
TABLES : tstc, tadir,            modsapt,            modact,            trdir,             tfdir,      enlfdir,     tstct.
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
START-OF-SELECTION.
SELECT SINGLE * FROM tstc    WHERE tcode EQ p_tcode.
IF sy-subrc EQ 0.
    SELECT SINGLE * FROM tadir       WHERE pgmid    = 'R3TR'         AND object   = 'PROG'
         AND obj_name = tstc-pgmna.
    MOVE : tadir-devclass TO v_devclass.
    IF sy-subrc NE 0.
      SELECT SINGLE * FROM trdir         WHERE name = tstc-pgmna.
      IF trdir-subc EQ 'F'.
        SELECT SINGLE * FROM tfdir          WHERE pname = tstc-pgmna.
        SELECT SINGLE * FROM enlfdir          WHERE funcname = tfdir-funcname.
        SELECT SINGLE * FROM tadir          WHERE pgmid    = 'R3TR'            AND object   = 'FUGR'
            AND obj_name = enlfdir-area.
        MOVE : tadir-devclass TO v_devclass.
      ENDIF.
    ENDIF.
    SELECT * FROM tadir      INTO TABLE jtab      WHERE pgmid    = 'R3TR'        AND object   = 'SMOD'
        AND devclass = v_devclass.
    SELECT SINGLE * FROM tstct      WHERE sprsl EQ sy-langu        AND tcode EQ p_tcode.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19) 'Transaction Code - ',    20(20) p_tcode,    45(50) tstct-ttext.    SKIP.
    IF NOT jtab[] IS INITIAL.
      WRITE:/(95) sy-uline.
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
      WRITE:/1 sy-vline,      2 'Exit Name',      21 sy-vline ,      22 'Description',      95 sy-vline.
      WRITE:/(95) sy-uline.
      LOOP AT jtab.
        SELECT SINGLE * FROM modsapt        WHERE sprsl = sy-langu AND        name = jtab-obj_name.
        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
        WRITE:/1 sy-vline,   2 jtab-obj_name HOTSPOT ON, 21 sy-vline , 22 modsapt-modtext, 95 sy-vline.
      ENDLOOP.
      WRITE:/(95) sy-uline.
      DESCRIBE TABLE jtab.
     SKIP.
     FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE:/ 'No of Exits:' , sy-tfill.
    ELSE.
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
      WRITE:/(95) 'No User Exit exists'.
    ENDIF.
ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
Regards
Sajid
Edited by: shaik sajid on Jun 26, 2009 12:06 PM
Edited by: shaik sajid on Jun 26, 2009 12:10 PM

How to find a correct User-Exit

Hi All
      I need to make changes in the user exit and there are many user-exits in the standard program here my question is how to find the correct user-exit which suits our requirement.
Thanks
srini

run this program by giving ur t code...and click the exit it will go to SMOD there u read the documentation of that exit..if ur requirement satisfies try to use that one..
REPORT ZUSEREXIT.
*report zuserexit no standard page heading.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : devclass like tadir-devclass.
parameters : tcode like tstc-tcode obligatory.
select single * from tstc where tcode eq tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = 'R3TR'
                  and object = 'PROG'
                  and obj_name = tstc-pgmna.
move : tadir-devclass to devclass.
if sy-subrc ne 0.
   select single * from trdir where name = tstc-pgmna.
   if trdir-subc eq 'F'.
     select single * from tfdir where pname = tstc-pgmna.
     select single * from enlfdir where funcname = tfdir-funcname.
     select single * from tadir where pgmid = 'R3TR'
                        and object = 'FUGR'
                        and obj_name eq enlfdir-area.
     move : tadir-devclass to devclass.
   endif.
endif.
select * from tadir into table jtab
               where pgmid = 'R3TR'
                 and object = 'SMOD'
                 and devclass = devclass.
select single * from tstct where sprsl eq sy-langu and
                                  tcode eq tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
      20(20) tcode,
      45(50) tstct-ttext.
skip.
if not jtab[] is initial.
   write:/(95) sy-uline.
   format color col_heading intensified on.
   write:/1 sy-vline,
          2 'Exit Name',
         21 sy-vline ,
         22 'Description',
         95 sy-vline.
   write:/(95) sy-uline.
   loop at jtab.
     select single * from modsapt
            where sprsl = sy-langu and
                   name = jtab-obj_name.
     format color col_normal intensified off.
     write:/1 sy-vline,
            2 jtab-obj_name hotspot on,
           21 sy-vline ,
           22 modsapt-modtext,
           95 sy-vline.
   endloop.
   write:/(95) sy-uline.
   describe table jtab.
   skip.
   format color col_total intensified on.
   write:/ 'No of Exits:' , sy-tfill.
else.
   format color col_negative intensified on.
      write:/(95) 'No User Exit exists'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'Transaction Code Does Not Exist'.
endif.
at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first   screen.

How to find out the 'z' user exit used in a Particular Transaction

Hi,
I have requirement to analyse all the user exits used in a transaction say 'VA01' . How can i find the user exits in a VA01 transaction. Can anyone suggest how to find the User exits
Thanks in Anticipation.
With Best Regards
mamatha

you can execute the following program , give the transaction name and execute
*& Report YCHATEST                                                    *
REPORT z_find_userexit NO STANDARD PAGE HEADING.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
TABLES : tstc,     "SAP Transaction Codes
         tadir,    "Directory of Repository Objects
         modsapt, "SAP Enhancements - Short Texts
         modact,   "Modifications
         trdir,    "System table TRDIR
         tfdir,    "Function Module
         enlfdir, "Additional Attributes for Function Modules
         tstct.    "Transaction Code Texts
*& Variables
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*& Selection Screen Parameters
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
*& Start of main program
START-OF-SELECTION.
* Validate Transaction Code
SELECT SINGLE * FROM tstc
    WHERE tcode EQ p_tcode.
* Find Repository Objects for transaction code
IF sy-subrc EQ 0.
    SELECT SINGLE * FROM tadir
       WHERE pgmid    = 'R3TR'
         AND object   = 'PROG'
         AND obj_name = tstc-pgmna.
    MOVE : tadir-devclass TO v_devclass.
    IF sy-subrc NE 0.
      SELECT SINGLE * FROM trdir
         WHERE name = tstc-pgmna.
      IF trdir-subc EQ 'F'.
        SELECT SINGLE * FROM tfdir
          WHERE pname = tstc-pgmna.
        SELECT SINGLE * FROM enlfdir
          WHERE funcname = tfdir-funcname.
        SELECT SINGLE * FROM tadir
          WHERE pgmid    = 'R3TR'
            AND object   = 'FUGR'
            AND obj_name = enlfdir-area.
        MOVE : tadir-devclass TO v_devclass.
      ENDIF.
    ENDIF.
* Find SAP Modifactions
    SELECT * FROM tadir
      INTO TABLE jtab
      WHERE pgmid    = 'R3TR'
        AND object   = 'SMOD'
        AND devclass = v_devclass.
    SELECT SINGLE * FROM tstct
      WHERE sprsl EQ sy-langu
        AND tcode EQ p_tcode.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19) 'Transaction Code - ',
    20(20) p_tcode,
    45(50) tstct-ttext.
    SKIP.
    IF NOT jtab[] IS INITIAL.
      WRITE:/(95) sy-uline.
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
      WRITE:/1 sy-vline,
      2 'Exit Name',
      21 sy-vline ,
      22 'Description',
      95 sy-vline.
      WRITE:/(95) sy-uline.
      LOOP AT jtab.
        SELECT SINGLE * FROM modsapt
        WHERE sprsl = sy-langu AND
        name = jtab-obj_name.
        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
        WRITE:/1 sy-vline,
        2 jtab-obj_name HOTSPOT ON,
        21 sy-vline ,
        22 modsapt-modtext,
        95 sy-vline.
      ENDLOOP.
      WRITE:/(95) sy-uline.
      DESCRIBE TABLE jtab.
      SKIP.
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE:/ 'No of Exits:' , sy-tfill.
    ELSE.
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
      WRITE:/(95) 'No User Exit exists'.
    ENDIF.
ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
* Take the user to SMOD for the Exit that was selected.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

How to find out user exits of t-code va03

hi all
 how to find out user exits of any t-code .
regards
deepak

Hi Deepak,
Try this code.
*& Report Z_USEREXIT *
REPORT Z_USEREXIT
NO STANDARD PAGE HEADING.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
TABLES : tstc, "SAP Transaction Codes
 tadir, "Directory of Repository Objects
 modsapt, "SAP Enhancements - Short Texts
 modact, "Modifications
 trdir, "System table TRDIR
 tfdir, "Function Module
 enlfdir, "Additional Attributes for Function Modules
 tstct. "Transaction Code Texts
*& Variables
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*& Selection Screen Parameters
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
*& Start of main program
START-OF-SELECTION.
Validate Transaction Code
SELECT SINGLE * FROM tstc
 WHERE tcode EQ p_tcode.
Find Repository Objects for transaction code
IF sy-subrc EQ 0.
 SELECT SINGLE * FROM tadir
 WHERE pgmid = 'R3TR'
 AND object = 'PROG'
 AND obj_name = tstc-pgmna.
 MOVE : tadir-devclass TO v_devclass.
 IF sy-subrc NE 0.
 SELECT SINGLE * FROM trdir
 WHERE name = tstc-pgmna.
 IF trdir-subc EQ 'F'.
 SELECT SINGLE * FROM tfdir
 WHERE pname = tstc-pgmna.
 SELECT SINGLE * FROM enlfdir
 WHERE funcname = tfdir-funcname.
 SELECT SINGLE * FROM tadir
 WHERE pgmid = 'R3TR'
 AND object = 'FUGR'
 AND obj_name = enlfdir-area.
 MOVE : tadir-devclass TO v_devclass.
 ENDIF.
 ENDIF.
Find SAP Modifactions
 SELECT * FROM tadir
 INTO TABLE jtab
 WHERE pgmid = 'R3TR'
 AND object = 'SMOD'
 AND devclass = v_devclass.
 SELECT SINGLE * FROM tstct
 WHERE sprsl EQ sy-langu
 AND tcode EQ p_tcode.
 FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
 WRITE:/(19) 'Transaction Code - ',
 20(20) p_tcode,
 45(50) tstct-ttext.
 SKIP.
 IF NOT jtab[] IS INITIAL.
 WRITE:/(95) sy-uline.
 FORMAT COLOR COL_HEADING INTENSIFIED ON.
 WRITE:/1 sy-vline,
 2 'Exit Name',
 21 sy-vline ,
 22 'Description',
 95 sy-vline.
 WRITE:/(95) sy-uline.
 LOOP AT jtab.
 SELECT SINGLE * FROM modsapt
 WHERE sprsl = sy-langu AND
 name = jtab-obj_name.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 WRITE:/1 sy-vline,
 2 jtab-obj_name HOTSPOT ON,
 21 sy-vline ,
 22 modsapt-modtext,
 95 sy-vline.
 ENDLOOP.
 WRITE:/(95) sy-uline.
 DESCRIBE TABLE jtab.
 SKIP.
 FORMAT COLOR COL_TOTAL INTENSIFIED ON.
 WRITE:/ 'No of Exits:' , sy-tfill.
 ELSE.
 FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
 WRITE:/(95) 'No User Exit exists'.
 ENDIF.
ELSE.
 FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
 WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
Take the user to SMOD for the Exit that was selected.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
plz reward points if helpful or if it solves ur query.
Thanks
Chinmay

How to find the level of each child table in a relational model?

Earthlings,
I need your help and I know that, 'yes, we can change'. Change this thread to a answered question.
So: How to find the level of each child table in a relational model?
I have a relacional database (9.2), all right?!
 O /* This is a child who makes N references to each of the follow N parent tables (here: three), and so on. */
 /↑\ Fks
 O"O O" <-- level 2 for first table (circle)
/↑\ Fks
"o"o"o" <-- level 1 for middle table (circle)
 ↑ Fk
"º"Tips:
- each circle represents a table;
- red tables no have foreign key
- the table in first line of tree, for example, has level 3, but when 3 becomes N? How much is N? This's the question.
I started thinking about the following:
First I have to know how to take the children:
select distinct child.table_name child
from all_cons_columns father
join all_cons_columns child
using (owner, position)
join (select child.owner,
 child.constraint_name fk,
 child.table_name child,
 child.r_constraint_name pk,
 father.table_name father
 from all_constraints father, all_constraints child
 where child.r_owner = father.owner
 and child.r_constraint_name = father.constraint_name
 and father.constraint_type in ('P', 'U')
 and child.constraint_type = 'R'
 and child.owner = 'OWNER') aux
using (owner)
where child.constraint_name = aux.fk
 and child.table_name = aux.child
 and father.constraint_name = aux.pk
 and father.table_name = aux.father;Thinking...
Let's Share!
My thanks in advance,
Philips
Edited by: BluShadow on 01-Apr-2011 15:08
formatted the code and the hierarchy for readbility

Justin,
Understood.
Nocycle not work in 9.2 and, even that would work, would not be appropriate.
With your help, I decided a much simpler way (but there is still a small problem, IN RED):
-- 1
declare
type udt_roles is table of varchar2(30) index by pls_integer;
cRoles udt_roles;
begin
execute immediate 'create user philips
 identified by philips';
select granted_role bulk collect
 into cRoles
 from user_role_privs
 where username = user;
for i in cRoles.first .. cRoles.count loop
 execute immediate 'grant ' || cRoles(i) || ' to philips';
end loop;
end;
-- 2
create table philips.root1(root1_id number,
 constraint root1_id_pk primary key(root1_id)
 enable);
grant all on philips.root1 to philips;
create or replace trigger philips.tgr_root1
 before delete or insert or update on philips.root1
 begin
 null;
 end;
create table philips.root2(root2_id number,
 constraint root2_id_pk primary key(root2_id)
 enable);
grant all on philips.root2 to philips;
create or replace trigger philips.tgr_root2
 before delete or insert or update on philips.root2
 begin
 null;
 end;
create table philips.node1(node1_id number,
 root1_id number,
 node2_id number,
 node4_id number,
 constraint node1_id_pk primary key(node1_id)
 enable,
 constraint n1_r1_id_fk foreign key(root1_id)
 references philips.root1(root1_id) enable,
 constraint n1_n2_id_fk foreign key(node2_id)
 references philips.node2(node2_id) enable,
 constraint n1_n4_id_fk foreign key(node4_id)
 references philips.node4(node4_id) enable);
grant all on philips.node1 to philips;
create or replace trigger philips.tgr_node1
 before delete or insert or update on philips.node1
 begin
 null;
 end;
create table philips.node2(node2_id number,
 root1_id number,
 node3_id number,
 constraint node2_id_pk primary key(node2_id)
 enable,
 constraint n2_r1_id_fk foreign key(root1_id)
 references philips.root1(root1_id) enable,
 constraint n2_n3_id_fk foreign key(node3_id)
 references philips.node3(node3_id) enable);
grant all on philips.node2 to philips;
create or replace trigger philips.tgr_node2
 before delete or insert or update on philips.node2
 begin
 null;
 end;
create table philips.node3(node3_id number,
 root2_id number,
 constraint node3_id_pk primary key(node3_id)
 enable,
 constraint n3_r2_id_fk foreign key(root2_id)
 references philips.root2(root2_id) enable);
grant all on philips.node3 to philips;
create or replace trigger philips.tgr_node3
 before delete or insert or update on philips.node3
 begin
 null;
 end;
create table philips.node4(node4_id number,
 node2_id number,
 constraint node4_id_pk primary key(node4_id)
 enable,
 constraint n4_n2_id_fk foreign key(node2_id)
 references philips.node2(node2_id) enable);
grant all on philips.node4 to philips;
create or replace trigger philips.tgr_node4
 before delete or insert or update on philips.node4
 begin
 null;
 end;
-- out of the relational model
create table philips.node5(node5_id number,
 constraint node5_id_pk primary key(node5_id)
 enable);
grant all on philips.node5 to philips;
create or replace trigger philips.tgr_node5
 before delete or insert or update on philips.node5
 begin
 null;
 end;
-- 3
create table philips.dictionary(table_name varchar2(30));
insert into philips.dictionary values ('ROOT1');
insert into philips.dictionary values ('ROOT2');
insert into philips.dictionary values ('NODE1');
insert into philips.dictionary values ('NODE2');
insert into philips.dictionary values ('NODE3');
insert into philips.dictionary values ('NODE4');
insert into philips.dictionary values ('NODE5');
--4
create or replace package body philips.pck_restore_philips as
procedure sp_select_tables is
 aExportTablesPhilips utl_file.file_type := null; -- file to write DDL of tables
 aExportReferencesPhilips utl_file.file_type := null; -- file to write DDL of references
 aExportIndexesPhilips utl_file.file_type := null; -- file to write DDL of indexes
 aExportGrantsPhilips utl_file.file_type := null; -- file to write DDL of grants
 aExportTriggersPhilips utl_file.file_type := null; -- file to write DDL of triggers
 sDirectory varchar2(100) := '/app/oracle/admin/tace/utlfile'; -- directory \\bmduhom01or02
 cTables udt_tables; -- collection to store table names for the relational depth
begin
 -- omits all referential constraints:
 dbms_metadata.set_transform_param(dbms_metadata.session_transform, 'REF_CONSTRAINTS', false);
 -- omits segment attributes (physical attributes, storage attributes, tablespace, logging):
 dbms_metadata.set_transform_param(dbms_metadata.session_transform, 'SEGMENT_ATTRIBUTES', false);
 -- append a SQL terminator (; or /) to each DDL statement:
 dbms_metadata.set_transform_param(dbms_metadata.session_transform, 'SQLTERMINATOR', true);
 -- create/open files for export DDL:
 aExportTablesPhilips := utl_file.fopen(sDirectory, 'DDLTablesPhilips.pdc', 'w', 32767);
 aExportReferencesPhilips := utl_file.fopen(sDirectory, 'DDLReferencesPhilips.pdc', 'w', 32767);
 aExportIndexesPhilips := utl_file.fopen(sDirectory, 'DDLIndexesPhilips.pdc', 'w', 32767);
 aExportGrantsPhilips := utl_file.fopen(sDirectory, 'DDLGrantsPhilips.pdc', 'w', 32767);
 aExportTriggersPhilips := utl_file.fopen(sDirectory, 'DDLTriggersPhilips.pdc', 'w', 32767);
 select d.table_name bulk collect
 into cTables -- collection with the names of tables in the schema philips
 from all_tables t, philips.dictionary d
 where owner = 'PHILIPS'
 and t.table_name = d.table_name;
 -- execution
 sp_seeks_ddl(aExportTablesPhilips,
 aExportReferencesPhilips,
 aExportIndexesPhilips,
 aExportGrantsPhilips,
 aExportTriggersPhilips,
 cTables);
 -- closes all files
 utl_file.fclose_all;
end sp_select_tables;
procedure sp_seeks_ddl(aExportTablesPhilips in utl_file.file_type,
 aExportReferencesPhilips in utl_file.file_type,
 aExportIndexesPhilips in utl_file.file_type,
 aExportGrantsPhilips in utl_file.file_type,
 aExportTriggersPhilips in utl_file.file_type,
 cTables in out nocopy udt_tables) is
 cDDL clob := null; -- colletion to save DDL
 plIndex pls_integer := null;
 sTableName varchar(30) := null;
begin
 for i in cTables.first .. cTables.count loop
 plIndex := i;
 sTableName := cTables(plIndex);
 * Retrieves the DDL and the dependent DDL into cDDL clob *
 * for the selected table in the collection, and writes to file.*
 begin
 cDDL := dbms_metadata.get_ddl('TABLE', sTableName, 'PHILIPS');
 sp_writes_ddl(aExportTablesPHILIPS, cDDL);
 exception
 when dbms_metadata.object_not_found then
 null;
 end;
 begin
 cDDL := dbms_metadata.get_dependent_ddl('REF_CONSTRAINT', sTableName, 'PHILIPS');
 sp_writes_ddl(aExportReferencesPhilips, cDDL);
 exception
 when dbms_metadata.object_not_found2 then
 null;
 end;
 begin
 cDDL := dbms_metadata.get_dependent_ddl('INDEX', sTableName, 'PHILIPS');
 sp_writes_ddl(aExportIndexesPhilips, cDDL);
 exception
 when dbms_metadata.object_not_found2 then
 null;
 end;
 begin
 cDDL := dbms_metadata.get_dependent_ddl('OBJECT_GRANT', sTableName, 'PHILIPS');
 sp_writes_ddl(aExportGrantsPhilips, cDDL);
 exception
 when dbms_metadata.object_not_found2 then
 null;
 end;
 begin
 cDDL := dbms_metadata.get_dependent_ddl('TRIGGER', sTableName, 'PHILIPS');
 sp_writes_ddl(aExportTriggersPhilips, cDDL);
 exception
 when dbms_metadata.object_not_found2 then
 null;
 end;
 end loop;
end sp_seeks_ddl;
procedure sp_writes_ddl(aExport in utl_file.file_type,
 cDDL in out nocopy clob) is
 pLengthDDL pls_integer := length(cDDL);
 plQuotient pls_integer := null;
 plRemainder pls_integer := null;
begin
 * Register variables to control the amount of lines needed *
 * for each DDL and the remaining characters to the last row. *
 select trunc(pLengthDDL / 32766), mod(pLengthDDL, 32766)
 into plQuotient, plRemainder
 from dual;
 * Join DDL in the export file. *
 * ps. 32766 characters + 1 character for each line break. *
 -- if the size of the DDL is greater than or equal to limit the line ...
 if plQuotient >= 1 then
 -- loops for substring (lines of 32766 characters + 1 break character):
 for i in 1 .. plQuotient loop
 utl_file.put_line(aExport, substr(cDDL, 1, 32766));
 -- removes the last line, of clob, recorded in the buffer:
 cDDL := substr(cDDL, 32767, length(cDDL) - 32766);
 end loop;
 end if;
 * If any remains or the number of characters is less than the threshold (quotient = 0), *
 * no need to substring. *
 if plRemainder > 0 then
 utl_file.put_line(aExport, cDDL);
 end if;
 -- record DDL buffered in the export file:
 utl_file.fflush(aExport);
end sp_writes_ddl;
begin
-- executes main procedure:
sp_select_tables;
end pck_restore_philips;The problem is that I still have ...
When creating the primary key index is created and this is repeated in the file indexes.
How to avoid?

How to find loop in Supervisor Hirarchy.

Similar Messages

Maybe you are looking for