Tech TIPS - !!!!: pc

MessageBox(0, "", 18160, 43, "Message not found");
&RsMain1 = GetLevel0()(1).GetRowset(@("Scroll." | &DTL_Rec));
&SearchResultRS = CreateRowset(@("Record." | &SRCH_Rec));
&RSGridRslt = GetLevel0()(1).GetRowset(Scroll.FD_SVR_SRCH1);
&RSGridRslt.Flush();
&RSGridRslt.InsertRow(0);
Local Rowset &RSGrid;
&RSGrid = GetLevel0()(1).GetRowset(@("Scroll." | &DTL_Rec));
Local Row &COPYROWTO;
&RSGrid.InsertRow(0);
&COPYROWTO = &RSGrid.GetRow(1);
&COPYROWTO.GetRecord(@("Record." | &DTL_Rec)).EMPLID.Value = &RSGridRslt(&i).GetRecord(Record.FD_SVR_SRCH1).EMPLID.Value;
MessageBox(0, "", 21000, 1010, "Message not found", String(&EmplCounter));
If All(GetRecord(@("Record." | &HDR_Rec)).FD_SVR_POA_ID.Value) Then
      If True = &SvrCommon.IsPartOfEvent(&ParamValue, GetRecord(@("Record." | &HDR_Rec)).FD_SVR_EVENT_NAME.Value, GetRecord(@("Record." | &HDR_Rec)).FD_SVR_POA_ID.Value) Then
         Error MsgGet(21000, 1017, "Message not found", GetRecord(@("Record." | &HDR_Rec)).FD_SVR_POA_ID.Value);
      End-If;
   End-If;
