....
/* Build jobs to assemble table definitions */ Parse Upper Arg esafn type . type = Substr(esafn,4) If type = 'USER' Then type = 'USR' 'pipe <' esafn type , '| segcoll' esafn type 'pipe', '< segment list ', '| locate /*/ ', /* Only selected segments */ '| locate 10-12 /'type'/', /* from the named file */ '| runcoll' esafn type , '| CP close 00D'