added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

43
LSL2/STPROC/SRP_TEST.txt Normal file
View File

@ -0,0 +1,43 @@
Function SRP_TEST(Svc)
/********************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to
be copied without written permission from SRP Computer Solutions, Inc.
Name :
Description :
Tags : [SRP]
Parameters :
History (Date, Initials, Notes)
06/07/09 fjt Initial development
********************************************************************************************************/
$insert SRP_LSL2_INSERTS
Declare function SVC_Scheduler, Dialog_Box, MemberOf, Start_Window
Declare subroutine Extract_SI_Keys, Btree.Extract, Rlist
rv = ""
Begin Case
Case Svc _eqc "Sched" ; GoSub Launch_Scheduler
Case Svc _eqc "Schedule" ; GoSub Launch_Scheduler
End Case
Return rv
!----- TEST SERVICES ------------------------------------------------------------------------------------
Launch_Scheduler:
@USER4 = "SRP_FRANK"
rv = Start_Window("WO_MASTER_SCHEDULER", "", "")
return