|
View previous topic :: View next topic
|
| Author |
Message |
ravikumarreddy
Warnings : 1
New User
Joined: 29 Jul 2005
Posts: 23
|
|
|
|
HI,
here my requirement is ...... i want to change the PROTECTED FIELDS TO UNPROTECTED FIELDS of map,that to on DYNAMICALLY...
THANKS IN ADVANCE,
ravi |
|
| Back to top |
|
 |
prakash271082
New User
Joined: 09 Sep 2005
Posts: 53
|
|
|
|
Hi Ravi,
You Could use Attribute Check Byte to dynamically change from protected to unprotected and vicsversa etc.
For Eg:
Say in Your Map definition, your label for the field for which value to be received is XXX1. Then you could use
"MOVE DFHBMUNP TO XXX1A" => this will change that receiving field from Protected to Unprotected.
Hope this helps. |
|
| Back to top |
|
|
radhakrishnan82
Active User
Joined: 31 Mar 2005
Posts: 435
Location: chennai, India
|
|
|
|
ravi,
Lets take this case:
After performing some condition if you need to protect the values of field 'AAA' from editing,you can do the following:
| Code: |
If Action-performed = true
Move PRO to AAA-F (defined in map)
else
Move UNP tO AAA-F
end-if |
PRO and UNP are predefined field attributes.
Are you using this predefined attrbt in your shop?
Unless let me know,I can provide the values for these attributes.
hope this helps. |
|
| Back to top |
|
|
radhakrishnan82
Active User
Joined: 31 Mar 2005
Posts: 435
Location: chennai, India
|
|
|
|
DFHBMUNP can also be used.
You can also define datanames on your own and set these below values for such operation.
For unprotecting
else you declare some variable and assign the values to it.
| Code: |
UNPROTECT-MNO PIC X VALUE ' '
................
MOVE UNPROTECT to AAA-F. |
| Code: |
01 IBM-FIELD-ATTRIBUTES.
05 SET-CSR PIC S9(4) COMP VALUE -1.
05 ERASE-EOF-ON PIC X VALUE '?'.
05 UNP PIC X VALUE ' '.
05 UNP-MDT PIC X VALUE 'A'.
05 UNP-BRI PIC X VALUE 'H'.
05 UNP-BRI-MDT PIC X VALUE 'I'.
05 UNP-DRK PIC X VALUE '<'.
05 UNP-DRK-MDT PIC X VALUE '('.
05 UNP-NUM PIC X VALUE '&'.
05 UNP-NUM-MDT PIC X VALUE 'J'.
05 UNP-NUM-BRI PIC X VALUE 'Q'.
05 UNP-NUM-BRI-MDT PIC X VALUE 'R'.
05 UNP-NUM-DRK PIC X VALUE '*'.
05 UNP-NUM-DRK-MDT PIC X VALUE ')'.
05 PRO PIC X VALUE '-'.
05 PRO-MDT PIC X VALUE '/'.
05 PRO-BRI PIC X VALUE 'Y'.
05 PRO-BRI-MDT PIC X VALUE 'Z'.
05 PRO-DRK PIC X VALUE '%'.
05 PRO-DRK-MDT PIC X VALUE '_'.
05 PRO-SKP PIC X VALUE '0'.
05 PRO-SKP-MDT PIC X VALUE '1'.
05 PRO-SKP-BRI PIC X VALUE '8'.
05 PRO-SKP-BRI-MDT PIC X VALUE '9'.
05 PRO-SKP-DRK PIC X VALUE '@'.
05 PRO-SKP-DRK-MDT PIC X VALUE '''' |
.
hope this helps. |
|
| Back to top |
|
|
|
|
