Re: DTAARA in COBOL

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Chris,

Using the LDA is similar in both OPM and ILE COBOL but using a *DTAARA in OPM 
COBOL requires 
calling another (usually CL) program which can handle data area objects.

The ILE COBOL Programmer's Guide has information in section 3.2.5.6 on using 
both the LDA and 
a *DTAARA.  Aside from the fact that data areas, and the LDA in particular, are 
a pretty 
crappy way of communicating between programs and processes.

The LDA must be defined in the SPECIAL-NAMES section as LOCAL-DATA.  Then use 
ACCEPT (format 
4) and DISPLAY (format 2) statements to read and write.

        ENVIRONMENT DIVISION.
        SPECIAL-NAMES.
                LOCAL-DATA IS LDA.

        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 LDA-FIELDS.
          03 ORDNBR     PIC S9(6) VALUE ZERO.
          03 ORDAMT     PIC S9(9)V9(2) PACKED-DECIMAL VALUE ZERO.

        PROCEDURE DIVISION.


       * Fetch contents of LDA
        ACCEPT LDA-FIELDS FROM LDA.


       * Write data to LDA
        DISPLAY LDA-FIELDS UPON LDA.

Data areas are must be defined in the SPECIAL-NAMES section as DATA-AREA.  Then 
use ACCEPT 
(format 9) and DISPLAY (format 5) to read and write.

        ENVIRONMENT DIVISION.
        SPECIAL-NAMES.
                DATA-AREA IS STUFF.

        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DTAARA-FIELDS.
          03 ORDNBR     PIC S9(6) VALUE ZERO.
          03 ORDAMT     PIC S9(9)V9(2) PACKED-DECIMAL VALUE ZERO.

        PROCEDURE DIVISION.


       * Fetch contents of data area
        ACCEPT DTAARA-FIELDS FROM STUFF
                FOR "MYDTAARA" LIBRARY "MYLIB".


       * Write data to data area
        DISPLAY DTAARA-FIELDS UPON STUFF
                FOR "MYDTAARA" LIBRARY "MYLIB".

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> Date: Tue, 11 Jan 2000 18:05:01 +0000
> From: Chris.Chambers@v2music.com
> To: cobol400-l@midrange.com
> Reply-To: COBOL400-L@midrange.com
> Subject: DTAARA in COBOL

> 
> Can anyone point me in the right direction to demonstrate how to access a data
> area in COBOL other than the LDA.
> 
> I need to access an  area created by CRTDTAARA and also the *LDA within one
> program.

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END