RE: LDA on the AS400

[Greg Spohr <GSpohr@xxxxxxxxxxxx>]

Phil,
        Here are some examples from our CL programs that alter the value of
the local data area:

CHGDTAARA  DTAARA(*LDA (154 10)) VALUE('QPRINT    ')     
CHGDTAARA  DTAARA(*LDA (171 47)) +                       
           VALUE('5NYYYYYYY00200000000000000000000000009+
             999000005')                                 
CHGDTAARA  DTAARA(*LDA (218 2)) VALUE(&PERIOD)           
CHGDTAARA  DTAARA(*LDA (220 2)) VALUE(&YEAR2)  

The command to check a value from the LDA would be RTVDTAARA and specify the
data area as *LDA in much the same fashion as above.

RTVDTAARA  DTAARA(*LDA (10 3)) VALUE(&CHKVAL)
This would retrieve positions 10, 11 and 12 from the local data area and
place it in CL variable &CHKVAL with the assumption that &CHKVAL was defined
appropriately.

Hope this helps!          

-----Original Message-----
From: Phil Campbell [mailto:pcampbell@xxxxxxxxxxxx]
Sent: Friday, August 29, 2003 2:49 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: LDA on the AS400


        I am new to the AS400.  We are converting our S/36 programs to the
COBOL

        400.    In some of the program we use the 'LOCAL DATA AREA' to pass
data from

        one program to another.  Is this feature still used on the AS400.
In our OCL's (S/36)

        we have statement like ?L'4,9'?='      '  GOTO NODISP.  This will
check data 

        passed from an on-line program to a batch report.  If the user did
not select anything

        the OCL will branch to a label named NODISP.  The conversion doesn't
seem go be going

        well.

        Any help would be greatly appreciated.  

        Phil Campbell
        Wisco Envelope

        pcampbell@xxxxxxxxxxxx <mailto:pcampbell@xxxxxxxxxxxx>





_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.