Hi There :)

You can have one public object instead,
having all app wide info as it's properties.

define class mySystem as custom
. && define all app wide properties
active_company=''
active_period=''
.

procedure init
    && read your ini
    this.active_company=x
    this.active_period=y
    .
    .


enddefine  



*Then at very begin of your app you instantiate this object
*as public (reference to it held in pub var)

public oSystem
oSystem=createobject('mySystem')

This will be visible anywhere in your app an
can be later extended to whatever you want.

Rgds++



>I want to define a constant that is usable anywhere in any program in the project.
>
>Something like My_company_Name = “ABC Inc.” It is like a public variable but comes from the dot H file which can be different for different locations of the program.
>
>I thought a #INCLUDE my_vals..H in the first program of the project with values in the dot H like #Define My_company_name “ABC Inc.” would do that, but it does not seem to.
>
>I guess the best way would be to have a public variable and then read the value from a small single record dbf or even a MEM file.
>
>Obviously I am just trying to set the basic default parameters of the application depending on where it is running.
>
>My DEV version will always use Dev data and dev Names and when it Quits, it actually returns to the command screen (not quit).
>
>My production version will go to different data files and screen colors and the Quit program will function differently.
>
>Any suggestions?