PA Saved on 09:49:50 Mar 02 2007 by DATATEL
* CREATE THE SAVEDLISTS NEEDED TO POPULATE AND REMOVE PERSONS FROM THE WEBADVISOR REGISTRY
*
CS
DATE
DISPLAY THIS PROCESS CREATES SAVEDLISTS FOR WEBADVISOR AND CAMPUS CRUISER
DISPLAY
DISPLAY WebAdvisor lists include those to create STUDENT, FAC/STAFF users
DISPLAY
DISPLAY
DISPLAY
SELECT ORG.ENTITY.ENV WITH OEE.RESOURCE SAVING OEE.RESOURCE
SSELECT PERSON
SAVE.LIST CURR.REGISTRY
DISPLAY COUNT ABOVE IS THE CURR.REGISTRY COUNT
DISPLAY
DISPLAY ***************************************
DISPLAY ST>DMIS BUILD DMI REGISTRY FOR STUDENTS
DATE
DELETE.LIST WEB.DMIS.STUDENT
DELETE.LIST WEB.DMIS.STUDENT.ADD
**********************************
*   CHANGE TERM SELECTION HERE   *
**********************************
* GETS STUDENTS REGISTERED FOR THESE TERMS
* KEEPING TWO TERMS BEHIND WILL PREVENT REMOVING USERS
*     THAT WILL REGISTER LATE
* TO MAKE IT EASY, REMOVE FORMER SPRING TERM WHEN NEXT SP STARTS.
*   THE SAME IS TRUE FOR FALL.
**********************************
DISPLAY
SSELECT STUDENTS BY STU.SORT.NAME WITH STU.TERMS = \
'2008SP' \
'2008SU' \
'2008FA' \
'2009SP' \
'2009SU' \
'2009FA'
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
** REMOVE ZZZ - Do not use record
SSELECT PERSON WITH @ID NE '0382224' REQUIRE.SELECT
SAVE.LIST WEB.DMIS.STUDENT
DISPLAY ******************************
DISPLAY *** Susan McRae - Summer 08 - Bridge to College students
DISPLAY ******************************
SELECT STUDENT.ACAD.CRED \
WITH STC.PERSON.ID = '0379501' '0291815' '0153468' '0376917' '0364190' '0159048' \
'0367191' '0378790' '0292046' \
SAVING UNIQUE STC.PERSON.ID
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
SAVE.LIST WEB.DMIS.STUDENT.BTC
DISPLAY ******************************
DISPLAY * COMBINE BTC AND CU STUDENT LISTS
DISPLAY ******************************
GET.LIST WEB.DMIS.STUDENT TO 1
GET.LIST WEB.DMIS.STUDENT.BTC TO 2
MERGE.LIST 1 UNION 2 TO 3
SAVE.LIST WEB.DMIS.STUDENT FROM 3
DISPLAY *********************************
DISPLAY SELECT CE STUDENTS FOR CC
DISPLAY *********************************
*** SYN # 13025 ENDS 4/27/09
*** SYN # 13132 13133 13134 13135 13137 13138 13140 13141 13142 ENDS 4/9/09
SELECT STUDENT.ACAD.CRED WITH XSTC.SEC.SYNONYM = \
'13025' \
'13132' '13133' '13134' '13135' '13137' '13138' '13140' '13141' '13142' \
WITH STC.CURRENT.STATUS = 'N' 'A' SAVING UNIQUE STC.PERSON.ID
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
SAVE.LIST WEB.DMIS.STUDENT.CE
******************************
* COMBINE CE AND CU STUDENT LISTS
******************************
GET.LIST WEB.DMIS.STUDENT TO 1
GET.LIST WEB.DMIS.STUDENT.CE TO 2
MERGE.LIST 1 UNION 2 TO 3
SAVE.LIST WEB.DMIS.STUDENT FROM 3
DISPLAY COUNT ABOVE IS WEB.DMIS.STUDENT
DISPLAY
DISPLAY
* REMOVE CURRENT REGISTRY USERS
* TAKE FULL LIST OF STUDENTS THAT SHOULD BE IN THE REGISTRY
* AND SUBTRACT THE LIST OF CURRENT REGISTRY USERS
* REMAINDER IS THE LIST OF NEW STUDENTS TO ADD
GET.LIST WEB.DMIS.STUDENT TO 1
GET.LIST CURR.REGISTRY TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMIS.STUDENT.ADD FROM 3
DISPLAY COUNT ABOVE IS WEB.DMIS.STUDENT.ADD
DATE
DISPLAY
DISPLAY
DISPLAY WEB.DMIS.STUDENT is list for all students in STU.TERMS select
DISPLAY WEB.DMIS.STUDENT.ADD is list for running ST>DMIS Build Students
DISPLAY
DISPLAY
DISPLAY ******************************************
DISPLAY * FACULTY-STAFF PROCESSING
DISPLAY **********************************************
DISPLAY CORE>DMIU BUILD DMI REGISTRY FOR FACULTY-STAFF
DATE
DELETE.LIST WEB.DMIU.FACSTAFF.ADD
DELETE.LIST WEB.DMIU.FACSTAFF
DELETE.LIST NEW.EMPLOYES
DELETE.LIST PAID.EMPLOYES
*******************************
*  CHANGE EMPLOYEE DATE HERE  *
*******************************
* SELECT ALL ACTIVE EMPLOYEES.
* THOSE PAID IN THE LAST YEAR
* AND THOSE HIRED IN THE LAST YEAR
**************************************
CLEARSELECT
SELECT PAYTODAT WITH PTD.CHECK.ADVICE.DATE GE '06/01/08' SAVING UNIQUE PTD.EMPLOYEE.ID
SSELECT HRPER WITH XCOA.FAC.STAFF NE 'W'
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
SAVE.LIST PAID.EMPLOYES
SSELECT EMPLOYES WITH EMPLOYES.ADD.DATE GE '06/01/08' \
OR WITH @ID = '0370660'
*************************
** ADDING BILL NEWMAN UNTIL PAID 3/31/09
* THESE WERE RETURNING EMPLOYEES AND THE REST OF THE PARAGRAPH
* WOULDN'T PICK THEM UP UNTIL THEY WERE PAID. WE NEEDED THEM IN NOW.
*************************
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
SAVE.LIST NEW.EMPLOYES
GET.LIST PAID.EMPLOYES TO 1
GET.LIST NEW.EMPLOYES TO 2
MERGE.LIST 1 UNION 2 TO 3
SAVE.LIST WEB.DMIU.FACSTAFF FROM 3
DISPLAY COUNT ABOVE IS WEB.DMIU.FACSTAFF
DISPLAY
DISPLAY
* REMOVE CURRENT REGISTRY USERS
GET.LIST WEB.DMIU.FACSTAFF TO 1
GET.LIST CURR.REGISTRY TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMIU.FACSTAFF.ADD FROM 3
DISPLAY COUNT ABOVE IS WEB.DMIU.FACSTAFF.ADD
DISPLAY
DISPLAY
DISPLAY WEB.DMIU.FACSTAFF is the full list of active Employes
DISPLAY WEB.DMIU.FACSTAFF.ADD is list for running CORE>DMIU Build Fac Staff
DISPLAY
* GET LIST OF FACSTAFF TO FIX OPERS RECORD AND CC TYPE
SETPTR 0,,,,,3,BANNER FIX.FACSTAFF,NHEAD,BRIEF,NOMESSAGE
GET.LIST WEB.DMIU.FACSTAFF
SELECT ORG.ENTITY SAVING UNIQUE OE.ORG.ENTITY.ENV REQUIRE.SELECT
SELECT ORG.ENTITY.ENV WITH OEE.OPERS NE 'WEBFAC' SAVING UNIQUE OEE.RESOURCE REQUIRE.SELECT
SELECT EMPLOYES WITH EMP.VIEW.CHK.ADV.ONLINE = 'Y' REQUIRE.SELECT
LIST PERSON BY LAST.NAME BY FIRST.NAME EVAL "LAST.NAME:', ':FIRST.NAME" FMT '30L' REQUIRE.SELECT HEADER "'TG'COLLEGE OF THE ALBEMARLE'G'PAGE   'PL'XCOA.WEB.CC.LISTS'G'CHANGE TO WEBFAC ON DRUS AND EMPLOYEE ON CC'G'      X???'L'" LPTR
!mail -t drountree@albemarle.edu < _HOLD_/FIX.FACSTAFF
***
*DISPLAY **********************************************
*DISPLAY * APPLICANT PROCESSING
*DISPLAY **********************************************
* THIS LIST OF STUDENTS WILL GET A DMI/WEBADVISOR ACCOUNT
DELETE.LIST WEB.DMIU.APPL
DELETE.LIST WEB.DMIU.APPL.ADD
DELETE.LIST WEB.DMIS.STUDENT.CE
*   BUT NOT A CAMPUS CRUISER ACCOUNT (UNLESS THEY ARE IN THE STUDENT LIST)
* GET LIST OF APPLICANTS WITH SAME START TERMS
* ADMISSIONS CAN EXTEND THE RANGE OF TERMS 
*SELECT APPLICANTS WITH APP.START.TERMS = \
*'2008SU' \
*'2008FA' \
*'2009SP' \
*'2009SU' \
*'2009FA' \
*BY APP.SORT.NAME
*SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
**Remove ZZZ-Do not user records
*SSELECT PERSON WITH @ID NE '0378851' REQUIRE.SELECT
*SSELECT PERSON WITH @ID NE '0382224' REQUIRE.SELECT
*SAVE.LIST WEB.DMIU.APPL
*DISPLAY COUNT ABOVE IS WEB.DMIU.APPL
DISPLAY *******************************************************
DISPLAY SELECT CE STUDENTS
DISPLAY *******************************************************
*** SYN # 12192 ENDS 2/22/09
*** SYN # 12285 ENDS 3/22/09
*** SYN # 12280 ENDS 5/15/09
*** SYN # 12476 ENDS 6/12/09
*** SYN # 12317 ENDS 4/21/09
*** SYN # 12348 ENDS 6/9/09
*** SYN # 11841 END 5/10/09
SELECT STUDENT.ACAD.CRED WITH XSTC.SEC.SYNONYM = \
'12192' \
'12285' '12280' \
'12476' '12317' '12348' \
'11841' \
WITH STC.CURRENT.STATUS = 'N' 'A' SAVING UNIQUE STC.PERSON.ID
SSELECT PERSON WITH NO DECEASED.DATE REQUIRE.SELECT
SAVE.LIST WEB.DMIS.STUDENT.CE
DISPLAY *****************************
DISPLAY  COMBINE CE AND APPL STUDENT LISTS
DISPLAY *****************************
GET.LIST WEB.DMIU.APPL TO 1
GET.LIST WEB.DMIS.STUDENT.CE TO 2
MERGE.LIST 1 UNION 2 TO 3
SAVE.LIST WEB.DMIU.APPL FROM 3
* TAKE THE FULL LIST OF APPLICANTS AND CE AND REMOVE THOSE ALREADY IN
* THE REGISTRY.THE REMAINDER ARE NEW APPLICANTS TO ADD
DISPLAY
GET.LIST WEB.DMIU.APPL TO 1
GET.LIST CURR.REGISTRY TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMIU.APPL.ADD FROM 3
DISPLAY
DISPLAY COUNT ABOVE IS WEB.DMIU.APPL.ADD
DATE
DISPLAY
DISPLAY *******************************************************
DISPLAY CORE>DDRU BUILD LIST FOR FACULTY-STAFF REGISTRY REMOVAL
DISPLAY *******************************************
DATE
DELETE.LIST WEB.DDRU.FACSTAFF
DELETE.LIST WEB.FACSTAFF.TMP
DELETE.LIST TEMP.DDRU
* AN INACTIVE EMPLOYEE IS ONE THAT HAS NOT BEEN PAID IN THE LAST YEAR
* AND ONE THAT WAS NOT NEW WITHIN THE LAST YEAR
SSELECT HRPER
SAVE.LIST WEB.FACSTAFF.TMP
GET.LIST WEB.FACSTAFF.TMP TO 1
GET.LIST WEB.DMIU.FACSTAFF TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST TEMP.DDRU FROM 3
* ONLY SELECT THOSE WITH CURRENT REGISTRY ACCOUNT
GET.LIST TEMP.DDRU TO 1
GET.LIST CURR.REGISTRY TO 2
MERGE.LIST 1 INTERSECTION 2 TO 3
SAVE.LIST TEMP.DDRU FROM 3
* REMOVE CURRENT STUDENTS FROM THE LIST
GET.LIST TEMP.DDRU TO 1
GET.LIST WEB.DMIS.STUDENT TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST TEMP.DDRU FROM 3
* REMOVE APPLICANTS FROM THE LIST
GET.LIST TEMP.DDRU TO 1
GET.LIST WEB.DMIU.APPL TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DDRU.FACSTAFF FROM 3
DISPLAY COUNT IS FROM WEB.DDRU.FACSTAFF
DISPLAY
DISPLAY
DISPLAY WEB.DDRU.FACSTAFF - list for running CORE>DDRU Remove Fac Staff
DISPLAY
DISPLAY ****************************
DISPLAY ST>DMRS Build list for Student Registry Removal
DISPLAY ***********************
DATE
DELETE.LIST WEB.DMRS.STUDENT
DELETE.LIST WEB.DMRS.TMP
*GET CURRENT REGISTRY LIST AND SUBTRACT OUT VALID STUDENTS
GET.LIST CURR.REGISTRY TO 1
GET.LIST WEB.DMIS.STUDENT TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMRS.TMP FROM 3
* TAKE REMAINING WEB USERS AND SUBTRACT OUT VALID APPLICANTS
GET.LIST WEB.DMRS.TMP TO 1
GET.LIST WEB.DMIU.APPL TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMRS.TMP FROM 3
* TAKE REMAINING WEB USERS AND SUBTRACT OUT FACULTY/STAFF
GET.LIST WEB.DMRS.TMP TO 1
GET.LIST WEB.DMIU.FACSTAFF TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMRS.TMP FROM 3
* TAKE REMAINING WEB USERS AND SUBTRACT OUT FORMER FACULTY/STAFF
GET.LIST WEB.DMRS.TMP TO 1
GET.LIST WEB.DDRU.FACSTAFF TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST WEB.DMRS.STUDENT FROM 3
* REMOVE GUEST, WEBCASHIER, AND DATATEL USERS FROM DELETE LIST
GET.LIST WEB.DMRS.STUDENT
SELECT PERSON WITH @ID NE '0372152' REQUIRE.SELECT
SELECT PERSON WITH @ID NE '0000001' REQUIRE.SELECT
SELECT PERSON WITH @ID NE '0384200' REQUIRE.SELECT
SAVE.LIST WEB.DMRS.STUDENT
DISPLAY
DISPLAY *********************************
DISPLAY The count above is the list of former students to be
DISPLAY removed from WebAdvisor, if there are students In it.
DISPLAY The list name is WEB.DMRS.STUDENT
DISPLAY *********************************
DISPLAY *********************************
DISPLAY *********************************
DISPLAY
DISPLAY CAMPUS CRUISER LISTS NOW RUNNING
DISPLAY
DISPLAY CC.STUDENT is the full student list for Campus Cruiser
DISPLAY CC.STUDENT.ADD is the list for adding students to Campus Cruiser
DISPLAY
DATE
* GET FULL LIST OF WEB STUDENTS AND SUBTRACT OUT THOSE ALREADY IN
* IP.USERS.WORKTO GET THOSE TO ADD
DELETE.LIST CC.STUDENT.ADD
DELETE.LIST CC.STUDENT
GET.LIST WEB.DMIS.STUDENT TO 1
SELECT IP.USERS.WORK WITH IUSRW.OPTIONS NE 'E' TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST CC.STUDENT.ADD FROM 3
DISPLAY COUNT ABOVE IS FROM CC.STUDENT.ADD
DISPLAY
DISPLAY
GET.LIST WEB.DMIS.STUDENT
SAVE.LIST CC.STUDENT
DISPLAY COUNT ABOVE IS FROM CC.STUDENT
DISPLAY
DISPLAY
DISPLAY
************************
DISPLAY CC.FACULTY is the full list of Faculty to Campus Cruiser
DISPLAY CC.FACULTY.ADD is the list for adding Faculty to Campus Cruiser
DATE
DISPLAY
DELETE.LIST CC.FACULTY.ADD
DELETE.LIST CC.FACULTY
SELECT FACULTY TO 1
GET.LIST WEB.DMIU.FACSTAFF TO 2
MERGE.LIST 1 INTERSECTION 2 TO 3
SAVE.LIST CC.FACULTY FROM 3
DISPLAY COUNT ABOVE IS FROM CC.FACULTY
DISPLAY
DISPLAY
GET.LIST CC.FACULTY TO 1
SELECT IP.USERS.WORK WITH IUSRW.OPTIONS NE 'E' TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST CC.FACULTY.ADD FROM 3
DISPLAY COUNT ABOVE IS FROM CC.FACULTY.ADD
DISPLAY
DISPLAY
*****************************
*****************************
DISPLAY
DISPLAY
DISPLAY CC.EMPLOYEE is the full list of Employees to Campus Cruiser
DISPLAY CC.EMPLOYEE.ADD is the list for adding Employees to Campus Cruiser
DISPLAY
DISPLAY
DATE
DELETE.LIST CC.EMPLOYEE.ADD
DELETE.LIST CC.EMPLOYEE
GET.LIST WEB.DMIU.FACSTAFF TO 1
GET.LIST CC.FACULTY TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST CC.EMPLOYEE FROM 3
DISPLAY COUNT FROM ABOVE IS FROM CC.EMPLOYEE
DISPLAY
DISPLAY
GET.LIST CC.EMPLOYEE TO 1
SELECT IP.USERS.WORK WITH IUSRW.OPTIONS NE 'E' TO 2
MERGE.LIST 1 DIFF 2 TO 3
SAVE.LIST CC.EMPLOYEE.ADD FROM 3
DISPLAY COUNT FROM ABOVE IS FROM CC.EMPLOYEE.ADD
DISPLAY
DISPLAY
DISPLAY
*****************************
*****************************
* BUILDING REMOVE LISTS FOR *
*   CAMPUS CRUISER          *
*****************************
* Expiring Campus Cruiser Users works this way
*
* For students, we take the WEB.DMRS.STUDENT list and update
* the IP.USERS.WORK file export option to 'E' as well as the export
* fields date operator and time to null
*
* For Employees/Faculty all WEB.DDRU.FACSTAFF are set to E in the
* IP.USERS.WORK file.
*
* THIS WILL OCCUR DURING THE NORMAL CCFT PROCESS
*
DISPLAY
DISPLAY Setting WEB.DMRS.STUDENT list of students to E in IP.USERS.WORK
DISPLAY
DATE
DELETE.LIST CC.STU.REM
DISPLAY
DISPLAY
* SETTING THOSE NEW STUDENTS TO DELETE BATCH INFO TO NULL
DISPLAY PROCESSING CAMPUS CRUISER REMOVE STUDENTS
GET.LIST WEB.DMRS.STUDENT
IF @SYSTEM.RETURN.CODE <= 0 THEN GO CC.FAC.REM
SELECT PERSON WITH @ID NE '0000001' TO 1
SELECT IP.USERS.WORK TO 2
MERGE.LIST 1 INTERSECTION 2 TO 3
SAVE.LIST CC.STU.REM FROM 3
GET.LIST CC.STU.REM
IF @SYSTEM.RETURN.CODE <= 0 THEN GO CC.FAC.REM
SELECT IP.USERS.WORK
IF @SYSTEM.RETURN.CODE <= 0 THEN GO CC.FAC.REM
SAVE.LIST CC.STU.REM
GET.LIST CC.STU.REM
MODIFY IP.USERS.WORK IUSRW.OPTIONS = 'E'
DATA Y
GET.LIST CC.STU.REM
MODIFY IP.USERS.WORK IUSRW.EXPORT.DATE = ''
DATA Y
GET.LIST CC.STU.REM
MODIFY IP.USERS.WORK IUSRW.EXPORT.TIME = ''
DATA Y
GET.LIST CC.STU.REM
MODIFY IP.USERS.WORK IUSRW.EXPORT.OPER = ''
DATA Y
SETPTR ,,,,,3,BANNER STUDENT.DELETE,NHEAD,BRIEF,NOMESSAGE
GET.LIST CC.STU.REM
LIST IP.USERS.WORK BY IUSRW.LAST.NAME BY IUSRW.FIRST.NAME ID.SUP \
@ID FMT "8R" IUSRW.LOGIN.ID FMT "25L" IUSRW.FIRST.NAME FMT "15L" \
IUSRW.LAST.NAME FMT "20L" IUSRW.USER.TYPE FMT "10L" LPTR \  
HEADER "'TG'COLLEGE OF THE ALBEMARLE'G'PAGE   'PL'XCOA.WEB.CC.LISTS'G'DELETING CAMPUSCRUISER ACCOUNTS FOR STUDENTS'G'      X???'L'"
!mail -t drountree@albemarle.edu < _HOLD_/STUDENT.DELETE
***********************************
***********************************
* REMOVING FACULTY/EMPLOYEES FROM CAMPUS CRUISER
CC.FAC.REM:
DISPLAY
DISPLAY PROCESSING CAMPUS CRUISER REMOVE FACULTY - EMPLOYEES
DATE
DELETE.LIST CC.FAC.TMP
DELETE.LIST CC.FACSTAFF.REM
SELECT IP.USERS.WORK WITH IUSRW.USER.TYPE = 'faculty' 'employee' AND WITH IUSRW.OPTIONS = ''
SAVE.LIST CC.FAC.TMP
GET.LIST CC.FAC.TMP TO 1
GET.LIST WEB.DDRU.FACSTAFF TO 2
MERGE.LIST 1 INTERSECTION 2 TO 3
SAVE.LIST CC.FACSTAFF.REM FROM 3
GET.LIST CC.FACSTAFF.REM
IF @SYSTEM.RETURN.CODE <= 0 THEN GO ACCT.REACT
MODIFY IP.USERS.WORK IUSRW.EXPORT.DATE = ''
DATA Y
GET.LIST CC.FACSTAFF.REM
MODIFY IP.USERS.WORK IUSRW.EXPORT.TIME = ''
DATA Y
GET.LIST CC.FACSTAFF.REM
MODIFY IP.USERS.WORK IUSRW.EXPORT.OPER = ''
DATA Y
GET.LIST CC.FACSTAFF.REM
MODIFY IP.USERS.WORK IUSRW.OPTIONS = 'E'
DATA Y
SETPTR 0,,,,,3,BANNER FACSTAFF.DELETE,NHEAD,BRIEF,NOMESSAGE
GET.LIST CC.FACSTAFF.REM
LIST IP.USERS.WORK BY IUSRW.LAST.NAME BY IUSRW.FIRST.NAME ID.SUP @ID FMT "8R" IUSRW.LOGIN.ID FMT "25L" IUSRW.FIRST.NAME FMT "15L" IUSRW.LAST.NAME FMT "20L" IUSRW.USER.TYPE FMT "10L" LPTR \
HEADER "'TG'COLLEGE OF THE ALBEMARLE'G'PAGE   'PL'XCOA.WEB.CC.LISTS'G'DELETING CAMPUSCRUISER ACCOUNT FOR FAC-STAFF'G'      X???'L'"
!mail -t drountree@albemarle.edu < _HOLD_/FACSTAFF.DELETE
*********************************
*********************************
ACCT.REACT:
*******************************
** CHANGE PREVIOUSLY EXPIRED ACCOUNTS WHO ARE NOW REALLY ACTIVE
DISPLAY
DISPLAY  PROCESSING RE-ACTIVATES
DATE
DISPLAY
SELECT IP.USERS.WORK WITH IUSRW.EXPORT.DATE NE ''  AND WITH IUSRW.EXPORT.DATE < IP.USERS.WORK.CHGDATE
IF @SYSTEM.RETURN.CODE <= 0 THEN GO DONE
SAVE.LIST CC.REACT
GET.LIST CC.REACT
MODIFY IP.USERS.WORK IUSRW.OPTIONS = ''
DATA Y
GET.LIST CC.REACT
MODIFY IP.USERS.WORK IUSRW.EXPORT.DATE = ''
DATA Y
GET.LIST CC.REACT
MODIFY IP.USERS.WORK IUSRW.EXPORT.TIME = ''
DATA Y
GET.LIST CC.REACT
MODIFY IP.USERS.WORK IUSRW.EXPORT.OPER = ''
DATA Y
SETPTR 0,,,,,3,BANNER CC.REACTIVATE,NHEAD,BRIEF,NOMESSAGE
GET.LIST CC.REACT
LIST IP.USERS.WORK BY IUSRW.LAST.NAME BY IUSRW.FIRST.NAME ID.SUP @ID FMT "8R" IUSRW.LOGIN.ID IUSRW.FIRST.NAME FMT "15L" IUSRW.LAST.NAME FMT "20L" IUSRW.USER.TYPE FMT "lOL" LPTR \
HEADER "'TG'COLLEGE OF THE ALBEMARLE'G' Page 'PL'XCOA.WEB.CC.LISTS'G'REACTIVATING CAMPUSCRUISER'G'      X???'LG'       ACCOUNTS FOR PREV EXPIRED ACCOUNTS'GL'"
!mail -t drountree@albemarle.edu < _HOLD_/CC.REACTIVATE
*************************************
*************************************
DONE:
XMT661
STOP.HERE:*