tiny-cobol-users

[Tiny-cobol-users] copybook suggestion

[Walter G. <ga...@dm...>]

Hi,

my suggestion to tiny developers is to modify htglobas.c, function =
copytrip, include 4 lines.

  if (pt1 !=3D NULL) {
    if ((i =3D pt2 - pt1) >=3D 0) {
// lines to include
       if(*pt1 =3D=3D '$') { // walter garrote: get the environment =
variable
         pt1 =3D getenv(pt1 + 1);
         i =3D strlen(pt1);
       }
// end
       strncpy(sout, pt1, i+1);
       sout[i+1] =3D '\0';
    }
  }


with these you can specify in htcobolrc environment variable, like that
COPYBOOK_PATH: $GPFONTES


walter garrote

Re: [Tiny-cobol-users] copybook suggestion

[David E. <de...@us...>]

Walter Garrote wrote:

 > my suggestion to tiny developers is to modify htglobas.c,
 > function copytrip, include 4 lines.
 > ...
 > with these you can specify in htcobolrc environment variable,
 > like that
 > COPYBOOK_PATH: $GPFONTES

The current TC copybook search sequence is relatively complex, some
would say confusing.

In my view, the addition of another option would further confuse users.

In any case you could achive a similar result by using the COPY library
name clause.

Syntax:
COPY text-name-1 [{ OF | IN } library-name-1] ...

Example:
COPY 'TEST02.cpy' IN GPFONTES ...

$export GPFONTES=path1:path2: ... :pathn