Re: VisualAge RPG Fish of a different color

["Kevin Loughran" <Kevin.Loughran@xxxxxxxxxxx>]

It looks as if it should work. I know that this in not an answer but whenever I 
read a local file in VARPG I do not use I specs. I read the record into a data 
structure. This works for me.

>>> jlangston@celsinc.com 02/12/02 05:32PM >>>
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
_______________________________________________
This is the CODE/400 Discussion & Support (CODE400-L) mailing list
To post a message email: CODE400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/code400-l
or email: CODE400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.

**************************************************************************************************
**Saucony, Inc.**

The contents of this email and any attachments are confidential.
It is intended for the named recipient(s) only.
If you have received this email in error please notify the system manager or  
the
sender immediately and do not disclose the contents to any one or make copies.

** eSafe scanned this email for viruses, vandals and malicious content **
**************************************************************************************************