44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
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
|
|
|