23 lines
324 B
Plaintext
23 lines
324 B
Plaintext
COMPILE ROUTINE TEST_OBJ_NOTES_SENT(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes_Sent, Set_Status
|
|
DECLARE FUNCTION Get_Status, obj_Notes_Sent
|
|
|
|
Set_Status(0)
|
|
|
|
debug
|
|
|
|
Stuff = obj_Notes_Sent('GetUserKeys','DAVID_K')
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|
|
|