&URL_Link = GenerateComponentContentURL(%Portal, %Node, MenuName.ZD_SVR, "GBL", @("Component." | %Component), @("Page." | &Event_Page), "C", &TempRec11);

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<style>
table {
    font-family: arial, sans-serif;
    border-collapse: collapse;
    width: 40%;
font-size: 90%;
border-style: double;
}
td, th {
    border: 2px solid #dddddd;
    text-align: left;
    padding: 8px;
font-size: 90%;
border-style: double
}
tr:nth-child {
    background-color: #dddddd;
}
</style>
</head>
<body>
The Below Scheduled Process did not run. Please check last run date in process monitor
</br>
</br>
<table>
%1
</table>
</br>
</br>
</br>
</br>
</body>
"***Please do not respond to this mail***"
</html>
import PT_MCF_MAIL:*;
Local PT_MCF_MAIL:MCFOutboundEmail &eMail = create PT_MCF_MAIL:MCFOutboundEmail();
Local Rowset &Email_Tmpl = CreateRowset(Record.WL_TEMPLATE_GEN);
&TemplateName = "Job Monitioring Notification";
&Email_Tmpl.Fill("WHERE WL_TEMPLATE_ID = :1", &TemplateName);
&subj_text = &Email_Tmpl(1).WL_TEMPLATE_GEN.WL_SUBJECT.Value;
Local Rowset &Rs = CreateRowset(Record.ZD_PRCS_JOB_VW);
Local Rowset &Rs1 = CreateRowset(Record.ZD_MAIL_OPR_VW);
&Rs.Fill("ORDER BY PRCSNAME");
/*Body for multiple parts*/
Local string &plain_text = "***This mail is to test sending welcome letters using BI Publisher***";
Local PT_MCF_MAIL:MCFBodyPart &text = create PT_MCF_MAIL:MCFBodyPart();
&text.Text = &plain_text;
&text.ContentType = "Content-type: text/html; charset=UTF-8";
/*Build HTML Table format */
&td = "<td>";
&td1 = "</td>";
&tr = "<tr>";
&tr1 = "</tr>";
&th = "<th>";
&th1 = "</th>";
&count = &Rs.ActiveRowCount;
rem MessageBox(0, "", 0, 0, "Rowcount : " | &count);
If &count > "0" Then
   For &i = 1 To &Rs.ActiveRowCount
      &output_email = "";
      &header = &tr | &th | "S.no" | &th1 | &th | "Runcontrol" | &th1 | &th | "Process" | &th1 | &th | "Frequency" | &th1 | &th | "Status" | &th1 | &tr1;
      SQLExec(SQL.ZD_RECURNAME_SQL, &Rs(&i).ZD_PRCS_JOB_VW.ZD_RECURNAME.Value, &freq);
      rem SQLExec(SQL.ZD_RUNSTATUS_SQL, &Rs(&i).ZD_PRCS_JOB_VW.RUNSTATUS.Value, &runstatus);
      &runstatus = "Scheduled Job has not run";
      &process = &tr | &td | "1" | ".)" | &td1 | &td | &Rs(&i).ZD_PRCS_JOB_VW.RUNCNTLID.Value | &td1 | &td | &Rs(&i).ZD_PRCS_JOB_VW.PRCSNAME.Value | &td1 | &td | &freq | &td1 | &td | &runstatus | &td1 | &tr1;
      &output_process1 = &header | &process;
      &str_Etext = &Email_Tmpl(1).WL_TEMPLATE_GEN.WL_MSG_TXT.Value;
      &str_Etext = Substitute(&str_Etext, "%1", &output_process1);
      &text.Text = &str_Etext;
      /*Send Mail to Group that is assigned in Job Monitoring Setup Page*/
      Local PT_MCF_MAIL:MCFMultipart &mp = create PT_MCF_MAIL:MCFMultipart();
      &mp.AddBodyPart(&text);
      &Rs1.Fill("WHERE ROLENAME =:1", &Rs(&i).ZD_PRCS_JOB_VW.ROLENAME.Value);
      For &j = 1 To &Rs1.ActiveRowCount
         &email1 = &Rs1(&j).ZD_MAIL_OPR_VW.EMAILID.Value;
         &email1 = &email1 | ";";
         &output_email = &output_email | &email1;
      End-For;
      SQLExec("SELECT EMAILID FROM PSOPRDEFN WHERE OPRID =:1", &Rs(&i).ZD_PRCS_JOB_VW.OPRID.Value, &emailid);
      &output_email = &output_email | ";" | &emailid;
      MessageBox(0, "", 0, 0, "mail list : " | &output_email);

      &ToList = &output_email;
      &Subject = &subj_text;
      &eMail.Recipients = &ToList; /*comma separeted list of email addresses*/
      &eMail.From = &FromList; /*from email address*/
      &eMail.ReplyTo = &ReplyToList; /*in case the reply is to be sent to a different email address*/
      &eMail.Subject = &Subject;
      &eMail.MultiPart = &mp;
      Local integer &resp = &eMail.Send();

   End-For;
End-If;

