39 lines
542 B
Plaintext
39 lines
542 B
Plaintext
COMPILE ROUTINE TEST_OBJ_RDS_Layer(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Set_Status, obj_RDS_Layer, Send_Dyn, RList, Send_Info, obj_Tables
|
|
DECLARE FUNCTION Get_Status, obj_RDS_Layer, obj_Tables, obj_Recipe
|
|
|
|
$INSERT RDS_EQU
|
|
|
|
Set_Status(0)
|
|
|
|
|
|
OPEN 'RDS_LAYER' TO LayerFIle ELSE
|
|
debug
|
|
GOTO Bail
|
|
END
|
|
|
|
LSId = 'L1'
|
|
PSN = 3854
|
|
|
|
DEBUG
|
|
|
|
DataStruct = obj_Recipe('GetLimits',835:@RM:3854:@RM:"L1")
|
|
|
|
|
|
|
|
debug
|
|
Complete = obj_RDS_Layer('Complete',"778169*L1")
|
|
|
|
|
|
|
|
|
|
DEBUG
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|