Re: 4GL Static variable initialization for SCCS 'what' command

> > When we develop C or ESQL/C programs, we can include a static > variable initialized to the appropriate SCCS codes for storing > revision information in our executables (accessible with the > UNIX 'what' command). > > Can anyone tell me how to accomplish the equivalent in 4gl? > I cannot see any way to initialize statics prior to program > execution in 4gl. > > I believe that this must be possible. Informix must be able > to support this simple SCCS function. > > I can't seem to find any other way than to include an assignment > in a function in each file. > > [Stuff Deleted ...] Hi, There is a way of accomplishing SCCS 'what' in 4GL, what U can do is Program Follows ... # # "%Z%%M% %I% %E% %U% (C) Copyright ..... " # MAIN DEFINE g_version CHAR(3) LET g_version = "%I%" # --- SCCS Version Number DISPLAY " SCCS Version ", g_version # --- First Time This value will be Just '%I%' # --- Use SCCS to delta Program and Retrieve again from SCCS # --- by ' get <Program> ' ( For Compiling Only ) # --- If You take a Look at this Program again, You will have # --- Your Variable g_version Set to SCCS Version Number # --- Now Just Compile & Execute the Program END MAIN But this is sort of tedious as if U retrieve the Code for Editing Purpose, U may not able to get SCCS Version. I hope this will be useful. Rgds, Chetan Anand DHL INT'L (Singapore) email : anand@sin-co.sin-ro.dhl.com *********************************************************************** The Mould of a Man's Fortune is in his Hands ***********************************************************************