23 lines
304 B
Plaintext
23 lines
304 B
Plaintext
COMPILE ROUTINE TEST_OBJ_EPI_PART(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Set_Status, obj_Epi_Part
|
|
DECLARE FUNCTION Get_Status, obj_Epi_Part
|
|
|
|
DEBUG
|
|
|
|
|
|
EpiPN = 'EPI06169'
|
|
PsNo = 3136
|
|
|
|
obj_Epi_Part('SetSubstrate',EpiPN:@RM:PsNo:@RM:'')
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|