-*
-*  THE DEFINED FIELDS RELATE TO THE STUDENT NAME AS FOLLOWS
-*     TMP_NAME - TEMPORARY FIELD
-*     FMN_NAME - FIRST/MIDDLE NAME
-*     FST_NAME - FIRST NAME (OR INITIAL)
-*     MDL_NAME - MIDDLE NAME (OR INITIAL)
-*     LST_NAME - LAST NAME
-*     SFX_NAME - SUFFIX TO NAME (E.G. JR., SR., IV, ETC.)
-*     FUL_NAME - FULL NAME (FIRST, MIDDLE, LAST, SUFFIX)
-*
-*  NOTE: CAUTION SHOULD BE USED WITH FIRST/MIDDLE NAMES. IF THE STUDENT
-*        HAS A TWO WORD FIRST/MIDDLE NAME, THE PARSING ROUTINE WILL NOT
-*        GIVE THE DESIRED RESULTS (E.G. A NAME OF "SMITH, MARY ANN BETH"
-*        WOULD DISPLAY FROM FST_NAME AS "MARY", MDL_NAME AS "ANN". 
-*        FUL_NAME WILL BE CORRECT.
-*
TMP_NAME/A32=GETTOK(STU_NAME,32,2,',',32,TMP_NAME);
SFX_NAME/A5=GETTOK(STU_NAME,32,3,',',5,SFX_NAME);
FMN_NAME/A32=LJUST(32,TMP_NAME,FMN_NAME);
FST_NAME/A32=GETTOK(FMN_NAME,32,1,' ',32,FST_NAME);
MDL_NAME/A32=GETTOK(FMN_NAME,32,2,' ',32,MDL_NAME);
LST_NAME/A32=GETTOK(STU_NAME,32,1,',',32,LST_NAME);
EXPNDNME/A72=FMN_NAME || (' ' | LST_NAME | ' ') || SFX_NAME || '*';
CMPRSNME/A32=GETTOK(EXPNDNME,66,1,'*',32,CMPRSNME);
FUL_NAME/A32=LJUST(32,CMPRSNME,FUL_NAME);
-*
-*

This page hosted by Get your own Free Homepage