Re: QCMDEXC (or) user written CLP program ?

["Tim Truax" <truax@xxxxxxxxxxxx>]

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.

--