.MACRO .PROMPT "P1, LPN # OF BOARD (# ONLY IE. 1)" .PROMPT "P2, BTI suffix (IE. 1, 2, ...) FOR BTI NAME ?" .PROMPT "P3, BOARD NAME [IE. CCP21...] ?" !========================================================================= ! CCP$BRD.DEL JOHN ANDREWS ! Copyright Softgoods International, Inc. 1995 !========================================================================= ! THIS MACRO IS USED TO DELETE AN CCP BOARD (after all tags are removed)! ! ! PARAMETERS ARE: ! 1. LPN OF BOARD ! 2. BTI ID of PROCESS AREA ! 3. BOARD NAME ! ! Note: A more efficient way is to "call" this file from an Audit Trial ! file, ie.: ! @CCP$BRD.DEL,'%P1','%P2','%P3' ! !========================================================================= SET DEF LPN LPN'%P1' MODIFY ARRAY LPN'%P1'\BTIDP'%P2'\'%P3'DV0,"BOARD LOOP TABLE",- DUMMYGROUP_G,100,NULL,NULL,- LPN'%P1'\BTID'%P2'\'%P3'DV0SOA,LPN'%P1'\NONEXISTDIO,"","" DEASSIGN DEVICE LPN'%P1'\'%P3'DIO DELETE DEVICE LPN'%P1'\'%P3'DIO SET DEF ERR CONT DEASSIGN DEVICE LPN'%P1'\'%P3'TIO DELETE DEVICE LPN'%P1'\'%P3'TIO SET DEF ERR STOP DEASSIGN BOARD LPN'%P1'\'%P3'BOARD DELETE BOARD LPN'%P1'\'%P3'BOARD DEL ARRAY LPN'%P1'\BTIDP'%P2'\'%P3'DV0 SET DEF ERR CONT ! The following command might produce a harmless error message ! since the array might already have been deleted. DELETE SYMBOL LPN'%P1'\BTID'%P2'\'%P3'BAD DEL ARRAY LPN'%P1'\BTID'%P2'\'%P3'DV0SOA SET DEF ERR STOP