42 lines
1.7 KiB
Plaintext
42 lines
1.7 KiB
Plaintext
Compile insert MCP_Setup
|
|
|
|
/***********************************************************************************************************************
|
|
|
|
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 : MCP_Setup
|
|
|
|
Description : Declares and equates used by MCP.
|
|
|
|
Notes :
|
|
|
|
History : (Date, Initials, Notes)
|
|
08/13/10 dmb Original programmer.
|
|
07/24/14 dmb Add Error_Services as a declared function. - [SRPFW-77]
|
|
|
|
***********************************************************************************************************************/
|
|
|
|
Declare function RetStack, MCP, Inet_QueryParam, Error_Services
|
|
Declare subroutine Error_Services, RTP27
|
|
|
|
|
|
// Make sure any request parameters which have not been assigned are nulled.
|
|
If Assigned(ServiceHandler) else ServiceHandler = ''
|
|
If Assigned(Service) else Service = ''
|
|
|
|
If Assigned(Param1) else Param1 = ''
|
|
If Assigned(Param2) else Param2 = ''
|
|
If Assigned(Param3) else Param3 = ''
|
|
If Assigned(Param4) else Param4 = ''
|
|
If Assigned(Param5) else Param5 = ''
|
|
If Assigned(Param6) else Param6 = ''
|
|
If Assigned(Param7) else Param7 = ''
|
|
If Assigned(Param8) else Param8 = ''
|
|
If Assigned(Param9) else Param9 = ''
|
|
If Assigned(Param10) else Param10 = ''
|
|
If Assigned(Response) else Response = ''
|
|
|
|
// These are request parameters used by INET_MCP.
|
|
If Assigned(Payload) else Payload = ''
|