      $set ans85 comp noqual noosvs noalter
      ******************************************************************
      *
      * Dialog System Skeleton CUA Action Bar Mouse control Program
      *
      ******************************************************************
       working-storage section.
       01  set-name                pic x(8).
       linkage section.
       copy "DS-CNTRL.MF".
       01  data-block              pic x.
       procedure division using ds-control-block
                                data-block.
           move -9999 to return-code       *> sets DS Error flag
           move spaces to set-name
           unstring ds-set-name(1:8) delimited by '.'
                                   into set-name
           evaluate set-name

      * Insert here copyfile statements for all screensets using CUA
      * panels with mouse support. Each copyfile is created by the
      * 'generate' option of the CUA definition feature in Dialog
      * System

      *    COPY "xxxxxxxx.CUA".

           end-evaluate
           exit program.
