      $set ans85 comp noqual noosvs noalter
      ******************************************************************
      *
      * Dialog System Skeleton User Validation Program.   (DS2.5)
      *
      *    Linkage Parameters:
      *
      *        Dialog Control Block    input
      *            Use this to determine the current screenset, panel
      *            and field. Any changes you make to this control
      *            block are ignored by Dialog System.
      *
      *        Screenset data block    input/output
      *            You may access and change any fields for the current
      *            screenset in this data block.
      *
      *        DS-User-Val-Status      output
      *            If you want to flag a field validation failure, set
      *            this flag to 1. If validation is ok, set this field
      *            to 0.
      *
      *        DS-User-Error-Number    output
      *            This field is ignored unless DS-User-Val-Status is
      *            non-zero.
      *            When a field validation error has occurred, if this
      *            field is set to 0, then the error message associated
      *            with this validation will be displayed. You may
      *            force a different error message to be displayed
      *            however, by placing its number in this field.
      *
      ******************************************************************
       working-storage section.
       linkage section.
           copy "DS-CNTRL.MF".

       01  ds-user-val-param.
           03  ds-user-val-status          pic x comp-x.
           03  ds-user-error-number        pic xx comp-x.

       01  general-data-block              pic x.

      * Insert here copyfile statements for all screensets using user
      * validation. Each copyfile is created by the 'user-validations'
      * option of the generate feature of Dialog System.

      *    COPY "xxxxxxxx.CPU".
      *    COPY "yyyyyyyy.CPU".

       procedure division using ds-control-block
                                general-data-block
                                ds-user-val-param.
           move 0 to ds-user-val-status

      * Insert your validation code here

           exit program
           stop run.
