Re: Source Control System

In <3i444c$b3j@news1.digex.net> granholm@access.digex.net (Axel Granholm) writes: >I am interested in hearing from users that utilize a source control system >in developing 4GL apps. for AIX/SCO. At the office, we developed a comprehensive system to track requests, source code changes and time. The system written in Informix-4GL is integrated with Intersolv's PVCS source code control system. Its pretty nice to be able to look at the version control history of a program and select details of the Fix Request or Modification Request from the database. For example, this is the version control history of one 4GL program: custom.4gl 1.5 16:40:50 01/20/95 TAN 2844. +--TAN# 2844---------------------------------------------------+ | force entry of RM usage at a stage designated by users (usua | | lly CUT) | +--NOTES:------------------------------------------------------+ | 27 Dec 1994 -- in Production Type setup, a column should be | | added to indicate the stage Raw Material usage is applied. | | (js) | | | | 17 Jan 1995 -- alternative is to not allow completion of | | a production order if no RM have been used. (js) | | 18 Jan 1995 -- Provide new column for zzcstagr, cut_ok. | | Modify production order to automatically open Usage | | window at this stage. (ci) | | 20 Jan 1995 -- field bom_ok has 3 conditions now: Y - BOM, | | U - Usage of RM. and N. | +--------------------------------------------------------------+ 1.4 10:59:20 11/22/94 TAN 2616. +--TAN# 2616---------------------------------------------------+ | Can not complete a detail line -- When they go to the next l | | ine 'garbage' characters in screen | +--------------------------------------------------------------+ 1.3 16:45:30 11/04/94 TAN 2434. [...] I can look at a version diff: $ vcdiff -r1.4 -r1.5 custom.4gl | more < - archive -r1.4 > - archive -r1.5 7,8c7,8 < # $Revision:: 1.4 $ < # $Modtime:: Tue Nov 22 10:59:20 1994 $ --- > # $Revision:: 1.5 $ > # $Modtime:: Fri Jan 20 16:40:50 1995 $237a238 > let use_stg=51 243a245 > if m_cstagr.bom_ok="U" then let use_stg=stg_cnt end if 907a910,914 > if q_cordrd[p_cur].stage_num=use_stg and m_ctyper.use_rm="Y" then > let win_type=2 > let win_cur=p_cur > call scr_register("bomuse","custom") > end if 1615,1616d1621 < < Or I can look at the original request: ================================================================================ TA Number: 2844 Ref. Number: Date: 12/27/94 [jeff ] Customer: ACME Acme Manufacturing ** Closed ** Contact: JJS Jeff Schuler Source: I Internal Type: MR Modification Request Severity: Priority: 3 High Req. Date: 12/27/94 Target Date: 01/27/95 Assigned: 01/18/95 Completed: 01/23/95 Installed: 02/08/95 Accepted: 02/08/95 Assigned To: YB Yakov Borovskiy AIC: JS Jeff Schuler QAO: JS Jeff Schuler Est. Hr(s): 4 Act. Hr(s): 4 Application: columbia Module: pr Program: i_order Project: RM1 Raw Material/BOM Module Version: Title:force entry of RM usage at a stage designated by users (usually CUT) ----------------------------------------------- 27 Dec 1994 -- in Production Type setup, a column should be added to indicate the stage Raw Material usage is applied. (js) 17 Jan 1995 -- alternative is to not allow completion of a production order if no RM have been used. (js) 18 Jan 1995 -- Provide new column for zzcstagr, cut_ok. Modify production order to automatically open Usage window at this stage. (ci) 20 Jan 1995 -- field bom_ok has 3 conditions now: Y - BOM, U - Usage of RM. and N. =============================================================================== As if this isn't enough, the system is also Email-enabled and is integrated with a time tracking system -- We know exactly how much time is spent on each FR or MR: +----------------------------------------------------------------------------+ | Update: [ESC] to Store, [DEL] to Cancel Help: | | Enter changes into form [CTRL]-[w] | |===========================================================(Notes)==========| |------------------------ Technical Assistance Form -------------------------| | | | TA Number: 2844 Ref. Number: Date: 12/27/94 jeff | | Customer: ACME +--------------------------------------------------+ | | Contact: JJS | Scroll: [TAB], [DEL], or [ESC] to Quit | | | Source: I | ARROW KEYS to Scroll, [F3] or [F4] to Page | | | Type: MR |==================================================| | | Priority: 3 |--Task-ID-Cust.--Rsp-Bill-Type-Str-Date-----Time--| | | Status: C | ****** ***** *** * * Total 2 3:47 | | | Req. Date: 12/27/| 7459 ACME YB Y X 01/23/95 1:51 | | | Accepted: 02/08/| 7373 ACME YB Y X 01/20/95 1:56 | 4 | | Application: columb| | | | Project: RM1 Ra| | | | Description: force |--------------------------------------------------| | | users | | | | Complete: 01/23/+--------------------------------------------------+4 | | | |----------------------------------------------------------------------------| |Enter the reference number. | +----------------------------------------------------------------------------++ If anyone is interested in out system, drop me a line. We will be installing a modified version of it at one of our client sites in the next few weeks. -- - o - o Clay Irving, N2VKG o - o o clay@panix.com o - <URL:http://www.panix.com/clay/>; - o - - New York, New York