38 lines
729 B
Plaintext
38 lines
729 B
Plaintext
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
|