특정 Type만 Delete

특정 Type 만 delete 하기 위해 생성했습니다

상황에 따라 수정하여 사용하면 될것같습니다.

define function !!DeleteSelectType(!TYPE IS ARRAY)

$( 
!TYPE = OBJECT ARRAY()

!TYPE.APPEND('EQUI')
!TYPE.APPEND('STRU')

$)

!DeleteList = OBJECT ARRAY()
$* 삭제할 LIST COLLECT
DO !A VALUES !TYPE
VAR !DeleteList APPEND COLL ALL $!A FOR CE
ENDDO

$* 반복하며 삭제

DO !B INDEX !DeleteList
    $!DeleteList[$!B]
    !DELTYPE = TYPE OF $!DeleteList[$!B]
    DELETE $!DELTYPE
ENDDO