how to make the entire screen protected. i.e., for example
when we design a delete screen before deleting the details
we need to popup a screen saying do u wish to delete(Y/N).
When this screen appears i want to make the previous screen
fields as protected.Please help me with the anser. i need
the entire screen to be protected.

Thanks in advance

Answer Posted / lenin

I am not sure how to make the entire screen as protected by
a single statement. But we can protect the fields
individully by moving the user defined value to the
attribute field of the fields.

Attribute byte is a 1 byte field, in which the third bit
indicates whether it is protected(1) or unprotected (0) and
for all other fields we can give any of 0 or 1

For Ex: 00100101 ---- if this value is in attribute byte
then the filed is protected we can say, as the third bit is
1.

The decimal value of it(00100101) is 37.

The following program will show you how to move this value
to the attribute byte of the map fields.

01 fiel1 pic s9(4) comp value 37.

01 fiel2 redefines fiel1.
02 a pic x.
02 b pic x.

Move b to nameA. // name field will be protected.

Like this we move b to all the unproteceted fields on the
screen.

Please correct me if i am wrong and provide me the correct
soultion....

Is This Answer Correct ?    5 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Can you explain communication area?

600


define the field with ic in the bms map.

669


Can ESDS files be accessed from CICS?

640


Particular area has been affected in cics screen, what is the process to find?

8574


What are the cics transactions?

589






Define the term mro (multi region operation)?

583


Can you define mdt?

691


how do you fire a batch job from a cics txn ?

615


What is the syncpoint command?

605


Can a CICS code be a part of a copybook? If so, then what are the outcomes after compilation?

628


Explain the thress bms options?

579


What is fset?

587


Define TCT.

718


What is the term conversational programs means?

583


In case if the user inputs the characters which turn out to be uppercase, then what is the procedure to close that condition?

577