Re: Change Control / RCS / PVCS

We transfer only the BINARY files between NT and the Unix server using NFS.

RCs check-in
The binary file (mmb,fmb,pll or rdf) is converted to ASCII. This ASCII files is checked-in.

RCs check-out
The file (mmt,fmt,pld or rex) is check-out and converted to binary format.

Each form has a block FORM_INFO that displays RCS info. It can be activated via a menu-option "About this Form"
It displays RCS info about the Form,Menu, Standard library and Forma-specific library.

The following procedure is stored in a COMMON used library.

PROCEDURE GET_FORM_LIB_INFO IS
  H_SCC_FORM_LIB varchar2(100) ;
BEGIN
  H_SCC_FORM_LIB     := substr('$RCSfile: $',instr('$RCSfile: $',':') + 2
                              ,instr('$RCSfile: $',',') - (instr('$RCSfile: $',':') + 2)) ||
                        '  (' || replace(replace('$Revision: $','$'),'Revision: ')              ||
                        '  -  ' || substr(replace(replace('$Date: $','$'),'Date: '),1
                                         ,instr(replace(replace('$Date: $','$'),'Date: '),'+') - 1) || ')';
  copy(H_SCC_FORM_LIB,'GLOBAL.SCC_FORM_LIB') ;
END;

The following procedure is stored in a TEMPLATE library. As you can see this one contains the RCS info.

PROCEDURE GET_STANDARD_LIB_INFO IS
  H_SCC_STANDARD_LIB varchar2(100) ;
BEGIN
  H_SCC_STANDARD_LIB     := substr('$RCSfile: XV_LTPL01.pld,v $',instr('$RCSfile: XV_LTPL01.pld,v $',':') + 2
                                  ,instr('$RCSfile: XV_LTPL01.pld,v $',',') - (instr('$RCSfile: XV_LTPL01.pld,v $',':') + 2)) ||
                            '  (' || replace(replace('$Revision: 1.2 $','$'),'Revision: ')              ||
                            '  -  ' || substr(replace(replace('$Date: 1998-11-23 12:15:34+01 $','$'),'Date: '),1
                                             ,instr(replace(replace('$Date: 1998-11-23 12:15:34+01 $','$'),'Date: '),'+') - 1) || ')';
  copy(H_SCC_STANDARD_LIB,'GLOBAL.SCC_STANDARD_LIB') ;
--
END;

I hope the above helps.
Regards,

Leo Albers
EDS Venray
Netherlands

Paul Beardsell wrote:

Leo,

Do you find that you can ci on Unix and co the same file
on NT without causing any problems?

Are you able to embed RCS Identifiers such as $Id$
in the ASCII files?

Regards,
Paul Beardsell psb_at_SamBuSys.com

Leo Albers wrote:
>
> Paul,
>
> We use RCS version 5.7 on the Unix box for several types of files.
> Transfer (drap&drop) between NT and the Unix box is done using a NFS link.
> For Oracle Forms(forms/menus), Reports and Libraries we build 2 scripts to
> replace "co" and "ci".
> Using a "variable" in a form,report or library will store the RCS info like
> $Id: $ when the file checked-out of RCS.
> This enables you to display program version info at any time.
> The scripts take the binary input like, *.fmb, *.mmb, *.pll, *.rdf and
> convert them into ASCII.
> The reason that we wan't only "ASCII" files loaded into RCS...because it
> causes a less problems and storage.
>
> And yes....CI-RCS http://www.ComponentSoftware.com/csrcs recommended by Andy
> Hardy looks very promissing.
>
> Regards,
> Leo Albers
> EDS Venray
>
> Paul Beardsell <psb_at_sambusys.com> wrote in message
> news:38DCD16A.D2B85A95_at_sambusys.com...
> > Does anybody have any recommendations for change control of
> > Developer/2000 forms, menus and reports?
> >
> > We have had a brief
> > look at PVCS and are not impressed.  We use RCS on Unix and we
> > find it excellent and we are considering using the command line
> > version of RCS for NT for our Developer/2000 forms etc.
> >
> > any comments?