How to use substring in PeopleCode

How to use substring in PeopleCode of each requirement. I have requirement select data from a parameter in a page that contains EMPLID, RC code and year. After user input parameter then retrieves data in grid or scroll area. I using this below PeopleCode.

If %page =’PAGE_NAME’ then

if all(recordname.emplid) then
&wheretxt = &wheretxt | “and emplid = ” | Quote(recordname.emplid);
end-if;

if all(recordname.RC_CODE) then
&wheretxt = &wheretxt | “and RC_CODE= ” | Quote(recordname.RC_CODE);
end-if;

if all(recordname.YEAR) then
&wheretxt = &wheretxt | “and YEAR= ” | Quote(recordname.YEAR);
end-if;

if all(&wheretxt ) then
&wheretxt = Substring(&wheretxt, 4, Len(&wheretxt));
&wheretxt = ” where ” | &wheretxt;
rem WinMessage(&wheretxt, 1);
end-if;

ScrollFlush(Record.recordname);
ScrollSelect(1, Scroll.recordname, Record.recordname, &wheretxt);
SortScroll(1, Record.recordname, recordname.EMPLID, “A”);

end-if;

How to Check Record is Changed in PeopleCode

How to Check Record is Changed in PeopleCode in scroll level 1 and level 2 and more level

For example check record is changed in level 1 by use peoplecode function IsChanged() in the event action of SavePreChange.

Example 1

Local Rowset &Level0_ROWSET, &LEVEL1_ROWSET;
&Level0_ROWSET = GetLevel0();
For &I = 1 To &Level0_ROWSET.ActiveRowCount

If RecordChanged(Record.CONTRACTS, CurrentRowNumber()) Then
rem WinMessage(“Changed row message from level one.”, 64);
CONTRACTS.LAST_EMPLID.Value = %OperatorId;
CONTRACTS.LAST_UPDATE_DTTM1.Value = %Datetime;
End-If;
End-For;

Example 2

or copy code at here

Local Rowset &Level0_ROWSET, &LEVEL1_ROWSET;

If %Page = Page.CONTRACTS Then

&Level0_ROWSET = GetLevel0();
For &A0 = 1 To &Level0_ROWSET.ActiveRowCount

/***************************/
/* Process Level 1 Records */
/*————————-*/
If &Level0_ROWSET(&A0).ChildCount > 0 Then
For &B1 = 1 To &Level0_ROWSET(&A0).ChildCount
&LEVEL1_ROWSET = &Level0_ROWSET(&A0).GetRowset(&B1);
For &A1 = 1 To &LEVEL1_ROWSET.ActiveRowCount
If &LEVEL1_ROWSET(&A1).GetRecord(1).IsChanged Then
rem WinMessage(“ischanged”, 0);
CONTRACTS.LAST_EMPLID.Value = %OperatorId;
CONTRACTS.LAST_UPDATE_DTTM1.Value = %Datetime;
End-If;
End-For;
End-For;
End-If;
End-For;
End-If;

More example of level 2 and level 3 from below reference: https://docs.oracle.com/cd/E80738_01/pt854pbh2/eng/pt/tpcd/concept_UnderstandingDataBufferClassesExamples-074aee.html#topofpage

Different between dosave and dosavenow in peoplecode

Different between dosave and dosavenow in peoplecode function of peoplesoft.

Dosave =

For example 1 PeopleCode:

PeopleCode Statment 1
PeopleCode Statment 2
Dosave() / Dovenow()
PeopleCode Statment 3

In case of Dosave function PeopleCode Statment 1 to PeopleCode Statment 2  will execute then save processing will trigger and DoSave can be used only in FieldEdit, FieldChange, or MenuItemSelected PeopleCode.

And in case of DosaveNow function PeopleCode Statment to PeopleCode Statment 2 will execute then save processing will trigger and rest PeopleCode Statment 3 will execute after save. Save processing (including SaveEdit, SavePreChange, SavePostChange, and Workflow PeopleCode)

More Detail

Do savenow()–>save the current field/component immediately..

Example 2: in the main page having some fields
1. emplid
2. status
3. rccode
4. deptid
…etc

when you are enter first field value as 100 and immediately tab out of that field, 100 value saved in database. when you are writing dosavenow() function in field edit event.

do save() —> save the current component..just like clicking on save button…
Example 3: when you enter all field values in the page finally click on save button, that time only those values saved in database.

When you use save button instead save of component then peoplecode both set component changed and do save in field change event.

setcomponetchanged();
dosave ();

Ref: https://it.toolbox.com/question/dosave-and-dosavenow-090607
Ref: https://docs.oracle.com/cd/E13292_01/pt849pbr0/eng/psbooks/tpcl/chapter.htm?File=tpcl/htm/tpcl02.htm
Ref: http://www.compshack.com/forum/peoplesoft/peoplesoft-technical/difference-between-do-save-and-do-save-now-functions-peoplecod

Difference between transfer and transferpage in PeopleSoft

Difference between transfer and transferpage in PeopleSoft by PeopleCode language is function transfer page for each purpose.

TransferPage (): For transfer page from one page to the other page within a component.
Syntax of TransferPage
TransferPage([PAGE.page_name_name])
Example: TransferPage(PAGE.JOB_DATA);

Transfer(): For transfer page from one page to the other page in difference component/ current component.
Syntax of transfer
Transfer(new_instance, MENUNAME.menuname, BARNAME.barname, ITEMNAME.menu_itemname, PAGE.component_item_name, action [, keylist] [, AutoSearch]);

Example : Transfer(true, MENUNAME.ADMINISTER_PERSONNEL, BARNAME.USE, ITEMNAME. PERSONAL_DATA, PAGE.PERSONAL_DATA_1, “U”);

new_instance =  true = new window, false= current window.

You can find menu name, bar name, item name and  component_item_name  by select data in table PSAUTHITEM

Action =  A –Add,  U-update, L-Update/display, C-Correction, E-Data Entry

AutoSearch = Specify whether an automatic search on the target search page is executed after the transfer. This means the search results are already shown without the end-user having to click the Search button.
True=  an automatic search.
False = User has to click the search button.

Ref: http://peoplesoftismail.blogspot.com/p/normal-0-false-false-false-en-us-x-none_5886.htm

Ref: https://docs.oracle.com/cd/E13292_01/pt849pbr0/eng/psbooks/tpcl/chapter.htm?File=tpcl/htm/tpcl02.htm