Select Code to Download

Select or download this

000172  GET_INPUT_FROM_WEB_PAGE. 
000173      GETENV USING `CONTENT_LENGTH` content_length. 
000174      IF content_length IS GREATER THAN 0 THEN 
000175          ACCEPT DATA FROM WEBPAGE

Select or download this

<FORM ACTION="cobolscript.exe?uts.cbl" METHOD=POST>
<INPUT TYPE="hidden" NAME="month" VALUE="January     ">
...
45testttt
"></font></TD>
<TD><INPUT TYPE="submit" VALUE="Update"> </TD></FORM>

Select or download this

5 update_desc                  PIC X(80).

Select or download this

000157      MOVE update_desc   TO rec_desc.

Select or download this

000113          PERFORM VARYING i FROM 1 BY 1 UNTIL i = 80 
000114             IF rec_desc(i:1) = `<` 
...
000119                   MOVE ` ` TO temp_str(z:1) 
000120                   ADD 1 TO z 
000121                END-IF

Select or download this

<INPUT TYPE="hidden" NAME="employee_name" VALUE="Matt                "
+>