base cipar syspar Opcion archivo Formato Expresion Mfn Seleccionados to borrar fullinv path_db cttype if p(v9088) then 'Content-type: text/html'/# fi if p(v5016) then replace(s(cat(v5016)),'%path_database%',v1),fi,/if p(v5015) then replace(s(cat(v5015)),'%path_database%',v1)/ fi cat('isisac.tab') cat('isisuc.tab') 200000 select s(v9001) case 'buscar': if a(v9002) then 'BUSCAR' else 'BUSCARISO' fi case 'rango': if a(v9002) then 'RANGO' else 'RANGOISO' fi case 'importar': 'IMPORTAR' case 'seleccionados': 'SELECCIONADOS' endsel 1 BUSCAR v5001 '1' v3000 3030 v3030 1 BUSCARISO v5001 '1' v3000 v9002 f(mfn,1,0)/ this 1 RANGO v5001 v2000 v2010 3030 5001 v3030 1 RANGOISO v5001 v2000 v2010 v9002 'd5001'/'d1101' this 1 SELECCIONADOS (if val(v2000) > 0 then f(val(v2000),10,0) fi/) archivo Isis_Item Isis_Current v5001 STDOUT 'ISO2709' if val(v1001) > 0 then v1001 fi 1001,5001,2001 Now Next 1 IMPORTAR if v4000<>'true' then 'CONTINUAR' fi v5001 '[initok]'v5001''/## CONTINUAR v9002 5001 base fullinv v5001 if v4010='true' then cat(v5001".fst") fi GetNew Isis_Status 'd5001'/'d1101' Unlock v5001 '[importado]'f(val(v1091^n)-1,1,0)/ v5001 if p(v1091^n) then '

MAXMFN:',f(val(v1091^n) - 1,1,0) fi/ v1092/ 1