I'm trying to put 3 Access types in the ABCGRP, but when I run a report to list the ABCGRP, I only get the AAs. How do I code my form to include AA BB and CC in ABCGRP?

ACSTYPE/A5=IF EDIT(ACCESS,'9') EQ 'M' OR 'O'
THEN 'MGR' ELSE
IF ACCESS EQ 'AA' OR 'BB' OR 'CC'
THEN 'ABCGRP'
ELSE DECODE ACCESS
('XX' 'Admin'
'YY' 'REPS'
'XY' 'SUP'
'ZZ' 'REC'
'XZ' 'X_MGR
ELSE '** Missing **');
END

-first db, your field size has to be big enough to hold your largest element. In your case A5 wasn't big enough to hold the '** Missing **' value. Then you might enjoy this rewrite:
ACSTYPE/A13=IF ACCESS LIKE 'M_' OR 'O_' THEN 'MGR' ELSE
IF ACCESS EQ 'AA' OR 'BB' OR 'CC'
THEN 'ABCGRP'
ELSE DECODE ACCESS
('XX' 'Admin'
'YY' 'REPS'
'XY' 'SUP'
'ZZ' 'REC'
'XZ' 'X_MGR'
ELSE '** Missing **');
END
-* you might enjoy this rewrite
-* ..good eyes John, thanks

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

Thanks for the reply Susannah, my field size was a typo, it should have been set to A16. I have a report that prints by the decoded field, the problem is that the list is not picking up the BB and CC in the ABCGRP, only the AA. I checked over my form and tried to set the value to be any of the 3,(value="AA, BB, CC") and (value=ABCGRP) but it still does not work. I'll keep searching, there must be an error else where in the scheme of things. I like the rewrite and will use it. Thanks for the quick response.

No ending quote on X_MGR

I tried this in R714 and it works fine:

DEFINE FILE EMPDATA
CTR/I5 = IF LAST CTR EQ 9 THEN 1 ELSE LAST CTR + 1;
ACCESS/A2 = DECODE CTR ( 1 'AA' 2 'BB' 3 'CC' 4 'XX' 5 'YY' 6 'XY'
7 'ZZ' 8 'XZ' 9 'M1');

ACSTYPE/A15=IF EDIT(ACCESS,'9') EQ 'M' OR 'O'
THEN 'MGR' ELSE
IF ACCESS EQ 'AA' OR 'BB' OR 'CC'
THEN 'ABCGRP'
ELSE DECODE ACCESS
('XX' 'Admin'
'YY' 'REPS'
'XY' 'SUP'
'ZZ' 'REC'
'XZ' 'X_MGR'
ELSE '** Missing **');
END
TABLE FILE EMPDATA
PRINT CTR ACCESS
BY ACSTYPE
BY PIN
END

What is the format of your ACCESS field? Have you printed it out along with the field you are creating? What do you get for the BB and CC fields.

And finally, try something simple like:
IF (ACCESS EQ 'AA' OR 'BB' OR 'CC')...

Why not make it simpler by removing the IF altogrether?

ACSTYPE/A15=IF EDIT(ACCESS,'9') EQ 'M' OR 'O'
THEN 'MGR' ELSE
DECODE ACCESS
('AA' 'ABSGRP'
'BB' 'ABCGRP'
'CC' 'ABCGRP'
'XX' 'Admin'
'YY' 'REPS'
'XY' 'SUP'
'ZZ' 'REC'
'XZ' 'X_MGR'
ELSE '** Missing **');