Calling Enquiry inside a subroutine

Hi All,

I am unable to store the the enquiry ouput , when i am CALL ENQUIRY.DISPLAY inside a routine

Following is the routine logic
REMOVE Y.AC.ID FROM ID.LIST SETTING Y.POS
WHILE Y.AC.ID:Y.POS
ENQ.SELECTION = '.STMT.ENT.FINPAY'
ENQ.SELECTION<2> = 'ACCOUNT':@VM:'BOOKING.DATE'
ENQ.SELECTION<3> = 'EQ':@VM:'EQ'
ENQ.SELECTION<4> = Y.AC.ID:@VM:TODAY
ENQ.SELECTION<10> = ''
CALL ENQUIRY.DISPLAY(ENQ.SELECTION)

In ENQ.SELECTION<10> doesn't store the output, if anybody knows how to store the output after calling ENQUIRY.DISPALY,please guide me.

Thx
Mohan

Hi,

Are you developing a nofile enquiry? if yes, then use this logic:

SUBROUTINE ROUTINE.NAME(EN.REC)

$INCLUDE I_COMMON
$INCLUDE I_EQUATE
$INCLUDE I_ENQUIRY.COMMON

...

EN.REC<-1> = Y.AC.ID:"#":TODAY
RETURN

I hope this helps u.

Hi
As far a I understand it, CALL ENQUIRY.DISPLAY just shows the enquiry on the screen, it won't save its output.
As usual for T24 world, there might be some option I'm not aware about :)

Hi
I knew that we need to go deeper :)))
Does any method exist to get the resulting &HOLD& ID?

BTW, for getting the enquiry output it might be better to issue an OFS with ENQUIRY.SELECT, then parse the OFS reply...

Hi @jpb

Aren't you aware please if there is way to get the ID of the generated file in this case? (like VK asked)

And is there a way to save the output in a different folder?
And can it be saved in XML or CSV?

Thanks

 

And is there a way to save the output in a different folder?

Yes, you can setup on PRINTER.ID when you're using an enquiry report and repgen which can be ran during COB or adhoc.

And can it be saved in XML or CSV?

By default, on browser the result can be saved by XML and csv. You can explore the enquiry report which as REPORT.CONTROL that controls the printing format
 

&HOLD& ID is available in the COMMON variable C$RPT.IN.HOLD.ID<1> (I_RC.COMMON)

As mentioned by VK, CALL ENQUIRY.DISPLAY doesn't store the file. You have to call ON/OFF printer