1.sort out the group control A/C
2.search vendor ID
3.then input amounts/invoice numbers/dates etc

Then I enter another screen where I need to enter A/C number and then operating unit.

What I am Looking for is. Is there an easier way to do this eg a excel spreadsheet or maybe some sort of batch upload.

As this whole process is grossly inefficient !!!!

Thanks.

If you see the following error when you run a process:

 ERROR: 'system-temp-dir' property is pointing to an invalid directory (235,3263) PSXP_RPTDEFNMANAGER.ReportDefn.OnExecute Name:SetSystemProperties PCPC:1864 

It means the system-temp-dir is invalid. Check the following line xdo.cfg to confirm:

 <property name="system-temp-dir">/example/directory</property> 

 com.peoplesoft.pt.integrationgateway.common.NodeInfo getDomainPassword SEVERE: Unable to decrypt the domain password 

It indicates an issues with your integration broker gateway settings, first confirm your gateway URL (and ping). Then check your advanced gateway node settings and confirm they all ping.

select NV.navigation,
NV.DESCR254 as Navigation_Descr,
replace(a.Page_label_String, '&', '') as Page_label_in_Component,
chr(39) || 'Panel Name ' || b.PNLNAME || ' Record names#' ||
Replace(RECNAME_STRING, '>', chr(13)) as Records_in_pages,
Replace(b.LBLTEXT_STRING, '>', chr(13)) as Page_label_String
FROM (SELECT PNLNAME, ITEMLABEL as Page_label_String, PNLGRPNAME
FROM PSPNLGROUP) A,
(SELECT PNLNAME,
LTRIM(MAX(SYS_CONNECT_BY_PATH(RECNAME, '>')), '>') RECNAME_STRING,
LTRIM(MAX(SYS_CONNECT_BY_PATH(Replace(LBLTEXT, '>', ' '), '>')),
'>') LBLTEXT_STRING
FROM (SELECT distinct PNLNAME,
RECNAME,
FIELDNAME,
LBLTEXT,
row_number() OVER(PARTITION BY PNLNAME ORDER BY fieldtop, fieldleft) rn
FROM (select distinct PNLNAME,
RECNAME,
FIELDNAME,
LBLTEXT,
fieldtop,
fieldleft
from PSPNLFIELD
where RECNAME <> ' '
and pnlname in
(select distinct pnlname
from pspnlfield
group by pnlname
having sum(length(LBLTEXT || '>')) < 4000)))
CONNECT BY nocycle PNLNAME = PRIOR PNLNAME
AND rn = PRIOR rn + 1
START WITH rn = 1
GROUP BY PNLNAME) B,
(SELECT SYS_CONNECT_BY_PATH(A.PORTAL_LABEL, '->') navigation,
'/EMPLOYEE/ERP/c/' || PORTAL_URI_SEG1 || '.' ||
PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 url,
PORTAL_URI_SEG2,
DESCR254
from (SELECT distinct A.PORTAL_NAME,
A.PORTAL_LABEL,
A.PORTAL_OBJNAME,
a.PORTAL_PRNTOBJNAME,
A.PORTAL_URI_SEG1,
A.PORTAL_URI_SEG2,
A.PORTAL_URI_SEG3,
A.PORTAL_REFTYPE,
A.DESCR254
FROM PSPRSMDEFN A
WHERE portal_name = 'EMPLOYEE'
and portal_objname <> portal_prntobjname
and not exists
(select 'x'
from PSPRSMSYSATTRVL
where portal_name = A.PORTAL_NAME
AND portal_Reftype = A.PORTAL_REFTYPE
and portal_objname = A.PORTAL_OBJNAME
and PORTAL_ATTR_NAM = 'PORTAL_HIDE_FROM_NAV'
and A.PORTAL_OBJNAME not in
('CO_NAVIGATION_COLLECTIONS',
'PORTAL_BASE_DATA'))) A

start with A.portal_prntobjname = 'PORTAL_ROOT_OBJECT'
CONNECT BY nocycle prior A.portal_objname = A.portal_prntobjname) nv
WHERE NV.PORTAL_URI_SEG2 = A.PNLGRPNAME
and A.PNLGRPNAME <> ' '
and b.pnlname in (SELECT distinct pnlname
FROM PSPNLFIELD
START WITH PNLNAME = a.PNLNAME
CONNECT BY nocycle PRIOR SUBPNLNAME = PNLNAME
and PRIOR FIELDTYPE = 11)
AND (upper(NV.navigation) LIKE upper('%General%Ledger%') and
NV.navigation not like '%Portal Objects%')
order by NV.navigation ,Page_label_String

select level, PARENT_RECORD, ltrim(sys_connect_by_path(child_record, '->'), '->') as child_record_tree
from (select P.RECNAME AS PARENT_RECORD, C.RECNAME AS CHILD_RECORD
from (select RECNAME,
max(ltrim(sys_connect_by_path(FIELDNAME, ','), ',')) keystring
from (select RECNAME,
FIELDNAME,
row_number() over(partition by RECNAME order by KEYPOSN) rn
from PSKEYDEFN
where indexid = '_')
start with rn = 1
connect by prior rn = rn - 1
and prior RECNAME = RECNAME
group by RECNAME) P,
(select RECNAME,
max(ltrim(sys_connect_by_path(FIELDNAME, ','), ',')) keystring
from (select RECNAME,
FIELDNAME,
row_number() over(partition by RECNAME order by KEYPOSN) rn
from PSKEYDEFN
where indexid = '_')
start with rn = 1
connect by prior rn = rn - 1
and prior RECNAME = RECNAME
group by RECNAME) C
where instr(c.keystring, P.keystring) <> 0) PC
connect by nocycle prior CHILD_RECORD = PARENT_RECORD
start with PARENT_RECORD = 'VENDOR'

update psprojectitem set objectvalue1 = replace(objectvalue1,'XGL','ZGL') where projectname = 'VCR_QUERIES_BM';

"SetQryVersion.sql"
—This script increments the version number on an operator after you update it
UPDATE PSLOCK SET VERSION = VERSION + 1 WHERE OBJECTTYPENAME = 'QDM'
/
UPDATE PSVERSION SET VERSION = VERSION + 1 WHERE OBJECTTYPENAME = 'SYS'
/
UPDATE PSVERSION SET VERSION = VERSION + 1 WHERE OBJECTTYPENAME = 'QDM'
/
UPDATE PSQRYDEFN SET VERSION = (SELECT VERSION FROM PSVERSION WHERE OBJECTTYPENAME = 'QDM') where oprid = ' ' and upper(QRYNAME) like upper('%&1')
/
"ShowActiveSQL.sql"
rem Author: Mark Lang, 1998
rem Name: lastsql.sql
rem Purpose: Display last executed SQL statement by session with stats
rem Usage: @lastsql <%user%> <%status%>
rem Subject: session
rem Attrib: sql dba
rem Descr:
rem Notes:
rem SeeAlso: @sqlarea
rem History:
rem 01-feb-98 Initial release

@setup

column username format a10
column status format a10
column sid format a15
column serial# format a15
column osuser format a10
column machine format a8
column process format a9
column client_info format a15
column text format a80 word
set long 20000
set lines 200
set pages 1000

define usr="upper('SYSADM')"
define sta="upper('ACTIVE')"

select
s.username
,s.sid sidd
,s.serial# serialno
,s.osuser
,s.machine
,s.process
,s.client_info
,'(diskr='||l.disk_reads

text
from v$session s, v$sql l
where s.sql_address = l.address
and s.username is not null and s.username <> 'SYSTEM'
and s.status like &&sta
;

