Re: RPG, CGI and Content-Disposition

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

My first suggestion is that you read Scott's third CGI article, the one that 
about CGIDEV2. Here is a link: http://makeashorterlink.com/?A1536507B

In the meantime, change the definition of CRLF from x'0d25' to x'15'.

Then insert a CRLF between the two response headers.

I have not verified that the response headers are correct for your purposes, but 
you should get closer to your goal with these changes.

Mel Rothman, CGIDEV2 Author
Mel Rothman, Inc.

JK wrote:
> Hello all,
>
>  I need to enhance our web-based document retrieval system. It seems that a
> cgi program would do the trick but I'm having a dickens of a time getting
> things to behave. If this is not too off-topic perhaps someone could point
> me in the right direction?
>
>  The following code (swiped from Scott K's recent article, thanks Scott) has
> two problems:
> 1) The browser (both IE6 and Firefox) wants to save the file as
> 'sendfile.pgm' instead of 'report.csv'. I've tried various permutations of
> the Content-Disposition and filename params but nothing convinces the
> browser that it should do anything differently. See:
> http://www.faqs.org/rfcs/rfc2183
>
> 2) The data written to the PC is hieroglyphic gibberish. I assume the text
> needs to be translated from EBCDIC to ASCII before calling QtmhWrStout? 
>
> D QtmhWrStout     PR                  extproc('QtmhWrStout')
> D   DtaVar                   32767A   options(*varsize) const
> D   DtaVarLen                   10I 0 const
> D   ErrorCode                 8000A   options(*varsize)
> D ErrCode         ds                  qualified
> D   BytesProv                   10I 0 inz(0)
> D   BytesAvail                  10I 0
> D CRLF            c                   x'0d25'
> D data            s           1000A   varying
> /free
>     data = 'Content-type: application/x-download' +
>            'Content-Disposition:attachment;filename="report.csv"' +
>            CRLF + CRLF;
>     QtmhWrStout(data: %len(data): ErrCode);
>     data = 'This is the first record' + CRLF;
>     QtmhWrStout(data: %len(data): ErrCode);                          
>     data = 'This is the 2nd record' + CRLF;
>     QtmhWrStout(data: %len(data): ErrCode);
>     return;
>  /end-free
>
> Many thanks, JK