Re: Cobol CGI Question (Diane Nott)

[Diane Nott <dnott@xxxxxxxxxxxxx>]

After recompiling again, now the year and term show up! But now I get no data 
in my
table. I have 6 columns: Date, Regular, Web, Lab, Total.  This is 3 columns of 
code
shown below. Is there a limit on how big the variable name is? The date does 
show
up in the table. I use the TISRVPGM to compile. An example code for this is:
*----------------------------------
           perform Clean-tab thru z-Clean-tab.

      * Set variable /%FULL-DATE%/
           move 1 to v1
           move 'FULL-DATE' to varnm(v1)
           move FULL-DATE   to varval(v1)
           call procedure 'TICHECKR' using varval(v1) varln(v1).

      * Set variable /%REGULAR%/
           compute v1 = v1 + 1
           move 'REGULAR' to varnm(v1)
           move spaces  to srcvar
           move WS-REG-CNT to srcvar7
           move '*ZONED'  to srcvartype
           move '         0-' to editword
           move 11 to editwordln
           move 7        to int01.
           call procedure 'TICVTEDTWRD'
                                  using
                                  work40
                                  srcvar
                                  srcvartype
                                  editword
                                  editwordln
                                  int01.
           move work40 to varval(v1)
           call procedure 'TICHECKR' using varval(v1) varln(v1).

      * Set variable /%WEB%/
           compute v1 =  v1 + 1
           move 'WEB' to varnm(v1)
           move spaces  to srcvar
           move WS-WEB-CNT  to srcvar7
           move '*ZONED'  to srcvartype
           move '         0-' to editword
           move 11 to editwordln
           move 7        to int01.
           call procedure 'TICVTEDTWRD'
                                  using
                                  work40
                                  srcvar
                                  srcvartype
                                  editword
                                  editwordln
                                  int01.
           move work40 to varval(v1)
           call procedure 'TICHECKR' using varval(v1) varln(v1).

Thanks!
Diane
cobol400-l-request@midrange.com wrote:

> Message: 1
> Date: Mon, 17 Jun 2002 12:25:06 -0400
> From: Diane Nott <dnott@lorainccc.edu>
> Subject: Cobol CGI Question
>
> Hi! I have been having progress in "printing" the Cobol report to the web. I 
>am
> having a few minor problems. My 2 input variables won't print to the web. The
> 1st variable does print but the second doesn't. I have using "Giovanni's demo"
> as a template to my cobol program. This is part of the code:
>
> perform Clean-tab thru z-Clean-tab.
>       *
>            compute v1 = 1
>            move 'CGIINP01' to varnm(v1)
>            move CGIINP01 to varval(v1)
>            DISPLAY 'CGIINP01: ' CGIINP01
>            call procedure 'TICHECKR' using varval(v1) varln(v1).
>
>            compute v1 = v1 + 1
>            move 'CGIINP02' to varnm(v1)
>            move CGIINP02 to varval(v1)
>            DISPLAY 'CGIINP02: ' CGIINP02
>            call procedure 'TICHECKR' using varval(v1) varln(v1).
>
>            Move CGIINP01 to WS-YEAR.
>            Move CGIINP02 to WS-TERM.
>
> Any suggestions would be helpful.
> Diane