× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.