Joseph Rosenblatt wrote:
>
> Ron Horner replied:
> >An easy way is to use MPEX with the ALTFILE command.  ALTFILE
> COPYLIB;FLIMIT=EOF+10000

> Here is a way to expand a KSAM file without MPEX.
> For KSAM/3000 (Compatibility Mode)
> 1. :FCOPY FROM=KSAMFILE;TO=HOLDFILE;NEW
> 2. :LISTF KSAMFILE,2
> 3. In KSAMUTIL:
>         a. >VERIFY KSAMFILE (I use 4)
>         b. > Purge KSAMFILE
>         c. > BUILD KSAMFILE (using specs from verify and new limit)
> 4. :FCOPY FROM=HOLDFILE;TO=KSAMFILE

No need for all of that:

  :FILE NEWKSAM;DISC=<new limit>
  :FCOPY FROM=COPYLIB;TO=(*NEWKSAM,NEWKSAMK);NEW

> For KSAM XL (Native Mode)
> 1. :FCOPY FROM=KSAMFILE;TO=HOLDFILE;NEW
> 2. :LISTF KSAMFILE,2
> 3. :LISTF KSAMFILE,7 (This shows the KSAM values)
> 4. :PURGE KSAMFILE
> 5. :BUILD KSAMFILE (using specs from verify and new limit)
> 6. :FCOPY FROM=HOLDFILE;TO=KSAMFILE

Likewise:

   :FILE NEWKSAM;DISC=<new limit>
   :FCOPY FROM=COPYLIB;TO=(*NEWKSAM);NEW

You can also convert CM-to-NM or NM-to-CM in the process.

In both cases, the proper :purge/:rename required to get things back
where you want them.

Jeff Kell <[log in to unmask]>