undef usr sta

@setdefs

"ShowActiveSQLG.sql"
rem Author: Mark Lang, 1998
rem Name: lastsql.sql
rem Purpose: Display last executed SQL statement by session with stats
rem Usage: @lastsql <%user%> <%status%>
rem Subject: session
rem Attrib: sql dba
rem Descr:
rem Notes:
rem SeeAlso: @sqlarea
rem History:
rem 01-feb-98 Initial release

@setup

column username format a10
column status format a10
column sid format a15
column serial# format a15
column osuser format a10
column machine format a8
column process format a9
column client_info format a15
column text format a80 word
set long 20000
set lines 200
set pages 1000

define usr="upper('SYSADM')"
define sta="upper('ACTIVE')"

select
s.username
,s.sid sidd
,s.serial# serialno
,s.osuser
,s.machine
,s.process
,s.client_info
,'(diskr='||l.disk_reads

text
from gv$session s, gv$sql l
where s.sql_address = l.address
and s.username is not null and s.username <> 'SYSTEM'
and s.status like &&sta
;

undef usr sta

@setdefs

"ShowAppEngine.sql"
SELECT
SERVERNAMERUN,
case when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=1 then 'Cancel'
when RUNSTATUS=2 then 'Delete'
when RUNSTATUS=3 then 'Error'
when RUNSTATUS=4 then 'Hold'
when RUNSTATUS=5 then 'Queued'
when RUNSTATUS=6 then 'Initiated'
when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=8 then 'Cancelled'
when RUNSTATUS=9 then 'Success'
when RUNSTATUS=10 then 'Not Successful'
when RUNSTATUS=11 then 'Posted'
when RUNSTATUS=12 then 'Unable to Post'
when RUNSTATUS=13 then 'Resend'
when RUNSTATUS=14 then 'Posting'
when RUNSTATUS=15 then 'Content Generated'
when RUNSTATUS=16 then 'Pending'
when RUNSTATUS=17 then 'Success with Warning'
when RUNSTATUS=18 then 'Blocked'
when RUNSTATUS=19 then 'Restart'
else RUNSTATUS END status,
COUNT(*) RunningAppEngineCnt
FROM PSPRCSQUE PSPRCSRQST —PS_PMN_PRCSLIST
WHERE
—PRCSJOBSEQ = 0 AND
PRCSTYPE = 'Application Engine'
group by
SERVERNAMERUN,
case when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=1 then 'Cancel'
when RUNSTATUS=2 then 'Delete'
when RUNSTATUS=3 then 'Error'
when RUNSTATUS=4 then 'Hold'
when RUNSTATUS=5 then 'Queued'
when RUNSTATUS=6 then 'Initiated'
when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=8 then 'Cancelled'
when RUNSTATUS=9 then 'Success'
when RUNSTATUS=10 then 'Not Successful'
when RUNSTATUS=11 then 'Posted'
when RUNSTATUS=12 then 'Unable to Post'
when RUNSTATUS=13 then 'Resend'
when RUNSTATUS=14 then 'Posting'
when RUNSTATUS=15 then 'Content Generated'
when RUNSTATUS=16 then 'Pending'
when RUNSTATUS=17 then 'Success with Warning'
when RUNSTATUS=18 then 'Blocked'
when RUNSTATUS=19 then 'Restart'
else RUNSTATUS END
/
CASE WHEN sal>1000 THEN 'Over paid' ELSE 'Under paid' END

"ShowComponentNavigation.sql"
set pages 0
set lines 255
set trimsp on
column navigation format a132
column url format a255
set verify off
set feedback off

