/* Reads second n Catalog Entries */

/* --------------------- standard startup ----------------------- */

OPTIONS RESULTS

if( ADDRESS() ~= "IDESK_REXXPORT" ) then
    ADDRESS IDESK_REXXPORT

/* -------------------------------------------------------------- */

IDGETFILE '"Select catalog file"'
if (RC > 0) then exit

filename = RESULT

GETSYSINFO DESKSPACE

deskspace = RESULT

CLEANDESK
if (RC > 0) then exit

OPENCAT '"'||filename||'"' 1+deskspace deskspace