Problem solve Get help with specific problems with your technologies, process and projects.

How to open a pop-up window in CICS apps?

We are developing applications with COBOL. We have CICS TS 1.3. In our applications, we want to open a new window over an opened-window. Is there any way to do this with CICS utilities?

To do this sort of thing, you need to save a copy of the existing 3270 screen (XC RECEIVE BUFFER to get it) and then simply send out the overlay screen (ensuring the cursor is positioned within it). Once you have done the interaction on the pop-up, just restore the current image (that which you saved, remembering to reposition the cursor to where it was) and off you go.

The general problem with this appraoch is that the existing screen info is still updateable (all those LU2 attribute bytes are still there) and so cursor autoskip will not work as expected (you run off the side of the pop-up and land up on the underlying screen image). Additionally, the underlying screen can have data keyed into it, which will disappear when you restore the image (this is probably what you want to happen).

If these effects worry you, you need to copy the XC RECEIVEd BUFFER and change all the unprotected attribute bytes to protected (iterate through the image and change the attribute bytes after the SF (x'1D') from x'..0.....' x'..1.....') and then send out this modified buffer before you send out the pop-up.

Dig Deeper on IBM system z and mainframe systems

Have a question for an expert?

Please add a title for your question

Get answers from a TechTarget expert on whatever's puzzling you.

You will be able to add details on the next page.

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.