RE: DTAARA in COBOL

["Stone, Joel" <StoneJ@xxxxxxxxxxxxxxxx>]

Title: RE: DTAARA in COBOL

Sure.  Call a CL pgm to get the data area!

 *    GET COMPANY DATA AREA WHICH CONTAINS COMPANY NUMBER   
      MOVE 'DTACOMP   '    TO DTAARANAME.                   
      CALL 'GETDTAARA' USING DTAARANAME DTAARAVAL.          

where GETDTAARA is the following CL pgm:

 PGM PARM(&DTAARANAME &DTAARAVAL)                
 DCL VAR(&DTAARANAME) TYPE(*CHAR) LEN(10)        
 DCL VAR(&DTAARAVAL) TYPE(*CHAR) LEN(2000)       
 RTVDTAARA DTAARA(&DTAARANAME) RTNVAR(&DTAARAVAL)
 ENDPGM                                          

-----Original Message-----
From: Chris.Chambers@v2music.com [mailto:Chris.Chambers@v2music.com]
Sent: Tuesday, January 11, 2000 1:05 PM
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