I am doing this for several grids on the page at the same level, and all grids work fine except this one grid. In all cases, the level 1 scrolls have one extra key than the parent. In this case, the trace shows the &Rec.Insert succeeding, then it attempts the "Select for Update" into the original view giving the original effdt. This doesn't happen for any other grid. All other grids stop after the insert.

TRACE FILE:

If GetRow().IsChanged Then
&Rec = GetRecord();
If &Rec.EFFDT.Value = %Date And
GetRow().IsNew = False Then
&Rec.EFFSEQ.Value = &Rec.EFFSEQ.Value + 1;
Else
&Rec.EFFDT.Value = %Date;
&Rec.EFFSEQ.Value = 0;
End-If;
…
&REC2 = CreateRecord(Record.ZG_ENT_KC);
&REC2.SetDefault();
&Rec.COPYFIELDSTO(&REC2);
&REC2.Insert();

Stmt=INSERT INTO PS_ZG_ENT_KC (ZG_ENTITY_ID,EMPLID,EFFDT,EFFSEQ,EFF_STATUS,PHONE, EMAIL_ADDR,LASTUPDOPRID,LASTUPDDTTM) VALUES (:1,:2,TO_DATE(:3,'YYYY-MM-DD'),:4,:5,:6,:7,:8,TO_TIMESTAMP(:9,'YYYY-MM-DD-HH24.MI.SS.FF'))
value=V0000001
value=7269 555
value
10-07-19
value=0
value=A
value=444/444-4444
value=
value=743156
value
10-07-19-19.36.34.000000
End-If;

