Not sure if this is possible or not but my supervisor wants to know if there is any way PC-DMIS can generate an activity log indicating which programs have been run and when they were executed, as well as if they were aborted for some reason. Any thoughts anyone. If it involves scripting I'm not sure that my skills are up to that but I am willing to try. Thanks in advance for any suggestions.
At the beginning of the program, I have data going into a CSV that tells me what program ran, at what time, and what date.
ASSIGN/SYSDAT1=SYSTEMDATE("MMMM dd yyyy")
ASSIGN/SYSTIM1=SYSTEMTIME("HH:mm:ss")
ASSIGN/FILEHDR=STR(GETTEXT(191,1,{FILEHEDR}))
START_LOG =FILE/OPEN,M:\Quality\CMM BACKUP-RECORDS ARCHIVE\CMM LOG\CMM One\CMM ONE Program Start Up Log.csv,APPEND
FILE/WRITELINE,START_LOG,SYSDAT1+","+SYSTIM1+","+FILEHDR+"
FILE/CLOSE,START_LOG,KEEP
ASSIGN/STARTTIME=(INT(SYSTEMTIME("HH")*3600)+INT(SYSTEMTIME("mm")*60)+INT(SYSTEMTIME("ss")))/60
Then at the end of the program, I have data going into another CSV that gives me data which tells me Date, Time, Program Name, Program Runtime, and specific data from the form I have operators fill out:
ASSIGN/SYSDAT=SYSTEMDATE("MMMM dd yyyy")
ASSIGN/SYSTIM=SYSTEMTIME("HH:mm:ss")
ASSIGN/ENDTIME=(INT(SYSTEMTIME("HH")*3600)+INT(SYSTEMTIME("mm")*60)+INT(SYSTEMTIME("ss")))/60
ASSIGN/PROGRUN=ENDTIME-STARTTIME
END_LOG =FILE/OPEN,M:\Quality\CMM BACKUP-RECORDS ARCHIVE\CMM LOG\CMM One\CMM ONE Program Run Log.csv,APPEND
FILE/WRITELINE,END_LOG,SYSDAT+","+SYSTIM+","+SYSTIM1+","+PROGRUN+","+FILEHDR+","+FORM2+","+FORM3+","+FORM1+"
FILE/CLOSE,END_LOG,KEEP