select SYS_CONNECT_BY_PATH(A.PORTAL_LABEL,'\') navigation,
'/EMPLOYEE/ERP/c/' || PORTAL_URI_SEG1 || '.' || PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 url
from (SELECT distinct A.PORTAL_NAME, A.PORTAL_LABEL, A.PORTAL_OBJNAME, a.PORTAL_PRNTOBJNAME,
A.PORTAL_URI_SEG1, A.PORTAL_URI_SEG2, A.PORTAL_URI_SEG3, A.PORTAL_REFTYPE
FROM PSPRSMDEFN A
WHERE
portal_name = 'EMPLOYEE' and
portal_objname <> portal_prntobjname and
not exists (
select 'x'
from PSPRSMSYSATTRVL
where portal_name = A.PORTAL_NAME AND
portal_Reftype = A.PORTAL_REFTYPE and
portal_objname = A.PORTAL_OBJNAME and
PORTAL_ATTR_NAM = 'PORTAL_HIDE_FROM_NAV' and
A.PORTAL_OBJNAME not in ('CO_NAVIGATION_COLLECTIONS', 'PORTAL_BASE_DATA')
)
) A
where PORTAL_URI_SEG2 like '&&1' || '%'
start with A.portal_prntobjname = 'PORTAL_ROOT_OBJECT'
connect by prior A.portal_objname = A.portal_prntobjname
/
undef 1
set verify on
set feedback on
set pages 100

"ShowComponentRecords.sql"
select recname, rectype, max(updatable) updatable, recdescr
from (
select b.RECNAME, c.rectype, case when min(mod(b.fielduse,2))=0 and min(a.hidden) = 0 then '1' else '0' END Updatable, c.recdescr
from pspnlgroup a, pspnlfield b, psrecdefn c
where
a.pnlname = b.pnlname and
b.recname = c.recname and
a.pnlgrpname = '&1' and
b.recname <> ' '
group by b.recname, c.rectype, c.recdescr
union
select b.RECNAME, c.rectype, case when min(mod(b.fielduse,2))=0 then '1' else '0' END Updatable, c.recdescr
from pspnlfield b, psrecdefn c
where
b.recname = c.recname and
b.recname <> ' ' and
b.pnlname in (
select distinct subpnlname
from pspnlgroup a, pspnlfield d
where a.pnlname = d.pnlname and
a.pnlgrpname = '&1' and
subpnlname <> ' '
)
group by b.recname, c.rectype, c.recdescr
order by 2,1
) a
group by recname, rectype, recdescr
order by 2,3 desc,1
/

"ShowDB.sql"
set lines 132
select a.name, b.dbname, a.created , b.ownerid, c.longname, c.guid —, c.license_code
from v$database a, ps.psdbowner b, psoptions c;

"ShowDBLocks.sql"
rem ---------------
rem Filename: lock.sql
rem Purpose: Display database locks and latched (with tables names, etc)
rem Date: 12-Apr-1998
rem Author: Frank Naude (az.oc.ewno|knarf#az.oc.ewno|knarf)
rem ---------------

set pagesize 23

col sid format 999999
col serial# format 999999
col username format a12 trunc
col process format a8 trunc
col terminal format a12 trunc
col type format a12 trunc
col lmode format a4 trunc
col lrequest format a4 trunc
col object format a73 trunc
— spool c:\temp\locks.txt
select s.sid, s.serial#,
decode(s.process, null,
decode(substr(p.username,1,1), '?', upper(s.osuser), p.username),
decode( p.username, 'ORACUSR ', upper(s.osuser), s.process)
) process,
nvl(s.username, 'SYS ('||substr(p.username,1,4)||')') username,
decode(s.terminal, null, rtrim(p.terminal, chr(0)),
upper(s.terminal)) terminal,
decode(l.type,
— Long locks
'TM', 'DML/DATA ENQ', 'TX', 'TRANSAC ENQ',
'UL', 'PLS USR LOCK',
— Short locks
'BL', 'BUF HASH TBL', 'CF', 'CONTROL FILE',
'CI', 'CROSS INST F', 'DF', 'DATA FILE ',
'CU', 'CURSOR BIND ',
'DL', 'DIRECT LOAD ', 'DM', 'MOUNT/STRTUP',
'DR', 'RECO LOCK ', 'DX', 'DISTRIB TRAN',
'FS', 'FILE SET ', 'IN', 'INSTANCE NUM',
'FI', 'SGA OPN FILE',
'IR', 'INSTCE RECVR', 'IS', 'GET STATE ',
'IV', 'LIBCACHE INV', 'KK', 'LOG SW KICK ',
'LS', 'LOG SWITCH ',
'MM', 'MOUNT DEF ', 'MR', 'MEDIA RECVRY',
'PF', 'PWFILE ENQ ', 'PR', 'PROCESS STRT',
'RT', 'REDO THREAD ', 'SC', 'SCN ENQ ',
'RW', 'ROW WAIT ',
'SM', 'SMON LOCK ', 'SN', 'SEQNO INSTCE',
'SQ', 'SEQNO ENQ ', 'ST', 'SPACE TRANSC',
'SV', 'SEQNO VALUE ', 'TA', 'GENERIC ENQ ',
'TD', 'DLL ENQ ', 'TE', 'EXTEND SEG ',
'TS', 'TEMP SEGMENT', 'TT', 'TEMP TABLE ',
'UN', 'USER NAME ', 'WL', 'WRITE REDO ',
'TYPE='||l.type) type,
decode(l.lmode, 0, 'NONE', 1, 'NULL', 2, 'RS', 3, 'RX',
4, 'S', 5, 'RSX', 6, 'X',
to_char(l.lmode) ) lmode,
decode(l.request, 0, 'NONE', 1, 'NULL', 2, 'RS', 3, 'RX',
4, 'S', 5, 'RSX', 6, 'X',
to_char(l.request) ) lrequest,
decode(l.type, 'MR', decode(u.name, null,
'DICTIONARY OBJECT', u.name||'.'||o.name),
'TD', u.name||'.'||o.name,
'TM', u.name||'.'||o.name,
'RW', 'FILE#='||substr(l.id1,1,3)||
' BLOCK#='||substr(l.id1,4,5)||' ROW='||l.id2,
'TX', 'RS+SLOT#'||l.id1||' WRP#'||l.id2,
'WL', 'REDO LOG FILE#='||l.id1,
'RT', 'THREAD='||l.id1,
'TS', decode(l.id2, 0, 'ENQUEUE',
'NEW BLOCK ALLOCATION'),
'ID1='||l.id1||' ID2='||l.id2) object
from sys.v_$lock l, sys.v_$session s, sys.obj$ o, sys.user$ u,
sys.v_$process p
where s.paddr = p.addr(+)
and l.sid = s.sid
and l.id1 = o.obj#(+)
and o.owner# = u.user#(+)
and l.type <> 'MR'
UNION ALL /* LATCH HOLDERS */
select s.sid, s.serial#, s.process, s.username, s.terminal,
'LATCH', 'X', 'NONE', h.name||' ADDR='||rawtohex(laddr)
from sys.v_$process p, sys.v_$session s, sys.v_$latchholder h
where h.pid = p.pid
and p.addr = s.paddr
UNION ALL /* LATCH WAITERS */
select s.sid, s.serial#, s.process, s.username, s.terminal,
'LATCH', 'NONE', 'X', name||' LATCH='||p.latchwait
from sys.v_$session s, sys.v_$process p, sys.v_$latch l
where latchwait is not null
and p.addr = s.paddr
and p.latchwait = l.addr
/
— spool off
Here's a script I got from http://ora.seiler.us/2007/03/how-to-find-blocking-locks-and.html
select s1.username || '@' || s1.machine
|| ' ( SID=' || s1.sid || ' ) is blocking '
|| s2.username || '@' || s2.machine || ' ( SID=' || s2.sid || ' ) ' AS blocking_status
from v$lock l1, v$session s1, v$lock l2, v$session s2
where s1.sid=l1.sid and s2.sid=l2.sid
and l1.BLOCK=1 and l2.request > 0
and l1.id1 = l2.id1
and l2.id2 = l2.id2 ;

"ShowDBLocksG.sql"
rem ---------------
rem Filename: lock.sql
rem Purpose: Display database locks and latched (with tables names, etc)
rem Date: 12-Apr-1998
rem Author: Frank Naude (az.oc.ewno|knarf#az.oc.ewno|knarf)
rem ---------------

set pagesize 23

col sid format 999999
col serial# format 999999
col username format a12 trunc
col process format a8 trunc
col terminal format a12 trunc
col type format a12 trunc
col lmode format a4 trunc
col lrequest format a4 trunc
col object format a73 trunc
— spool c:\temp\locks.txt
select s.sid, s.serial#,
decode(s.process, null,
decode(substr(p.username,1,1), '?', upper(s.osuser), p.username),
decode( p.username, 'ORACUSR ', upper(s.osuser), s.process)
) process,
nvl(s.username, 'SYS ('||substr(p.username,1,4)||')') username,
decode(s.terminal, null, rtrim(p.terminal, chr(0)),
upper(s.terminal)) terminal,
decode(l.type,
— Long locks
'TM', 'DML/DATA ENQ', 'TX', 'TRANSAC ENQ',
'UL', 'PLS USR LOCK',
— Short locks
'BL', 'BUF HASH TBL', 'CF', 'CONTROL FILE',
'CI', 'CROSS INST F', 'DF', 'DATA FILE ',
'CU', 'CURSOR BIND ',
'DL', 'DIRECT LOAD ', 'DM', 'MOUNT/STRTUP',
'DR', 'RECO LOCK ', 'DX', 'DISTRIB TRAN',
'FS', 'FILE SET ', 'IN', 'INSTANCE NUM',
'FI', 'SGA OPN FILE',
'IR', 'INSTCE RECVR', 'IS', 'GET STATE ',
'IV', 'LIBCACHE INV', 'KK', 'LOG SW KICK ',
'LS', 'LOG SWITCH ',
'MM', 'MOUNT DEF ', 'MR', 'MEDIA RECVRY',
'PF', 'PWFILE ENQ ', 'PR', 'PROCESS STRT',
'RT', 'REDO THREAD ', 'SC', 'SCN ENQ ',
'RW', 'ROW WAIT ',
'SM', 'SMON LOCK ', 'SN', 'SEQNO INSTCE',
'SQ', 'SEQNO ENQ ', 'ST', 'SPACE TRANSC',
'SV', 'SEQNO VALUE ', 'TA', 'GENERIC ENQ ',
'TD', 'DLL ENQ ', 'TE', 'EXTEND SEG ',
'TS', 'TEMP SEGMENT', 'TT', 'TEMP TABLE ',
'UN', 'USER NAME ', 'WL', 'WRITE REDO ',
'TYPE='||l.type) type,
decode(l.lmode, 0, 'NONE', 1, 'NULL', 2, 'RS', 3, 'RX',
4, 'S', 5, 'RSX', 6, 'X',
to_char(l.lmode) ) lmode,
decode(l.request, 0, 'NONE', 1, 'NULL', 2, 'RS', 3, 'RX',
4, 'S', 5, 'RSX', 6, 'X',
to_char(l.request) ) lrequest,
decode(l.type, 'MR', decode(u.USERNAME, null,
'DICTIONARY OBJECT', u.USERNAME||'.'||o.name),
'TD', u.USERNAME||'.'||o.name,
'TM', u.USERNAME||'.'||o.name,
'RW', 'FILE#='||substr(l.id1,1,3)||
' BLOCK#='||substr(l.id1,4,5)||' ROW='||l.id2,
'TX', 'RS+SLOT#'||l.id1||' WRP#'||l.id2,
'WL', 'REDO LOG FILE#='||l.id1,
'RT', 'THREAD='||l.id1,
'TS', decode(l.id2, 0, 'ENQUEUE',
'NEW BLOCK ALLOCATION'),
'ID1='||l.id1||' ID2='||l.id2) object
from gv$lock l, gv$session s, sys.obj$ o, all_users u,
gv$process p
where s.paddr = p.addr(+)
and l.sid = s.sid
and l.id1 = o.obj#(+)
and o.owner# = u.user_id(+)
and l.type <> 'MR'
UNION ALL /* LATCH HOLDERS */
select s.sid, s.serial#, s.process, s.username, s.terminal,
'LATCH', 'X', 'NONE', h.name||' ADDR='||rawtohex(laddr)
from gv$process p, gv$session s, gv$latchholder h
where h.pid = p.pid
and p.addr = s.paddr
UNION ALL /* LATCH WAITERS */
select s.sid, s.serial#, s.process, s.username, s.terminal,
'LATCH', 'NONE', 'X', name||' LATCH='||p.latchwait
from gv$session s, gv$process p, gv$latch l
where latchwait is not null
and p.addr = s.paddr
and p.latchwait = l.addr
/
— spool off
Here's a script I got from http://ora.seiler.us/2007/03/how-to-find-blocking-locks-and.html
select s1.username || '@' || s1.machine
|| ' ( SID=' || s1.sid || ' ) is blocking '
|| s2.username || '@' || s2.machine || ' ( SID=' || s2.sid || ' ) ' AS blocking_status
from gv$lock l1, gv$session s1, gv$lock l2, gv$session s2
where s1.sid=l1.sid and s2.sid=l2.sid
and l1.BLOCK=1 and l2.request > 0
and l1.id1 = l2.id1
—and l2.id2 = l2.id2 ;

"ShowDBWaits.sql"
set lines 255
set pages 66

select event,
total_waits,
round(100 * (total_waits / sum_waits),2) pct_waits,
time_wait_sec,
round(100 * (time_wait_sec / greatest(sum_time_waited,1)),2)
pct_time_waited,
total_timeouts,
round(100 * (total_timeouts / greatest(sum_timeouts,1)),2)
pct_timeouts,
average_wait_sec
from
(select event,
total_waits,
round((time_waited / 100),2) time_wait_sec,
total_timeouts,
round((average_wait / 100),2) average_wait_sec
from sys.v_$system_event
where event not in
('lock element cleanup',
'pmon timer',
'rdbms ipc message',
'rdbms ipc reply',
'smon timer',
'SQL*Net message from client',
'SQL*Net break/reset to client',
'SQL*Net message to client',
'SQL*Net more data from client',
'dispatcher timer',
'Null event',
'parallel query dequeue wait',
'parallel query idle wait - Slaves',
'pipe get',
'PL/SQL lock timer',
'slave wait',
'virtual circuit status',
'WMON goes to sleep',
'jobq slave wait',
'Queue Monitor Wait',
'wakeup time manager',
'PX Idle Wait') AND
event not like 'DFS%' AND
event not like 'KXFX%'),
(select sum(total_waits) sum_waits,
sum(total_timeouts) sum_timeouts,
sum(round((time_waited / 100),2)) sum_time_waited
from sys.v_$system_event
where event not in
('lock element cleanup',
'pmon timer',
'rdbms ipc message',
'rdbms ipc reply',
'smon timer',
'SQL*Net message from client',
'SQL*Net break/reset to client',
'SQL*Net message to client',
'SQL*Net more data from client',
'dispatcher timer',
'Null event',
'parallel query dequeue wait',
'parallel query idle wait - Slaves',
'pipe get',
'PL/SQL lock timer',
'slave wait',
'virtual circuit status',
'WMON goes to sleep',
'jobq slave wait',
'Queue Monitor Wait',
'wakeup time manager',
'PX Idle Wait') AND
event not like 'DFS%' AND
event not like 'KXFX%')
order by 4 desc, 1 asc
/

"ShowMaint.sql"
select update_id, descr, DTTM_IMPORTED
from ps_maintenance_log a
where update_id = '&1';

"ShowPageRecords.sql"
select distinct a.RECNAME, c.rectype, c.recdescr
from pspnlfield a, psrecdefn c
where a.recname = c.recname and
PNLNAME = '&1'
order by c.rectype;

"ShowPRCS.sql"
set verify off

SELECT
SERVERNAMERUN, PRCSTYPE,
case when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=1 then 'Cancel'
when RUNSTATUS=2 then 'Delete'
when RUNSTATUS=3 then 'Error'
when RUNSTATUS=4 then 'Hold'
when RUNSTATUS=5 then 'Queued'
when RUNSTATUS=6 then 'Initiated'
when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=8 then 'Cancelled'
when RUNSTATUS=9 then 'Success'
when RUNSTATUS=10 then 'Not Successful'
when RUNSTATUS=11 then 'Posted'
when RUNSTATUS=12 then 'Unable to Post'
when RUNSTATUS=13 then 'Resend'
when RUNSTATUS=14 then 'Posting'
when RUNSTATUS=15 then 'Content Generated'
when RUNSTATUS=16 then 'Pending'
when RUNSTATUS=17 then 'Success with Warning'
when RUNSTATUS=18 then 'Blocked'
when RUNSTATUS=19 then 'Restart'
else RUNSTATUS END status,
COUNT(*)
FROM PSPRCSRQST —PS_PMN_PRCSLIST
WHERE
(SERVERNAMERUN like '&1' || '%')
group by SERVERNAMERUN, PRCSTYPE,
case when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=1 then 'Cancel'
when RUNSTATUS=2 then 'Delete'
when RUNSTATUS=3 then 'Error'
when RUNSTATUS=4 then 'Hold'
when RUNSTATUS=5 then 'Queued'
when RUNSTATUS=6 then 'Initiated'
when RUNSTATUS=7 then 'Processing'
when RUNSTATUS=8 then 'Cancelled'
when RUNSTATUS=9 then 'Success'
when RUNSTATUS=10 then 'Not Successful'
when RUNSTATUS=11 then 'Posted'
when RUNSTATUS=12 then 'Unable to Post'
when RUNSTATUS=13 then 'Resend'
when RUNSTATUS=14 then 'Posting'
when RUNSTATUS=15 then 'Content Generated'
when RUNSTATUS=16 then 'Pending'
when RUNSTATUS=17 then 'Success with Warning'
when RUNSTATUS=18 then 'Blocked'
when RUNSTATUS=19 then 'Restart'
else RUNSTATUS END
/

"ShowProcessNavigation.sql"
set pages 132
set lines 132
column navigation format a132
column url format a100
set verify off

select SYS_CONNECT_BY_PATH(A.PORTAL_LABEL,'~') navigation, '/EMPLOYEE/ERP/c/' || PORTAL_URI_SEG1 || '.' || PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 url
from (SELECT distinct A.PORTAL_NAME, A.PORTAL_LABEL, A.PORTAL_OBJNAME, a.PORTAL_PRNTOBJNAME,
A.PORTAL_URI_SEG1, A.PORTAL_URI_SEG2, A.PORTAL_URI_SEG3, A.PORTAL_REFTYPE
FROM PSPRSMDEFN A
WHERE
portal_name = 'EMPLOYEE' and
portal_objname <> portal_prntobjname and
not exists (
select 'x'
from PSPRSMSYSATTRVL
where portal_name = A.PORTAL_NAME AND
portal_Reftype = A.PORTAL_REFTYPE and
portal_objname = A.PORTAL_OBJNAME and
PORTAL_ATTR_NAM = 'PORTAL_HIDE_FROM_NAV' and
A.PORTAL_OBJNAME not in ('CO_NAVIGATION_COLLECTIONS', 'PORTAL_BASE_DATA')
)
) A
where PORTAL_URI_SEG2 in (select PNLGRPNAME from ps_prcsdefnpnl where prcsname like '&&1' || '%')
start with A.portal_prntobjname = 'PORTAL_ROOT_OBJECT'
connect by prior A.portal_objname = A.portal_prntobjname
/
undef 1

"ShowProject.sql"
— This script finds projects that contain an object
set lines 255

select a.projectname, b.PROJECTDESCR,
decode(a.objecttype,0,'Records',
decode(a.objecttype,1,'Indexes',
decode(a.objecttype,2,'Fields',
decode(a.objecttype,3,'Field Format',
decode(a.objecttype,4,'Translate',
decode(a.objecttype,5,'Page',
decode(a.objecttype,6,'Menu',
decode(a.objecttype,7,'Component',
decode(a.objecttype,8,'PeopleCode',
decode(a.objecttype,9,'Menu PeopleCode',
decode(a.objecttype,10,'Query',
decode(a.objecttype,11,'Tree Structures',
decode(a.objecttype,12,'Tree',
decode(a.objecttype,13,'Access Group',
decode(a.objecttype,14,'Color',
decode(a.objecttype,15,'Style',
decode(a.objecttype,16,'Business Process Map',
decode(a.objecttype,17,'Business Process',
decode(a.objecttype,18,'Activity',
decode(a.objecttype,19,'Role',
decode(a.objecttype,20,'Process Definition',
decode(a.objecttype,21,'Process Server',
decode(a.objecttype,22,'Process Type',
decode(a.objecttype,23,'Process Job',
decode(a.objecttype,24,'Process Recurrence',
decode(a.objecttype,25,'Message',
decode(a.objecttype,26,'Dimension',
decode(a.objecttype,27,'Analysis Model',
decode(a.objecttype,28,'Cube Template',
decode(a.objecttype,53,'Permission List',
decode(a.objecttype,54,'Portal Registry Definition',
decode(a.objecttype,55,'Portal Registry Structure',
a.objecttype)))))))))))))))))))))))))))))))) OBJECTTYPE,
RTRIM(a.objectvalue1 || '.' ||
DECODE(a.OBJECTVALUE2,' ','',a.OBJECTVALUE2) || '.' ||
DECODE(a.OBJECTVALUE3,' ','',a.OBJECTVALUE3) || '.' ||
DECODE(a.OBJECTVALUE4,' ','',a.OBJECTVALUE4) || '.','.') OBJECT
from psprojectitem A, psprojectdefn b
where a.projectname = b.projectname and
(upper(a.objectvalue1) like upper('&1%') or
upper(a.objectvalue2) like upper('&1%') or
upper(a.objectvalue3) like upper('&1%') or
upper(a.objectvalue4) like upper('&1%') or
upper(a.projectname) like upper('&1%'))
/

"ShowQueryLog.sql"
set lines 1000
set pages 1000
set trimspool on
set echo off

select 'Queries that run longer than 5 seconds' from dual
/
select * from PSQRYEXECLOG
where exectime + fetchtime > 5
order by EXECTIME desc
/
select 'Most frequently run queries' from dual
/
select oprid, qryname, count(*)
from PSQRYEXECLOG
group by oprid, qryname
having count(*) > 1
order by count(*) desc
/
—Queries with the most rows returned
select * from PSQRYEXECLOG
where numrows > 100000
order by numrows desc
/

"ShowRecordComponents.sql"
— need to have it check subpanels
— Joins to primary index to get a sense of relevance
select a.pnlgrpname, count(*)
from pspnlgroup a, pspnlfield b, psrecdefn c, all_ind_columns d
where
a.pnlname = b.pnlname and
b.recname = c.recname and
a.pnlgrpname <> ' ' and
b.recname = upper('&&1') and
d.index_owner = 'SYSADM' and
d.index_name = 'PS_' || b.recname and
d.column_name = b.fieldname
group by a.pnlgrpname
order by 2 desc,1
/
undef 1

#!/bin/sh
rm /tmp/sqrttmp2 /tmp/sqrttmp
cd /app/psft_online/psfinancials/848/sqr_TNYPSIF1/
for file in *.sq* ;do
echo $file
rm /tmp/sqrttmp
cat $file | sed 's/[^a-zA-Z0-9_:]/ /g'|tr ' ' '[\n]'|grep "PS_"|sort|uniq >/tmp/sqrttmp
cat /tmp/sqrttmp|tail
var2=$file:"PS_"
echo var2
sed "s/PS_/${var2}/g" /tmp/sqrttmp »/tmp/sqrttmp2
cat /tmp/sqrttmp2|tail
done

e.g of sql table
Drop table SQRTABLE_TEMP
/
Drop table SQRSQC_TEMP
/
CREATE TABLE SQRTABLE_TEMP (
PRCSNAME VARCHAR2(254) ,
SQLTABLE VARCHAR2(254) )
/
CREATE TABLE SQRSQC_TEMP (
PRCSNAME VARCHAR2(254) ,
SQCNAME VARCHAR2(254) )
/

select 'project upgrade done flag' from dual;
select PROJECTNAME , decode(objecttype,0,'RECORD', 1,'INDEX', 2 ,'FIELD', 3 ,'FIELD_FORMAT', 4 ,'XLAT_VALUE', 5 ,'PAGE', 6 ,'MENU', 7 ,'COMPONENT', 8 ,'RECORD_PCODE', 9 ,'MENU_PCODE', 10 ,'QUERY', 11 ,'TREE_STRUCTURE', 12 ,'TREE', 13 ,'ACCESS_GROUP', 14 ,'COLOR', 15 ,'STYLE', 16 ,'BUS_PROC_MAP', 17 ,'BUS_PROCESS', 18 ,'ACTIVITY', 19 ,'ROLE', 20 ,'PROCESS_DEFN', 21 ,'PROCESS_SVR', 22 ,'PROCESS_TYPE', 23 ,'PROCESS_JOB', 24 ,'PROCESS_RCRR', 25 ,'MESSAGE', 26 ,'DIMENSION', 27 ,'ANALYSIS_MODEL', 28 ,'OBJ_28', 29 ,'BUS_INTERLINK', 30 ,'SQL', 31 ,'File Layout', 32 ,'Component interface', 34 ,'AE SECTION', 33 ,'AE PROGRAM', 35 ,'OBJ_35', 36 ,'Message channel', 37 ,'Message', 38 ,'OBJ_38', 39 ,'Message PCode', 40 ,'Subscription PCode', 41 ,'OBJ_41', 42 ,'C.I. PCode', 43 ,'AE PCODE', 44 ,'PAGE PCODE', 45 ,'OBJ_45', 46 ,'COMP PCODE', 47 ,'COMP REC PCODE', 48 ,'COMP REC/FL PCODE', 49 ,'Image', 50 ,'Style Sheets', 51 ,'HTML', 52 ,'OBJ_52', 53 ,'PERM LIST', 54, 'Portal Reg Definition', 55, 'Portal Reg Structure', 56, 'URL Definitions' , 57, 'Application Package', 58, 'Application Pack PCode', 61 ,'Archive TEmplate', 62, 'XSLT', 64, 'Mobile Page', 65, 'RelationShips', 66, 'CI Prop PCode', 70, 'Archive Object definitions', 71, 'Archive Templates Type 2', '?') as objecttype , decode(TAKEACTION,1,'Copy Yes','Please check') as TAKEACTION , decode(COPYDONE,0,'No','Please check for done flag') as COPYDONE, OBJECTID1 , OBJECTVALUE1 , OBJECTID2 , OBJECTVALUE2 , OBJECTID3 , OBJECTVALUE3 , OBJECTID4 , OBJECTVALUE4 , NODETYPE , decode(SOURCESTATUS,1,'ABSENT',3,' UNCHANGED',2,'CHANGED',5 ,'* UNCHANGED' ,4,'* CHANGED',SOURCESTATUS) as SOURCESTATUS , decode(TARGETSTATUS , 1,'ABSENT',3,' UNCHANGED',2,'CHANGED',5 ,'* UNCHANGED' ,4,'* CHANGED',TARGETSTATUS) as TARGETSTATUS , decode ( UPGRADEACTION , 0,'Copy',1,'Delete',2,'None',3,'Copy Prop', UPGRADEACTION) as UPGRADEACTION from PSPROJECTITEM
where PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2') and TAKEACTION=1;

select 'Object naming convention' from dual;
select 'Possible naming convention issue' ,PROJECTNAME , decode(objecttype,0,'RECORD', 1,'INDEX', 2 ,'FIELD', 3 ,'FIELD_FORMAT', 4 ,'XLAT_VALUE', 5 ,'PAGE', 6 ,'MENU', 7 ,'COMPONENT', 8 ,'RECORD_PCODE', 9 ,'MENU_PCODE', 10 ,'QUERY', 11 ,'TREE_STRUCTURE', 12 ,'TREE', 13 ,'ACCESS_GROUP', 14 ,'COLOR', 15 ,'STYLE', 16 ,'BUS_PROC_MAP', 17 ,'BUS_PROCESS', 18 ,'ACTIVITY', 19 ,'ROLE', 20 ,'PROCESS_DEFN', 21 ,'PROCESS_SVR', 22 ,'PROCESS_TYPE', 23 ,'PROCESS_JOB', 24 ,'PROCESS_RCRR', 25 ,'MESSAGE', 26 ,'DIMENSION', 27 ,'ANALYSIS_MODEL', 28 ,'OBJ_28', 29 ,'BUS_INTERLINK', 30 ,'SQL', 31 ,'File Layout', 32 ,'Component interface', 34 ,'AE SECTION', 33 ,'AE PROGRAM', 35 ,'OBJ_35', 36 ,'Message channel', 37 ,'Message', 38 ,'OBJ_38', 39 ,'Message PCode', 40 ,'Subscription PCode', 41 ,'OBJ_41', 42 ,'C.I. PCode', 43 ,'AE PCODE', 44 ,'PAGE PCODE', 45 ,'OBJ_45', 46 ,'COMP PCODE', 47 ,'COMP REC PCODE', 48 ,'COMP REC/FL PCODE', 49 ,'Image', 50 ,'Style Sheets', 51 ,'HTML', 52 ,'OBJ_52', 53 ,'PERM LIST', 54, 'Portal Reg Definition', 55, 'Portal Reg Structure', 56, 'URL Definitions' , 57, 'Application Package', 58, 'Application Pack PCode', 61 ,'Archive TEmplate', 62, 'XSLT', 64, 'Mobile Page', 65, 'RelationShips', 66, 'CI Prop PCode', 70, 'Archive Object definitions', 71, 'Archive Templates Type 2', '?') as objecttype , decode(TAKEACTION,1,'Copy Yes','Please check') as TAKEACTION , decode(COPYDONE,0,'No','Please check for done flag') as COPYDONE, OBJECTID1 , OBJECTVALUE1 , OBJECTID2 , OBJECTVALUE2 , OBJECTID3 , OBJECTVALUE3 , OBJECTID4 , OBJECTVALUE4 , NODETYPE , decode(SOURCESTATUS,1,'ABSENT',3,' UNCHANGED',2,'CHANGED',5 ,'* UNCHANGED' ,4,'* CHANGED',SOURCESTATUS) as SOURCESTATUS , decode(TARGETSTATUS , 1,'ABSENT',3,' UNCHANGED',2,'CHANGED',5 ,'* UNCHANGED' ,4,'* CHANGED',TARGETSTATUS) as TARGETSTATUS , decode ( UPGRADEACTION , 0,'Copy',1,'Delete',2,'None',3,'Copy Prop', UPGRADEACTION) as UPGRADEACTION from PSPROJECTITEM
where PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2') and substr(Objectvalue1,1,3)<>'CSG';

select ' app engine descr ' from dual;
SELECT ITEM.PROJECTNAME,'Application Engine',ITEM.OBJECTVALUE1 AS "Application Engine", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSAEAPPLDEFN DEFN
WHERE ITEM.PROJECTNAME in ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTVALUE1 = DEFN.AE_APPLID;

select AE_APPLID, AE_STATE_RECNAME
from PSAEAPPLSTATE where AE_APPLID in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 33
)
;

select AE_APPLID ,RECNAME
—,decode(instr(RECNAME,'_TAO'),0,'OK', 'Please check naming Convention')
from PSAEAPPLTEMPTBL where AE_APPLID in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 33
);

SELECT AE_APPLID, ITEM.PROJECTNAME,'Application Engine Section',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS App_Eng_Section_Name, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSAESECTDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 34
AND ITEM.OBJECTVALUE1 = DEFN.AE_APPLID AND ITEM.OBJECTVALUE2 = DEFN.AE_SECTION
;
select AE_APPLID,AE_SECTION,EFFDT, AE_STEP AE_STMT_TYPE, DESCR ,'Possible Row by Row Processing'
from PSAESTMTDEFN where AE_APPLID in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 33 )
and AE_STMT_TYPE NOT IN ('S','P','C','M')
;
SELECT ITEM.PROJECTNAME,'Application Package',RTRIM(ITEM.OBJECTVALUE2) || RTRIM(ITEM.OBJECTVALUE3) || RTRIM(ITEM.OBJECTVALUE1) AS "Application Package", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSPACKAGEDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 57
AND ITEM.OBJECTVALUE1 = DEFN.PACKAGEID AND ITEM.OBJECTVALUE2 = DEFN.PACKAGEROOT

