41 lines
847 B
Plaintext
41 lines
847 B
Plaintext
COMPILE ROUTINE TEST_OBJ_REACT_MODE(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Mode
|
|
DECLARE FUNCTION Get_Status,obj_Order
|
|
|
|
|
|
/*
|
|
ReactNo = Parms[1,@RM]
|
|
StartDTM = Parms[COL2()+1,@RM]
|
|
UserID = Parms[COL2()+1,@RM]
|
|
Mode = Parms[COL2()+1,@RM]
|
|
Note = Parms[COL2()+1,@RM]
|
|
ReactUtilID = Parms[COL2()+1,@RM]
|
|
ReactLogID = Parms[COL2()+1,@RM]
|
|
*/
|
|
|
|
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
|
StartDTM = CurrDTM
|
|
|
|
|
|
debug
|
|
|
|
*obj_React_Mode('Create',99:@RM:StartDTM:@RM:@USERNAME:@RM:'PROD':@RM:'This is the start note....':@RM:123456:@RM:456789)
|
|
|
|
StartDTM = OCONV('14554.5691319444','DT4/^S')
|
|
EndDTM = CurrDTM
|
|
|
|
|
|
obj_React_Mode('Close',99:@RM:StartDTM:@RM:EndDTM:@RM:'This is the end note':@RM:'9876':@RM:'54321')
|
|
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|