On Tuesday, October 03, 2000 3:00 PM, Peter Osborne  wrote:
<snip>
:   01  PROCESS-PROGNAME.
:       03  FILLER                    PIC X(10)
:           VALUE "PI001O.PUB".
:       03  FILLER                    PIC X      VALUE %15.
</snip>

I'm not certain, and I'm still looking at your code, but I
don't believe that you want the "%15" as a part of your
PROCESS-PROGNAME parameter.  In the manual it
says to terminate the string with any nonalphanumeric
character other than a period (.) or a backslash (/). In
my code I use a semi-colon(;).  So your 01 level would
look like :

01  PROCESS-PROGNAME.
      03  FILLER        PIC X(11) VALUE "PI001O.PUB;".

Not sure if this helps, but I hope so.


----------------------------------------------------------------------------
-------
David Burney                               [log in to unmask]
Summit Racing Equipment                     http://www.summitracing.com
                                    -----------
                    Madness continues to take it's toll.
                      Please have exact change.
                        -----------
      All opinions expressed herein are my own and reflect,
                  in no way, those of my employer.