| Lisa,
There is unfortunetaly no direct support for this kind of construct,
i.e. comma delimited sections being part of a field. (By the way
this is supported for the MUMPS Interface, may be we should ask
IBI to consider it as a new feature request ... I'll pass it along)
However here is a way to do what you want, if your field internal
structure ain't too complex. The idea is to use the GETTOK fuselib
subroutine to extract each token (comma delimited).
And this can be done by putting define fields in your master file
which are calling the FUSELIB subroutine.
I don't have too much time to test this, so here is the idea :
FIELD=COMMENT, USAGE=A80, ACTUAL=A80 ,$
DEFINE PART1/A20=GETTOK(COMMENT,80,1,',',20,PART1);
DEFINE PART2/A20=GETTOK(COMMENT,80,2,',',20,PART2);
etc.
Regards.
Jean-Claude.
|