Using an initial Procedure in a bilingual application

If your application starts QMF and runs an initial procedure, QMF runs that procedure every time the user issues the END command. QMF terminates if this procedure encounters an error. For example, if the user is running in English and issues an END command in the presiding language, QMF interprets the command as an error and terminates.

You can avoid this situation in one of two ways:

• Change the initial procedure to handle bilingual applications.

  A bilingual initial procedure includes the commands shown in Figure 10.

  Figure 10. An initial procedure in a bilingual application

  "GET GLOBAL (CURR_LANG=DSQEC_NLFCMD_LANG"
  "SET GLOBAL (DSQEC_NLFCMD_LANG=0"
  
  ·
  ·
  ·
  
  /* QMF commands in the presiding language */
  
  ·
  ·
  ·
  
  "SET GLOBAL (DSQEC_NLFCMD_LANG=CURR_LANG"

• Avoid running the initial procedure after the END command.

  You can set the variable DSQEC_RERUN_IPROC to 0 so that QMF does not run the initial procedure when the user issues the END command.