Problem in Redefine

pruthvi · New User Joined: 05 Mar 2005 Posts: 4

hi all,

I have 2 cases of redefining the data

case I :
01 A PIC S9(8)V9(2) COMP-3.
01 B REDEFINES A .
05 C PIC 9(5).
05 D PIC 9(5).

Case II:

01 IN-RECORD.
03 A PIC S9(8)V9(2) COMP-3.
03 B REDEFINES A .
05 C PIC 9(5).
05 D PIC 9(5).

With the case II i get the error as B redefines smaller item
but with CaseI i do not get this error.
can any one help me out why it is not possible with level number other than 01

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi

in 01,77 level you can redifine with either greater or smaler any way

but other than that levl numbers the size should be same.

thanooz

pruthvi · New User Joined: 05 Mar 2005 Posts: 4

hi thanooz ,
i want to know the reason why it is only with 77 and 01 level itself why not with other level numbers

thanks
pruthvi

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi pruthvi

because 77 or 01 can be used as elementry data items.77 is elementry data item.01 is group item but you can use as elementry data item. the possiblity only for these two number only.

thanooz

sharad · New User Joined: 14 Jun 2005 Posts: 2

I would like to clarify that in 77 level also u can't redefine variable of greater length. This is possible only with 01 level.

please correct me if I am wrong.

batu544 · New User Joined: 21 Jul 2005 Posts: 17 Location: bangalore

hi,
u can redefine X(100) field to X(200) field. or X(200) to X(100) field in any level.

but if u r using 01 level then ur size must be same . that means X(100) should be redefined with X(100) field.

atik · New User Joined: 29 Jul 2005 Posts: 20

I want to know whether you are getting Warning or Error. If you are redifining a portion, then you can get a warning.