I am trying to use -READ to bring in values from a hold file and use them in define, and
ultimately a report (like the mainframe days, when we didn't have fancy tools like a
synonym editor!).

[CODE]
TABLE FILE XYZ1
" GET ALL THE RDDT DATA "
" "
PRINT
RDDT
BY RLEN

IF RECORDLIMIT EQ 2
ON TABLE HOLD AS XYZALL FORMAT ALPHA
END
-RUN

-SET &ALLX = &LINES;
-SET &ACT = 1;
-REPEAT ALL_LOOP1 &ALLX TIMES

-READ XYZALL &ALEN.I5. &ARDX.A120.
-TYPE REC #&ACT &ARDX

-SET &ZLEN = &FLEN+0;
-SET &FMT = A|&ZLEN;
-SET &TARDX = TRUNCATE(&ARDX);
-TYPE TARDX = &TARDX

DEFINE FILE XYZALL
RDDT1/&FMT.EVAL = &TARDX.EVAL;
END
-*GOTO ZORO

TABLE FILE XYZALL
HEADING CENTER
"HERE IS THE NEW FIELD"
""
PRINT
RDDT1
END
-RUN

-ZORO
-SET &ACT = &ACT + 1;

-ALL_LOOP1

-EXIT

An expected value for the RDDT1 field is: E64NES4Y001. An expected value for the &FLEN would be 11.

I use the &FLEN field to determine the size of the RDDT1 field to scale it down to its actual size from its mfd-defined size of A120V,

However, when I run it I get these errors:

0 ERROR AT OR NEAR LINE 74 IN PROCEDURE carloop.fexFOCEXEC *
(FOC258) FIELDNAME OR COMPUTATIONAL ELEMENT NOT RECOGNIZED: E64NES4Y001
0 ERROR AT OR NEAR LINE 83 IN PROCEDURE carloop FOCEXEC *
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: RDDT1
BYPASSING TO END OF COMMAND


Anyone have any suggestions?

Thanks,

Tom

This message has been edited. Last edited by: Tomsweb,

Turn ECHO on and rerun to see what is happening.

-SET &ECHO=ALL;

Your database XYZALL does it have real fields ?
If so, you need to connect your defined field to one of these fields. Else this is not going to work.
Try to use CAR instead.

quote:

DEFINE FILE XYZALL
RDDT1/&FMT.EVAL = &TARDX.EVAL;
END

Please try:

DEFINE FILE XYZALL
RDDT1/&FMT = '&TARDX';
END
or
DEFINE FILE XYZALL
RDDT1/&FMT = &TARDX.QUOTEDSTRING;
END

The issue is that &TARDX is not within single quotes and will be treated as a field name. Within quotes it becomes a variable.

The EVAL is only required under a few circumstances within Dialogue Manager. Mostly it is over used.

As an aside, use NOCLOSE on your -READ otherwise you will re-read the first record; the -RUN in the REPEAT loop closes the file XYZALL.

I tried this and it worked.

DEFINE FILE XYZALL
RDDT1/&FMT = &TARDX.QUOTEDSTRING;
END

Thanks!