Write SSO Header to APPSRV log

psoft-debug-sso

         Local string &ssoHeader = "X_AUTH_REQUEST_EMAIL";
         Local string &emailHeader = %Request.GetHeader(&ssoHeader);
         /* APPSRV log for debugging */
         If None(&emailHeader) Then
            WriteToLog(%ApplicationLogFence_Error, "----------------------------------------------------------------------");
            WriteToLog(%ApplicationLogFence_Error, "        ERROR: (" | &ssoHeader | ") SSO HEADER MISSING");
            WriteToLog(%ApplicationLogFence_Error, "----------------------------------------------------------------------");
         Else
            /* ↓↓↓↓ Grab oprid/username from DB ↓↓↓↓ */
            /* SQLExec("SELECT A.OPRID FROM PSOPRDEFN A WHERE ( A.EMAILID = :1)", &emailHeader, &userID); */
            SQLExec("SELECT OPRID FROM PSOPRDEFN WHERE LTRIM(RTRIM(EMAILID,'<','>') :1)", &emailHeader, &userID);
            WriteToLog(%ApplicationLogFence_Error, "----------------------------------------------");
            WriteToLog(%ApplicationLogFence_Error, "PROXY-SSO-EMAIL-HEADER: " | &ssoHeader | " Value: " | &emailHeader);
            WriteToLog(%ApplicationLogFence_Error, "OPRID/USERNAME: " | &userID);
            WriteToLog(%ApplicationLogFence_Error, "PROXY-SSO-PROCESSING-COMPLETE");
            WriteToLog(%ApplicationLogFence_Error, "----------------------------------------------");
         End-If;