Thank you Giovanni, but, I'm sorry I don't uderstand. I would like to show
you the 2 program:
1st program is called by e HTML link like this:
.....
<form method=post action="/cgidev2p/rubr001.pgm?cgiinp01=cgiinp01"
target="inferiore">
.........
and the Program rubr001 call rubr01 with parm:
......
C call 'RUBR02'
C parm init
......
The send program is RPGLE
with some SQL end HTML istruction.
I don't think that HTML resides on IFS
2nd program: (here enclosed)
The differences between old AS/400 720 and the new 520 are
standard 400 web server the new is Apache
rel. 5.2.0 5.3.0.
Thank for the help.
Roberto Bombelli
MIC- SHIMANO
LEGNANO
----- Original Message -----
From: "Giovanni B. Perotti" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, January 26, 2006 2:12 PM
Subject: Re: [Easy400Group] plaese HELP me !!
> One possibility is that your external HTML resides on IFS and you are
> using
> /$ delimiters for the section names.
> In this case you may experience messages type "section not found".
> This may happen because characters /$ are mis-converted when the HTML is
> loaded.
> You may want to change such prefixes to something else, for instance
> <as400>.
>
> Giovanni
>
> ----- Original Message -----
> From: "Miki" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Thursday, January 26, 2006 11:47 AM
> Subject: [Easy400Group] plaese HELP me !!
>
>
>> Dear *all
>> I started CGI on new AS/400 with Apache directives and
>> I copy some programs from the old (was not Apache).
>>
>> For example the 1st program call the 2nd passing parameters "cgiinp01
>> = G. end 2nd program write HTML.
>> the second time I try to execute the program I have no HTML output.
>>
>> Where is the problem. I don't understand....
>>
>> Please Help me.
>>
>> Roberto.
>>
>> DEBUG:
>> -----------
>> GetInput: Request method =
>> POST
>> ContLen: Content_length =
>> 10
>> GetInput: ASCII input =
>> cgiinp01=G
>> GetInput: EBCDIC input =
>> cgiinp01=G
>> CvtDb: DS info --
>> CGIEXTERDS/CGIDEV2:
>>
>> CvtDb: DS data =CGIEXTERDS/CGIDEV2: DBRespCd 1- QUSEC
>> message ID: none.
>> WrtJobDbg:
>> 003456/QTMHHTTP/CGIDEV2APA
>>
>> GetHtml: No records read because file has not changed. Previously, 41
>> records were read.
>> WrtSection: Section ALL not
>> found.
>> WrtSection: Failed when calling QtmhWrStout. Msgid = CPF3C17. Message
>> data:
>>
>>
>>
>>
>>
>>
>> Yahoo! Groups Links
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
> __________ NOD32 1.1379 (20060125) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.eset.com
>
>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Easy400Group/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
5722WDS V5R3M0 030905 SEU SOURCE LISTING 26/01/06 15:14:40 S6517C7B
FILE ORIGINE . . . . . . CGIMIC/QRPGLESRC
MEMBRO . . . . . . . . . RUBR02
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
1 ****************************************************************
2 * To Compile: *
3 * *
4 * 1. CRTSQLRPGI OBJ(lib/pgm) SRCFILE(lib/file) + *
5 * OBJTYPE(*MODULE) TGTRLS(V3R7M0) *
6 * 2. CRTPGM PGM(cgilib/pgm) MODULE(lib/pgm) + *
7 * BNDSRVPGM(QHTTPSVR/QZHBCGI) TGTRLS(V3R7M0) *
8 * *
9 * Module and program must be created with a minimum target *
10 * release of V3R7M0. *
11 * *
12 * Program must be bound with service program QZHBCGI in *
13 * library QHTTPSVR or your CGI library where a copy of this *
14 * service program resides. *
15 * *
16 * At least *USE authority must be granted to User ID *
17 * QTMHHTP1 (or the user profile specified on the USER *
18 * directive of your HTTP Configuration) in order to function. *
19 * *
20 * Your HTTP configuration must be set up to allow execution *
21 * of CGI programs using the EXEC directive. This directive *
22 * must specify *.PGM for the extention or you will have to *
23 * modify the $Footer subrouting to include .PGM to the end *
24 * of the program name in the hyperlink. *
25 * EXEC /cgi-bin/* /QSYS.LIB/AS400CGI.LIB/*.PGM *
26 * *
27 * For more information on e-RPG programming, see the book: *
28 * "e-RPG: Building Web Applications with RPG" by Bradley *
29 * V. Stone. This book is available from Midrange Computing *
30 * at: *
31 * http://www.midrangecomputing.com *
32 * *
33 * Source Created by Query to e-RPG (QRY2ERPG) from BVS/Tools *
34 * http://www.bvstools.com *
35 * *
36 ****************************************************************
37 ****************************************************************
38 D SDS
39 D W$PGM 1 10
40 *
41 D INFDS DS
42 D F$RRN 397 400B 0
43 *
44 D WPError DS
45 D EBytesP 1 4B 0 INZ(40)
46 D EBytesA 5 8B 0
47 D EMsgID 9 15
48 D EReserverd 16 16
49 D EData 17 56
50 *
51 * This is header information that is written to the HTML file first. The
52 * date is used so that caching does not take place and the data is always
53 * refreshed. You will need at least the HTTPHeader and two new line
54 * characters.
55 *
56 D HTTPHeader C CONST('Content-type: text/html')
57 D Pragma C CONST('Pragma: no-cache')
58 D Expires1 C CONST('Expires: Tuesday, October ')
59 D Expires2 C CONST('26, 1999 10:10:10 GMT')
60 D NewLine C CONST(X'15')
61 *
62 D CLIEN01ADS E DS EXTNAME(CLIEN01A) PREFIX(T01)
63 *
64 D CmdStr S 64
65 D ParseFmt S 8 INZ('CGII0200')
66 D TgtBuf S 1024
67 D TgtBufLen S 9B 0 INZ(%size(TgtBuf))
68 D RespLen S 9B 0
69 *
70 D WrtDta S 1024
71 D WrtDtaLen S 9B 0
72 *
73 D LastRRN S 9 0
74 D LastRRNx S 9
75 D Count S 4 0
76 D i S 4 0
77 ****************************************************************
78 C *ENTRY PLIST
79 C PARM init 2
80 ****************************************************************
81 C movel init iniz 2
82 ****************************************************************
83 C EXSR $Header
84 C EXSR $Main
85 C EXSR $Footer
86 *
87 C eval *INLR = *On
88 ****************************************************************
89 * Write Header data to Browser
90 ****************************************************************
91 C $Header BEGSR
92 *
93 C eval WrtDta = '<html><head>' +
94 C '<title>' +
95 C 'Rubrica Telefonica clienti' +
96 C '</title>' +
97 C '</head><body Bgcolor="salmon">' +
110 C '<A title="Stampa" href="javascript:' +
111 C 'self.print()">' +
112 C '<img border=0 src="/cgidev/Printer.gif">' +
113 C '</A>' +
114 C '</body>' +
115 C NewLine
116 C EXSR $WrStout
117 *
118 * This portion writes a stylesheet to format the data in a table. Character
119 * data is left justified in table cells and numeric data is right justified
120 * in table cells. For more infomation on stylesheets go to:
121 * http://www.htmlhelp.com/reference/css/
122 * or
123 * http://msdn.microsoft.com/workshop/author/css/css.asp
124 *
125 C eval WrtDta = '<style type="text/css">' +
126 C NewLine +
127 C 'td.char àfont-size: 8pt;' +
128 C NewLine +
129 C 'font-family: ' +
130 C '"geneva","arial","verdana";' +
131 C 'font-weight: normal;' +
132 C 'text-align: leftè' +
133 C 'td.num àfont-size: 8pt;' +
134 C NewLine +
135 C 'font-family: ' +
136 C '"geneva","arial","verdana";' +
137 C 'font-weight: normal;' +
138 C 'text-align: rightè' +
139 C NewLine +
140 C '</style>' +
141 C NewLine
142 C EXSR $WrStout
143 *
144 C ENDSR
145 ****************************************************************
146 * Write Main Data to Browser
147 ****************************************************************
148 C $Main BEGSR
149 *
150 C eval WrtDta = '<table ' +
151 C 'border="3" ' +
152 C 'cellspacing="0" ' +
153 C 'cellpadding="3" ' +
154 C 'style="font-family: Tahoma;' +
155 C 'font-size: 12"' +
156 C 'bgcolor="white" ' +
157 C '>' + NewLine
158 C EXSR $WrStout
159 *
160 C eval WrtDta = '<tr>' +
161 C '<td class="num">' +
162 C '<td align=RIGHT>' +
163 C '<B>' +
164 C 'Cod.Cli.' +
165 C '</B>' +
166 C '</td>' +
167 C '<td class="char" bgcolor="#dcdcdc">' +
168 C '<B>' +
169 C 'Ragione Sociale' +
170 C '</B>' +
171 C '</td>' +
172 C '<td class="char">' +
173 C '<B>' +
174 C 'Località' +
175 C '</B>' +
176 C '</td>' +
177 C '<td class="char">' +
178 C '<B>' +
179 C 'Pv.' +
180 C '</B>' +
181 C '</td>' +
182 C '<td class="char" bgcolor="#dcdcdc">' +
183 C '<B>' +
184 C 'N.Pref.' +
185 C '</B>' +
186 C '</td>' +
187 C '<td class="char" bgcolor="#dcdcdc">' +
188 C '<B>' +
189 C 'N. Telefono' +
190 C '</B>' +
191 C '</td>' +
192 C '<td class="char">' +
193 C '<B>' +
194 C 'N. di FAX' +
195 C '</B>' +
196 C '</td>' +
197 C '</tr>' +
198 C Newline
199 C EXSR $WrStout
200 *
201 C/EXEC SQL
202 C+ DECLARE C1 DYNAMIC SCROLL CURSOR FOR
203 C+ SELECT
204 C+ T01.CLCCLI,
205 C+ T01.CLDRSO,
206 C+ T01.CLDLOC,
207 C+ T01.CLCPRV,
208 C+ T01.CLNPRT,
209 C+ T01.CLNTEL,
210 C+ T01.CLNFAX
211 C+ FROM
212 C+ $$LIBFMC/CLIEN01A T01
213 C+ WHERE CLNTEL NOT IN (' ', 'VARI')
214 C+ and CLFACF = 'A'
215 C+ and substr(CLDRSO, 1, 1) <> '*'
216 C+ AND CLCPRV = :iniz
217 C+ OR CLNFAX <> ' '
218 C+ and CLFACF = 'A'
219 C+ AND CLCPRV = :iniz
220 C+ ORDER BY
221 C+ CLDRSO ASC
222 C/END-EXEC
223 *
224 C/EXEC SQL
225 C+ OPEN C1
226 C/END-EXEC
227 *
228 C eval Count = 0
229 *
230 C if (LastRRN <= 0)
231 C eval LastRRN = 1
232 C endif
233 *
234 C/EXEC SQL
235 C+ FETCH RELATIVE :LastRRN FROM C1 INTO
236 C+ :T01CLCCLI,
237 C+ :T01CLDRSO,
238 C+ :T01CLDLOC,
239 C+ :T01CLCPRV,
240 C+ :T01CLNPRT,
241 C+ :T01CLNTEL,
242 C+ :T01CLNFAX
243 C/END-EXEC
244 *
245 C dow (SQLCOD = 0) and (Count < 1250)
246 C eval WrtDta = '<tr>' +
247 C '<td class="num">' +
248 C '<td align=RIGHT>' +
249 C '<A HREF="http://192.168.0.14/cgidev2p/DET' +
250 C 'TCLI1.pgm?cgiinp01=' +
251 C %trim(%editc(T01CLCCLI:'X')) +
252 C '"' +
253 c 'target="_blank" ' +
254 C '</A>' +
255 C %trim(%editc(T01CLCCLI:'L')) +
256 C '</td>' +
257 C '<td class="char" bgcolor="#dcdcdc">' +
258 C %trim(T01CLDRSO) +
259 C '</td>' +
260 C '<td class="char">' +
261 C %trim(T01CLDLOC) +
262 C '</td>' +
263 C '<td class="char">' +
264 C %trim(T01CLCPRV) +
265 C '</td>' +
266 C '<td class="char" bgcolor="#dcdcdc">' +
267 C %trim(T01CLNPRT) +
268 C '</td>' +
269 C '<td class="char" bgcolor="#dcdcdc">' +
270 C %trim(T01CLNTEL) +
271 C '</td>' +
272 C '<td class="char">' +
273 C %trim(T01CLNFAX) +
274 C '</td>' +
275 C '</tr>' +
276 C Newline
277 C EXSR $WrStout
278 C eval Count = (Count + 1)
279 C eval LastRRN = (LastRRN + 1)
280 *
281 C/EXEC SQL
282 C+ FETCH C1 INTO
283 C+ :T01CLCCLI,
284 C+ :T01CLDRSO,
285 C+ :T01CLDLOC,
286 C+ :T01CLCPRV,
287 C+ :T01CLNPRT,
288 C+ :T01CLNTEL,
289 C+ :T01CLNFAX
290 C/END-EXEC
291 *
292 C enddo
293 *
294 C eval WrtDta = '</table>' + NewLine
295 C EXSR $WrStout
296 *
297 C ENDSR
298 ****************************************************************
299 * Write Footer Data to Browser
300 ****************************************************************
301 C $Footer BEGSR
302 *
303 C if (SQLCOD <> 0)
304 C eval WrtDta = '<i><b>End of Listing</b></i>'
305 C else
306 C MOVE LastRRN LastRRNx
307 C eval WrtDta = '<a href="' +
308 C %trim(W$PGM) + '.PGM' +
309 C '?LastRRN=' +
310 C %trim(LastRRNx) +
311 C '">Next Page</a>'
312 C endif
313 *
314 C EXSR $WrStout
315 *
316 C eval WrtDta = '</body></html>' +
317 C NewLine
318 C EXSR $WrStout
319 *
320 C ENDSR
321 ****************************************************************
322 * Call the Write Standard Output API
323 ****************************************************************
324 C $WrStout BEGSR
325 *
326 C eval WrtDtaLen = %len(%trim(WrtDta))
327 *
328 C CALLB 'QtmhWrStout'
329 C PARM WrtDta
330 C PARM WrtDtaLen
331 C PARM WPError
332 *
333 C ENDSR
334 ****************************************************************
335 * Call the CGI Parse API
336 ****************************************************************
337 C $CGIParse BEGSR
338 *
339 C CALLB 'QzhbCgiParse'
340 C PARM CmdStr
341 C PARM 'CGII0200' ParseFmt
342 C PARM TgtBuf
343 C PARM TgtBufLen
344 C PARM RespLen
345 C PARM WPError
346 *
347 C ENDSR
348 ****************************************************************
349 * Initialization Subroutine
350 ****************************************************************
351 C *INZSR BEGSR
352 *
353 * Do Not remove this portion of code. CGI programs are required to
354 * write header records followed by two new line characters in order
355 * to function properly. You may remove the Pragma, Expires1 and
356 * Expires2, but then your browser must handle caching.
357 *
358 C eval WrtDta = %trim(HTTPHeader) +
359 C NewLine + Pragma +
360 C NewLine + Expires1 +
361 C NewLine + Expires2 +
362 C NewLine + NewLine
363 C EXSR $WrStout
364 *
365 * Retrieve Query String Environment Variables.
366 *
367 C eval CmdStr = '-value LastRRN' + X'00'
368 C EXSR $CGIParse
369 *
370 * If the Response Length is zero, then no Query String Environment Variables
371 * existed. Set the value of LastRRNx to blank.
372 *
373 C if (RespLen > 0)
374 C X'25' SCAN TgtBuf:1 i 99
375 C eval LastRRNx = %trim(%subst(TgtBuf:1:i-1))
376 C else
377 C eval LastRRNx = ' '
378 C endif
379 *
380 C MOVE LastRRNx LastRRN
381 *
382 C ENDSR
* * * * F I N E O R I G I N E * * * *
