× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Pete,
I got this error when attempting this:  Maybe I am outta luck?

                         Additional Message Information

Message ID . . . . . . :           LSC1030        Severity . . . . . . :        
  10
Message type . . . . . :           Diagnostic


Message . . . . :   DATA-AREA invalid, checking resumed at start of clause.
Cause . . . . . :   Line not accepted as DATA-AREA is not a valid item.
Recovery  . . . :   Correct the error and reenter this line.

*
 ENVIRONMENT DIVISION.
*
  CONFIGURATION SECTION.
   SOURCE-COMPUTER. IBM-AS400.
   OBJECT-COMPUTER. IBM-AS400.
   SPECIAL-NAMES. DATA-AREA IS MY-DTAARA.
*
  INPUT-OUTPUT SECTION.
   FILE-CONTROL.
     SELECT TESTF ASSIGN TO DATABASE-TESTF
         ORGANIZATION IS INDEXED
         ACCESS MODE IS RANDOM
         RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
*

  ----- Original Message -----
  From: Peter Dow
  To: midrange-l@midrange.com
  Sent: Monday, September 03, 2001 6:21 PM
  Subject: Re: QCMDEXC (or) user written CLP program ?


  Hi Tim,

  COBOL has support for changing data areas:

  ENVIRONMENT DIVISION.

  SPECIAL-NAMES.
      DATA-AREA AS MY-DTAARA.

  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  DTAARA-DATA PIC X(256).

  PROCEDURE DIVISION.
  ...
      DISPLAY DTAARA-DATA UPON MY-DTAARA
          FOR "MYDTAARA" IN LIBRARY "QGPL".

      ACCEPT DTAARA-DATA FROM MY-DTAARA
          FOR "MYDTAARA" IN LIBRARY "QGPL".

  hth,
  Peter Dow
  Dow Software Services, Inc.
  909 425-0194 voice
  909 425-0196 fax

  From: "Tim Truax" <truax@telerama.com>
  > It's a COBOL program... I must've been goofy to not include that tidbit!

  >   Before going too far with this, you might want to see if maybe your HLL
  >   has native support for data areas.  I know that RPG does.... but you
  >   didn't say which language the HLL program is written in.



  _________________________________________________________
  Do You Yahoo!?
  Get your free @yahoo.com address at http://mail.yahoo.com

  _______________________________________________
  This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
  To post a message email: MIDRANGE-L@midrange.com
  To subscribe, unsubscribe, or change list options,
  visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
  or email: MIDRANGE-L-request@midrange.com
  Before posting, please take a moment to review the archives
  at http://archive.midrange.com/midrange-l.

--



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.