Skip to main content

CGI - Problem

  • March 6, 2012
  • 10 replies
  • 0 views
D

[Migrated content. Thread originally posted on 05 March 2012]

Program:

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TESTE1.
000030
000040 ENVIRONMENT DIVISION.
000050
000060 DATA DIVISION.
000070
000080 PROCEDURE DIVISION.
000090 PARA-1.
000100 DISPLAY "Content-Type: text/html ".
000110 DISPLAY "".
000120 DISPLAY "".
000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
000140 STOP RUN.

This program when called via CGI generates the following error:

Erro interno do Servidor!

O servidor encontrou um erro interno e não pode completar sua requisição.

Mensagem de Erro:
Premature end of script headers: TESTE1.EXE

Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
Error 500
localhost
03/05/12 15:52:51
Apache/2.2.21 (Win32) PHP/5.3.9


As I compiled the program:



The same program compiled with openCobol does not generate the error.

Can anyone help me?

    10 replies

    Chris Glazier
    Forum|alt.badge.img+2
    • Chris GlazierModerator
    • Moderator
    • 3697 replies
    • March 6, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    You are using an extremely old version of MF COBOL.

    Later releases like the Net Express product have built-in support for creating CGI applications that include an embedded HTML preprocessor which allows you to ACCEPT/DISPLAY entire html forms from within your program.

    The problem you are seeing is most likely that the DISPLAY statement is not writing to STDOUT by default.

    Try changing the DISPLAY statement so that it uses the UPON CONSOLE phrase, i.e.
    DISPLAY "..." UPON CONSOLE

    You may also have to set the S5 run-time switch if this switch is available in your version of Object COBOL.
    You can do this in your computers environment by setting the environment variable:

    COBSW= S5



    Chris Glazier
    Forum|alt.badge.img+2
    • Chris GlazierModerator
    • Moderator
    • 3697 replies
    • March 6, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    I found an old example on our supportline web site of how to do input and output using accept/display from a COBOL program running as CGI.

     identification division.       
     program-id. cgiraw.      
    * This program will output the raw, undecoded form/url data, the      
    * length of the data sent, and the method used (POST or GET).      
    * Change any html form to include the following form tag      
    * attributes:      
    * <form action="/cgi-bin/cgiraw.exe" method=POST>.      
    * You can also specify a link/url:      
    * <A href="127.0.0.1/.../cgiraw.exe      
    * Hello</A>      
    * You can also type a URL into the address field of a web browser:      
    * 127.0.0.1/.../cgiraw.exe      
    *
     data division.        
     working-storage section.        
     01 access-mode        pic x comp-x value 1.       
     01 deny-mode           pic x comp-x value 3.       
     01 device                   pic x comp-x value 0.       
     01 flags                      pic x comp-x value 0.
     01  file-handle            pic x(4).       
     01  offset-0                pic x(8) comp-x value 0.
     01 input-file-name      pic x(255) value spaces.       
     01 env-value              pic x(4096).       
     01 method-type          pic x(4).       
     01 content-length       pic x(4) comp-x.       
     01 content-type          pic x(100).       
     01 sub1                      pic x(4) comp-x.       
     01 temp-01                 pic x comp-x.       
     01 temp-02                 pic x comp-x.
     01  mem-pointer          usage pointer value null.       
     01  mem-length           pic x(4) comp-5.       
     01  mem-flags             pic x(4) comp-5.
     01 alloc-mem-rtn         pic x(2) comp-5.
     01 tmp-01                    pic x(4) comp-x.        
     01 tmp-02                    pic x(4) comp-x.
     linkage section.       
     01 accept-record           pic x.
     procedure division.
            move 18 to temp-01           
            move 1 to temp-02           
            call x"A7" using temp-01 temp-02
    * Use display and accept verbs to get the values of environment      
    * variables set up by the web server.           
            display "CONTENT_TYPE" upon environment-name           
            accept content-type from Environment-value
            display "REQUEST_METHOD" upon environment-name           
            accept env-value from environment-value           
            if env-value = "GET"               
                move "GET" to method-type       
    * If the form method=GET, we cannot use the CONTENT_LENGTH      
    * environment variable to determine the size of the data, so we      
    * allocate a block of memory big enough to hold the data.               
               move 4096 to content-length               
               perform alloc-accept-record               
               display "QUERY_STRING" upon environment-name               
               accept accept-record(1:4096) from environment-value               
               move 0 to sub1      
    * The query string should be space-terminated, so we can determine      
    * it's end and it's size.               
               inspect accept-record(1:4096) tallying sub1                       
                    for characters before initial space               
               move sub1 to content-length           
            else
                move "POST" to method-type               
                display "CONTENT_LENGTH" upon environment-name               
                accept env-value from environment-value                
                move 0 to sub1               
                inspect env-value tallying sub1 for characters                                 
                     before initial space                
                move env-value (1:sub1) to content-length               
                perform alloc-accept-record
    * Read data from stdin instead of query string.               
                move ":CI:" to input-file-name                
                call "CBL_OPEN_FILE"  using input-file-name                                     
                                                                 access-mode                                     
                                                                 deny-mode                                     
                                                                 device                                     
                                                                 file-handle
                 call "CBL_READ_FILE" using file-handle                                    
                                                                 offset-0                                    
                                                                 content-length                                     
                                                                 flags                                     
                 accept-record               
                 call "CBL_CLOSE_FILE" using file-handle           
            end-if
    * Send html back to the web server/browser.           
            display "Content-type: text/html" & x"0a" & x"0a"           
            display "<html>" & x"0a"           
            display "<head><title>"           
            display "Test raw cobol cgi program"           
            display "</title></head>" & x"0a"           
            display "<body bgcolor=""#FFFFFF"">" x"0a"           
            display "Content-type:" content-type x"0a"            
            display "METHOD=" method-type           
            display "<br>"           
            display "CONTENT-LENGTH=" content-length x"0a"           
            display "<br>"           
            display "CGI-DATA=<PRE>"           
            display accept-record(1:content-length) x"0a"           
            display "</pre></body>" & x"0a"           
            display "</html>" & x"0a"
            stop run            .
     alloc-accept-record section.
    * Dynamically allocate memory to hold the form/url data.           
            move 0 to mem-flags           
            move content-length to mem-length           
            call "CBL_ALLOC_MEM" using    mem-pointer                                
                                                   by value mem-length                                         
                                                                 mem-flags                               
                                                     returning alloc-mem-rtn
            if alloc-mem-rtn not = 0              
               display "alloc mem failed"              
               stop run           
            end-if
            set address of accept-record to mem-pointer.


     

    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 7, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    I believe Chris has identified the problem and solution (I was going to post much the same thing, but he beat me to it). It might be useful to explain why COBSW= S5 is necessary, however.

    When an HTTP server runs a CGI program, it starts the program as a child process with a number of environment variables set and with the child's standard input (stdin) and output (stdout) file descriptors set to pipes. The server owns the other end of those pipes. That lets the server write the request data to the child's stdin (for POST requests) and read the response message from the child's stdout.

    Obviously, if the child process does not write anything to stdout, there won't be any data for the server to read, and the server won't be able to construct the response. That's what Apache is complaining about in your example.

    Your COBOL program is not writing any data to stdout because by default DISPLAY (on Windows) does not send data to stdout. Instead it uses Windows APIs that let it write to the console window in a controlled fashion, in order to support things like color and cursor positioning.

    The S5 COBOL run-time switch tells the COBOL run-time to have DISPLAY write to stdout, and ACCEPT read from stdin.

    The program in Chris' second post uses the COBOL run-time library function call x"a7" to do the same thing that setting the S5 switch does.
    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 13, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    COBSW= S5 and DISPLAY "" UPON CONSOLE not work.

    cgiraw.cbl - Compiled with errors:



    I changed the line 43 to: 01 accept-record pic x(4096).

    and line 112 to: display accept-record x"0a"

    these changes are correct?

    The program worked, but exhibited dirt in the final of DISPLAY command.

    Thanks.
    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 13, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    COBSW= S5 and DISPLAY "" UPON CONSOLE not work.

    cgiraw.cbl - Compiled with errors:



    I changed the line 43 to: 01 accept-record pic x(4096).

    and line 112 to: display accept-record x"0a"

    these changes are correct?

    The program worked, but exhibited dirt in the final of DISPLAY command.

    Thanks.
    Chris Glazier
    Forum|alt.badge.img+2
    • Chris GlazierModerator
    • Moderator
    • 3697 replies
    • March 13, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    I would expect garbage characters to be appended to ACCEPT-RECORD if you have this field statically defined as PIC X(4096) in linkage because the original program dynamically allocates the memory for this field based on the value of CONTENT-LENGTH. If CONTENT-LENGTH is

    I guess I don't understand why you made these two changes to the example to begin with?

    Remember the COBOL product that you are using is very old and this sample was created and runs under Net Express. Not all language features might be supported.

    It seems to be complaining about the reference modification in accept-record(1:content-length) which is strange because there is another line in the program that uses this also:

    move env-value (1:sub1) to content-length

    do you also get an error on this line?

    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 13, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    Edgar originally wrote:
    COBSW= S5 and DISPLAY "" UPON CONSOLE not work.


    They don't work in what sense? What did you do?

    For COBSW= S5 to work, it has to be set in the CGI program's environment, which means it has to be set in the HTTP server process environment. On Windows, that generally means that it will have to be set in the system environment, and you'll likely have to reboot after setting it there to ensure the HTTP server gets it.

    That's one reason why using library call x"a7", as in the sample program, is a better idea.

    I'm not sure that the UPON CONSOLE phrase has any effect in this particular case - I believe a plain ANSI DISPLAY statement with S5 set (or, better, after calling x"a7") will write to stdout with or without UPON CONSOLE specified. But since you're using such an old COBOL product it's hard to know for sure. (I just tried it in Studio EE 6.0 SP2 WS2, and a plain DISPLAY writes to stdout even without S5 or x"a7".)
    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 17, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    Chris I made the changes because of the error that the compiler presented. I can not explain the cause of the error, but it was only in this line.

    Michael even with the environment variable "COBSW" set the program still displays the error: Premature end of script headers

    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 17, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    Chris I made the changes because of the error that the compiler presented. I can not explain the cause of the error, but it was only in this line.

    Michael even with the environment variable "COBSW" set the program still displays the error: Premature end of script headers

    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • March 17, 2012

    [Migrated content. Thread originally posted on 05 March 2012]

    Program:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. TESTE1.
    000030
    000040 ENVIRONMENT DIVISION.
    000050
    000060 DATA DIVISION.
    000070
    000080 PROCEDURE DIVISION.
    000090 PARA-1.
    000100 DISPLAY "Content-Type: text/html ".
    000110 DISPLAY "".
    000120 DISPLAY "".
    000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".
    000140 STOP RUN.

    This program when called via CGI generates the following error:

    Erro interno do Servidor!

    O servidor encontrou um erro interno e não pode completar sua requisição.

    Mensagem de Erro:
    Premature end of script headers: TESTE1.EXE

    Se você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.
    Error 500
    localhost
    03/05/12 15:52:51
    Apache/2.2.21 (Win32) PHP/5.3.9


    As I compiled the program:



    The same program compiled with openCobol does not generate the error.

    Can anyone help me?

    Chris I made the changes because of the error that the compiler presented. I can not explain the cause of the error, but it was only in this line.

    Michael even with the environment variable "COBSW" set the program still displays the error: Premature end of script headers


    Terms & ConditionsAccessibility statement