var !SPEC collect all (SPEC) for ce
!folder = 'C:\PDMS\'
do !x from 1 to !SPEC.size()
$!SPEC[$!x]
!outputSpec = '/' + !folder + !x.string() + '.txt'
$P $!outputSpec
file $!outputSpec
output ce
term
enddo
var !SPEC collect all (SPEC) for ce
!folder = 'C:\PDMS\'
do !x from 1 to !SPEC.size()
$!SPEC[$!x]
!outputSpec = '/' + !folder + !x.string() + '.txt'
$P $!outputSpec
file $!outputSpec
output ce
term
enddo
-- Output all spec for a SPWL
-- Specon format
var !SPEC collect all (SPEC) for ce
var !names eval name for all from !SPEC
!folder = 'C:\PDMS\'
$P == Starting
speconmode
do !x from 1 to !SPEC.size()
$!SPEC[$!x]
!names[$!x] = !names[$!x].replace('/','')
!names[$!x] = !names[$!x].replace('*','')
!outputSpec = '/' + !folder + !names[$!x] + '.txt'
$P $!outputSpec
file $!outputSpec overwrite
output ce
term
enddo
exit
$P == End
-- Output all spec for a SPWL
-- Specon format
var !SPEC collect all (SPEC) for ce
var !names eval name for all from !SPEC
!folder = 'C:\PDMS\'
$P == Starting
speconmode
do !x from 1 to !SPEC.size()
$!SPEC[$!x]
!names[$!x] = !names[$!x].replace('/','')
!names[$!x] = !names[$!x].replace('*','')
!outputSpec = '/' + !folder + !names[$!x] + '.txt'
$P $!outputSpec
file $!outputSpec overwrite
output ce
term
enddo
exit
$P == End