/* */ output = 'nim -o cust -a lpp_source=lpp-413 -a filesets="' 'XEDIT TOBE CUSTD' 'CASE M R' 'MACRO ALL' ':1' do until rc^=0 'EXTRACT /CURLINE/' parse var curline.3 fileset . output = output fileset 'NEXT' End output = output'" spot1' 'EXECIO 1 DISKW CUST COMMAND A 1 V' length(output) '(FINIS VAR OUTPUT'