Menu
▾
▴
[Tiny-cobol-users] COBOL as cgi-bin
|
From: John R. C. <jo...@we...> - 2005-09-08 20:32:31
|
I am pursuing this activity with some determination. I can
DISPLAY text successfully. I discovered that the header
Content-type=html/text
isn't really necessary. But the totall empty line that goes
before the first real DISPLAY statement is necessary.
Now I am ready to start importing the fields of a FORM. I can
deconstruct the message after I get it, but my problem is that
my COBOL program never gets any input. Here is the web page:
---------------------------------------------------------
<html>
<body>
<FORM ACTION="/cgi-bin/test3.cgi" METHOD="POST">
<PRE>
First Name: <INPUT TYPE="text" NAME="first">
Nickname <INPUT TYPE=text" NAME="nickname">
<INPUT TYPE="submit"> <INPUT TYPE="reset">
</PRE>
</FORM>
</body>
</html>
-----------------------------------------------------------------
And here is the COBOL
-----------------------------------------------------------------
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEMPLATE.
000030 AUTHOR. JOHN CULLETON.
000040 INSTALLATION. WEXFORDPRESS
000045 Eldersburg MD.
000050*REMARKS.
000060* THIS IS A TEMPLATE FOR OPEN COBOL AND HTCOBL.
000070 ENVIRONMENT DIVISION.
000080
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER.
000110 Linux.
000120 OBJECT-COMPUTER.
000230 Linux.
000140
000150 INPUT-OUTPUT SECTION.
000160 FILE-CONTROL.
000170 SELECT HOLDFILE ASSIGN TO "holdit".
000180 DATA DIVISION.
000190
000200 FILE SECTION.
000210 FD HOLDFILE.
01 HOLDREC PICTURE X(80).
000220 WORKING-STORAGE SECTION.
000230
01 BIGFIELD PICTURE X(80).
000240 PROCEDURE DIVISION.
000250 001-MAIN-PROCEDURE.
000260 DISPLAY "Content-type: text/plain".
DISPLAY "".
OPEN OUTPUT HOLDFILE.
ACCEPT BIGFIELD (1:79).
WRITE HOLDREC FROM BIGFIELD.
ACCEPT BIGFIELD (1:79).
WRITE HOLDREC FROM BIGFIELD.
CLOSE HOLDFILE.
DISPLAY "MARKER 2" BIGFIELD.
000270 STOP RUN.
---------------------------------------------
The only thing I get is the "MARKER 2" message.
I have tried the FORM statement with both GET and POST.
|
