SampleCase_
<Gen-it>
24-01-2001
DROP PROCEDURE GET_
go
DROP PROCEDURE DELETE_
go
DROP PROCEDURE INSERT_
go
-- ***********************************************************************************************************************************
-- GET_
--
-- ***********************************************************************************************************************************
-- Gets a specific entry based on values passed through parameters.
-- ***********************************************************************************************************************************
-- copyright 2000
-- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- When:
-- Who:
-- What: Initial release
--************************************************************************************************************************************
CREATE PROCEDURE GET_(
@,
)
AS
BEGIN
SELECT
,
FROM
WHERE (
= @
)
RETURN(0)
END
go
-- ***********************************************************************************************************************************
-- DELETE_
--
-- ***********************************************************************************************************************************
-- Deletes a specific entry based on values passed through parameters.
-- ***********************************************************************************************************************************
-- copyright 2000
-- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- When:
-- Who:
-- What: Initial release
--************************************************************************************************************************************
CREATE PROCEDURE DELETE_(
@,
)
AS
BEGIN
--************************************************************************************************************************************
-- Declare Variables [Start]
Declare
@CurrentError int
-- Declare Variables [End]
--************************************************************************************************************************************
-- Begin Procedure Body
DELETE
FROM
WHERE (
= @
)
BEGIN
SELECT @CurrentError= @@error
IF (@CurrentError <> 0)
RETURN @CurrentError
END
RETURN(0)
END
go
-- ***********************************************************************************************************************************
-- INSERT_
--
-- ***********************************************************************************************************************************
-- Inserts a new entry based on values passed through parameters.
-- ***********************************************************************************************************************************
-- copyright 2000
-- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- When:
-- Who:
-- What: Initial release
--************************************************************************************************************************************
CREATE PROCEDURE INSERT_(
@,
)
AS
BEGIN
--************************************************************************************************************************************
-- Declare Variables [Start]
Declare
@CurrentError int
-- Declare Variables [End]
--************************************************************************************************************************************
-- Begin Procedure Body
INSERT INTO (
,
)
VALUES (
@,
)
BEGIN
SELECT @CurrentError = @@error
IF (@CurrentError <> 0)
RETURN @CurrentError
END
END
go
VARCHAR
NUMERIC
DATETIME
REAL
TEXT
'
Function Upper(nodelist)
Upper = UCASE(nodelist.nextNode().text)
End Function
'
Function Lower(nodelist)
Lower = LCASE(nodelist.nextNode().text)
End Function
'
Function CapFirst(nodelist)
dim strText
dim strOutput
strText = nodelist.nextNode().text
strOutput = UCASE(Left( strText, 1))
strOutput = strOutput + LCASE((Right( strText, LEN(strText)-1)))
CapFirst = strOutput
End Function
'
Function FillSpace(nodelist, length)
dim strText
dim strOutput
strText = nodelist.nextNode().text
strOutput = strText + String( length - LEN(strText) , " ")
FillSpace = strOutput
End Function