COMPILE ROUTINE TEST_OBJ_PROD_SPEC(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Prod_Spec, Dend_Dyn
DECLARE FUNCTION Get_Status,obj_Prod_Spec

$INSERT PROD_SPEC_EQU
$INSERT PRS_PROP_EQUATES

/*
PSNo		= Parms[1,@RM]
PSRec		= Parms[COL2()+1,@RM]	;* 
LayerNo		= Parms[COL2()+1,@RM]	;* Pass Null for all Layers
PropCode	= Parms[COL2()+1,@RM]	;* Pass Property Code or pass as null for Fields in the PRS_LAYER table
FieldNo		= Parms[COL2()+1,@RM]	;* Pass FieldNo as an equate

*/



opsParms  = '2548'

debug

A	= obj_Prod_Spec('CassSigProfile',opsParms)
*B	= obj_Prod_Spec('GetWfrSigProfile',opsParms)


DEBUG

GOTO Bail

* * * * * * *
Bail:
* * * * * * *

END