redefine field in LDA

How can we redefine in natural LDA.
for Eg: i have one LDA samplda. in that i have name field. i wnat to redefine that field to fname mname and lname. please let me know

Hi HKR;

I assume you are working with the data area editor on the mainframe. Here is an LDA:

Local LDA01 Library XSTRO DBID 11177 FNR 8
Command > +
I T L Name F Length Miscellaneous
All – -------------------------------- - ---------- ------------------------->
1 #A A 10
2 #B I 36

Tab down so that the cursor is under the T just to the right of 1 #A.
Type . R (the R will be in the L column)

You should now see:

Local LDA01 Library XSTRO DBID 11177 FNR 8
Command > +
I T L Name F Length Miscellaneous
All – -------------------------------- - ---------- ------------------------->
1 #A A 10
R 1 #A /* REDEF. BEGIN : #A
2
2
2
2
2
2
2 #B I 36

Starting at the first line with a 2 (as shown below), enter the redefine fields

Local LDA01 Library XSTRO DBID 11177 FNR 8
Command > +
I T L Name F Length Miscellaneous
All – -------------------------------- - ---------- ------------------------->
1 #A A 10
R 1 #A /* REDEF. BEGIN : #A
2 #a1 a 3
2 #a2 a 7
2
2
2
2
2 #B I 36

If you are not in the Data editor, but in the program editor, simple type something like:

DEFINE DATA LOCAL
1 #FULL-NAME (A60)
1 REDEFINE #FULL-NAME
2 #FIRST (A20)
2 #MIDDLE (A20)
2 #LAST (A20)
1 :::: ETC

All that said; this is not the way to learn Natural. Ask management for manuals or classes. You will not attain the proficiency needed to write or maintain Natural code without them.

steve

Thanks Steve…