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:*