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 syncpoint command?
How to define a vsam file in cics getting into cics to define a vsam file.
Can you define bms?
Can you define attribute byte?
What is the use of mdt (modified data tag)?
Is length = 0 sufficient to ascertain that the field has been modified?
Give certain situations where NEWCOPY is obligatory?
What is the abend command?
Explain the cics command that is used for reading a record from the tdq?
what are the differences between temporary storage queue (tsq) and transient data quene (tdq)?
Can you define aica abend?
Specify the requirements for automatic task initiation?
Can you define transid?
Define cics interface block?
What are the common cics service programs and explain their usage?