Stmt=SELECT ZG_ENTITY_ID, EMPLID, EFFDT, TO_CHAR(EFFDT,'YYYY-MM-DD'), EFFSEQ, EFF_STATUS, PHONE, EMAIL_ADDR, LASTUPDOPRID, TO_CHAR(CAST((LASTUPDDTTM) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') FROM PS_ZG_ENT_KC_VW WHERE ZG_ENTITY_ID=:1 AND EMPLID=:2 AND EFFDT=TO_DATE(:3,'YYYY-MM-DD') AND EFFSEQ=:4 FOR UPDATE OF EFFDT, PHONE, LASTUPDOPRID, LASTUPDDTTM
value=V0000001
value=7269555value
10-07-15
value=0

Here is the code in the submit button

 Local Rowset &LocalRowOT; &LocalRowOT = GetLevel0()(1).GetRowset(Scroll.OT_ESS); For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 If All(&LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.STATUS.Value = "SUB"; End-If; If All(&LocalRowOT(&i).OT_ESS.CODE.Value, &LocalRowOT(&i).OT_ESS.DATE.Value, &LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.DATE.Enabled = False; &LocalRowOT(&i).OT_ESS.EMP_RMK.Enabled = False; End-If; DoSaveNow(); End-For; 

I got this error messsage after click the SUBMIT_BTN
Field Is Required: OT_ESS - DATE

I try to display the value so add the code with message boxes:

 Local Rowset &LocalRowOT; &LocalRowOT = GetLevel0()(1).GetRowset(Scroll.OT_ESS); For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 MessageBox(0, "", 0, 0, "&i is " | &i | " &LocalRowOT(&i).OT_ESS.DATE is " | &LocalRowOT(&i).OT_ESS.DATE | " &LocalRowOT(&i).OT_ESS.DATE.Value is " | &LocalRowOT(&i).OT_ESS.DATE.Value); End-For; For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 If All(&LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.STATUS.Value = "SUB"; End-If; If All(&LocalRowOT(&i).OT_ESS.CODE.Value, &LocalRowOT(&i).OT_ESS.DATE.Value, &LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.DATE.Enabled = False; &LocalRowOT(&i).OT_ESS.EMP_RMK.Enabled = False; End-If; MessageBox(0, "", 0, 0, "before save : OT_ESS.DATE is " | OT_ESS.DATE | " and OT_ESS.DATE.Value is " | OT_ESS.DATE.Value); DoSaveNow(); End-For; 

The first Message box
i is 1 &LocalRowOT(&i).OT_ESS.DATE is Field &LocalRowOT(&i).OT_ESS.DATE.Value is 2010-06-10

The second Message box
before save : OT_ESS.DATE is and OT_ESS.DATE.Value is

the field DATE already has a value (displayed in the message box). But why it generates error while calling DoSaveNow() ?

I'm looking to find someone who has good experience working with PeopleSoft Campus Solutions 9.0. If you do, please let me know as I'd like to speak to you about an excellent position in the NY area.

Shelly
646-247-0075

Requirement:

Roles : PeopleSoft Financial Consultant
Location : London
Type : Permanent

Job Description:

 Implement multiple Peoplesoft Financial modules like finance, Benefits administration, Talent Acquisition & Candidate Gateway with experties in one or more process areas
 Model business processes based on user requirements.
 Understand and advise client on best practices
 Implement technical and package configurations with setups
 Support and/or conduct requirements collation and analysis.
 Map package features to client requirements, suggest workarounds where necessary, conduct Fit- Gap analysis, define requirements for customizations and extensions.
 Conduct CRP, support UAT, user training and perform System testing, configuring in Development environments as part of implementation, support and other related activities.
 Provide guidance to the team, throughout the project life cycle for a successful completion of the project.
 Tailor methodologies and macro issues to customer’s needs
 Good knowledge of PeopleSoft Upgrade/Implementation methodologies
 Lead large teams at a module or functional process
 Pre-sales support activities.
 Contribute to thought-leadership and identification of pre-packaged solutions.

Mentor junior consultants.

Looking ahead to hear from you.

Best Regards,
Chandra Reddy
Avance Consulting(Europe)
Direct: +44 20 79935300
Fax : 08718130559
Email: moc.secivresecnava|ydder.ardnahc#moc.secivresecnava|ydder.ardnahc
www.avanceservices.com

We pay referral fee for all our positions. Please visit http://www.wisestep.com/ for details.

While reading through this I noticed what I think is a small bug. Doubt it would ever show or cause issue, but thought I'd mention it.

 method GetResultText ... When = %ObEmail_NotDelivered Return "Delivery not attempted"; Break; When = %ObEmail_NotDelivered Return "Partially delivered"; Break; ... end-method; 

I think this should actually be

  When = %ObEmail_NotDelivered Return "Delivery not attempted"; Break; When = %ObEmail_PartiallyDelivered Return "Partially delivered"; Break; 

I would really appreciate if someone could point me in the right direction or help me find the list.

Thank you,
K

Kind Regards
Dhananjay

Local PT_MCF_MAIL:MCFOutboundEmail &email = create PT_MCF_MAIL:MCFOutboundEmail();

&email.Recipients = "test_mail"; /*incorrect mail id*/
or

&email.Recipients = "moc.4321|savinirs#moc.4321|savinirs"; /*incorrect domain id*/

&email.From = "";
&email.BCC = "";
&email.Subject = "Test mail";
&email.ReplyTo = "";
&email.ContentType = "text/html";
&res = &email.Send();
WinMessage("Mail Sent " | &res | "-" | %ObEmail_Delivered, 0);

I am passing wrong Recipients mail id. when we run this still its &email.Send(); returning 1 (success)..
is there any workaround in PS to validate the mailid against SMTP server.

any idea?

Any information regarding OLE Automation will be appreciated.

I found a piece of delivered code on XREF_WRK.XREF_OLE1.FieldChange

Local object &IDE;

&IDE = CreateObject("PEOPLESOFT.IDE");
/*ObjectSetProperty(&IDE, "Visible", True);*/
ObjectDoMethod(&IDE, "ViewObject", "Record.XREF_VIEW");

This record is attached to the Page XREF_PANEL_01

The Navigation is Peopletools->Administratrion->Audit->Record Cross Reference

I went ahead and added the field as a push button this page. On Clicking the push button i get the following error

Class PEOPLESOFT.IDE was not found. (180,74) XREF_WRK.XREF_OLE1.FieldChange PCPC:63 Statement:1

The given class could not be found in the database, or had problems when we tried to load it.

Does anyone have any information on how to get this class to invoke PSIDE automatically from the Web to show the record.

Thanks

Nitin

It isn't obvious to me how this might be achieved but I imagine it is a fairly common requirement. I have cases where I want to email a student and cc their agent (and vice versa) or possibly even bcc a communication to a central mailbox within our organisation.

Has anyone done this and how are they doing it?

Regards

QUESTION: do I need to set up one Event_ID for each flavour of comm (15) or one Event_ID containing 15 comm keys?

Additional State Record fields that are common to include are AE_APPLID and AE_SECTION. These are required on AE Programs which have dynamic Call Section Actions, as the values in these fields will control what AE Step is called next — either in the current program or something outside.

The post also talks about setting up context sensitive help using Oracle hosted PeopleBooks. I've tried this and while it works, I've found it to be a fair bit slower.

Do we require Desktop Admin Rights for PeopleSoft App Designer Installation and usage?

Regards,
Dhana Prakash

Is it possible to set up the Orientation of the .xls Report in the template itself. I mean can i set up the orientation to Landscape or Portrait dynamically depending on the data from Run Control Page.

I'm Michal Sipal and I work for CSU Monterey Bay as the Student Information Security Analyst. I'm looking to establish some networking contacts from other CSUs, Ucs, and other Universities/Colleges as it pertains to PeopleSoft Security administration, audits and assigning security.

Can you please share your contact information with me?

Thank you.

Sincerely,

Mike Sipal
Student Information Systems

California State University, Monterey Bay
100 Campus Center, Bldg 47, 2nd Floor
Seaside, CA 93955
Tel (831) 582-4079
Fax (831) 582-3783

Thanks!

I tried splitting the message in message catalog.
For the Part of text to be displayed in bold,i am using HTML tags and then concatinating with remaining message from message catalog.
Thanks in advance.

Thanks,
Tina

We want to plug the web service into an Enterprise Service Bus … but if the Namespace changes we have significant work in the ESB …

Should we create aliases for each of the messages created for a CI based Service operation?

start with A.portal_prntobjname = 'PORTAL_ROOT_OBJECT'
connect by prior A.portal_objname = A.portal_prntobjname
) p3
WHERE
r2.recname= B.RECNAME and
a.PNLGRPNAME=p2.PORTAL_URI_SEG2 and
p2.PORTAL_URI_SEG2=p3.PORTAL_URI_SEG2

AND
B.PNLNAME in (
select distinct pnlname from pspnlfield a1 where A1.PNLNAME=A.PNLNAME UNION
SELECT SUBPNLNAME
FROM PSPNLFIELD a1
START
WITH PNLNAME=A.PNLNAME
AND FIELDTYPE = 11 CONNECT BY PRIOR SUBPNLNAME = PNLNAME
AND FIELDTYPE = 11 )
AND B.RECNAME <> ' '
AND B.ASSOCFIELDNUM = 0

AND B.FIELDNUM =
(SELECT MIN(D.FIELDNUM)
FROM sysadm.PSPNLFIELD D
WHERE D.PNLNAME = B.PNLNAME
AND D.RECNAME = B.RECNAME
AND D.OCCURSLEVEL = B.OCCURSLEVEL)
AND C.RECNAME = B.RECNAME
order by 2

,(TRUNC((USEEDIT/256),0) - TRUNC((USEEDIT/512),0) * 2) REQUIRED
FROM PSRECFIELD
)
select a.*,b.* from a,b where a.recname=b.recname
and b.key=1

— Application Engine Section
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Application Engine Section", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSAESECTDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 34
AND ITEM.OBJECTVALUE1 = DEFN.AE_APPLID AND ITEM.OBJECTVALUE2 = DEFN.AE_SECTION
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Application Package
Select RTRIM(ITEM.OBJECTVALUE2) || RTRIM(ITEM.OBJECTVALUE3) || RTRIM(ITEM.OBJECTVALUE1) AS "Application Package",DEFN.descr, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPACKAGEDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 57
AND ITEM.OBJECTVALUE1 = DEFN.PACKAGEID AND ITEM.OBJECTVALUE2 = DEFN.PACKAGEROOT
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE1;

— Component Interfaces
Select RTRIM(ITEM.OBJECTVALUE1) AS "Component Interfaces", DEFN.descr,DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSBCDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 32
AND ITEM.OBJECTVALUE1 = DEFN.BCNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Components
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Components", DEFN.descr,DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPNLGRPDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 7
AND ITEM.OBJECTVALUE1 = DEFN.PNLGRPNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Fields
SELECT ITEM.OBJECTVALUE1 AS "Fields",
DECODE(defn.FIELDTYPE , 0 ,'CHARACTER',
1, 'LONG',
2 , 'NUMBER',
3, 'SIGNED NUMBER',
4, 'DATE' ,
6, 'DATETIME') TYPE,length,lbl.LABEL_ID,lbl.LONGNAME, lbl.SHORTNAME ,DEFN.descrlong, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSDBFIELD DEFN , PSDBFLDLABL lbl
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 2
AND ITEM.OBJECTVALUE1 = DEFN.FIELDNAME
—AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
and ITEM.OBJECTVALUE1 like 'CSG_%'
ORDER BY ITEM.OBJECTVALUE1;

psrecfield
SELECT RFLD.FIELDNAME, ITEM.OBJECTVALUE1 AS "RECORD",
DECODE(defn.FIELDTYPE , 0 ,'CHARACTER',
1, 'LONG',
2 , 'NUMBER',
3, 'SIGNED NUMBER',
4, 'DATE' ,
6, 'DATETIME') TYPE,length,lbl.LABEL_ID,lbl.LONGNAME, lbl.SHORTNAME , DEFN.descrlong, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSDBFIELD DEFN , PSDBFLDLABL lbl, PSRECFIELD RFLD
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND RFLD.FIELDNAME=DEFN.FIELDNAME
AND DEFN.FIELDNAME=LBL.FIELDNAME
AND RFLD.FIELDNAME=LBL.FIELDNAME
AND ITEM.OBJECTTYPE = 0
AND lbl.DEFAULT_LABEL=1
AND ITEM.OBJECTVALUE1 = RFLD.RECNAME AND RFLD.RECNAME LIKE 'CSG_%';
Menus
SELECT ITEM.OBJECTVALUE1 AS "Menus", DEFN.descr, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSMENUDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 6
AND ITEM.OBJECTVALUE1 = DEFN.MENUNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— Message Catalog Entries
Select RTRIM(ITEM.OBJECTVALUE1) || ', ' || RTRIM(ITEM.OBJECTVALUE2) AS "Message Catalog Entries", DEFN.LAST_UPDATE_DTTM
FROM PSPROJECTITEM ITEM, PSMSGCATDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 25
AND ITEM.OBJECTVALUE1 = DEFN.MESSAGE_SET_NBR AND ITEM.OBJECTVALUE2 = DEFN.MESSAGE_NBR
AND DEFN.LAST_UPDATE_DTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Message Channels
SELECT ITEM.OBJECTVALUE1 AS "Message Channels", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSCHNLDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 36
AND ITEM.OBJECTVALUE1 = DEFN.CHNLNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— Messages
SELECT ITEM.OBJECTVALUE1 AS "Messages", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSMSGDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 37
AND ITEM.OBJECTVALUE1 = DEFN.MSGNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— Pages
Select RTRIM(ITEM.OBJECTVALUE1) AS "Pages", defn.DESCR, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPNLDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 5
AND ITEM.OBJECTVALUE1 = DEFN.PNLNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— PeopleCode goes here

— Application Engine PeopleCode
Select 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 = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Application Package PeopleCode
Select 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 = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE3;

— Component Interface PeopleCode
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Component Interface PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 42
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Component PeopleCode
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Component PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Component Record Field PeopleCode
Select 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"
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE3;

— Component Record PeopleCode
Select 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 = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE3, ITEM.OBJECTVALUE4;

— Page PeopleCode
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) AS "Page PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 44
AND ITEM.OBJECTVALUE1 = DEFN.OBJECTVALUE1 AND ITEM.OBJECTVALUE2 = DEFN.OBJECTVALUE2
AND DEFN.PROGSEQ = 0
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Record PeopleCode
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Record PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE3;

— Message PeopleCode
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE2) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Message PeopleCode", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPCMPROG DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
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('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2, ITEM.OBJECTVALUE3;

— Portal Registry Structure
Select RTRIM(ITEM.OBJECTVALUE1) || '.' || RTRIM(ITEM.OBJECTVALUE3) AS "Portal Registry Structure", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSPRSMDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTVALUE1 = DEFN.PORTAL_NAME
AND ITEM.OBJECTVALUE3 = DEFN.PORTAL_OBJNAME
AND ITEM.OBJECTTYPE = 55
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY OBJECTVALUE1, OBJECTVALUE3;

— Permission Lists
SELECT RTRIM(ITEM.OBJECTVALUE1) AS "Permission Lists", DEFN.CLASSDEFNDESC, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSCLASSDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 53
AND ITEM.OBJECTVALUE1 = DEFN.CLASSID
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— Records
Select RTRIM(ITEM.OBJECTVALUE1) AS "Records", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSRECDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 0
AND ITEM.OBJECTVALUE1 = DEFN.RECNAME
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— SQL (Non Application Engine)
Select RTRIM(ITEM.OBJECTVALUE1) AS "SQL (Non Application Engine)", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSQLDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 30 and ITEM.OBJECTVALUE2 IN (0,2)
AND ITEM.OBJECTVALUE1 = DEFN.SQLID
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— SQL (Applicaiton Engine)
Select 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 = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 30 and ITEM.OBJECTVALUE2 = 1
AND ITEM.OBJECTVALUE1 = DEFN.SQLID
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1;

— Translate Values
Select RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Translate Values", DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSXLATITEM DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 4
AND ITEM.OBJECTVALUE1 = DEFN.FIELDNAME AND ITEM.OBJECTVALUE2 = DEFN.FIELDVALUE
AND DEFN.LASTUPDDTTM > TO_DATE('2009-09-01', 'YYYY-MM-DD')
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Process Definitions
SELECT RTRIM(ITEM.OBJECTVALUE1) || ':' || RTRIM(ITEM.OBJECTVALUE2) AS "Process Definitions", DEFN.DESCR, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PS_PRCSDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 20
AND ITEM.OBJECTVALUE2 = DEFN.PRCSNAME
ORDER BY ITEM.OBJECTVALUE1, ITEM.OBJECTVALUE2;

— Query
Select RTRIM(ITEM.OBJECTVALUE1) AS "Query", DEFN.DESCR, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSQRYDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 10
AND ITEM.OBJECTVALUE1 = DEFN.QRYNAME
ORDER BY RTRIM(ITEM.OBJECTVALUE1);

— Style Sheet
Select RTRIM(ITEM.OBJECTVALUE1) AS "Style Sheet", DEFN.DESCR, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSTYLSHEETDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 50
AND ITEM.OBJECTVALUE1 = DEFN.STYLESHEETNAME
ORDER BY ITEM.OBJECTVALUE1;

— Style Sheet
Select RTRIM(ITEM.OBJECTVALUE1) AS "Style Sheet", DEFN.DESCR, DEFN.LASTUPDOPRID, DEFN.LASTUPDDTTM
FROM PSPROJECTITEM ITEM, PSSTYLSHEETDEFN DEFN
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 50
AND ITEM.OBJECTVALUE1 = DEFN.STYLESHEETNAME
ORDER BY ITEM.OBJECTVALUE1;

— HTML Definitions (What's the table?)
Select RTRIM(ITEM.OBJECTVALUE1) AS "HTML Definitions"
FROM PSPROJECTITEM ITEM
WHERE ITEM.PROJECTNAME = ('RAHUL_TMP')
AND ITEM.OBJECTTYPE = 51
ORDER BY ITEM.OBJECTVALUE1;

—page field properties
SELECT A.PNLNAME,A.OCCURSLEVEL ,a.fieldtype, A.LBLTEXT, A.FIELDNAME, A.RECNAME,a.DSPLFORMAT
FROM PSPNLFIELD A
WHERE A.PNLNAME in (SELECT A.PNLNAME
FROM PSPNLGROUP A, PSPNLGRPDEFN B
WHERE A.PNLGRPNAME = B.PNLGRPNAME
AND A.MARKET = B.MARKET
AND A.PNLGRPNAME IN ('CSG_HCP')) order by 2;

SELECT * FROM (
SELECT 'SELECT TO_CHAR(REPLACE(TT,'','''')'','')'' )) FROM ('||
'SELECT ''INSERT INTO '|| (CASE WHEN SUBSTR(RECNAME, 1, 2) != 'PS' THEN 'PS_' || RECNAME ELSE RECNAME END)
|| ' VALUES(''''''||''''||'

|| CHR(13)
|| CHR(39)|| ')'' AS TT FROM '
|| (CASE WHEN SUBSTR(RECNAME, 1, 2) != 'PS' THEN 'PS_' || RECNAME ELSE RECNAME END)
|| ');' AS SELECT_STATEMENT
,DECODE(FIELDSEQUENCE,1, FIELDNAME,'')
,FIELDNUM
FROM
(
SELECT
RECNAME,
FIELDNAME,
FIELDNUM,
COUNT(*) OVER ( PARTITION BY RECNAME ) AS FIELDCOUNT,
ROW_NUMBER () OVER ( PARTITION BY RECNAME ORDER BY FIELDNUM) FIELDSEQUENCE
FROM
PSRECFIELD
WHERE
RECNAME='PSMSGCATDEFN' )
WHERE
FIELDCOUNT=FIELDSEQUENCE
START WITH
FIELDSEQUENCE = 1
CONNECT BY PRIOR
FIELDSEQUENCE+1=FIELDSEQUENCE
AND PRIOR
RECNAME=RECNAME
ORDER BY FIELDNUM
)

select
ROLEUSER as USER_ID,
substr(SYS_CONNECT_BY_PATH(ROLENAME, ','),2) as ROLES
from
(
select
ROLEUSER,
ROLENAME,
count(*) OVER ( partition by ROLEUSER ) as ROLECOUNT,
ROW_NUMBER () OVER ( partition by ROLEUSER order by ROLENAME) ROLESEQUENCE
from
PSROLEUSER
where
ROLEUSER is not null)
where
ROLECOUNT=ROLESEQUENCE
start with
ROLESEQUENCE = 1
connect by prior
ROLESEQUENCE+1=ROLESEQUENCE
and prior
ROLEUSER=ROLEUSER
;

SELECT *
FROM PSPNLDEFN
WHERE PNLNAME IN (
SELECT PNLNAME
FROM PSPNLGROUP
WHERE PNLGRPNAME = 'AV_ASGN_GROUP')
OR PNLNAME IN (
SELECT SUBPNLNAME
FROM PSPNLFIELD
START
WITH PNLNAME IN (
SELECT PNLNAME
FROM PSPNLGROUP
WHERE PNLGRPNAME = 'AV_ASGN_GROUP')
AND FIELDTYPE = 11 CONNECT BY PRIOR SUBPNLNAME = PNLNAME
AND FIELDTYPE = 11)

go

CREATE TABLE #oprid_exc (
operid_excludes varchar(60))

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('PPLSOFT')

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('DVP1')

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('FVP1')

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('VP1')

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('VP2')

INSERT INTO #oprid_exc
(operid_excludes)
VALUES ('PS')

/*Set value for CUSTOM objects (ignore these)*/
DECLARE @object_name as varchar(30);

set @object_name = 'OX%'

/*Start listing customised objects*/
/*--------------——*/
/* Application Engine Programs… */
SET NOCOUNT ON

select 'Application Engine Programs… '

SET NOCOUNT OFF

select AE_APPLID
, LASTUPDOPRID
, LASTUPDDTTM
From PSAEAPPLDEFN
Where AE_APPLID NOT LIKE @object_name
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Application Engine Sections… */
SET NOCOUNT ON

select 'Application Engine Sections… '

SET NOCOUNT OFF

select AE_APPLID
, AE_SECTION
, LASTUPDOPRID
, LASTUPDDTTM
From PSAESECTDEFN
Where AE_APPLID NOT LIKE 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Components…. */
SET NOCOUNT ON

select 'Components…. '

SET NOCOUNT OFF

select PNLGRPNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSPNLGRPDEFN
Where PNLGRPNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Component Interfaces…. */
SET NOCOUNT ON

select 'Component Interfaces…. '

SET NOCOUNT OFF

select BCNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSBCDEFN
Where BCNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Field objects…. */
SET NOCOUNT ON

select 'Field objects…. '

SET NOCOUNT OFF

select FIELDNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSDBFIELD
Where FIELDNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Filelayout definitions…. */
SET NOCOUNT ON

select 'Filelayout definitions…. '

SET NOCOUNT OFF

select FLDDEFNNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSFLDDEFN
Where (FLDDEFNNAME Not Like 'OX%'
And FLDDEFNNAME Not Like 'OPAL%')
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* HTML objects…. */
SET NOCOUNT ON

select 'HTML objects…. '

SET NOCOUNT OFF

select CONTNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSCONTDEFN
Where CONTNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And CONTTYPE = 4

/* Images…. */
SET NOCOUNT ON

select 'Images…. '

SET NOCOUNT OFF

select CONTNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSCONTDEFN
Where CONTNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And CONTTYPE = 1

/* Messages…. */
SET NOCOUNT ON

select 'Messages…. '

SET NOCOUNT OFF

select MSGNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSMSGDEFN
Where MSGNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Messages Channels…. */
SET NOCOUNT ON

select 'Messages Channels…. '

SET NOCOUNT OFF

select CHNLNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSCHNLDEFN
Where CHNLNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Message Nodes…. */
SET NOCOUNT ON

select 'Message Nodes…. '

SET NOCOUNT OFF

select MSGNODENAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSMSGNODEDEFN
Where MSGNODENAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Page objects…. */
SET NOCOUNT ON

select 'Page objects…. '

SET NOCOUNT OFF

select PNLNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSPNLDEFN
Where PNLNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Record PeopleCode…. */
SET NOCOUNT ON

select 'Record PeopleCode…. '

SET NOCOUNT OFF

select distinct OBJECTVALUE1
, OBJECTVALUE2
, OBJECTVALUE3
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 1

/* Page PeopleCode…. */
SET NOCOUNT ON

select 'Page PeopleCode…. '

SET NOCOUNT OFF

select OBJECTVALUE1
, OBJECTVALUE2
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 9

/* Component PeopleCode… includes Component, Component Record and Component record Field…. */
SET NOCOUNT ON

select 'Component PeopleCode… includes Component, Component Record and Component record Field…. '

SET NOCOUNT OFF

select OBJECTVALUE1
, OBJECTVALUE2
, OBJECTVALUE3
, OBJECTVALUE4
, OBJECTVALUE5
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 10

/* Application Engine PeopleCode…. */
SET NOCOUNT ON

select 'Application Engine PeopleCode…. '

SET NOCOUNT OFF

select OBJECTVALUE1
, OBJECTVALUE2
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 66

/* Component Interface PeopleCode…. */
SET NOCOUNT ON

select 'Component Interface PeopleCode…. '

SET NOCOUNT OFF

select OBJECTVALUE1
, OBJECTVALUE2
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 74

/* Message PeopleCode…. */
SET NOCOUNT ON

select 'Message PeopleCode…. '

SET NOCOUNT OFF

select OBJECTVALUE1
, OBJECTVALUE2
, LASTUPDOPRID
, LASTUPDDTTM
From PSPCMPROG
WHERE OBJECTVALUE1 Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And OBJECTID1 = 60

/* Record objects….. SQL Tables…. */
SET NOCOUNT ON

select 'Record objects….. SQL Tables…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 0

/* Record objects….. Views…. */
SET NOCOUNT ON

select 'Record objects….. Views…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 1

/* Record objects….. Dynamic Views…. */
SET NOCOUNT ON

select 'Record objects….. Dynamic Views…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 5

/* Record objects….. Derived/Work…. */
SET NOCOUNT ON

select 'Record objects….. Derived/Work…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 2

/* Record objects….. Sub-records…. */
SET NOCOUNT ON

select 'Record objects….. Sub-records…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 3

/* Record objects….. Query view…. */
SET NOCOUNT ON

select 'Record objects….. Query view…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 6

/* Record objects….. Temporary Tables…. */
SET NOCOUNT ON

select 'Record objects….. Temporary Tables…. '

SET NOCOUNT OFF

select RECNAME
, RECTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PSRECDEFN
Where RECNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And RECTYPE = 7

/* SQL objects standalone…. */
SET NOCOUNT ON

select 'SQL objects standalone…. '

SET NOCOUNT OFF

select SQLID
, LASTUPDOPRID
, LASTUPDDTTM
From PSSQLDEFN
Where SQLID Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And SQLTYPE = 0

/* SQL Application Engine…….. */
SET NOCOUNT ON

select 'SQL Application Engine…….. '

SET NOCOUNT OFF

select SQLID
, LASTUPDOPRID
, LASTUPDDTTM
From PSSQLDEFN
Where SQLID Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And SQLTYPE = 1

/* SQL view texts…….. */
SET NOCOUNT ON

select 'SQL view texts…….. '

SET NOCOUNT OFF

select SQLID
, LASTUPDOPRID
, LASTUPDDTTM
From PSSQLDEFN
Where SQLID Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And SQLTYPE = 2

/* Stylesheets… */
SET NOCOUNT ON

select 'Stylesheets… '

SET NOCOUNT OFF

select STYLESHEETNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSSTYLSHEETDEFN
Where STYLESHEETNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* */
/* PeopleTools objects modifiable outside Application Designer */
/* */
/* Job definitions…. */
SET NOCOUNT ON

select 'Job definitions…. '

SET NOCOUNT OFF

select PRCSJOBNAME
, DESCR
, LASTUPDOPRID
, LASTUPDDTTM
From PS_PRCSJOBDEFN
Where PRCSJOBNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Process definitions…. */
SET NOCOUNT ON

select 'Process definitions…. '

SET NOCOUNT OFF

select PRCSNAME
, PRCSTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PS_PRCSDEFN
Where PRCSNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Process Type definitions…. */
SET NOCOUNT ON

select 'Process Type definitions…. '

SET NOCOUNT OFF

select PRCSTYPE
, LASTUPDOPRID
, LASTUPDDTTM
From PS_PRCSTYPEDEFN
Where PRCSTYPE Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Queries…. */
/* Check against vanilla DEMO database*/
SET NOCOUNT ON

select 'Queries…. '

SET NOCOUNT OFF

select source.QRYNAME
, source.DESCR
, source.LASTUPDOPRID
, source.LASTUPDDTTM
From PSQRYDEFN source
Where source.QRYNAME Not Like 'OX%'
And source.LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And Exists (select 'x'
From FSDMO89.dbo.PSQRYDEFN demo
Where source.QRYNAME = demo.QRYNAME)

/* Server definitions…. */
SET NOCOUNT ON

select 'Server definitions…. '

SET NOCOUNT OFF

select SERVERNAME
, LASTUPDOPRID
, LASTUPDDTTM
From PS_SERVERDEFN

/* Translate values…. */
SET NOCOUNT ON

select 'Translate values…. '

SET NOCOUNT OFF

select FIELDNAME
, FIELDVALUE
, LASTUPDOPRID
, LASTUPDDTTM
From PSXLATITEM
Where FIELDNAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)

/* Tree structures…. */
SET NOCOUNT ON

select 'Tree structures…. '

SET NOCOUNT OFF

select TREE_STRCT_ID
, DESCR
, LASTUPDOPRID
, LASTUPDDTTM
From PSTREESTRCT source
Where TREE_STRCT_ID Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And Exists (select 'x'
From FSDMO89.dbo.PSTREESTRCT demo
Where source.TREE_STRCT_ID = demo.TREE_STRCT_ID)

/* Trees…. */
SET NOCOUNT ON

select 'Trees…. '

SET NOCOUNT OFF

select SETID
, TREE_NAME
, LASTUPDOPRID
, LASTUPDDTTM
From PSTREEDEFN source
Where TREE_NAME Not Like 'OX%'
And LASTUPDOPRID Not In (select operid_excludes
from #oprid_exc)
And Exists (select 'x'
From FSDMO89.dbo.PSTREEDEFN demo
Where source.TREE_NAME = demo.TREE_NAME)

SELECT A.FLDFIELDNAME, A.FLDSTART,

(SELECT COUNT(*) FROM PSFLDFIELDDEFN

WHERE FLDDEFNNAME = A.FLDDEFNNAME

AND FLDSTART < A.FLDSTART) + 1 CORRECT_SEQ,

A.FLDSEQNO ACTUAL_SEQ

FROM PSFLDFIELDDEFN A

WHERE A.FLDDEFNNAME = '<File Layout Name>'

) B

WHERE B.CORRECT_SEQ <> B.ACTUAL_SEQ

ORDER BY B.FLDSTART