johnblood/tldm-2503
1
0
Fork 0
Code Pull Requests Actions Packages Releases Wiki Activity

added CMS folder

Browse Source
This commit is contained in:
John Paul Wohlscheid
2025-03-31 19:00:48 -04:00
parent c04bc757d9
commit 33048897a7
17778 changed files with 586914 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
CMS/BP.CLOCK/CMSD.LOGOFF Normal file
View File

@@ -0,0 +1,14 @@
OPEN 'PT' TO PT ELSE ABORT
OPEN 'CM' TO CM ELSE ABORT
PORT=@USERNO
USER=@LOGNAME
ACCOUNT=@WHO
READ PT.DATA FROM PT,PORT ELSE ABORT
USERID=PT.DATA<1>
READ CMREC FROM CM,USERID ELSE ABORT
IF CMREC<14>=ACCOUNT THEN
CHAIN "LOGOUT"
END ELSE
CHAIN "LOGTO MASTER"
END
STOP