RexxQuerySubcom - Example

The following is a sample subcommand handler query:
Sample subcommand handler query

ULONG Edit_Commands(
  PRXSTRING Command,    /* Command string passed from the caller    */
  PUSHORT   Flags,      /* pointer to short for return of flags     */
  PRXSTRING Retstr)     /* pointer to RXSTRING for RC return        */
{
  WORKAREARECORD  *user_info[2];       /* saved user information     */
  WORKAREARECORD   global_workarea;    /* application data anchor    */
  USHORT           query_flag;         /* flag for handler query     */
  rc = RexxQuerySubcom("Editor",       /* retrieve application work  */
      NULL,                            /* area anchor from REXX.     */
      &query_flag,
      user_info);
  global_workarea = user_info[0];      /* set the global anchor      */