To create a form for a print session

When you create a print session, you must also create the form for the session.

For detailed information on the Dynamic Form Editor, see the Dynamic Form Editor's online help.

Before you create the form, it is helpful to review the program script. This is particularly true if you created the program script when you created the print session. The program script contains the default selection ranges.

You may have to extend the generated program script to query references to parent tables.

See this example program script:

|**********************************************************
|* cxoes0421  0  VRC B61U a  dv00
|* 
|* Development User              
|* 2005-02-07
|**********************************************************
|* Main table cxoes021 Suppliers, Form Type 4
|**********************************************************
                                                                                
|****************************** declaration section *******
declaration:

  table   tcxoes021 | Suppliers
  table   tcxoes031 | Countries

   extern  domain  cxsuno           suno.f    fixed
   extern  domain  cxsuno           suno.t    fixed

|****************************** program section ************

|****************************** group section **************
group.1:
init.group:
   get.screen.defaults()

|****************************** choice section *************
choice.cont.process:
on.choice:
   execute(print.data)

choice.print.data:
on.choice:
   if rprt_open() then
       read.main.table()
       rprt_close()
   else
       choice.again()
   endif

|****************************** field section ***************
field.suno.f:
when.field.changes:
   suno.t = suno.f

|****************************** function section ************
functions:

function read.main.table()
{
    select cxoes021.*, cxoes031.*
    from cxoes021, cxoes031
    where   cxoes021._index1 inrange {:suno.f}
                                    and {:suno.t}
    and     cxoes021.ccty refers to cxoes031
    order by cxoes021._index1
   selectdo
       rprt_send()
   endselect
}