Hello.   I am trying to create a variable from data in a data set with dates.  When using the intnx('weekday'...) function, if the previous weekday was in the month/year prior to the beginning of the month I am looking for, it goes back to that date.  I am trying to figure out a way to either just leave it at the first of the month if it is on the weekend or take it forward to the first weekday.  For instance, January 1st 2022 was on Saturday.  Using the weekday function pulls December 31st even when indicating the month should be at the beginning.  How can I handle this?   proc sql; select intnx('weekday',intnx('month',max(date1),-2,'b'),0) into :last2monthbegindate from table 1 where name in ('name1','name2','name2') ; quit; The result of this query above is 12/31/2021 instead of 1/1/2022 (or 1/3/2022, the first weekday in January).  If adjusting the code to look back to February, it gives the desired results because February 1 was a weekday. ... View more

I have an issue where a vbs file generated by a scheduler runs find on my PC but not a co-workers PC.  I have searched the web and haven't had any luck with the reason behind it.  Below is the error I am getting and the vbs that it is calling.   Option Explicit Dim app ' As SASEGuide.Application Call dowork 'shut down the app If not (app Is Nothing) Then app.Quit Set app = Nothing End If Sub dowork() On Error Resume Next '---- ' Start up Enterprise Guide using the project name '---- Dim prjName ' As String Dim prjObject ' As SASEGuide.Project Dim containerName ' As String Dim containerObject ' As SASEGuide.Container Dim containerColl ' As SASEGuide.ContainerCollection prjName = "M:\NECD\Group\PFS\mortgage\MSR Reporting\MSR Acquisitions Reporting\SAS EG Projects\SAS EG Manual Projects.egp" ' Project Name containerName = "MSR0002 - MSR FHLMC CRX Reporting" ' Container Name Set app = CreateObject("SASEGObjectModel.Application.8.1") If Checkerror("CreateObject") = True Then Exit Sub End If Set prjObject = app.Open(prjName,"") If Checkerror("App.Open") = True Then Exit Sub End If Dim orderedListContainer Dim orderedList '----- 'Run the ordered list '----- Set orderedListContainer = prjObject.ContainerCollection.Item("Ordered Lists") For Each orderedList in orderedListContainer.Items If orderedList.Name = "MSR0002_CSV" Then orderedList.Run() End If Next If Checkerror("OrderedList.Run") = True Then Exit Sub End If '----- ' Save the new project '----- 'prjObject.Save 'If Checkerror("Project.Save") = True Then ' Exit Sub 'End If '----- ' Close the project '----- prjObject.Close If Checkerror("Project.Close") = True Then Exit Sub End If End Sub Function Checkerror(fnName) Checkerror = False Dim strmsg ' As String Dim errNum ' As Long If Err.Number <> 0 Then strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script. Checkerror = True End If End Function I am assuming it has something to do with my co-workers pc since it runs fine on mine but not sure what to look for. ... View more

I was working in Enterprise Guide this morning and (stupidly) closed it without saving.  I have auto save set to every 10 minutes.  However, I went out to the auto recovery folder where I have EG set to save, and there is nothing.  Does this only work if EG crashes??  ... View more