En las noticias pasadas (#42) explicamos como enviar un reporte al AS/400 y hacer que quede “HOLD”.

Ampliamos esta información: 

Otra buena solución es utilizando el comando QCMDEXC, debido a que queda todo el código dentro de los procedimientos GeneXus.
Desde por ejemplo, un evento de un Work Panel que se ejecute antes que el reporte:

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

NOTA: Hay que tener en cuenta que si se esta usando DDS el archivo de impresión no es QPRINT. En este caso se llama igual que el programa que lo genera, salvo el prefijo que es F en lugar de P o R.