;
SELECT ITEM.PROJECTNAME,'Component Interfaces',RTRIM(ITEM.OBJECTVALUE1) AS "Component Interfaces", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSBCDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 32
AND ITEM.OBJECTVALUE1 = DEFN.BCNAME

;
SELECT ITEM.PROJECTNAME,'Components',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Components", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSPNLGRPDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 7
AND ITEM.OBJECTVALUE1 = DEFN.PNLGRPNAME

;
SELECT ITEM.PROJECTNAME,'Fields',ITEM.OBJECTVALUE1 AS "Fields", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM, DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSDBFIELD DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 2
AND ITEM.OBJECTVALUE1 = DEFN.FIELDNAME

;
SELECT ITEM.PROJECTNAME,'Menus',ITEM.OBJECTVALUE1 AS "Menus", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSMENUDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 6
AND ITEM.OBJECTVALUE1 = DEFN.MENUNAME

;
SELECT ITEM.PROJECTNAME,'Message Catalog Entries',RTRIM(ITEM.OBJECTVALUE1) || ', ' || RTRIM(ITEM.OBJECTVALUE2) AS "Message Catalog Entries", '',DEFN.LAST_UPDATE_DTTM
FROM PSPROJECTITEM ITEM, PSMSGCATDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 25
AND ITEM.OBJECTVALUE1 = DEFN.MESSAGE_SET_NBR AND ITEM.OBJECTVALUE2 = DEFN.MESSAGE_NBR
AND DEFN.LAST_UPDATE_DTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Message Channels',ITEM.OBJECTVALUE1 AS "Message Channels", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSCHNLDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 36
AND ITEM.OBJECTVALUE1 = DEFN.CHNLNAME

