Re: A little shudder here

["Jay Sulzmann" <jsulzmann@xxxxxxxxxxx>]

Joe,

I always set up 01-levels for each record format in WORKING-STORAGE.  In
other words, set up a 01-level, then do a COPY DD (as opposed to COPY DDS)
on the record format name.

Jay

----- Original Message -----
From: "Joe Pluta" <joepluta@PlutaBrothers.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 24, 2002 2:00 PM
Subject: RE: A little shudder here


> WICKED MEAN EVIL COBOL.
>
> <grumble>
>
> Here's an interesting situation.  In RPG I can define a workstation file
but
> never open it.  This will automagically generate the field definitions for
> all the fields in the display file, and so the program can continue to
work
> just fine in batch.
>
> If, however, I try the same thing in COBOL, I get an MCH3601 error because
> evidently the 01-level items (one for each record format) are evidently
not
> initialized unless the workstation file is open.
>
> Does anybody have a way around this?  I even tried making the display file
> DEV(*NONE) and even though I opened the file, I still got initialization
> errors when attempting to access the fields in the display file.
>
> Joe
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>