How to change attribute byte to unprocted

Ajay Bisht · New User Joined: 12 Sep 2006 Posts: 6

Please tell me what will be the Attribute byte to make a field Unprotected and also to shift cursor position to that field. Below is the field defintion:

01 ws-field.
05 ws-field-prefix
10 ws-cur-attr pic x(1).
10 ws-oth-attr pic x(1).
05 ws-field-value pic x(1).

Sandy Zimmer · Posted: Wed Aug 25, 2010 10:51 pm

I am not sure what you are trying to do, but please read this for some insight.

ibmmainframes.com/viewtopic.php?t=37454&highlight=attribute+byte

mkarthikeyan · New User Joined: 07 Aug 2008 Posts: 34 Location: Bangalore

Ajay,

cud u pls try...

01 WS-FIELD.
05 ws-field-prefix
10 ws-cur-attr pic x(1).
10 ws-oth-attr pic x(1).
05 ws-field-value pic x(1).

01 Position.
05 CUR-POS PIC X VALUE X'C0'.
05 ATR-UNPROT-ALPHA-MOD PIC X VALUE X'CD'.

MOVE Position TO ws-field-prefix.

Note: Please make sure ATTR=YES in message field

Ajay Bisht · New User Joined: 12 Sep 2006 Posts: 6

Thanks a lot karthik, its working.

Thanks to Sandy also !!