;
SELECT ITEM.PROJECTNAME,'Messages',ITEM.OBJECTVALUE1 AS "Messages", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSMSGDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 37
AND ITEM.OBJECTVALUE1 = DEFN.MSGNAME

;
SELECT ITEM.PROJECTNAME,'Pages',RTRIM(ITEM.OBJECTVALUE1) AS "Pages", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSPNLDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 5
AND ITEM.OBJECTVALUE1 = DEFN.PNLNAME
;

select 'page tab order conflict' from dual;
select distinct
a.PNLFLDID, a.FIELDNUM,
b.PNLNAME,b.FIELDNUM as tab_order_conflict_fieldnum,b.PNLFLDID,b.PNLFIELDNAME,b.RECNAME,b.FIELDNAME,b.LBLTEXT from pspnlfield a,pspnlfield b where a.pnlname
in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 5 )
and a.PNLNAME=b.PNLNAME
and a.FIELDNUM <b.FIELDNUM
and a.PNLFLDID>b.PNLFLDID
order by a.FIELDNUM;

select 'Space between Label and Field is not ready for translations' from dual;
select distinct 'Space between Label and Field issue',round(abs(((b.FIELDLEFT-b.EDITLBLRIGHT)/(b.EDITLBLRIGHT-b.EDITLBLLEFT))),2)*100 as percent_space,
b.PNLNAME,b.FIELDNUM,b.PNLFLDID,b.PNLFIELDNAME,b.RECNAME,b.FIELDNAME,b.LBLTEXT from pspnlfield b where b.pnlname
in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE
PROJECTNAME in ('CSG_CR569_MYACCESS_RAA_V2')and
OBJECTTYPE = 5 )
and (abs(((b.FIELDLEFT-b.EDITLBLRIGHT)/(b.EDITLBLRIGHT-b.EDITLBLLEFT)))< 0.2 and (b.EDITLBLRIGHT-b.EDITLBLLEFT)<>0);

