From: John Vottero [John@MVPSI.com]
Sent: Monday, March 06, 2000 3:45 PM
To: Info-VAX@Mvb.Saic.Com
Subject: RE: DECspell for OpenVMS Alpha (Freeware)

This C code should work for all save sets.

/* FIX_SAVESET.C, Hein van den Heuvel, Digital, April 1995
** fix RMS file attributes for (FTP transferred :^) BACKUP savesets */
/* #define RME$C_SETRFM 0x00000001 */
#include <rmedef>
#include <stdio>
#include <file>
#include <rms>
#define block_size_offset 10
main(int argc, char *argv[])
{
int buf[512/4], status;
struct FAB fab = cc$rms_fab;
struct RAB rab = cc$rms_rab;

    if (argc < 2) return 16;
    fab.fab$b_fac = FAB$M_PUT | FAB$M_BIO;
    fab.fab$l_fna = argv[1];
    fab.fab$b_fns = strlen(fab.fab$l_fna);
    rab.rab$l_fab = &fab;
    rab.rab$l_ubf = buf;
    rab.rab$w_usz = sizeof buf;
    status = SYS$OPEN(&fab);
    if (status & 1) status = SYS$CONNECT(&rab);
    if (status & 1) status = SYS$READ(&rab);
    if (!(status & 1)) return status;
    printf("Setting blocksize to: %d",buf[block_size_offset]);
    fab.fab$l_fop = FAB$M_ESC;
    fab.fab$l_ctx = RME$C_SETRFM;
    fab.fab$b_org = FAB$C_SEQ;
    fab.fab$b_rfm = FAB$C_FIX;
    fab.fab$w_mrs = buf[block_size_offset];
    status = SYS$MODIFY(&fab);
    if (status & 1) SYS$CLOSE(&fab);
    return status;
}


> -----Original Message-----
> From: system@SendSpamHere.ORG [mailto:system@SendSpamHere.ORG]
> Sent: Monday, March 06, 2000 2:42 PM
> To: Info-VAX@Mvb.Saic.Com
> Subject: Re: DECspell for OpenVMS Alpha (Freeware)
> 
> 
> In article <8a0kc4$9o$1@mailint03.im.hou.compaq.com>, 
> hoffman@xdelta.zko.dec.nospam (Hoff Hoffman) writes:
> >
> >In article <38C07A91.1D24CCDD@earthlink.net>, "David J. 
> Dachtera" <djesys.nospam@earthlink.net> writes:
> >:Hoff Hoffman wrote:
> >:>   A DECspell kit for OpenVMS Alpha has arrived at the 
> Freeware website...
> >:>     http://www.openvms.digital.com/openvms/freeware/index.html
> >:Any chance we'll see this for VAX?
> >
> >  I was asked for DECspell on OpenVMS Alpha -- something 
> that was never
> >  a product.  As for a kit for OpenVMS VAX, I'll check.  
> (DECspell was a 
> >  product on OpenVMS VAX, meaning its release involves 
> differing paths
> >  through the "internal processes of software liberation"...)
> 
> Any chance you can post the file attributes for this .A saveset so I 
> can repair the downloaded version.  Also, it would be great if it was
> .ZIPped preserving the VMS file attributes.
> 
> --
> VAXman- OpenVMS APE certification number: AAA-0001           
> VAXman@TMESIS.COM
>