.MACRO .PROMPT "P1, LPN # OF BOARD (# ONLY IE. 1)" .PROMPT "P2, BTI suffix (IE. 1, 2, ...) FOR BTI NAME ?" .PROMPT "P3, BOARD NAME [IE. DOP25...] ?" !========================================================================= ! DOP$BRD.DEL JOHN ANDREWS ! Copyright Softgoods International, Inc. 1995 !========================================================================= ! THIS MACRO IS USED TO DELETE AN DOP or DOP 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.: ! @DOP$BRD.DEL,'%P1','%P2','%P3' ! !========================================================================= SET DEF LPN LPN'%P1' LIST DEVICE LPN'%P1'\'%P3'PIO,ATR,"PROGRAMS.SAV" 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 DEASSIGN DEVICE LPN'%P1'\'%P3'PIO DELETE DEVICE LPN'%P1'\'%P3'DIO DELETE DEVICE LPN'%P1'\'%P3'PIO 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