News

How to send a report to AS/400 and make it remain ‘HOLD’

In the past news (#42) we explained how to send a report to AS/400 and make it remain ‘HOLD’. We enlarged this information: Another good solution is using the QCMDEXC command, because the whole code stays inside GeneXus procedures.

In the past news (#42) we explained how to send a report to AS/400 and make it remain ‘HOLD’. We enlarged this information:

Another good solution is using the QCMDEXC command, because the whole code stays inside GeneXus procedures.

For example, from a Work Panel’s event that is executed before the report:  

&Cmd = 'OVRPRTF QPRINT HOLD(*YES)'
&Len = 25
Call('QCMDEXC', &Cmd, &Len) 
Call(Rxxxxxx, p1 ....) 
&Cmd = 'DLTOVR QPRINT'
&Len = 13
Call('QCMDEXC', &Cmd, &Len)

NOTE: You have to take into account that if you are using DDS the printing file is not QPRINT. In this case it is called like the program that generates it, except the prefix, which is F instead of P or R.