SELECT DECODE(SUM(CALC_RSLT_VAL)
, 0
, SUM(UNIT_RSLT_VAL) +SUM(UNIT_ADJ_VAL)
,SUM(CALC_RSLT_VAL) + SUM(CALC_ADJ_VAL) )
---------------------
SELECT
(CASE WHEN A.OBJECTTYPE = 0 Then 'Record'
WHEN A.OBJECTTYPE = 1 Then 'Index'
WHEN A.OBJECTTYPE = 2 Then 'Field'
WHEN A.OBJECTTYPE = 3 Then 'Field Format'
WHEN A.OBJECTTYPE = 4 Then 'Translate Value'
WHEN A.OBJECTTYPE = 5 Then 'Pages'
WHEN A.OBJECTTYPE = 6 Then 'Menus'
WHEN A.OBJECTTYPE = 7 Then 'Components'
WHEN A.OBJECTTYPE = 8 Then 'Record PeopleCode'
WHEN A.OBJECTTYPE = 9 Then 'Menu PeopleCode'
WHEN A.OBJECTTYPE = 10 Then 'Query'
WHEN A.OBJECTTYPE = 11 Then 'Tree Structures'
WHEN A.OBJECTTYPE = 12 Then 'Trees'
WHEN A.OBJECTTYPE = 13 Then 'Access group'
WHEN A.OBJECTTYPE = 14 Then 'Color'
WHEN A.OBJECTTYPE = 15 Then 'Style'
WHEN A.OBJECTTYPE = 16 Then 'N/A'
WHEN A.OBJECTTYPE = 17 Then 'Business process'
WHEN A.OBJECTTYPE = 18 Then 'Activity'
WHEN A.OBJECTTYPE = 19 Then 'Role'
WHEN A.OBJECTTYPE = 20 Then 'Process Definition'
WHEN A.OBJECTTYPE = 21 Then 'Server Definition'
WHEN A.OBJECTTYPE = 22 Then 'Process Type Definition'
WHEN A.OBJECTTYPE = 23 Then 'Job Definitions'
WHEN A.OBJECTTYPE = 24 Then 'Recurrence Definition'
WHEN A.OBJECTTYPE = 25 Then 'Message Catalog'
WHEN A.OBJECTTYPE = 26 Then 'Dimension'
WHEN A.OBJECTTYPE = 27 Then 'Cube Definitions'
WHEN A.OBJECTTYPE = 28 Then 'Cube Instance Definitions'
WHEN A.OBJECTTYPE = 29 Then 'Business Interlink'
WHEN A.OBJECTTYPE = 30 Then 'SQL'
WHEN A.OBJECTTYPE = 31 Then 'File Layout Definition'
WHEN A.OBJECTTYPE = 32 Then 'Component Interfaces'
WHEN A.OBJECTTYPE = 33 Then 'AE program'
WHEN A.OBJECTTYPE = 34 Then 'AE section'
WHEN A.OBJECTTYPE = 35 Then 'Message Node'
WHEN A.OBJECTTYPE = 36 Then 'Message Channel'
WHEN A.OBJECTTYPE = 37 Then 'Message'
WHEN A.OBJECTTYPE = 38 Then 'Approval rule set'
WHEN A.OBJECTTYPE = 39 Then 'Message PeopleCode'
WHEN A.OBJECTTYPE = 40 Then 'Subscription PeopleCode'
WHEN A.OBJECTTYPE = 41 Then 'N/A'
WHEN A.OBJECTTYPE = 42 Then 'Component Interface PeopleCode'
WHEN A.OBJECTTYPE = 43 Then 'AE PeopleCode'
WHEN A.OBJECTTYPE = 44 Then 'Page PeopleCode'
WHEN A.OBJECTTYPE = 45 Then 'Page Field PeopleCode'
WHEN A.OBJECTTYPE = 46 Then 'Component PeopleCode'
WHEN A.OBJECTTYPE = 47 Then 'Component Record PeopleCode'
WHEN A.OBJECTTYPE = 48 Then 'Component Rec Fld PeopleCode'
WHEN A.OBJECTTYPE = 49 Then 'Image'
WHEN A.OBJECTTYPE = 50 Then 'Style sheet'
WHEN A.OBJECTTYPE = 51 Then 'HTML'
WHEN A.OBJECTTYPE = 52 Then 'Not used'
WHEN A.OBJECTTYPE = 53 Then 'Permission List'
WHEN A.OBJECTTYPE = 54 Then 'Portal Registry Definitions'
WHEN A.OBJECTTYPE = 55 Then 'Portal Registry Structures'
WHEN A.OBJECTTYPE = 56 Then 'URL Definitions'
WHEN A.OBJECTTYPE = 57 Then 'Application Packages'
WHEN A.OBJECTTYPE = 58 Then 'Application Package Peoplecode'
WHEN A.OBJECTTYPE = 59 Then 'Portal Registry User Homepage'
WHEN A.OBJECTTYPE = 60 Then 'Problem Type'
WHEN A.OBJECTTYPE = 61 Then 'Archive Templates'
WHEN A.OBJECTTYPE = 62 Then 'XSLT'
WHEN A.OBJECTTYPE = 63 Then 'Portal Registry User Favorite'
WHEN A.OBJECTTYPE = 64 Then 'Mobile Page'
WHEN A.OBJECTTYPE = 65 Then 'Relationships'
WHEN A.OBJECTTYPE = 66 Then 'Component Interface Property Peoplecode'
WHEN A.OBJECTTYPE = 67 Then 'Optimization Models'
WHEN A.OBJECTTYPE = 68 Then 'File References'
WHEN A.OBJECTTYPE = 69 Then 'File Type Codes'
WHEN A.OBJECTTYPE = 70 Then 'Archive Object Definitions'
WHEN A.OBJECTTYPE = 71 Then 'Archive Templates (Type 2)'
WHEN A.OBJECTTYPE = 72 Then 'Diagnostic Plug In'
WHEN A.OBJECTTYPE = 73 Then 'Analytic Model'
ELSE TO_CHAR(A.OBJECTTYPE) END) AS OBJECTTYPE,
(CASE WHEN A.OBJECTID4 <> 0 THEN
    (A.OBJECTVALUE1 || ' -> ' || A.OBJECTVALUE2 || ' -> ' || A.OBJECTVALUE3 || ' -> ' || A.OBJECTVALUE4)
ELSE (CASE WHEN A.OBJECTID3 <> 0 THEN
    (A.OBJECTVALUE1 || ' -> ' || A.OBJECTVALUE2 || ' -> ' || A.OBJECTVALUE3)
ELSE (CASE WHEN A.OBJECTID2 <> 0 THEN
    (A.OBJECTVALUE1|| ' -> ' || A.OBJECTVALUE2)
ELSE A.OBJECTVALUE1 END) END )END) AS OBJECTVALUE
FROM PSPROJECTITEM A WHERE A.PROJECTNAME = '2356';

