RE: VisualAge RPG Fish of a different color

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Not sure, but maybe they aren't available in the debugger because they
aren't used anywhere, try referencing them in the program.  Also, a dow on
%eof shouldn't be used without a priming read, the %eof needs to be set by a
file operation that sets it.

Scott Mildenberger

> -----Original Message-----
> From: Jim Langston [mailto:jlangston@celsinc.com]
> Sent: Tuesday, February 12, 2002 3:32 PM
> To: 'code400-l@midrange.com'
> Subject: VisualAge RPG Fish of a different color
>
>
> Below is my entire VisualAge RPG Program.  I run it through
> debug and watch
> the variables BinNumber, AlwaysS, SKU, Descrip and Unknown,
> and they remain
> blank.  I set a break point on the Open Inventory line and F8
> through and
> see it reading the records in the file, yet my file variables
> still remain
> blank.  I am watching the variables by hitting Shift F9 and
> typing in the
> variable name.
>
> Is there something wrong with my program, or the way I'm watching the
> variables?
>
> This is my first VisualAge RPG Program, and it seems to be a
> bit different
> than AS/400 RPG.
>
>
> Regards,
>
> Jim Langston
>
>      H*EXE
>      H*NOMAIN
>
>      FInventory IF   F 1178        Disk    USROPN EXTFILE(DiskFile)
>
>      D DiskFile        S             19A   INZ('C:\TempInst\INV.TXT')
>
>      IInventory NS
>      I                             A    1    2  BinNumber
>      I                             A    3    3  AlwaysS
>      I                             A    4   13  SKU
>      I                             A   14   23  Descrip
>      I                             A   24 1178  Unknown
>
>       *
>      C     PSBDISPLAY    BEGACT    PRESS         FRA000000B
>       *
>      C                   Open      Inventory
>       *
>      C                   DoW       Not %EOF(Inventory)
>      C                   Read      Inventory
>      C                   EndDo
>       *
>      C                   Close     Inventory
>       *
>      C                   ENDACT