Re: A little shudder here -- COBOL400-L

Joe,

What Terry just said - that's exactly what I meant.  Way to go Terry!

Jay


----- Original Message -----
From: "Winchester Terry" <terry.winchester@raymondcorp.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 24, 2002 2:00 PM
Subject: RE: A little shudder here


> Joe,
>
> This might be helpful:
>
> ==================================================================
>
> INPUT-OUTPUT SECTION.
> FILE-CONTROL.
>
>                    select dspfile    assign to workstation-SE802D-si
>                                      access mode  is sequential
>                                      organization is transaction
>                                      file status  is dsp-status.
>
> DATA DIVISION.
> FILE SECTION.
>        fd  dspfile.
>        01  dsprecd             pic x(1920).
>
>
>        WORKING-STORAGE SECTION.
>        01  dspfile-area.
>              copy dds-M3MAP-O     of SE802D.
>
>        01  indicator-area.
>              copy dds-all-formats-indic of SE802D
>                replacing
>                  IN50 by wht-message
>                  IN51 by red-message.
>
> PROCEDURE DIVISION.
>       *----                                         Send Screen
>            write dsprecd
>                from       M3MAP-O
>                format     'M3MAP'
>                indicators m3map-o-indic
>            end-write.
>       *----                                         Read screen
>            read dspfile record
>                into       M3MAP-O
>                format     'M3MAP'
>            end-read.
>
>
> ==================================================================
>
> Replace SE802D with your display file name.
> Replace M3MAP  with your DDS record name.
>
> Terry
>
>
>
>
> > -----Original Message-----
> > From: Joe Pluta [mailto:joepluta@PlutaBrothers.com]
> > Sent: Wednesday, July 24, 2002 2:00 PM
> > To: cobol400-l@midrange.com
> > 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.
>
>