AddToDate(FD_SVR_USA_DTL.FD_SVR_NTFY_DT, 0, 0, 1);
MessageBox(0, "Warning", 21000, 1023, "Message not found", &date2, &date1);
SQLExec("SELECT COUNT (*)FROM (SELECT ROWNUM rnum FROM ps_fd_svr_usa_dtl WHERE ROWNUM <= TO_DATE (%datein(:2)) - TO_DATE (%datein(:1)) + 1) WHERE TO_CHAR (TO_DATE (%datein(:1)) + rnum - 1, 'DY') NOT IN ('SAT', 'SUN')", &start_dt, &end_dt, &day_count);
&Rec1.FD_SVR_HRNTFY_ID.SetCursorPos(%Page);
         &Rec1.FD_SVR_HRNTFY_ID.Style = "PSERROR";
         MessageBox(0, "Error", 21000, 1038, "Message not found");

---2nd row
SELECT * FROM (
SELECT RANK() OVER (PARTITION BY EMPLID, EMPL_RCD ORDER BY EFFDT DESC, EFFSEQ DESC) RANK1,
A.* FROM PS_JOB A WHERE EMPLID = '266314')
WHERE RANK1 = 2;
---Fetch first row of Termination in Job
SELECT *
FROM PS_JOB A
WHERE
       A.EFFDT =
        (SELECT MAX(A_ED.EFFDT) FROM PS_JOB A_ED
        WHERE A.EMPLID = A_ED.EMPLID
          AND A.EMPL_RCD = A_ED.EMPL_RCD
          AND A_ED.EFFDT <= (SELECT MIN(A_ED.EFFDT)
FROM PS_JOB A_ED
WHERE A_ED.ACTION ='TER'   AND A.EMPLID =A_ED.EMPLID AND A.EMPL_RCD = A_ED.EMPL_RCD ))
AND (SELECT COUNT(*) FROM PS_JOB A_ED WHERE A_ED.ACTION ='TER'
AND A.EMPLID =A_ED.EMPLID AND A.EMPL_RCD = A_ED.EMPL_RCD AND A_ED.EFFDT >= (SELECT MIN(A_ED.EFFDT)
FROM PS_JOB A_ED
WHERE A_ED.ACTION ='TER' AND A.EMPLID =A_ED.EMPLID AND A.EMPL_RCD = A_ED.EMPL_RCD))> 1
    AND A.EFFSEQ =
        (SELECT MAX(A_ES.EFFSEQ) FROM PS_JOB A_ES
        WHERE A.EMPLID = A_ES.EMPLID
          AND A.EMPL_RCD = A_ES.EMPL_RCD
          AND A.EFFDT = A_ES.EFFDT) ;

Tech TIPS - !!!!

Tuesday, July 18, 2017

pc

No comments:

About Me

Blog Archive