113 lines
1.9 KiB
Plaintext
113 lines
1.9 KiB
Plaintext
COMPILE FUNCTION obj_JCH_Log(Method,Parms)
|
|
/*
|
|
Methods for the JCH_Log table
|
|
|
|
04/9/2013 JCH - Initial Coding
|
|
|
|
Properties:
|
|
|
|
Methods:
|
|
|
|
Extract() ;* Restructures data log records
|
|
|
|
*/
|
|
|
|
|
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_Prod_Spec
|
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, RList, ErrMsg, Btree.Extract
|
|
|
|
EQU TAB$ TO \09\
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
EQU ROUTINE$ TO 1
|
|
EQU METHOD$ TO 2
|
|
EQU TABLE$ TO 3
|
|
EQU WO_NOS$ TO 4
|
|
EQU CASS_NOS$ TO 5
|
|
EQU LOC_KEY$ TO 6
|
|
EQU ACTION$ TO 7
|
|
EQU TRANS_DTM$ TO 8
|
|
EQU USER_ID$ TO 9
|
|
EQU TAGS$ TO 10
|
|
EQU TOOL_ID$ TO 11
|
|
EQU ERR_MSG$ TO 12
|
|
EQU POST_VALS TO 13
|
|
EQU STATION TO 14
|
|
EQU LOG_DTM TO 15
|
|
|
|
|
|
|
|
ErrTitle = 'Error in Stored Procedure "obj_JCH_Log"'
|
|
ErrorMsg = ''
|
|
|
|
IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
|
|
IF NOT(ASSIGNED(Parms)) THEN Parms = ''
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
RETURN ''
|
|
END
|
|
|
|
Result = ''
|
|
|
|
BEGIN CASE
|
|
CASE Method = 'Extract' ; GOSUB Extract
|
|
CASE 1
|
|
ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to object.'
|
|
|
|
END CASE
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
RETURN ''
|
|
END
|
|
|
|
RETURN Result
|
|
|
|
|
|
* * * * * * *
|
|
Extract:
|
|
* * * * * * *
|
|
|
|
LogKey = Parms[1,@RM]
|
|
LogRec = Parms[COL2()+1,@RM]
|
|
FieldNo = Parms[COL2()+1,@RM]
|
|
|
|
|
|
IF LogKey = '' THEN RETURN
|
|
|
|
IF LogRec = '' THEN
|
|
LogRec = XLATE('JCH_LOG',LogKey,'','X')
|
|
END
|
|
|
|
IF LogRec = '' THEN RETURN
|
|
Part1 = LogRec<1>
|
|
Part2 = LogRec<2>
|
|
|
|
IF INDEX(Part2<1,1>,@SVM,1) THEN
|
|
TitleMessage = Part2<1,1>
|
|
Parms = Part2<1,2>
|
|
|
|
CONVERT @SVM TO ' - ' IN TitleMessage
|
|
|
|
Part2 = TitleMessage:@VM:Parms
|
|
END
|
|
|
|
*DEBUG
|
|
|
|
*CONVERT @VM:@SVM TO TAB$:@VM IN Part1
|
|
|
|
LogRec = Part1:TAB$:Part2
|
|
|
|
|
|
IF FieldNo = TRANS_DTM$ THEN
|
|
Result = ICONV(FIELD(LogRec,TAB$,FieldNo),'DT')
|
|
END ELSE
|
|
Result = FIELD(LogRec,TAB$,FieldNo)
|
|
END
|
|
|
|
RETURN
|
|
|
|
|
|
|