I am running a program in Mainframe FOCUS, Release 7.1.1 that extracts data from several files into their respective HOLD files and then I join the HOLD files to create a combined file. However, when I run the FEX I get the following error message:



TABLE FILE XXXANVC
PRINT
STU_ID
MM301
COL
MM450
MM452
RB110
ERROR AT OR NEAR LINE 212 IN PROCEDURE APPLYTX FOCEXEC
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: RB110
BYPASSING TO END OF COMMAND
RB120
RB205A
RB225A


I can't figure this for the life of me!

Here is my code:

TABLE FILE MMFILE
-*
PRINT
-*
STU_ID
MM301 AS MM301
MM320 AS COL
MM450 AS MM450
MM452 AS MM452
-*
WHERE MM450 EQ 'CC'
WHERE MM301 EQ '&TERM1' OR '&TERM2' OR '&TERM3' OR '&TERM4'
-*
BY STU_ID
-*
ON TABLE HOLD AS XXXA&INSTX
-*
END
-*
DEFINE FILE RBFILE
RB205A /A05 = IF RB205 EQ 'ACCUP' THEN RB205 ELSE ' ';
RB225A /P03 = IF RB205 EQ 'ACCUP' THEN RB225 ELSE 0;
RB230A /P03 = IF RB205 EQ 'ACCUP' THEN RB230 ELSE 0;
RB235A /P03 = IF RB205 EQ 'ACCUP' THEN RB235 ELSE 0;
RB240A /P03 = IF RB205 EQ 'ACCUP' THEN RB240 ELSE 0;
RB245A /P03 = IF RB205 EQ 'ACCUP' THEN RB245 ELSE 0;
RB250A /P03 = IF RB205 EQ 'ACCUP' THEN RB250 ELSE 0;
END
-*
TABLE FILE RBFILE
-*
PRINT
-*
STU_ID
RB110
RB120
RB205A
RB225A
RB230A
RB235A
RB240A
RB250A
-*
WHERE RB120 IS-FROM &HSGRADT1 TO &HSGRADT2
-IF &HS1 EQ 'ALL' GOTO ENDB;
WHERE RB110 EQ '&HS1' OR '&HS2' OR '&HS3' OR '&HS4'
OR '&HS5' OR '&HS6' OR '&HS7' OR '&HS8'
OR '&HS9' OR '&HS10' OR '&HS11' OR '&HS12'
OR '&HS13' OR '&HS14' OR '&HS15' OR '&HS16'
-ENDB
-*
BY STU_ID
-*
ON TABLE HOLD AS XXXB&INSTX
-*
END
-*
JOIN STU_ID IN XXXA&INSTX TO STU_ID IN XXXB&INSTX AS MMRB
-*
TABLE FILE XXXA&INSTX
-*
PRINT
-*
STU_ID
MM301
COL
MM450
MM452
RB110 <==== This is where I get the error message
RB120
RB205A
RB225A
RB230A
RB235A
RB240A
RB250A
-*
BY STU_ID
-*
WHERE RB120 IS-FROM &HSGRADT1 TO &HSGRADT2
-IF &HS1 EQ 'ALL' GOTO ENDD;
WHERE RB110 EQ '&HS1' OR '&HS2' OR '&HS3' OR '&HS4'
OR '&HS5' OR '&HS6' OR '&HS7' OR '&HS8'
OR '&HS9' OR '&HS10' OR '&HS11' OR '&HS12'
OR '&HS13' OR '&HS14' OR '&HS15' OR '&HS16'
-ENDD
-*
ON TABLE HOLD AS XXXC&INSTX
-*
END


Thanks to all who respond in advance. I've done joins like this before, and they have always worked just fine.

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

Two things. First, why do you have STU_ID twice in your tables ?
Second, add this code after you create the table XXXB&INSTX.

? HOLD XXXB&INSTX

This will enable you to see what fields are in your table.

Hi, RSquared,

I have the STU_ID in there twice because I let that one slip by me. I'll put the ? HOLD code in as you suggested and see what I get.

I have a long meeting to attend in 15 min, so most likely won't be able to correspond more today....just wanted to let uou know.

Thanks!

If RB110 is an ALIAS (rather than a FIELDNAME) in RBFILE, that would do it.

If RB110 is an alias as j.g. suggests, here's the smart@s$ solution I found on Tech Support:

Unable to HOLD Alias as fieldname in HOLD file

It would be nice to preserve the db alias in a hold file.

I figured out how to fix the problem. When I was creating my hold file, on the line I had that said PRINT RB110 as RB110, I put quotes around the RB110, so the line now read PRINT RB110 AS 'RB110' and that worked.

Which brings up another question....why do you need quotes at that particular point?

In any case, thank you to all who replied.