VisualAge RPG Fish of a different color

[Jim Langston <jlangston@xxxxxxxxxxx>]

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