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
Can ESDS files be accessed from CICS?
Define an asra?
What is cics load command?
How do you use altindxs in batch, cics programs?
What is task control?
What are the classifications of the cics program?
Explain the difference between pseudo-conversational and conversational?
Explain the system transid cemt?
Add a field to screen when what's the flow of impact?
How can you access esds files from cics?
What are fset, frset?
what are transient data sets defined to cics?
What is the common systems area?
How can you use dynamic calls in cics?
Code the related portions of cics/cobol-i programs to gain addressability to twa area assigned to a particular task. Assme that the size of twa area is 300bytes. What are the advantages if cobol-ii is used in the place of cobol?