PROC 0 ONLY() MSG SET RP = &STR()) SET LP = &STR(( IF MSG = &MSG. THEN DO $BROWSE IS03.IS03D001.IOFLIST FREE DS('IS03.IS03D001.IOFLIST') EXIT CODE(0) END /* ISPEXEC LIBDEF ISPPLIB ISPEXEC VGET (VSTSRVTI) SHARED SET TMPSRVTI = &STR(&VSTSRVTI.) IF &STR(&ONLY) ^= &STR() THEN GOTO ONLY&ONLY. CONTROL ASIS WRITE &B WRITE &B WRITE &B WRITE &B WRITE &B WRITE &B WRITE &B WRITE **** the clist $DMS has been invoked *** WRITE ONLY(1). DATASETS SCRATCHED BY DMS (WILL NOW BE + DISPLAYED) WRITE ONLY(2). DATASETS IN ERROR, NO DMS BACKUP DONE + (LATER) WRITE ONLY(3). DATASETS IN CONTENTION WITH DMS BACKUP + (LATER) WRITE ONLY(4). ALL DATASETS on SYSTEM when MIDILIST RAN + (LATER) WRITE ONLY(5). DEFERRED RESTORE ERROR LIST LATEST RUN + (LATER) WRITE ONLY(6). DEFERRED RESTORE CUMULATIVE ERROR/REPORT + (available) WRITE &B. WRITE FIND "&SYSUID" , assumes "DISPLAY CC" in + effect for browse WRITE &B. WRITE &B. ADDITIONAL INFORMATION CAN BE SEEN IN WRITE &B TSOMODEL.PUBLIC.TEXT USE ===> TSO MODELT * WRITE DMSTSO: Control of TSO packs by DMS; Standards, + Archival, Backups, Restores WRITE INFO035: DMS archive procedure for TESTDISK WRITE INFO036: DMS deferred restore of SYS5 datasets WRITE INFO042: DMS dataset user document and DMS Panel Usage WRITE SCRATCH: DMS/OS Jobs which automatically scratch data + sets from DASD. IF &STR(&ONLY) = 0 THEN GOTO ONLYDONE ONLY1: - SET &VSTSRVTI = &STR(SYS6.MIDILIST.DMSWARN) SET &DSNDESC = &STR(1-a DATASETS recently SCRATCHED BY + DMS ) SET &DSNDESC3 = &STR( &lp.The next BROWSE will + indicate reason.&rp. ) SET &DSNDESC4 = &STR( DATASETS SCRATCHED BY DMS -- FIND + &SYSUID.) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('SYS6.MIDILIST.DMSWARN') + PANEL(SYSBROB4) /* ---------- */ SET &VSTSRVTI = &STR(INTERNAL.LIBRARY.IV2B6505) SET &DSNDESC = &STR(1-b. REASONS why DATASETs were + SCRATCHED by DMS ) SET &DSNDESC3 = &STR(1-b. DATASETS SCRATCHED BY DMS -- FIND + 4 &SYSUID.) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('INTERNAL.LIBRARY.IV2B6505') + PANEL(SYSBROB3) IF &STR(&ONLY) = 1 THEN GOTO ONLYDONE ONLY2: - SET &VSTSRVTI = &STR(INTERNAL.LIBRARY.IV2B6502) SET &DSNDESC = &STR(2. FILES NOT BACKED UP BY DMS, DUE TO + ERRORS -- F 16 &SYSUID.) SET &DSNDESC3 = &STR( to identify a member to a TTR use + JCL in IS03.SHARE.CNTL(TTR&rp.) ISPEXEC VPUT (VSTSRVTI,DSNDESC,DSNDESC3) SHARED ISPEXEC BROWSE DATASET('INTERNAL.LIBRARY.IV2B6502') + PANEL(SYSBROB3) IF &STR(&ONLY) = 2 THEN GOTO ONLYDONE ONLY3: - SET &VSTSRVTI = &STR(INTERNAL.LIBRARY.IV2B6503) SET &DSNDESC = &STR(3. FILES ALREADY IN USE, DMS COULD NOT + BACK UP -- F 16 &SYSUID.) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('INTERNAL.LIBRARY.IV2B6503') + PANEL(SYSBROB2) IF &STR(&ONLY) = 3 THEN GOTO ONLYDONE ONLY4: - SET &VSTSRVTI = &STR(SYS6.MIDILIST.DMSUTIL) SET &DSNDESC = &STR(4. DMS - DMSUTIL dataset usage summary + -- F 44 &SYSUID.) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('SYS6.MIDILIST.DMSUTIL') + PANEL(SYSBROB2) IF &STR(&ONLY) = 4 THEN GOTO ONLYDONE ONLY5: - SET &VSTSRVTI = &STR(INTERNAL.LIBRARY.IV2A0301) SET &DSNDESC = &STR(5. DMS - ERROR LIST FROM LATEST + DEFERRED RESTORE) SET &DSNDESC3 = &STR(&lp.1&rp. dsn,reason scratched, + &lp.2&rp. failures, &lp.4&rp. current DiskDs) SET &DSNDESC4 = &STR(Contact xxx-xxxx for restores from + DMSxxx volumes) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('INTERNAL.LIBRARY.IV2A0301') + PANEL(SYSBROB4) IF &STR(&ONLY) = 5 THEN GOTO ONLYDONE GOTO ONLYDONE /* FORCED BYPASS OF AUTOMATIC ONLY(6) ONLY6: - SET DSNAME = 'INTERNAL.LIBRARY.IV2A0303' SET &VSTSRVTI = &STR($DMSB.TEMP) ALLOCATE DDNAME($DMSB) REUSE DSNAME(&VSTSRVTI) - LIKE(&DSNAME.) - NEW UNIT(TESTDISK) LIKE(&DSNAME) REUSE /* A LITTLE EXTRA WORK REQUIRED TO COPY BECAUSE /* IN PRODUCTION THE DATASET IS DISP=MOD COPY &DSNAME &VSTSRVTI NONUM FREE DS(&DSNAME) FREE DS(&VSTSRVTI) SET &DSNDESC = &STR(6. DMS - CUMMULATIVE ERROR/REPORT + DEFERRED RESTORE) SET &DSNDESC3 = &STR( LATEST MATERIAL IS AT END ===> + DOWN MAX) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED /* ISPEXEC BROWSE DATASET($DMSB.TEMP) PANEL(SYSBROB3) /* WILL USE EDIT INSTEAD BECAUSE IT IS A USER TEMPORARY DATASET ISPEXEC EDIT DATASET($DMSB.TEMP) PANEL(SYSEDDE3) MACRO($DMS6) CONTROL NOMSG DEL $DMSB.TEMP CONTROL MSG GOTO ONLYDONE ONLY7: - SET &VSTSRVTI = &STR(SYS6.MIDILIST.DMSUTIL) SET &DSNDESC = &STR(7. DMS - DMSUTIL DATASET USAGE BEFORE + DMS SCRATCHING) ISPEXEC VPUT (VSTSRVTI,DSNDESC) SHARED ISPEXEC BROWSE DATASET('SYS6.MIDILIST.DMSUTIL.EVENING') + PANEL(SYSBROB2) GOTO ONLYDONE /* FORCED BYPASS OF AUTOMATIC ONLY(7) ONLYDONE: - SET VSTSRVTI = &STR(&TMPSRVTI.) ISPEXEC VPUT (VSTSRVTI) SHARED IF X&ONLY ^= X THEN EXIT CODE(0) WRITE **** the clist $DMS has been invoked *** WRITE ONLY(1). DATASETS SCRATCHED BY DMS (HAS BEEN + VIEWED) WRITE ONLY(2). DATASETS IN ERROR, NO DMS BACKUP DONE (HAS + BEEN VIEWED) WRITE ONLY(3). DATASETS IN CONTENTION WITH DMS BACKUP (HAS + BEEN VIEWED) WRITE ONLY(4). DMS - DMSUTIL run showing all datasets when + MIDILIST ran WRITE in the morning or on the weekend (HAS BEEN + VIEWED) WRITE ONLY(5). DEFERRED RESTORE ERROR LIST LATEST RUN (HAS + BEEN VIEWED) WRITE --- the following is available by SPECIFIC request + only &STR(---) WRITE ONLY(6). DEFERRED RESTORE CUMULATIVE ERROR/REPORT + (available) WRITE &B. WRITE &B. ADDITIONAL INFORMATION CAN BE SEEN IN WRITE &B TSOMODEL.PUBLIC.TEXT USE ===> TSO MODELT * WRITE DMSTSO: Control of TSO packs by DMS; Standards, + Archival, Backups, Restores WRITE INFO035: DMS archive procedure for TESTDISK WRITE INFO036: DMS deferred restore of SYS5 datasets WRITE INFO042: DMS dataset user document and DMS Panel Usage WRITE SCRATCH: DMS/OS Jobs which automatically scratch data + sets from DASD. EXIT CODE(0)