select 'Check if possible on grid',
b.PNLNAME,b.FIELDNUM,b.PNLFLDID,b.FIELDTYPE,b.PNLFIELDNAME,b.RECNAME,b.FIELDNAME,b.LBLTEXT from pspnlfield b where b.pnlname
in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE
PROJECTNAME in ('CSG_CR569_MYACCESS_RAA_V2')and
OBJECTTYPE = 5 )
and b.occurslevel>0 and (b.fieldleft <> 0 and b.fieldtop <>0 and fieldtype in (4));

select * from pspnlfield where pnlname='ABS_CODE_TABLE';

SELECT ITEM.PROJECTNAME,'Application Engine PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE2, 1, 8)) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE2, 9, 3)) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Application Engine PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 43
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND SUBSTR(ITEM.OBJECTVALUE2, 1, 8) = DEFN.OBJECTVALUE2 AND SUBSTR(ITEM.OBJECTVALUE2, 9, 3) = DEFN.OBJECTVALUE3 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE6
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Application Package PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Application Package PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 58
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND (ITEM.OBJECTID3 <> 107 OR ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3) AND (ITEM.OBJECTID4 <> 107 OR ITEM.OBJECTVALUE4 = DEFN.OBJECTVALUE4)
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Component Interface PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Component Interface PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 42
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Component PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Component PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 46
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Component Record PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) || '.' || RTRIM(ITEM.OBJECTVALUE4) AS "Component Record PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 47
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3 AND ITEM.OBJECTVALUE4 = DEFN.OBJECTVALUE4
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Page PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Page PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 44
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Record PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Record PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 8
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Component RecFld PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE4, 1, 18)) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE4, 19, 12)) AS "Comp Record Field PeopleCode",DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 48
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3 AND SUBSTR(ITEM.OBJECTVALUE4, 1, 18) = DEFN.OBJECTVALUE4 AND SUBSTR(ITEM.OBJECTVALUE4, 19, 12) = DEFN.OBJECTVALUE5
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Message PeopleCode',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Message PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 40
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2 AND ITEM.OBJECTVALUE3 = DEFN.OBJECTVALUE3
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Portal Registry Structure',RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Portal Registry Structure", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPRSMDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTVALUE1 = DEFN.PORTAL_NAME
AND ITEM.OBJECTVALUE3 = DEFN.PORTAL_OBJNAME
AND ITEM.OBJECTTYPE = 55

