Thanks Chuck.
Here is my code in a Define field (A3);
IF A_CODE EQ 'EMER' THEN '420' ELSE
IF A_CODE EQ 'AHM' THEN '420' ELSE
IF A_CODE EQ 'HSTU' THEN '420' ELSE
IF A_CODE EQ 'HSNT' THEN '420' ELSE
IF A_CODE EQ 'HSTN' THEN '420' ELSE
IF A_CODE EQ 'MED' THEN '420' ELSE
IF A_CODE EQ 'CMED' THEN '420' ELSE
IF A_CODE EQ 'MB' THEN '420' ELSE
IF A_CODE EQ 'MCBA' THEN '420' ELSE
IF A_CODE EQ 'MC' THEN '420' ELSE
IF A_CODE EQ 'NURS' THEN '420' ELSE
IF A_CODE EQ 'MEDX' THEN '420' ELSE
IF A_CODE EQ 'EMTP' THEN '420' ELSE
IF A_CODE EQ 'NURP' THEN '420' ELSE
IF A_CODE EQ 'RESP' THEN '420' ELSE
IF A_CODE EQ 'NURR' THEN '420' ELSE
IF A_CODE EQ 'ORT' THEN '420' ELSE
IF A_CODE EQ 'ACCT' THEN '430' ELSE
IF A_CODE EQ 'ACC' THEN '430' ELSE
IF A_CODE EQ 'AADJ' THEN '430' ELSE
IF A_CODE EQ 'BUAD' THEN '430' ELSE
IF A_CODE EQ 'ECA' THEN '430' ELSE
IF A_CODE EQ 'CIS' THEN '430' ELSE
IF A_CODE EQ 'CUL' THEN '430' ELSE
IF A_CODE EQ 'CULC' THEN '430' ELSE
IF A_CODE EQ 'ECD' THEN '430' ELSE
IF A_CODE EQ 'ECED' THEN '430' ELSE
IF A_CODE EQ 'EDUC' THEN '430' ELSE
IF A_CODE EQ 'BGEN' THEN '430' ELSE
IF A_CODE EQ 'HIS' THEN '430' ELSE
IF A_CODE EQ 'HRM' THEN '430' ELSE
IF A_CODE EQ 'CHRM' THEN '430' ELSE
IF A_CODE EQ 'DPRP' THEN '430' ELSE
IF A_CODE EQ 'ITGD' THEN '430' ELSE
IF A_CODE EQ 'DPM' THEN '430' ELSE
IF A_CODE EQ 'IMM' THEN '430' ELSE
IF A_CODE EQ 'MOB' THEN '430' ELSE
IF A_CODE EQ 'DPRN' THEN '430' ELSE
IF A_CODE EQ 'ITWD' THEN '430' ELSE
IF A_CODE EQ 'CSWP' THEN '430' ELSE
IF A_CODE EQ 'IMMC' THEN '430' ELSE
IF A_CODE EQ 'MOBC' THEN '430' ELSE
IF A_CODE EQ 'OAC' THEN '430' ELSE
IF A_CODE EQ 'PLG' THEN '430' ELSE
IF A_CODE EQ 'CPLG' THEN '430' ELSE
IF A_CODE EQ 'POL' THEN '430' ELSE
IF A_CODE EQ 'PSY' THEN '430' ELSE
IF A_CODE EQ 'SWO' THEN '430' ELSE
IF A_CODE EQ 'SOC' THEN '430' ELSE
IF A_CODE EQ 'WEB' THEN '430' ELSE
IF A_CODE EQ 'JOUR' THEN '450' ELSE
IF A_CODE EQ 'THEA' THEN '450' ELSE
IF A_CODE EQ 'COMM' THEN '450' ELSE
IF A_CODE EQ 'CW' THEN '450' ELSE
IF A_CODE EQ 'ENG' THEN '450' ELSE
IF A_CODE EQ 'GEN' THEN '450' ELSE
IF A_CODE EQ 'GLOS' THEN '450' ELSE
IF A_CODE EQ 'GRA' THEN '450' ELSE
IF A_CODE EQ 'LA' THEN '450' ELSE
IF A_CODE EQ 'PHO' THEN '450' ELSE
IF A_CODE EQ 'STU' THEN '450' ELSE
IF A_CODE EQ 'THEC' THEN '450' ELSE
IF A_CODE EQ 'EGR' THEN '460' ELSE
IF A_CODE EQ 'EGRT' THEN '460' ELSE
IF A_CODE EQ 'MNS' THEN '460' ELSE
IF A_CODE EQ 'HSCI' THEN '460' ELSE
IF A_CODE EQ 'ADVT' THEN '491' ELSE
IF A_CODE EQ 'AUT' THEN '491' ELSE
IF A_CODE EQ 'AUTC' THEN '491' ELSE
IF A_CODE EQ 'CPT' THEN '491' ELSE
IF A_CODE EQ 'CNC' THEN '491' ELSE
IF A_CODE EQ 'DDTC' THEN '491' ELSE
IF A_CODE EQ 'CAM' THEN '491' ELSE
IF A_CODE EQ 'CTEC' THEN '491' ELSE
IF A_CODE EQ 'CSUP' THEN '491' ELSE
IF A_CODE EQ 'ELT' THEN '491' ELSE
IF A_CODE EQ 'ELTC' THEN '491' ELSE
IF A_CODE EQ 'HVA' THEN '491' ELSE
IF A_CODE EQ 'IPT' THEN '491' ELSE
IF A_CODE EQ 'MTT' THEN '491' ELSE
IF A_CODE EQ 'MAN' THEN '491' ELSE
IF A_CODE EQ 'MPT' THEN '491' ELSE
IF A_CODE EQ 'PLB' THEN '491' ELSE
IF A_CODE EQ 'PLBC' THEN '491' ELSE
IF A_CODE EQ 'PCT' THEN '491' ELSE
IF A_CODE EQ 'SKTR' THEN '491' ELSE
IF A_CODE EQ 'TSTU' THEN '491' ELSE
IF A_CODE EQ 'WLD' THEN '491' ELSE 'N/A'
It works if I have only a few IFs. I think I might hit the limit.
WebFOCUS 8105m
Windows, All Outputs