USER = F$EDIT(F$GETJPI("","USERNAME")


Using Hyperterm, I can see this message flash briefly before the menu opens:

%DCL-W-ABSYMD, abbreviated symbol definition conflict - rename symbol

%DCL-W-UNDSYM, undefined symbol - check validity and spelling

 \USER\

The error message in regards to "USER" was due to the following line found in USERS2:[DPS30]LOGIN_COUNS.COM:


$ IF USER .EQS. "ADM_STUDENT" THEN GOTO BATEND

Since there is nothing in LOGIN_COUNS.COM that defines a variable named USER (prior to this command), it doesn't know what to do about it.  The following change was made:

$ !
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"COLLAPSE")
$ IF USER .EQS. "ADM_STUDENT" THEN GOTO BATEND

This has removed the error message from this users account when they log in, and any other accounts sharing the LOGIN_COUNS.COM.