;
SELECT ITEM.PROJECTNAME,'Records',RTRIM(ITEM.OBJECTVALUE1) AS "Records", DEFN.LASTUPDOPRID, Decode(QRYSECRECNAME,' ','Please check') as Query_Security_Record ,Decode(RELLANGRECNAME,' ','Please check') as Related_language_record, DEFN.LASTUPDDTTM,DEFN.RECDESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSRECDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 0
AND ITEM.OBJECTVALUE1 = DEFN.RECNAME

;
SELECT ITEM.PROJECTNAME,'SQL(Non App Engine)',RTRIM(ITEM.OBJECTVALUE1) AS "SQL (Non Application Engine)", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSQLDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 30 and ITEM.OBJECTVALUE2 IN (0,2)
AND ITEM.OBJECTVALUE1 = DEFN.SQLID
;

select sqlid , 'Possible eff_status and meta sql missing ' ,sqltext from pssqltextdefn where (upper(DBMS_LOB.SUBSTR(sqltext,4000)) like upper('%Effdt%')
and upper(DBMS_LOB.SUBSTR(sqltext,4000)) not like upper('%EFF_STATUS%') )
and sqlid in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 30 )
;

select sqlid ,'Possible Effdt and metal sql missing',sqltext from pssqltextdefn where (upper(DBMS_LOB.SUBSTR(sqltext,4000)) not like upper('%Effdt%')
and upper(DBMS_LOB.SUBSTR(sqltext,4000)) like upper('%EFF_STATUS%') )
and sqlid in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 30 )
;

select sqlid ,'Possible select * issue',sqltext from pssqltextdefn where (upper(DBMS_LOB.SUBSTR(sqltext,4000)) like upper('%select * %') )
and sqlid in (
select objectvalue1 from PSPROJECTITEM ITEM
WHERE PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
and OBJECTTYPE = 30 )
;

SELECT ITEM.PROJECTNAME,'SQL (Application Engine)',RTRIM(SUBSTR(ITEM.OBJECTVALUE1, 1, 12)) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE1, 13, 8)) || '.' || RTRIM(SUBSTR(ITEM.OBJECTVALUE1, 21, 8)) AS "SQL (Application Engine)", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSQLDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 30 and ITEM.OBJECTVALUE2 = 1
AND ITEM.OBJECTVALUE1 = DEFN.SQLID
;

