Re: WebFacing: Is this really Heaven? NO, it's hell!!!!

Hello Joe,

You wrote:
>A single version.  We think it's important that your developers be able to
>test the programs using an interactive 5250 session, if they desire.

I need a picture -- so show me the code.  (Is "Show me" a Minnesotan or
Missouran (sp?) trait?)

If I have a standard RPG III display file processing loop like:

      * Display the screen until user requests exit
B1   C           EXIT      DOUEQ$YES
      *   Display the static parts of the screen
     C                     WRITEOBJHDR
     C                     WRITEOBJOPT
     C                     WRITEOBJFKEY
      *   Display program messages - OS/400 does the hard work
     C                     WRITEERRCTL
      *   If we have object list entries to display
B2   C           LSTCNT    IFGT *ZERO
      *     Display the filled SFL and wait for user action
     C                     SETON                     9192   SFLDSP
SFLDSPCTL
     C                     EXFMTOBJCTL1                     First SFL
     C                     SETOF                     9192   SFLDSP
SFLDSPCTL
      *   . . . otherwise . . .
X2   C                     ELSE
      *     Display 'no objects' message
     C                     SETON                       92   SFLDSPCTL
     C                     WRITEOBJCTL1                     First SFL
     C                     EXFMTOBJNUN                      No objects
     C                     SETOF                       92   SFLDSPCTL
E2   C                     END                              LSTCNT > *ZERO
      *
E1   C                     END                              EXIT U= $YES

What will that look like after it has been run through your conversion
process?  That is, what happens to the WRITE and EXFMT statements?

Regards,
Simon Coulter.

--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------