PARM ACCOUNT_NAME
# SESSACCT.XEQ - CHECKS FOR LOGGED ON SESSIONS.
# Jim Fennell - InterPay inc.
SETVAR SESSACCT_SESSIONSON FALSE
PURGE SESSACFL,TEMP > $NULL
BUILD SESSACFL;REC=-80,,F,ASCII;DISC=10000;TEMP;MSG
SHOWJOB JOB=@.!ACCOUNT_NAME > SESSACFL
SETVAR SESSACCT_EOF FINFO("SESSACFL","EOF")
SETVAR SESSACCT_LINENUM 0
WHILE SESSACCT_LINENUM < SESSACCT_EOF AND NOT SESSACCT_SESSIONSON
   SETVAR SESSACCT_LINENUM SESSACCT_LINENUM + 1
   INPUT SESSACCT_LINE < SESSACFL
   IF "![LFT(SESSACCT_LINE,2)]" = "#S" THEN
      SETVAR SESSACCT_SESSIONSON TRUE
   ENDIF
ENDWHILE
IF SESSACCT_SESSIONSON THEN
   ECHO There are sessions currently logged on in the !ACCOUNT_NAME account
ELSE
   ECHO There are NO sessions currently logged on in the !ACCOUNT_NAME account
ENDIF
DELETEVAR SESSACCT_@
PURGE SESSACFL,TEMP > $NULL