SELECT ITEM.PROJECTNAME,'Style Sheet',RTRIM(ITEM.OBJECTVALUE1) AS "Style Sheet", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSTYLSHEETDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 50
AND ITEM.OBJECTVALUE1 = DEFN.STYLESHEETNAME
;
SELECT ITEM.PROJECTNAME,'Translate Values',RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Translate Values", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSXLATITEM DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 4
AND ITEM.OBJECTVALUE1 = DEFN.FIELDNAME AND ITEM.OBJECTVALUE2 = DEFN.FIELDVALUE
AND DEFN.LASTUPDDTTM > TO_DATE('2000-01-01', 'YYYY-MM-DD')
;
SELECT ITEM.PROJECTNAME,'Process Definition',RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Process Definitions", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PS_PRCSDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 20
AND ITEM.OBJECTVALUE2 = DEFN.PRCSNAME
;
SELECT ITEM.PROJECTNAME,'Query',RTRIM(ITEM.OBJECTVALUE1) AS "Query", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM,DEFN.DESCR , DEFN.DESCRLONG
FROM PSPROJECTITEM ITEM, PSQRYDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 10
AND ITEM.OBJECTVALUE1 = DEFN.QRYNAME
;

SELECT ITEM.PROJECTNAME,'HTML Definition',RTRIM(ITEM.OBJECTVALUE1) AS "HTML Definitions",HTM.LASTUPDOPRID,HTM.LASTUPDDTTM ,htm.DESCR, (select descrlong from psrecdefn where 1=2) AS DESCRLONG
FROM PSPROJECTITEM ITEM,PSCONTDEFN HTM
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTVALUE1=HTM.CONTNAME
AND ITEM.OBJECTTYPE = 51
;
SELECT ITEM.PROJECTNAME,'Indexes',IND.RECNAME,REC.LASTUPDOPRID,REC.LASTUPDDTTM FROM PSPROJECTITEM ITEM,PSRECDEFN REC,PSINDEXDEFN IND
WHERE ITEM.OBJECTTYPE=1 AND ITEM.OBJECTVALUE1=REC.RECNAME AND ITEM.OBJECTVALUE2=IND.INDEXID AND REC.RECNAME=IND.RECNAME
AND ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
;
SELECT ITEM.PROJECTNAME,'File Layout',FL.FLDDEFNNAME,FL.LASTUPDOPRID,FL.LASTUPDDTTM ,FL.DESCR , FL.DESCRLONG FROM PSPROJECTITEM ITEM,PSFLDDEFN FL
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE=31 AND ITEM.OBJECTVALUE1=FL.FLDDEFNNAME
;
SELECT ITEM.PROJECTNAME,'Job Definition',RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Process Definitions", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PS_PRCSJOBDEFN DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 23
AND ITEM.OBJECTVALUE2 = DEFN.PRCSJOBNAME
;
SELECT ITEM.PROJECTNAME,'Recurrence Definition',RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Process Definitions", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PS_PRCSRECUR DEFN
WHERE ITEM.PROJECTNAME IN ('CSG_CR569_MYACCESS_RAA_V2')
AND ITEM.OBJECTTYPE = 24
AND ITEM.OBJECTVALUE2 = DEFN.RECURNAME;

Select PROMPT,level ,RECNAME, sys_connect_by_path(EDITTABLE,'->') from (
select recname AS RECNAME, EDITTABLE,'PROMPT' as PROMPT from psrecfield where EDITTABLE <> ' '
union
select
REPLACE(NAME,'PS_')AS RECNAME,
REPLACE(REFERENCED_NAME, 'PS_') as EDITTABLE ,'VIEW' as PROMPT
from ALL_DEPENDENCIES
where referenced_type in ('TABLE','VIEW' ) and type in ('TABLE','VIEW' ))
Start with RECNAME ='JRNL_HEADER'
connect by nocycle prior EDITTABLE=RECNAME
order by level

select P.RECNAME AS PARENT_RECORD ,C.RECNAME AS CHILD_RECORD,P.KEYSTRING AS PARENT_KEY ,c.KEYSTRING AS CHILD_KEY from (select RECNAME,max(ltrim(sys_connect_by_path(FIELDNAME,','),',')) keystring
from (select RECNAME,FIELDNAME,
row_number() over(partition by RECNAME order by KEYPOSN) rn
from PSKEYDEFN where indexid='_')
start with rn = 1
connect by prior rn = rn -1
and prior RECNAME = RECNAME
group by RECNAME) P ,(select RECNAME,max(ltrim(sys_connect_by_path(FIELDNAME,','),',')) keystring
from (select RECNAME,FIELDNAME,
row_number() over(partition by RECNAME order by KEYPOSN) rn
from PSKEYDEFN where indexid='_')
start with rn = 1
connect by prior rn = rn -1
and prior RECNAME = RECNAME
group by RECNAME) C
where instr(c.keystring,P.keystring)<>0
and p.recname=''PARENT_RECORD_NAME'

select NV.navigation,NV.DESCR254 as Navigation_Descr ,replace(a.Page_label_String,'&','') as Page_label_in_Component,chr(39)||'Panel Name '||b.PNLNAME||' Record names#'||RECNAME_STRING as Records_in_pages
FROM (SELECT PNLNAME , ITEMLABEL as Page_label_String, PNLGRPNAME FROM PSPNLGROUP) A,(SELECT PNLNAME ,
LTRIM(MAX( SYS_CONNECT_BY_PATH ( RECNAME, '—')),',') RECNAME_STRING
FROM
(SELECT distinct PNLNAME , RECNAME,
row_number() OVER ( PARTITION BY PNLNAME ORDER BY rownum) rn
FROM (select distinct PNLNAME , RECNAME from PSPNLFIELD where RECNAME <> ' ')
)
CONNECT BY nocycle PNLNAME = PRIOR PNLNAME
AND rn = PRIOR rn+1
START WITH rn =1
GROUP BY PNLNAME
) B ,
(SELECT SYS_CONNECT_BY_PATH(A.PORTAL_LABEL,'->') navigation, '/EMPLOYEE/ERP/c/' || PORTAL_URI_SEG1 || '.' || PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 url ,PORTAL_URI_SEG2 ,DESCR254
from (SELECT distinct A.PORTAL_NAME, A.PORTAL_LABEL, A.PORTAL_OBJNAME, a.PORTAL_PRNTOBJNAME,
A.PORTAL_URI_SEG1, A.PORTAL_URI_SEG2, A.PORTAL_URI_SEG3, A.PORTAL_REFTYPE ,A.DESCR254
FROM PSPRSMDEFN A
WHERE portal_name = 'EMPLOYEE' and
portal_objname <> portal_prntobjname and
not exists (
select 'x'
from PSPRSMSYSATTRVL
where portal_name = A.PORTAL_NAME AND
portal_Reftype = A.PORTAL_REFTYPE and
portal_objname = A.PORTAL_OBJNAME and
PORTAL_ATTR_NAM = 'PORTAL_HIDE_FROM_NAV' and
A.PORTAL_OBJNAME not in ('CO_NAVIGATION_COLLECTIONS', 'PORTAL_BASE_DATA')
)
) A

start with A.portal_prntobjname = 'PORTAL_ROOT_OBJECT'
CONNECT BY nocycle prior A.portal_objname = A.portal_prntobjname ) nv
WHERE NV.PORTAL_URI_SEG2=A.PNLGRPNAME
and A.PNLGRPNAME <> ' '
and b.pnlname in (SELECT distinct pnlname FROM PSPNLFIELD
START WITH PNLNAME =a.PNLNAME
CONNECT BY nocycle PRIOR SUBPNLNAME = PNLNAME and PRIOR FIELDTYPE = 11
)
AND (
upper(NV.navigation) LIKE upper('%Workforce%') and
NV.navigation not like '%Portal Objects%')
order by NV.navigation