RE: VisualAge RPG - Data Access

["Booth Martin" <Booth@xxxxxxxxxxxx>]

FPARTS IF E K DISK REMOTE    
C PSH_OK BEGACT PRESS FR_COST_I1
   *
C *START SETLL PARTS
C READ (e) PARTS 
C eval   %setatr('FR_COST_I1':'PNUM':'Text') = PNUM35
   *
C ENDACT 
 
 is how I would write it.

You say it compiles OK?  So it must reach the iSeries.  Otherwise it'd have
no idea what PNUM35 is.

As an experiment I might remove the K from the F spec and then 
C  1     chain (e) Parts 
instead of the setll and Read.

---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: Tuesday, October 07, 2003 3:58:23 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: VisualAge RPG - Data Access
 
Here is the F spec and the action subroutine. The file is on our iSeries
system and I have defined the server and the file on iSeries information
panel.
 
When I run the project in debug mode, I get the message - Cannot open input
stream for default. (Maybe this has something to do with the problem).
 
      FPARTS IF E K DISK REMOTE
 
      C PSH_OK BEGACT PRESS FR_COST_I1
       *
      C *START SETLL PARTS
      C READ PARTS 99
      C MOVE *IN99 IN99
      C MOVE PNUM35 PNUM
      C WRITE 'FR_COST_I1'
       *
      C ENDACT