Changing the local data area using cobol

[vinothkumar]

hi ,


how do i change a LDA using a cobal program ....



thanks,
vinoth

[Terry Wincheste]

Re: Changing the local data area using cobol

First, include Local-Data in the Special-Names area:

configuration section.                              
  special-names.      local-data     is ld-area.

Next, define your local data area in Working-Storage:

01  lda-area.                              
    05  my-data         pic x(1024).

Retrieve the *LDA:

accept lda-area from ld-area

Change the *LDA:

move 'TESTING'    to my-data
display lda-area upon ld-area

Hope this helps...

Terry