Some additional fixed with the macro, please replace the method dimRemove with the code below: Purpose is not to overload the Aid Number array, it might cause to slow down your PC if the Array is not Cleared and contains too many items in the array when you Remove All Dimensions...
define method .dimRemove( !action is string )
if (!action.eq('ALL')) then
do !i values !this.aidNum
aid clear all $!
enddo !this.aidNum.clear() else
!ceRefe = !!ce
branch
handle any
return error 1 '$!!error.text'
endhandle
!number = !!ce.string().substring(2).replace('/','').substring(6)
!!ce = !ceRefe
aid clear all $!
Good job.
By the way, this mentioned method work just with bran ... so i did small modification let we can use it on PIPE :
define method .dimRemove( !action is string )
if (!action.eq('ALL')) then
do !i values !this.aidNum
aid clear all $!
enddo
!this.aidNum.clear()
else
!ceRefe = !!ce
var !delaid coll all branch for ce do !dd values !delaid $!dd
handle any
return error 1 '$!!error.text'
endhandle
!number = !!ce.string().substring(2).replace('/','').substring(6)
!!ce = !ceRefe
aid clear all $!
Tomek, thanks for the comment. You can freely modify the macro. A little modification with the code below.
define method .dimRemove( !action is string )
if (!action.eq('ALL')) then
do !i values !this.aidNum
aid clear all $!
enddo
!this.aidNum.clear()
else
!ceRefe = !!ce
var !delaid coll all branch for ce
do !dd values !delaid
!number = !dd.substring(2).replace('/','').substring(6)
aid clear all $!
Tomek, I have modified the method dimRemove that will supports the type Branch, Pipe & etc...
define method .dimRemove( !action is string )
if (!action.eq('ALL')) then
do !i values !this.aidNum
aid clear all $!
enddo
!this.aidNum.clear()
else
!ceRefe = !!ce
branch
handle any
-- Collect All Branch:
var !branch collect all branch for ce
if (!branch.size().eq(0)) then
return
endif
golabel /skipBran
endhandle
!branch[1] = !!ce.string()
label /skipBran
do !bran values !branch
!number = !bran.substring(2).replace('/','').substring(6)
aid clear all $!
