Way to save program in Operator Mode?

If you created a basic script that saves program would it work? If you even have to go that far.

Sub Main (strText As String)
    Dim App As Object
    Set App = CreateObject ("PCDLRN.Application")
    Dim Part As Object
    Set Part = App.ActivePartProgram
    Part.Save
End Sub

https://docs.hexagonmi.com/pcdmis/2021.1/en/helpcenter/mergedProjects/automationobjects/PCDLRN~PartProgram~Save.html from here.

I believe File - Close saves the data. File - Quit does not. 

Not in operator mode.  Operator mode makes no changes, no matter what you do.

Did you try using a script? I know it's a lot of work if you have tons of programs and it should just be an option somewhere. I was just curious if it worked in operator mode.

Yeah, I am not so sure about that. I have not used operator mode in a long time, but I recall when you click "CLOSE" it saves the current run's data. This is the reason we switched to protected mode because sometimes that "save" corrupted the program. Unless they changed how operator mode works, this is what I recall from several several versions ago.