A          R DSREC
       *===================================
       * Fields to convert CGI inputs
       *===================================
       * 0- Input fields for sample CGI's created via command CRTCGISRC
      A            NEWNBR         5A         TEXT('New part number ID')
      A            NEWDES        50A         TEXT('New part number description')
      A            NEWPRC         7A         TEXT('New part number price')
      A            NEWQTY         9A         TEXT('New part number quantity')
       * 1- Input fields for CGI main actions
      A            REQUEST       10A         TEXT('Action CGI should perform')
      A            SUBREQ        10A         TEXT('Subaction CGI should perform')
      A            LNG            2A         TEXT('National language used')
       * 2- Generic input fields
      A            CGIINP01     100A         TEXT('CGI generic input field')
      A            CGIINP02     100A         TEXT('CGI generic input field')
      A            CGIINP03     100A         TEXT('CGI generic input field')
       *    The following fields are commented,
       *    for performance reasons.
       *    Just uncomment and/or change the ones you believe you need
      A*           CGIINP04     100A         TEXT('CGI generic input field')
      A*           CGIINP05     100A         TEXT('CGI generic input field')
      A*           CGIINP06     100A         TEXT('CGI generic input field')
      A*           CGIINP07     100A         TEXT('CGI generic input field')
      A*           CGIINP08     100A         TEXT('CGI generic input field')
      A*           CGIINP09     100A         TEXT('CGI generic input field')
      A*           CGIINP10     100A         TEXT('CGI generic input field')
      A*           CGIINP11     100A         TEXT('CGI generic input field')
      A*           CGIINP12     100A         TEXT('CGI generic input field')
      A*           CGIINP13     100A         TEXT('CGI generic input field')
      A*           CGIINP14     100A         TEXT('CGI generic input field')
      A*           CGIINP15     100A         TEXT('CGI generic input field')
      A*           CGIINP16     100A         TEXT('CGI generic input field')
      A*           CGIINP17     100A         TEXT('CGI generic input field')
      A*           CGIINP18     100A         TEXT('CGI generic input field')
      A*           CGIINP19     100A         TEXT('CGI generic input field')
      A*           CGIINP20     100A         TEXT('CGI generic input field')
      A*           CGIINP21     100A         TEXT('CGI generic input field')
      A*           CGIINP22     100A         TEXT('CGI generic input field')
      A*           CGIINP23     100A         TEXT('CGI generic input field')
      A*           CGIINP24     100A         TEXT('CGI generic input field')
      A*           CGIINP25     100A         TEXT('CGI generic input field')
      A*           CGIINP26     100A         TEXT('CGI generic input field')
      A*           CGIINP27     100A         TEXT('CGI generic input field')
      A*           CGIINP28     100A         TEXT('CGI generic input field')
      A*           CGIINP29     100A         TEXT('CGI generic input field')
      A*           CGIINP30     100A         TEXT('CGI generic input field')
      A*           CGIINP31     100A         TEXT('CGI generic input field')
      A*           CGIINP32     100A         TEXT('CGI generic input field')
      A*           CGIINP33     100A         TEXT('CGI generic input field')
      A*           CGIINP34     100A         TEXT('CGI generic input field')
      A*           CGIINP35     100A         TEXT('CGI generic input field')
      A*           CGIINP36     100A         TEXT('CGI generic input field')
      A*           CGIINP37     100A         TEXT('CGI generic input field')
      A*           CGIINP38     100A         TEXT('CGI generic input field')
      A*           CGIINP39     100A         TEXT('CGI generic input field')
      A*           CGIINP40     100A         TEXT('CGI generic input field')
      A*           CGIINP41     100A         TEXT('CGI generic input field')
      A*           CGIINP42     100A         TEXT('CGI generic input field')
      A*           CGIINP43     100A         TEXT('CGI generic input field')
      A*           CGIINP44     100A         TEXT('CGI generic input field')
      A*           CGIINP45     100A         TEXT('CGI generic input field')
      A*           CGIINP46     100A         TEXT('CGI generic input field')
      A*           CGIINP47     100A         TEXT('CGI generic input field')
      A*           CGIINP48     100A         TEXT('CGI generic input field')
      A*           CGIINP49     100A         TEXT('CGI generic input field')
      A*           CGIINP50     100A         TEXT('CGI generic input field')
       * 3- Input fields for textareas (they must be real large)
      A*           CGIINPT1   10000A         TEXT('Input field for a textarea')
      A*           CGIINPT2   10000A         TEXT('Input field for a textarea')