RE: Writing Source Member to Web Page

Justin,

I just did a CRTSRCPF and bumped up the size for the record length.

Second thought, right or wrong, I did not compile my subprocedures,
I just bring them in as copy members - as I said, right or wrong,
it works for me here.

HTH

Mark



-----Original Message-----
From: web400-admin@midrange.com [mailto:web400-admin@midrange.com]On
Behalf Of Justin Houchin
Sent: Wednesday, April 24, 2002 7:33 AM
To: web400@midrange.com
Subject: Re: [WEB400] Writing Source Member to Web Page


Mark,
    When i go to compile my Subprocedure, I get the compilation error
message: External description not found for file specified as externally
described; file ignored.  I believe that I have created my QHTMLSRC file
wrong. Can you tell me how you created your file?


Thanks,

Justin Houchin
Programmer
Reliatek, Inc
jhouchin9@charter.net

----- Original Message -----
From: "Mark A. Manske" <mmanske@minter-weisman.com>
To: <web400@midrange.com>
Sent: Wednesday, April 24, 2002 7:19 AM
Subject: RE: [WEB400] Writing Source Member to Web Page


> Should not be anything special, do you have the library in your lib list
> where you created the source physical file?
>
> Here is also a copy of my subprocedures; tweaked from what Brad shows
> in his book to make my specific life easier with regards to how I
> store the "static" html code;
> I know there are some "cooler" ways to do this, but I was in a
> hurry, and fell into familiar habits, and just have not had the
> time since V5R1 upgrade, let alone after I really understood
> what I was doing to go back and "fix" the code - oh well this
> gives you the general idea.
>
> I "retrieve" both these source members via a /copy.
> I also tend to just put them all in my cgi programs if I use them
> or not, just more of a "standard" in case for some reason I decide
> to use a function later on, and don't have to go through the
> embarrassment of the compile bombing because I forgot to copy in
> the subprocedure(s).
>
>
> *//////////////////////////////////////////////////////////////*
> * (#WrtSrcMbr) Write data file member to HTML form             *
> *                                                              *
> * Use: #WrtSrcMbr(Library  : File  : Member)                   *
> *                                                              *
> *//////////////////////////////////////////////////////////////*
>  #WrtSrcMbr      B                   EXPORT
> *--------------------------------------------------------------*
>  #WrtSrcMbr      PI
>   Lib                          10    VALUE
>   File                         10    VALUE
>   SrcMbr                       10    VALUE
>
>  NewLine         C                   CONST(X'15')
>  pos             S              5U 0
>  pos2            S              5U 0
> D WrtDta          S          20480
> D  QCmdCmd        S            512    INZ
> D  QCmdLength     S             15  5 INZ(%size(QCmdCmd))
>  *--------------------------------------------------------------*
> C                   if        (Lib = ' ')
> c                   eval      Lib = '*LIBL'
> c                   endIF
>
> C                   eval      QCmdCmd = 'OVRDBF FILE'    +
> C                                       '(QHTMLSRC) '    +
> C                                       'TOFILE('        +
> C                                       %TRIM(LIB) + '/' +
> C                                       %TRIM(FILE) +
> C                                       ') MBR('         +
> C                                       %TRIM(SRCMBR) + ')'
> C                   CALL      'QCMDEXC'
> C                   PARM                    QCmdCmd
> C                   PARM                    QCmdLength
>
> c                   open      QHTMLSRC
> C                   READ      QHTMLSRC
>
> C                   DOW       (NOT *IN69)
> C                   EVAL      POS = %scan('?userid="':SRCDTA)
> c                   if        POS = *zero
> C                   eval      wrtdta = srcdta + newline
> c                   else
> C                   eval      pos  = pos + 7
> C                   eval      pos2 = pos + 1
> C                   eval      wrtdta = %subst(srcdta:1:pos) +
> C                             %trim(USERID) +
> C                                      %subst(srcdta:pos2)  +
> C
> c                   endif
> c                   callp     #wrstout(wrtdta)
> C                   READ      QHTMLSRC
> c                   endDO
>
> c                   CLOSE     QHTMLSRC
>
>  *-----------------------------------------------
> P #WrtSrcMbr      E
>
>
>
> FQHTMLSRC  IF   E             DISK    USROPN RENAME(QHTMLSRC:HTMLSRC)
> D #WrtSrcMbr      PR
> D   PR_Lib                      10    VALUE
> D   PR_File                     10    VALUE
> D   PR_SrcMbr                   10    VALUE
>
>
> HTH some more.
> Mark
>
>
> -----Original Message-----
> From: web400-admin@midrange.com [mailto:web400-admin@midrange.com]On
> Behalf Of Justin Houchin
> Sent: Wednesday, April 24, 2002 6:38 AM
> To: web400@midrange.com
> Subject: Re: [WEB400] Writing Source Member to Web Page
>
>
> I have created the text file Qhtmlsrc. But my subprocedure gets a
> compilation error because it doesn't see the text file external
description.
> Is there some way of compiling the text file??
>
>
>
>
> _______________________________________________
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/web400
> or email: WEB400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.
>


_______________________________________________
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
To post a message email: WEB400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/web400
or email: WEB400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.