Re: COBOL File Specs to DDS or SQL

It's been over 20 years since I have coded using COBOL. I did not
think that implicit redefine worked with a PIC clause on the 02 level.
But, I never tried it either. Are the two 03 level fields redefining
the first six positions of the level 02 field?

John McKee

On Thu, Aug 16, 2012 at 6:56 PM, Barbara Morris <bmorris@xxxxxxxxxx> wrote:

On 2012/8/16 7:50 PM, Barbara Morris wrote:

...
I'm not sure whether it would handle the extra subfields or redefines
the way you'd want, though.
...

Rrrrr ... the devil is in the details for things like this.

I just tried having an outer subfield that has data that isn't defined
by the inner subfields, and it doesn't get into the generated XML. That
seems like a deal-breaker, unless your extra subfields always completely
define their containing subfields. But I guess figuring out whether
that's true puts you right back to your original problem.

1 rec.
2 s1 PIC X(10).
3 s1a pic X(3).
3 s1b pic X(3).

MOVE "EE1FF2ABCD" TO s1
XML GENERATE XMLRESULT FROM rec

The resulting XML doesn't have "ABCD".

<rec>
<s1>
<s1a>EE1</s1a>
<s1b>FF2</s1b>
</s1>
</rec>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.