added LSL2 stored procedures
This commit is contained in:
43
LSL2/STPROC/SRP_TEST.txt
Normal file
43
LSL2/STPROC/SRP_TEST.txt
Normal 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
|
||||
|
Reference in New Issue
Block a user