RE: Moving Record Format to Data Structure

When you read  SE200H1, you'll want to read it INTO the DS

(put SE200H1DS in the result field)

( I think  )


Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





"Cate, Tony (Alliance)" <JACate@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/08/2006 01:40 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Moving Record Format to Data Structure






Add:

0059.00 D SE200H1DS     E Ds                  ExtName(SE2001H1)
PREFIX(hst)

When you read SE200H1, the record will be in SE200H1DS. Then you can
assign SE200H1DS to SavedRecord:

SavedRecord = SE200H1DS;

Tony

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jonathan Mason
Sent: Friday, December 08, 2006 12:44 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: Moving Record Format to Data Structure

I have a need to store the contents of a file record to determine
changes
and have defined an externally described data structure based on the
file.
However, when I compile my module I receive compile errors telling me
that
the operand is not allowed.  I've searched the archives and threads
there
give the impression that it can be done using either Eval or Move.  I've
tried both in my code and get different compile errors for each (see
code
snippets below).

Does anybody have any suggestions as to what I'm doing wrong, or am I
wrong
in thinking I can do what I want this way.

Thanks

Jonathan

FMT FX
FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++++++++++++++++++
+++C
omments++++++++++++
0025.00 FSE2001H1  IF   E           K Disk    Rename(SE1001RH :
SE2001H1R)

0026.00 F                                     Prefix(hst)

0027.00 F*   User Master History by User ID, Update Date, Update Time


FMT D
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
+++C
omments++++++++++++
0058.00 D SavedRecord   E Ds                  ExtName(SE2001H1)
Prefix(sav)


FMT CX
CL0N01Factor1+++++++Opcode&ExtExtended-factor2++++++++++++++++++++++++++
+++C
omments++++++++++++
0339.00 C                   Eval      SavedRecord = SE2001H1R

0340.00 C                   MoveL     SE2001H1R     SavedRecord


*RNF7414 30   1199 033900  Operand is not allowed in an expression.

*RNF7260 30   1200 034000  The Factor 2 operand SE2001H1R is not valid
for
the 
                           specified operation.