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
What is the pic clause for the data type of length option field type of data fields?
name the command that is used to dump the main storage areas related to a task?
How many ways are there for initiating a transaction?
What is meant by MDT? Furthermore, comment on FRSET and FSET ?
Explain how many exceptional condition can be given in a handle condition?
What is the eib parameter?
Can you define ppt and what are its uses?
What is the primary aspect of CICS?
Explain the difference between a package and a plan. How does one bind 2 versions of a cics transaction with the same module name in two different cics regions that share the same db2 subsystem?
Define floating maps with illustration?
Can QSAM files be accessed from CICS?
How ENQ and DEQ used in CICS?
What is dynamic transaction backout?
specify the requirements for automatic task initiation. (Mention the control table, it is entries and the corresponding procedure division cics command).?
What is ENQ?