INPUT after PROCCESS PAGE MODAL

[Fabio_Maturano]

Hi everyone.

I’ve been facing lately a issue on natural for ajax since my company moved from natural for mainframe to natural for linux.

After a PROCCESS PAGE MODAL, we have a call to INPUT, passing some parameters, like shown on picture 1. This code was working just fine on natural for mainframe.

However, after the move to linux, the error shown on pictures number 2 and 3 is raired.

Is that a expected behaviour? I am really thankful if there are any answers on this matter.

Thanks in advance.

[Fabio_Maturano]

Here goes picture3

[Todd_Beckwith1 (Todd Beckwith)]

Fabio,

I’ve seen issues similar to this in the past. After displaying the pop up, you should always return to the base page before displaying something else. To accomplish what you want to do, you may need to leverage NJX:TRIGGEREVENT so that once you reprocess the base page, you immediately fall out of it and can perform addition processing in Natural.

The remainder of this post is from NJX documentation on the NJX:TRIGGEREVENT from http://techcommunity.softwareag.com/ecosystem/documentation/natural/njx834/njx/njx_triggerevent.htm?hi=modal

Examples
Common usage scenarios for the NJX:TRIGGEREVENT control are scenarios in which the event reaction of your Natural application consists of several parts which contain data handling and page navigation or pop-up handling. Triggering an event allows you to modularize and combine these different event reaction parts. Some specific sample use cases are described below.

Pop-ups
Your application might want to navigate to a specific page when a pop-up is closed. The navigation may depend on some return value of the pop-up. When the pop-up is closed, the Natural application can trigger an event depending on the pop-up result. In the triggered event, the Natural application can then do the navigation. The following code shows how this can be done:

DECIDE ON FIRST *PAGE-EVENT
 VALUE U'nat:page.end',U'nat:browser.end'
  /* Page closed.
  IGNORE
 VALUE U'onReactionA'
  FETCH RETURN 'MYPRGA'
  PROCESS PAGE UPDATE FULL
 VALUE U'onReactionB'
  FETCH RETURN 'MYPRGB'
  PROCESS PAGE UPDATE FULL
 VALUE U'onOpenMyPopup'
  PROCESS PAGE MODAL
   CALLNAT 'MYPOPUP' MYRETURN
  END-PROCESS
  IF MYRETURN = 'A' THEN
     XCITRIGGEREVENT:='onReactionA'
  END-IF
  IF MYRETURN = 'B' THEN
     XCITRIGGEREVENT:='onReactionB'
  END-IF
  PROCESS PAGE UPDATE FULL
 NONE VALUE
  /* Unhandled events.
  PROCESS PAGE UPDATE
END-DECIDE

I hope this helps.