//MVSMODS1 JOB 527TEC000S0003,TEC,CLASS=0,MSGCLASS=1,PRTY=10, 00000100 // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 00000200 //* GOT TO ++++ FOR CHECKING ON . AND ALSO ++++ * 00000300 //* AT 1600 1-270 271-END FULL REEL 280 * 00000400 //* ADD INFORMATION ABOUT THE DUMP FORMATTOR AND IMS * 00000500 //* STEP000 = MD 2059100 JCL CREAT = MD 450600 * 00000600 //* FILE 01 IS RECFM=FB,LRECL=80,BLKSIZE=32720 * 00000700 //* PF 26.5 T03220 T03228 * 00000800 //***SECTION INFORMATION SECTION * 00000900 //******************************************************************* 00001000 //* * 00001100 //* I N F O R M A T I O N S E C T I O N * 00001200 //* * 00001300 //******************************************************************* 00001400 //* * 00001500 //* ******************** * 00001600 //* * VERSION 07-05-85 * * % 00001700 //* ******************** * 00001800 //* * VERSION # 249 * * % 00001900 //* ******************** * 00002000 //* * 00002100 //* FOR A COPY OF THESE MODIFICATIONS * 00002200 //* PLEASE SEND ( PRE-PAID ) A FULL 2400 FOOT REEL * 00002300 //* -------- ---- ---- * 00002400 //* * 00002500 //* OR A 3480 TAPE CARTRIDGE * 00002600 //* - ---- ---- --------- * 00002700 //* * 00002800 //* **** NORMAL TURN-AROUND TIME IS 2 TO 4 WEEKS **** * 00002900 //* * 00003000 //* #### #### * 00003100 //* #### AND #### * 00003200 //* #### #### * 00003300 //* #### $30.00 AND A MAILING LABEL #### * 00003400 //* #### #### * 00003500 //* #### FOR #### * 00003600 //* #### #### * 00003700 //* #### RETURN POSTAGE AND HANDLING #### * 00003800 //* #### #### * 00003900 //* #### ( NO PURCHASE ORDERS PLEASE ) #### * 00004000 //* #### #### * 00004100 //* #### IF SHIPPING FROM OUT OF THE #### * 00004200 //* #### UNITED STATES OF AMERICA #### * 00004300 //* #### PLEASE SHIP BY MAIL #### * 00004400 //* #### AND PUT THE PROPER CUSTOM'S #### * 00004500 //* #### DECLARATION TAGS ON #### * 00004600 //* #### #### * 00004700 //* #### ANY AND ALL PACKAGES THAT #### * 00004800 //* #### REQUIRE A TRIP TO THE AIR- #### * 00004900 //* #### PORT WILL BE REFUSED AND #### * 00005000 //* #### SENT BACK TO THE SENDER #### * 00005100 //* #### #### * 00005200 //* #### ALL TAPES WILL BE RETURNED #### * 00005300 //* #### VIA THE POSTAL SERVICE OR #### * 00005400 //* #### U.P.S. THERE WILL BE NO #### * 00005500 //* #### EXCEPTIONS TO THIS RULE #### * 00005600 //* #### EXCEPT IF YOU COME AND #### * 00005700 //* #### PICK IT YOURSELF #### * 00005800 //* * 00005900 //* T O * 00006000 //* * 00006100 //* ARNOLD CASINGHINO * 00006200 //* CONNECTICUT BANK & TRUST COMPANY * 00006300 //* TECHNICAL SUPPORT SECTION F04L * 00006400 //* 99 FOUNDERS PLAZA * 00006500 //* EAST HARTFORD, * 00006600 //* CONNECTICUT 06108-3292 * 00006700 //* * 00006800 //* **** NORMAL TURN-AROUND TIME IS 2 TO 4 WEEKS **** * 00006900 //* * 00007000 //* * 00007100 //* MY DIRECT LINE 1-203-244-5495 ( SUNDAY THRU THURSDAY ) * 00007200 //* O R * 00007300 //* DEPARTMENT LINE 1-203-244-4657 ( SUNDAY THRU THURSDAY ) * 00007400 //* O R * 00007500 //* DEPARTMENT LINE 1-203-244-4419 ( SUNDAY THRU THURSDAY ) * 00007600 //* O R * 00007700 //* COMPUTER ROOM 1-203-244-4470 ( SUNDAY ONLY ) * 00007800 //* * 00007900 //* 7.00 A.M. - 3.00 P.M. ( EASTERN TIME ZONE ) * 00008000 //* ( SUNDAY - THURSDAY ) * 00008100 //* * 00008200 //* SHARE INSTALLATION CODE IS CBT * 00008300 //* * 00008400 //* GUIDE INSTALLATION CODE IS EEQ * 00008500 //* * 00008600 //* YOU DO NOT HAVE TO BE A SHARE OR GUIDE * 00008700 //* INSTALLATION TO OBTAIN A COPY OF THIS TAPE * 00008800 //* * 00008900 //******************************************************************* 00009000 //* * 00009100 //* EFFECTIVE EFFECTIVE EFFECTIVE EFFECTIVE EFFECTIVE EFFECTIVE * 00009200 //* * 00009300 //* JAN 1, 1981 * 00009400 //* * 00009500 //* THE MVSMODS TAPE WILL BE SHIPPED ONLY AT * 00009600 //* * 00009700 //* 6250 BPI * 00009800 //* * 00009900 //* THE PROBLEM IS THERE IS TOO MUCH DATA AND NOT ENOUGH TAPE * 00010000 //* FOR IT ALL TOO FIT ONTO A 2400 FOOT REEL AT 1600 BPI * 00010100 //* * 00010200 //******************************************************************* 00010300 //*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+* 00010400 //* * 00010500 //* THE TAPE IS NOW COMPRESSED * 00010600 //* * 00010700 //* ALL COMPRESSED FILES HAVE * 00010800 //* THE FOLLOWING DCB ATTRIBUTES: * 00010900 //* RECFM=VB,LRECL=94,BLKSIZE=32716 * 00011000 //* * 00011100 //* ALL 80 BYTE RECORD FILES WILL BE COMPRESSED EXECEPT * 00011200 //* FOR THE FOLLOWING * 00011300 //* * 00011400 //* FILE 001 THIS FILE * 00011500 //* FILE 002 COMPRESSION/DECOMPRESSION PROGRAM * 00011600 //* FILE 003 JCL TO DROP THE WHOLE TAPE DOWN * 00011700 //* * 00011800 //* LOOK IN THIS FILE IN THE SECTION ENTITLED 'FILE STATUS * 00011900 //* SECTION' TO SEE EXACTLY WHAT FILES ARE IN COMPRESSED * 00012000 //* FORMAT AND WHICH ARE NOT IN COMPRESSED FORMAT * 00012100 //* * 00012200 //* WHEN ADDITIONS ARE ADDED TO THE TAPE, RATHER THEN PUTTING * 00012300 //* THEM AT THE END OF THE TAPE , I WILL PLACE THEM IN * 00012400 //* FILES THAT WERE PREVIOUSLY DELETED AND ARE NOW EMPTY , * 00012500 //* ASSUMING THAT THERE ARE ANY . * 00012600 //* * 00012700 //* FILE 3 WHICH IS THE JCL TO DROP THE WHOLE TAPE DOWN WILL * 00012800 //* BE CURRENT AND UP TO DATE TO THE VERSION OF THE TAPE ON * 00012900 //* WHICH IT APPEARS ( HOPEFULLY ) . * 00013000 //* * 00013100 //*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+* 00013200 //* * 00013300 //* THIS TAPE IS CUMULATIVE . EACH FILE ON THE TAPE IS THE * 00013400 //* LATEST VERSION OF THAT FILE WITH ANY AND ALL MAINTENANCE * 00013500 //* APPLIED TO IT , EXCEPT WHERE SPECIFICALLY NOTED . * 00013600 //* * 00013700 //* IF YOU HAVE ANY PROBLEMS PROCESSING THE DATA ON THE TAPE * 00013800 //* OR FIND ANY ERRORS PLEASE LET ME KNOW AND I WILL ATTEMPT * 00013900 //* TO CORRECT THEM . * 00014000 //* * 00014100 //* A IF THIS IS THE FIRST TIME YOU HAVE RECEIVED THIS MODIFI-* 00014200 //* CATION TAPE I SUGGEST THAT YOU SKIP ALL THE INFORMA- * 00014300 //* TION THAT IS CONTAINED UNDER THE FOLLOWING ENTITLED, * 00014400 //* 'CHANGES FOR VERSION XXX, MONTH DAY YEAR' AND GO TO * 00014500 //* THE FILE STATUS SECTION USING THIS AND THE SECTION * 00014600 //* ENTITLED, 'D O C U M E N T A T I O N' READ WHAT EACH * 00014700 //* FILE IS AND DECIDE WHAT YOU WANT . * 00014800 //* * 00014900 //* B IF YOU HAVE RECEIVED A PREVIOUS VERSION OF THIS TAPE * 00015000 //* YOU MAY WISH TO CHECK ALL THE CHANGES MADE SINCE THAT * 00015100 //* VERSION AND DECIDE WHAT IS APPLICABLE . * 00015200 //* * 00015300 //* C WE WILL SOMETIMES CHANGE CODE THAT PERSONS HAVE SENT US * 00015400 //* WHEN WE DO WE WILL TRY TO PUT OUR INITIALS ON THE LINES * 00015500 //* OF CODE THAT WE HAVE MODIFIED . * 00015600 //* THE CURRENT SET OF INITIALS ARE * 00015700 //* * 00015800 //* CBT * 00015900 //* AXC * 00016000 //* * 00016100 //* TO FIND OUT WHAT WE DID USE THE TSO EDITOR AND ISSUE * 00016200 //* THE FOLLOWING AGAINST THE PROGRAM IN QUESTION * 00016300 //* * 00016400 //* V * 00016500 //* C 0 99999999 / CBT / CBT / ALL * 00016600 //* C 0 99999999 / AXC / AXC / ALL * 00016700 //* * 00016800 //* OR WHAT EVER OTHER PROGRAM YOU HAVE THAT WILL GIVE YOU * 00016900 //* THE SAME TYPE OF INFORMATION . * 00017000 //* * 00017100 //* D. IF YOU EVER WANT TO KNOW WHAT IS ON THE CURRENT VERSION * 00017200 //* OF THE TAPE JUST DROP ME A NOTE AND I WILL SEND YOU A * 00017300 //* MICROFICHE LISTING OF FILE ONE . * 00017400 //* * 00017500 //* * 00017600 //***SECTION DISCLAIMER SECTION * 00017700 //******************************************************************* 00017800 //* * 00017900 //* D I S C L A I M E R S E C T I O N * 00018000 //* * 00018100 //******************************************************************* 00018200 //* * 00018300 //* THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY & TO THE BEST * 00018400 //* OF OUR KNOWLEDGE THEY ARE OPERATIONAL, HOWEVER NO WARRANTY * 00018500 //* IS MADE TO THE ACCURACY OF THE PROGRAMS OR RELATED MATERIAL AND * 00018600 //* NO RESPONSIBILITY IS ASSUMED FOR ANY MODIFICATION DIRECTLY OR * 00018700 //* INDIRECTLY CAUSED BY THE USE OF THESE MODS . IT IS THE USERS * 00018800 //* RESPONSIBILITY TO EVALUATE THE USEFULLNESS OF THE MATERIAL * 00018900 //* SUPPLIED . * 00019000 //* * 00019100 //* WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP TO DATE * 00019200 //* NOR DO WE GUARANTEE TO PROVIDE ANY CORRECTIONS OR EXTENSIONS * 00019300 //* DESCRIBED BY THE USER OR CORRECTIONS OR EXTENSIONS MADE IN THE * 00019400 //* FUTURE . * 00019500 //* * 00019600 //***SECTION MODIFICATION TAPE SECTION * 00019700 //******************************************************************* 00019800 //* M O D I F I C A T I O N T A P E S S E C T I O N * 00019900 //******************************************************************* 00020000 //* ------------------------------------------------------------- * 00020100 //* - ========================================================= - * 00020200 //* - == == - * 00020300 //* - == THERE ARE A FEW MODIFICATION TAPES AROUND, THE == - * 00020400 //* - == ONES I KNOW ABOUT ARE: == - * 00020500 //* - == == - * 00020600 //* - == 1 THE SPLA TAPE ( SEE BELOW FOR THE ADDRESS ) == - * 00020700 //* - == FILE 121 ( CBT1998 ) == - * 00020800 //* - == == - * 00020900 //* - == 2 THE JES2 MODIFICATION TAPE THE NON-SP == - * 00021000 //* - == VERSION IS AVAILABLE FROM SPLA ONLY ( SEE == - * 00021100 //* - == BELOW FOR THE ADDRESS ) FOR ABSTRACT SEE == - * 00021200 //* - == FILE 120 ( CBT1058 ) == - * 00021300 //* - == == - * 00021400 //* - == 3 THE JES2 MODIFICATION THE SP ONLY VERSION == - * 00021500 //* - == IS AVAILABLE ONLY FROM NERDC AT THE == - * 00021600 //* - == UNIVERSITY OF FLORIDA ( SEE BELOW FOR THE == - * 00021700 //* - == ADDRESS ) FOR ABSTRACT SEE FILE 314 == - * 00021800 //* - == ( CBT1366 ) == - * 00021900 //* - == == - * 00022000 //* - == 4 THE GUIDE-TSO TAPE ( SEE BELOW FOR THE == - * 00022100 //* - == ADDRESS ) == - * 00022200 //* - == == - * 00022300 //* - == 5 THE JES3 MODIFICATION TAPE . THE DATA ON == - * 00022400 //* - == THIS TAPE NOW EXISTS ON THE SPLA TAPE == - * 00022500 //* - == AND IS NO LONGER AVAILABLE SEPARATELY == - * 00022600 //* - == == - * 00022700 //* - == 6 THE L.A. MVS USERS GROUP TAPE . THIS TAPE == - * 00022800 //* - == IS MAINTAINED BY THE MVS USERS GROUP IN == - * 00022900 //* - == LOS ANGELES , CA . A COPY OF THE TAPE IS == - * 00023000 //* - == CONTAINED ON THE SPLA TAPE . == - * 00023100 //* - == == - * 00023200 //* - == 7 THE CBT MVS MODIFICATION TAPE ( THIS IS IT )== - * 00023300 //* - == == - * 00023400 //* - == WHAT IS THE SHARE TAPE ? - IT IS THE SPLA TAPE == - * 00023500 //* - == == - * 00023600 //* - == WHAT IS THE DIFFERENCE BETWEEN THE CBT TAPE == - * 00023700 //* - == AND THE SPLA ( SHARE ) TAPE ? == - * 00023800 //* - == == - * 00023900 //* - == THE SPLA TAPE IS THE OFFICIAL SHARE MVS MOD - == - * 00024000 //* - == FICATION TAPE . THIS TAPE IS SEND TO SPLA == - * 00024100 //* - == FOR ITS OFFICIAL SHARE DISTRIBUTION . == - * 00024200 //* - == THE SPLA TAPE NO LONGER CONTAINS A COPY OF == - * 00024300 //* - == THE CBT TAPE AS IT USED TO IN THE FAR AND == - * 00024400 //* - == DISTANT PAST OF YESTER YEAR . == - * 00024500 //* - == == - * 00024600 //* - ========================================================= - * 00024700 //***SECTION DUPLICATION SECTION * 00024800 //* - == == - * 00024900 //* - == D U P L I C A T I O N == - * 00025000 //* - == == - * 00025100 //* - == JUST A NOTE HERE ABOUT DUPLICATION . BECAUSE OF == - * 00025200 //* - == HOW ALL THE TAPES ARE SET UP THERE WILL BE == - * 00025300 //* - == SOME DUPLICATION , IF YOU ARE VERY AMBITIOUS == - * 00025400 //* - == AND GET ALL THE TAPES YOU WILL FIND SOME CODE == - * 00025500 //* - == THAT IS ON MORE THAN ONE TAPE . IT WILL BE YOUR == - * 00025600 //* - == JOB TO FIND OUT WHICH IS THE MOST CURRENT OR == - * 00025700 //* - == WHICH HAS THE FUNCTION YOU WANT AND DISCARD == - * 00025800 //* - == THE REST . == - * 00025900 //* - == == - * 00026000 //* - == GOOD LUCK ! == - * 00026100 //* - == == - * 00026200 //* - ========================================================= - * 00026300 //* ------------------------------------------------------------- * 00026400 //***SECTION SPLA TAPE MODIFICATION SECTION * 00026500 //******************************************************************* 00026600 //* S P L A S E C T I O N * 00026700 //******************************************************************* 00026800 //* ------------------------------------------------------------- * 00026900 //* - ========================================================= - * 00027000 //* - == == - * 00027100 //* - == IF YOU WOULD LIKE A COPY OF THE SPLA (SHARE == - * 00027200 //* - == PROGRAM LIBRARY AGENCY ) MVS MODIFICATION TAPE == - * 00027300 //* - == YOU MAY OBTAIN A COPY BY SENDING: == - * 00027400 //* - == == - * 00027500 //* - == $50.00 FOR A 6250 BPI TAPE == - * 00027600 //* - == ( NOT AVAILABLE AT 800 BPI ) == - * 00027700 //* - == == - * 00027800 //* - == PLEASE PRE-PAY ( AN ADDITIONAL $5.00 FEE == - * 00027900 //* - == FOR PURCHASE ORDERS ) == - * 00028000 //* - == == - * 00028100 //* - == DO NOT ( NO NO NO ) SEND YOUR OWN TAPE == - * 00028200 //* - == THE PURCHASE PRICE INCLUDES A NEW REEL == - * 00028300 //* - == == - * 00028400 //* - == THE ABOVE PRICE SCHEUDLE WAS OBTAINED FROM == - * 00028500 //* - == SPLA ON FEB 27 , 1985 IF YOU ARE ORDERING == - * 00028600 //* - == THIS TAPE A LONG TIME AFTER FEB 27 , 1985 == - * 00028700 //* - == YOU MAY WISH TO CONTACT THE BELOW NAMED == - * 00028800 //* - == PERSON TO SEE IF THE PRICE IS STILL CURRENT == - * 00028900 //* - == == - * 00029000 //* - == MS MELINDA HICKMAN == - * 00029100 //* - == SHARE PROGRAM LIBRARY AGENCY == - * 00029200 //* - == (919)-549-0671 EXT 283 == - * 00029300 //* - == == - * 00029400 //* - == ORDER PGM # 370D-03.0.016 ( THE SHARE MVS == - * 00029500 //* - == PROJECT PROGRAM TAPE ) TO == - * 00029600 //* - == == - * 00029700 //* - == SHARE PROGRAM LIBRARY AGENCY == - * 00029800 //* - == TRIANGLE UNIVERSITIES COMPUTATION CENTER == - * 00029900 //* - == POST OFFICE BOX 12076 == - * 00030000 //* - == RESEARCH TRIANGLE PARK, == - * 00030100 //* - == NORTH CAROLINA 27709 == - * 00030200 //* - == == - * 00030300 //* - ========================================================= - * 00030400 //* - == == - * 00030500 //* - == THE OTHER WAY THIS TAPE MAY BE ORDERED IS BY == - * 00030600 //* - == SENDING A 2400 FOOT REEL OF MAGNETIC TAPE AND == - * 00030700 //* - == A CHECK PAYABLE TO SAS INSTITUTE INC IN THE AMOUNT == - * 00030800 //* - == OF $15.00 OR $25.00 OUTSIDE THE U.S.A TO: == - * 00030900 //* - == == - * 00031000 //* - == MR DAN SQUILLACE == - * 00031100 //* - == SAS INSTITUTE INC == - * 00031200 //* - == BOX 8000 == - * 00031300 //* - == ONE SAS CIRCLE == - * 00031400 //* - == CARY, N.C. 27511-8000 == - * 00031500 //* - == == - * 00031600 //* - == PHONE ( 919 ) 467-8000 == - * 00031700 //* - == == - * 00031800 //* - == ( ABOVE ADDRESS HAS 9 DIGIT ZIP CODE ) == - * 00031900 //* - == IF YOU ARE SHIPPING FROM OUTSIDE THE U.S.A. == - * 00032000 //* - == PLEASE SHIP BY MAIL AND PUT THE PROPER CUSTOM == - * 00032100 //* - == DECLARATION TAGS ON THE PACKAGE . INDICATE 1 == - * 00032200 //* - == REEL OF MAGNETIC TAPE WITH NO COMMERICAL VALUE == - * 00032300 //* - == == - * 00032400 //* - == PLEASE DO NOT USE A PO BOX AS PART OF THE RETURN == - * 00032500 //* - == ADDRESS IF AT ALL POSSIBLE == - * 00032600 //* - == == - * 00032700 //* - == ********** == - * 00032800 //* - == IN CANADA == - * 00032900 //* - == ********** == - * 00033000 //* - == == - * 00033100 //* - == A COPY OF THE SPLA TAPE MAY BE ORDED BY SENDING == - * 00033200 //* - == A 2400 FOOT REEL OF MAGNETIC TAPE AND A CHECK == - * 00033300 //* - == PAYABLE TO B.C. HYDRO IN THE AMOUNT OF $15.00 OR == - * 00033400 //* - == $25.00 OUTSIDE CANADA TO : = - * 00033500 //* - == MR . JAMES E . HARMON == - * 00033600 //* - == B.C. HYDRO == - * 00033700 //* - == COMPUTER & MANAGEMENT SYSTEMS DIVISION == - * 00033800 //* - == 970 BURRARD STREET == - * 00033900 //* - == VANCOUVER , B.C. V6Z 1Y3 == - * 00034000 //* - == CANADA == - * 00034100 //* - == == - * 00034200 //* - == PHONE ( 604 ) 633-2078 == - * 00034300 //* - == == - * 00034400 //* - == IF YOU ARE SHIPPING FROM OUTSIDE CANADA == - * 00034500 //* - == PLEASE SHIP BY MAIL AND PUT THE PROPER CUSTOM == - * 00034600 //* - == DECLARATION TAGS ON THE PACKAGE . INDICATE 1 == - * 00034700 //* - == REEL OF MAGNETIC TAPE WITH NO COMMERICAL VALUE == - * 00034800 //* - == == - * 00034900 //* - ========================================================= - * 00035000 //* ------------------------------------------------------------- * 00035100 //***SECTION JES2 MODIFICATION TAPE SECTION * 00035200 //******************************************************************* 00035300 //* J E S 2 S E C T I O N * 00035400 //******************************************************************* 00035500 //* ------------------------------------------------------------- * 00035600 //* - ========================================================= - * 00035700 //* - == == - * 00035800 //* - == JES2 MODIFICATION TAPE == - * 00035900 //* - == == - * 00036000 //* - == IF YOU WOULD LIKE A COPY OF THE NON-SP JES2 == - * 00036100 //* - == NON-SP JES2 == - * 00036200 //* - == MODIFICATION TAPE YOU MAY OBTAIN A COPY BY == - * 00036300 //* - == ORDERING A COPY FROM SPLA FOR A FEE OF $40.00 == - * 00036400 //* - == == - * 00036500 //* - == PLEASE PRE-PAY ( AN ADDITIONAL $5.00 FEE FOR == - * 00036600 //* - == PURCHASE ORDERS ) == - * 00036700 //* - == == - * 00036800 //* - == DO NOT ( NO NO NO ) SEND YOUR OWN TAPE == - * 00036900 //* - == THE PURCHASE PRICE INCLUDES A NEW REEL == - * 00037000 //* - == == - * 00037100 //* - == THE ABOVE PRICE SCHEUDLE WAS OBTAINED FROM == - * 00037200 //* - == SPLA ON FEB 17 , 1982 IF YOU ARE ORDERING == - * 00037300 //* - == THIS TAPE A LONG TIME AFTER FEB 17 , 1982 == - * 00037400 //* - == YOU MAY WISH TO CONTACT THE BELOW NAMED == - * 00037500 //* - == PERSON TO SEE IF THE PRICE IS STILL CURRENT == - * 00037600 //* - == == - * 00037700 //* - == MS MELINDA HICKMAN == - * 00037800 //* - == SHARE PROGRAM LIBRARY AGENCY == - * 00037900 //* - == ( 919 )-549-0671 EXT 283 == - * 00038000 //* - == == - * 00038100 //* - == ORDER PGM # 370D-05.6.001 ( THE SHARE JES2 == - * 00038200 //* - == PROJECT MODIFICATION TAPE ) TO == - * 00038300 //* - == == - * 00038400 //* - == SHARE PROGRAM LIBRARY AGENCY == - * 00038500 //* - == TRIANGLE UNIVERSITIES COMPUTATION CENTER == - * 00038600 //* - == POST OFFICE BOX 12076 == - * 00038700 //* - == RESEARCH TRIANGLE PARK, == - * 00038800 //* - == NORTH CAROLINA 27709 == - * 00038900 //* - == == - * 00039000 //* - ========================================================= - * 00039100 //* - == == - * 00039200 //* - == IF YOU WISH A COPY OF THE MVS/SP 1.3 VERSION == - * 00039300 //* - == THE JES2 MODIFICATION TAPE IT MAY BE ORDERD BY == - * 00039400 //* - == SENDING A 2400 FOOT REEL OF MAGNETIC TAPE AND == - * 00039500 //* - == A CHECK PAYABLE TO NERDC IN THE AMOUNT == - * 00039600 //* - == OF $ 5.00 OR $20.00 OUTSIDE THE U.S.A TO: == - * 00039700 //* - == == - * 00039800 //* - == MR . JACK SCHUDEL == - * 00039900 //* - == NORTH EAST REGIONAL DATA CENTER ( NERDC ) == - * 00040000 //* - == ROOM 233 SSRB == - * 00040100 //* - == UNIVERSITY OF FLORIDA == - * 00040200 //* - == GAINESVILLE , FLORIDA 32611 == - * 00040300 //* - == == - * 00040400 //* - == PHONE ( 904 ) 392-4601 ( AFTER 1.00 P.M. EASTERN == - * 00040500 //* - == TIME ZONE ) == - * 00040600 //* - == == - * 00040700 //* - == IF YOU ARE SHIPPING FROM OUTSIDE THE U.S.A. == - * 00040800 //* - == PLEASE SHIP BY MAIL AND PUT THE PROPER CUSTOM == - * 00040900 //* - == DECLARATION TAGS ON THE PACKAGE . INDICATE 1 == - * 00041000 //* - == REEL OF MAGNETIC TAPE WITH NO COMMERICAL VALUE == - * 00041100 //* - == == - * 00041200 //* - ========================================================= - * 00041300 //* ------------------------------------------------------------- * 00041400 //******************************************************************* 00041500 //***SECTION TSO GUIDE MODIFICATION TAPE SECTION * 00041600 //* T S O G U I D E T A P E S E C T I O N * 00041700 //******************************************************************* 00041800 //* ------------------------------------------------------------- * 00041900 //* - ========================================================= - * 00042000 //* - == == - * 00042100 //* - == FOR A COPY OF THE GUIDE TSO MODS TAPE PLEASE == - * 00042200 //* - == SEND A 2400 FOOT REEL TO: == - * 00042300 //* - == == - * 00042400 //* - ==****** NOT CURRENTLY AVAILABLE BECAUSE NO ONE ******== - * 00042500 //* - ==****** HAS CONTRIBUTED TO IT IF YOU HAVE SOME ******== - * 00042600 //* - ==****** TSO MODS CP'S ,ETC WHY NOT FOLLOW THE ******== - * 00042700 //* - ==****** INSTRUCTIONS IN FILE 123 ******== - * 00042800 //* - == == - * 00042900 //* - == RICHMAN COMPANY == - * 00043000 //* - == DATA PROCESSING == - * 00043100 //* - == 1600 EAST 55TH STREET == - * 00043200 //* - == CLEVELAND , OHIO 44103 == - * 00043300 //* - == ATTN : TECH SUPPORT/TSO MODS == - * 00043400 //* - == == - * 00043500 //* - == IF SHIPPING FROM OUTSIDE THE UNITED STATES OF == - * 00043600 //* - == AMERICA , PLEASE SHIP BY MAIL AND PUT THE == - * 00043700 //* - == PROPER CUSTOM DECLARATION TAGS ON . INDICATE 1 == - * 00043800 //* - == REEL OF MAGNETIC TAPE WITH NO COMMERICAL VALUE . == - * 00043900 //* - == == - * 00044000 //* - ========================================================= - * 00044100 //******************************************************************* 00044200 //***SECTION OVER SEAS TAPE SHIPPING SECTION * 00044300 //* O V E R S E A S T A P E S E C T I O N * 00044400 //******************************************************************* 00044500 //* ------------------------------------------------------------- * 00044600 //* - ========================================================= - * 00044700 //* - == == - * 00044800 //* - == PLEASE DO NOT SEND ME ANY TAPES FROM OUTSIDE == - * 00044900 //* - == THE UNITED STATES BY ANY MEANS OTHER THAN THE == - * 00045000 //* - == POSTAL SERVICE OF YOUR COUNTRY . IF YOU SHIP == - * 00045100 //* - == THE STUFF BY AIR CARGO IT ENDS UP AT THE AIR == - * 00045200 //* - == PORT (BRADLEY INTERNATIONAL) IN WINDSOR LOCKS == - * 00045300 //* - == CONNECTICUT . IT NOT ONLY TAKES ME ABOUT AN == - * 00045400 //* - == ONE AND A HALF HOURS FOR A ROUND TRIP BUT IT == - * 00045500 //* - == ENDS UP IN BOND AND I HAVE TO MAKE AN APPOINT- == - * 00045600 //* - == WITH US CUSTOMS TO GET IT OUT . THE LAST TIME == - * 00045700 //* - == SOMETHING CAME THROUGH THIS WAY THERE WAS == - * 00045800 //* - == ALSO A $30.00 CHARGE FOR STORAGE OF THE TAPE == - * 00045900 //* - == AT THE AIR CARGO PLACE . SO YOU CAN SEE IT == - * 00046000 //* - == IS NOT WORTH IT , AT ALL . WHEN THIS HAPPENS == - * 00046100 //* - == I REFUSE SHIPMENT AND TELL THEM TO RETURN IT == - * 00046200 //* - == TO THE SHIPPER OR DESTORY THE PACKAGE . == - * 00046300 //* - == == - * 00046400 //* - == KEYWORDS POSTAL SERVICE OVERSEAS AIR FREIGHT == - * 00046500 //* - == OVER SEAS EUROPE CANADA MEXICO == - * 00046600 //* - == CUSTOMS REFUSE == - * 00046700 //* - == == - * 00046800 //* - ========================================================= - * 00046900 //******************************************************************* 00047000 //***SECTION THINGS TO BE DONE SECTION * 00047100 //* T H I N G T O BE D O N E S E C T I O N * 00047200 //******************************************************************* 00047300 //* ------------------------------------------------------------- * 00047400 //* - ========================================================= - * 00047500 //* - == == - * 00047600 //* - == IN THIS SECTION I AM GOING TO PUT THINGS == - * 00047700 //* - == THAT I WANT TO DO TO THIS TAPE TO ENHANCE ITS == - * 00047800 //* - == USABILITY TO OTHERS . WILL DO THIS STUFF IF I == - * 00047900 //* - == EVER GET THE TIME . DO NOT HOLD YOUR BREATH == - * 00048000 //* - == WAITING HOWEVER . AS THINGS GET DONE I WILL == - * 00048100 //* - == REMOVE THAT ITEM FROM THIS LIST == - * 00048200 //* - == == - * 00048300 //* - == 1 ADD ZAP TO ALLOW CHECKPOINT TO BE ON == - * 00048400 //* - == A SHARED VOLUME == - * 00048500 //* - == NAME IGC0006C IHJACP00 == - * 00048600 //* - == VER 05C2 4710,B7FE == - * 00048700 //* - == REP 05C2 4700,0707 == - * 00048800 //* - == CHECK MICRO FICHE ON THIS FOR == - * 00048900 //* - == PTF TAPE 7902 CARD NUMBER 85 FRAME == - * 00049000 //* - == NUMBER D 35 L.E. FLA == - * 00049100 //* - == 3 MARK FILES THAT ARE IN IEBUPDTE SYSIN FORMAT == - * 00049200 //* - == IF THEY CONTAIN SOURCE AND OR OBJECT OR ONLY == - * 00049300 //* - == ONE OR THE OTHER. S.M. STATE == - * 00049400 //* - == 4 UPDATE CMD1 SO AS TO BE ABLE TO SHUT OFF == - * 00049500 //* - == ## COMMANDS AS WE DO WITH # COMMANDS VIA == - * 00049600 //* - == THE JCL S.M. STATE == - * 00049700 //* - == 5 UPDATE # FOR USE UNDER CMDSBTSO SO THE WAIT == - * 00049800 //* - == TIME AND INTERVAL ARE SHOWN ON THE HEADER == - * 00049900 //* - == LINE - MAYBE ALSO IN AUTO UPDATE MODE == - * 00050000 //* - == THE UPDATE COUNT IS EITHER INCREMENTED OR == - * 00050100 //* - == DECREMENTED ON THE DISPLAY LINE ALSO == - * 00050200 //* - == S.M. STATE == - * 00050300 //* - == == - * 00050400 //* - == == - * 00050500 //* - ========================================================= - * 00050600 //******************************************************************* 00050700 //***SECTION CHANGE SECTION * 00050800 //******************************************************************* 00050900 //* * 00051000 //* C H A N G E S E C T I O N * 00051100 //* * 00051200 //******************************************************************* 00051300 //* * 00051400 //***SECTION V-249 SECTION * 00051500 //* V-249 CHANGES FOR VERSION 249 JULY 05, 1985 * 00051600 //* * 00051700 //* 1 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00051800 //* PDS TSO CP . VERSION 7.0 * 00051900 //* THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS * 00052000 //* VERSION : * 00052100 //* * 00052200 //* NEW SUBCOMMANDS * 00052300 //* * 00052400 //* 1. REPLACE -- PERFORMS CHARACTER STRING UPDATES. * 00052500 //* 2. SUBLIST -- CREATES A MEMBER SUBGROUP (FOR FIND * 00052600 //* & IF SUBCOMMANDS). * 00052700 //* 3. VPSPRINT -- PRINTS A HARDCOPY LISTING USING THE * 00052800 //* TSO VPSPRINT COMMAND. * 00052900 //* * 00053000 //* CHANGES AND IMPROVEMENTS * 00053100 //* * 00053200 //* 1. CHANGE AND PDS: ADDED THE VOLSET KEYWORD. * 00053300 //* 2. COMPARE: ALLOWED EITHER OLD OR NEW DATA SET * 00053400 //* NAMES TO REFER TO A MEMBER NAME OR A DIFFERENT * 00053500 //* DATA SET AND MEMBER. * 00053600 //* 3. COMPRESS: ADDED IEBCOPY AUTHORIZATION VIA * 00053700 //* IKJEFTSR. * 00053800 //* 4. EDIT: ADDED THE PROFILE AND SETPROF KEYWORDS * 00053900 //* FOR ISPF V2. * 00054000 //* 5. FIND, IF, MAP, HISTORY: GENERATE A MESSAGE IF * 00054100 //* NO DATA IS FOUND. * 00054200 //* 6. FIXPDS: ADDED THE OPTCD AND NOOPTCD KEYWORDS. * 00054300 //* 7. HISTORY: ADDED COBOL COMPILE OPTIONS FOR COBOL * 00054400 //* LOAD MODULES. * 00054500 //* 8. IF SUBCOMMAND: * 00054600 //* A. ADDED THE HASALIAS AND NOHASALIAS KEYWORDS. * 00054700 //* B. ADDED A MM/DD/YY DATE FORMAT FOR THE CHANGED * 00054800 //* & CREATED KEYWORDS. * 00054900 //* 9. ISPMODE: * 00055000 //* A. ADDED SUPPORT FOR "PROFILE NOMSGID" * 00055100 //* B. ADDED THE F (FIND LOG) COMMAND. * 00055200 //* 10. MAP: * 00055300 //* A. ADDED DISPLAY OF UNRESOLVED AND WEAK * 00055400 //* UNRESOLVED EXTERNAL REFERENCES. * 00055500 //* B. ADDED THE RELINK OPERAND TO GENERATE LINKAGE * 00055600 //* EDITOR CONTROLS & JCL. * 00055700 //* 11. MEMLIST SUBCOMMAND: * 00055800 //* A. IMPROVED CURSOR POSITIONING. * 00055900 //* B. IMPROVED THE ERROR STATUS MESSAGE CLEARING. * 00056000 //* C. ADDED ATTENTION HANDLING FOR EDIT AND BROWSE * 00056100 //* LINE COMMANDS. * 00056200 //* D. ADDED LOAD MODULE LINKAGE EDIT DATES. * 00056300 //* E. ALLOWED FIXPDS AND COMPRESS TO USE THE LAST * 00056400 //* MEMBER GROUP. * 00056500 //* F. COMMAND LINE ATTRIB ADDS TO THE MEMBER LIST * 00056600 //* IF ANY ATTRIBUTES CHANGE. * 00056700 //* G. COMMAND LINE EDIT ADDS TO THE MEMBER LIST. * 00056800 //* 12. RENAME: ADDED THE REPBY KEYWORD TO UPDATE TWO * 00056900 //* MEMBER NAMES. * 00057000 //* 13. RESTORE: MADE TTR AN OPTIONAL KEYWORD; ADDED * 00057100 //* FIND AND MODULE KEYWORDS. * 00057200 //* 14. INSTALLATION OPTION: MODIFIED &CONDRNG. * 00057300 //* 15. PDS INVOKED BY ISPF V2: ALLOWED PDS TO USE ISPF * 00057400 //* FACILITIES EVEN IF INVOKED FROM OPTION 6 OR THE * 00057500 //* ISPF TSO COMMAND. * 00057600 //* 16. ATTRIB: ADDED ENTRY(NAME) OPERAND TO MODIFY THE * 00057700 //* ENTRY POINT. * 00057800 //* 17. DELETE: REVERSED THE ORDER OF DELETION OF GROUP * 00057900 //* MEMBERS. * 00058000 //* 18. OUTCOPY: ADDED AN IEBUPDTE FORMAT. * 00058100 //* 19. RECALL: ADDED THE CHANGE OPERAND AND OTHER * 00058200 //* IMPROVEMENTS IN ISPMODE. * 00058300 //* 20. MEMBERS AND DELETE: MODIFIED TO SUPPORT * 00058400 //* SUBLIST. * 00058500 //* 21. EXCP: ADDED A "READ MULTIPLE" LOGICAL ERROR * 00058600 //* TRAP MESSAGE (PDS983E). * 00058700 //* 22. FIXPDS MAXSPACE: CHANGED ALL APPLICABLE STOW * 00058800 //* DCB'S TO USE "UPDATE" MODE SO THAT A NEW EXTENT * 00058900 //* WILL NOT BE TAKEN. * 00059000 //* 23. CONTROL: ADDED TRANSLATOR/NOTRANSLATOR KEYWORD * 00059100 //* FOR HISTORY. * 00059200 //* * 00059300 //* PROBLEMS FIXED * 00059400 //* * 00059500 //* 1. PDS ENTRY FROM ISPF PANEL: CORRECTED AN ABEND * 00059600 //* 0C4 FOR TSO/E R2.1 * 00059700 //* 2. LIST AND FIND: OUTPUT OF CSECT INFORMATION * 00059800 //* FAILED FOR LARGE MODULES. * 00059900 //* 3. ISPF COMMAND TABLE ENTRY TO PDS WITH NO DATA * 00060000 //* SET NAME: CORRECTED AN 0C4 ABEND. * 00060100 //* 4. TSOMON ABEND IN ISPF V2 AFTER CALLING PDS: PDS * 00060200 //* MODIFIED THE CALLER'S COMMAND BUFFER IN THE * 00060300 //* ORIGINAL CPPL. * 00060400 //* 5. MAP WITH ENTRY OPTION: SOMETIMES GAVE AN * 00060500 //* INCORRECT ENTRY NAME. * 00060600 //* * 00060700 //* ADDITIONAL INFORMATION * 00060800 //* * 00060900 //* 1. PROGRAM COMMENTS FOLLOWING VER 7.1: ON PAGE 19 * 00061000 //* OF A LISTING. * 00061100 //* 2. THE INFORMATION IN THE HELP MEMBER AND IN THE * 00061200 //* HELP PANELS. * 00061300 //* * 00061400 //* 2 UPDATE TO FILE 198 TO CONTAIN A COPY OF THE TSO * 00061500 //* CP CALLED PDS TO THE PREVIOUS VERSION WHICH WAS * 00061600 //* 7.0 * 00061700 //* * 00061800 //* 3 UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION * 00061900 //* 7.1 * 00062000 //* * 00062100 //* 4 UPDATE TO FILE 296 FROM MR BRUCE LELAND OF HATACHI * 00062200 //* THIS HAS BEEN UPDATED TO : * 00062300 //* A . COMPARE - MODIFIED TO CHECK MEMBERS OF A * 00062400 //* PDS BEFORE THE COMPARE IS DONE * 00062500 //* B . REVIEW - CHANGES TO SYNCHRONIZE WITH THE * 00062600 //* HEL COMMAND. SUPPORT FOR 3278-X * 00062700 //* C. RELEASE - RELEASE COMMAND ( ORIGINAL FROM * 00062800 //* THE AIRFORCE ) ADD . HAS VOLUME * 00062900 //* SUPPORT * 00063000 //* * 00063100 //* 5 UPDATE TO FILE 121 WHICH CONTAINS THE DOCUMENTATION * 00063200 //* FILE FOR THE SPLA TAPE . IT IS NOW UP TO VER 033 * 00063300 //* * 00063400 //* 6 ADDITION OF FILE 423 FROM BROIDO COMPUTER CONSULTING * 00063500 //* THIS FILE CONTAINS SEVERAL OF THEIR UTILITIES * 00063600 //* * 00063700 //***SECTION V-248 SECTION * 00063800 //* V-248 CHANGES FOR VERSION 248 JUNE 11, 1985 * 00063900 //* * 00064000 //* 1 UPDATE TO THIS FILE TO SAY THIS TAPE CAN NOW BE * 00064100 //* DUPLICATED ONTO A 3480 TAPE CARTRIDGE * 00064200 //* * 00064300 //* 2 UPDATE TO FILE 032 FROM ROHM AND HAAS COMPANY TO * 00064400 //* A NEW VERSION OF THEIR ACF2/NCCF INTERACE TO * 00064500 //* CORRECT A BUG DISCLOSED BY MIGRATION TO NCCF 2.2 * 00064600 //* * 00064700 //* 3 UPDATE TO FILE 400 WHICH IS DYNAMASK TO CORRECT A * 00064800 //* MINOR BUG IN THE CODE * 00064900 //* * 00065000 //***SECTION V-247 SECTION * 00065100 //* V-247 CHANGES FOR VERSION 247 APRIL 21, 1985 * 00065200 //* * 00065300 //* 1 UPDATE TO FILE 182 AND 035 WHICH IS VERSION 7.0 OF * 00065400 //* PDS TO CORRECT A PROBLEM WITH TSO/E REL 2.1 - YOU * 00065500 //* MAY GET AN OC4 ON ENTRY TO PDS FROM ISPF MENU * 00065600 //* * 00065700 //* 2 UPDATE TO FILE 296 FROM MR BRUCE LELAND OF HATACHI * 00065800 //* THIS HAS BEEN UPDATED TO CONTAIN : * 00065900 //* A . DSAT - MODFIED TO USE UCB SCAN ROUTINE * 00066000 //* B . HEL - MODFIED TO CORRECT A MINOR * 00066100 //* PROBLEM WITH 3278 MODEL 5 * 00066200 //* * 00066300 //* 3 UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION * 00066400 //* # 6.5.3 OF TSUPDATE FROM CONRAIL * 00066500 //* * 00066600 //* 4 ADDITION OF FILE 422 FROM MAY & SPEH OF OAKBROOK * 00066700 //* TERRACE , ILLINOIS . THIS FILE CONTAINS SOME UTILITY * 00066800 //* PROGRAMS INCLUDING A PROGRAM THAT WILL PRINT OUT THE * 00066900 //* AUTOMATIC SCHEDULING FACILITY FILE FROM DAVE COLE * 00067000 //* AT COMNET FROM FILE 388 * 00067100 //* * 00067200 //***SECTION V-246 SECTION * 00067300 //* V-246 CHANGES FOR VERSION 246 MARCH 24, 1985 * 00067400 //* * 00067500 //* 1 UPDATE TO FILE 121 WHICH CONTAINS THE DOCUMENTATION * 00067600 //* FILE FOR THE SPLA TAPE . IT IS NOW UP TO VER 031 * 00067700 //* * 00067800 //* 2 UPDATE TO FILE 012 FROM JOHN HANCOCK MUTUAL LIFE * 00067900 //* WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER * 00068000 //* * 00068100 //* 3 ADDITION OF FILE 421 WHICH IS THE XACORZAP PROGRAM * 00068200 //* FROM NAS ( NATIONAL ADVANCED SYSTEM ) . THIS IS * 00068300 //* A VERSION OF INCORZAP WHICH WILL RUN IN ANY MVS * 00068400 //* ENVIRONMENT INCLUDING XA OR SP 1.3 * 00068500 //* * 00068600 //***SECTION V-245 SECTION * 00068700 //* V-245 CHANGES FOR VERSION 245 MARCH 17, 1985 * 00068800 //* * 00068900 //* 1 UPDATE TO FILE 393 WHICH IS A COPY OF THE TSO CP * 00069000 //* CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.3/4 .THIS * 00069100 //* VERSION IS FROM JACK SCHUDEL FROM THE UNIVERSITY * 00069200 //* OF FLORIDA AND WAS LIFTED FROM VER 39 OF THE JES2 * 00069300 //* MODS TAPE * 00069400 //* * 00069500 //* 2 ADDITION OF FILES 360 WHICH IS FROM THE STATE OF * 00069600 //* WISCONSIN REGIONAL COMPUTING CENTER AND CONTAINS * 00069700 //* SEVERAL OF THEIR PROGRAMS AND UTILITIES * 00069800 //* * 00069900 //* 3 ADDITION OF FILE 400 WHICH IS DYNAMASK FROM STEVE * 00070000 //* SMITH OF SECURITY PACIFIC NATIONAL BANK * 00070100 //* * 00070200 //***SECTION V-244 SECTION * 00070300 //* V-244 CHANGES FOR VERSION 244 MARCH 04, 1985 * 00070400 //* * 00070500 //* 1 UPDATE TO FILE 314 WHICH IS THE MVS/SP1.3 JES2 MODS * 00070600 //* TAPE ABSTRACT TO VERSION 039 - 02/15/85 * 00070700 //* * 00070800 //* 2 CHANGE TO THE NAME AND ADDRESS AND PRICE FOR * 00070900 //* ORDERING THE SPLA MVS MODS TAPE * 00071000 //* * 00071100 //* 3 UPDATE TO FILE 121 WHICH IS THE DOCUMENTATION FILE * 00071200 //* FROM THE SPLA TAPE TO SHOW THE NEW INFORMATION * 00071300 //* FOR ORDERING THE SPLA TAPE ITSELF * 00071400 //* * 00071500 //* 4 ADDITION OF FILE 359 FROM SYNTEC TO CONTAIN SEVERAL * 00071600 //* OF THEIR PROGRAMS , ISPF STUFF , UTILTIES , ETC * 00071700 //* * 00071800 //***SECTION V-243 SECTION * 00071900 //* V-243 CHANGES FOR VERSION 243 FEBRUARY 17, 1985 * 00072000 //* * 00072100 //* 1 UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS * 00072200 //* A COPY OF THEIR USER MODS TO AN MVS/XA 2.1.1 LEVEL * 00072300 //* * 00072400 //* 2 UPDATE TO FILE 401 FROM BELL LABS TO CONTAIN VER * 00072500 //* 4.1 OF THEIR TSSO SUBSYSTEM * 00072600 //* * 00072700 //* 3 ADDITION OF FILE 199 FROM DAVE COLE AT COMNET * 00072800 //* WHICH CONTAINS SOME NEW TSO COMMAND PROCESSORS * 00072900 //* * 00073000 //* 4 UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES * 00073100 //* OF : * 00073200 //* A DYNABLDL SOURCE FILE 407 * 00073300 //* * 00073400 //* 5 UPDATE TO FILE 407 FROM DAVE COLE AT COMNET TO * 00073500 //* CONTAIN AN UPDATED COPY OF DYNAMIC BLDL : * 00073600 //* * 00073700 //* 6 UPDATE TO FILE 408 FROM DAVE COLE AT COMNET TO * 00073800 //* CONTAIN AN UPDATED COPY OF HIS MACRO LIBRARY * 00073900 //* * 00074000 //* 7 UPDATE TO FILE 162 FROM DAVE COLE AT COMNET TO * 00074100 //* CONTAIN AN UPDATED COPY OF HIS GLOBAL CROSS - * 00074200 //* REFERENCE LISTING GENERATOR ( XREFASM ) * 00074300 //* * 00074400 //* 8 UPDATE TO FILE 296 TO UPDATE THE MEMBER CALLED HEL * 00074500 //* CORRECT A MINOR PROBLEM FOR A USER WITH A 3278-5 * 00074600 //* TERMINAL WHERE HEL IS INVOKED FROM A 27 X 132 * 00074700 //* CHARACTER SCREEN * 00074800 //* * 00074900 //* 9 UPDATE TO FILE 182 WHICH IS VERSION 7.0 OF PDS TO * 00075000 //* CORRECT THE FOLLOWING MEMBERS : * 00075100 //* A ) PDS70 - IF &CTSO SETC 'TSOEXEC' IS USED * 00075200 //* IN MEMBER PDSGEN70 THE TSO * 00075300 //* SUBCOMMAND WILL NOT WORK * 00075400 //* CORRECTLY * 00075500 //* B ) PDS70PNS - IF PROFILE NOPREFIX SET WHEN AN * 00075600 //* OTHER DATA SET NAME WITHOUT * 00075700 //* QUOTES IS ENTERED FOR THE PDS * 00075800 //* ENTRY PANEL * 00075900 //* B ) POP70CH - IF PROFILE NOPREFIX SET WHEN AN * 00076000 //* OTHER DATA SET NAME WITHOUT * 00076100 //* QUOTES IS ENTERED FOR THE O.CH * 00076200 //* OPTION * 00076300 //* * 00076400 //***SECTION V-242 SECTION * 00076500 //* V-242 CHANGES FOR VERSION 242 FEBRUARY 06, 1985 * 00076600 //* * 00076700 //* 1 UPDATE TO FILE 127 TO WHICH IS A COMPLETE * 00076800 //* REPLACEMENT FROM MR CLARK HUNTER OF COMPUWARE . SEE * 00076900 //* UNDER FILE 127 FOR A LIST OF THE COMPLETE CHANGES * 00077000 //* * 00077100 //* 2 UPDATE TO FILES 431-452 FROM ROCKWELL * 00077200 //* INTERNATIONAL OF SEAL BEACH , CALIFORNIA WHICH * 00077300 //* CONTAIN A COPY OF THEIR SYSTEMS PROGRAMMING * 00077400 //* TOOLS TAPE DATED 85001 * 00077500 //* * 00077600 //* 3 UPDATE TO FILE 161 FROM THE AIRFORCE WHICH CONTAINS * 00077700 //* A COPY OF THEIR ISPF/PDF CODE TO VERSION 2 DATED * 00077800 //* JANUARY 25, 1985 * 00077900 //* * 00078000 //* 4 UPDATE TO FILE 300 FROM THE AIRFORCE TO VERSION 15.0 * 00078100 //* JANYARY 25, 1985 * 00078200 //* * 00078300 //* 5 UPDATE TO FILE 316 FROM THE AIRFORCE TO VERSION 11.0 * 00078400 //* JANUARY 25, 1985 * 00078500 //* * 00078600 //* 6 ADDITION OF FILES 453 - 455 FROM THE U.S. AIRFORCE * 00078700 //* IN SAN ANTONIO . THESE FILES CONTAINS : * 00078800 //* A. PROCEDURES FOR FREE VERSIONS OF : * 00078900 //* 1. PL1 F * 00079000 //* 2. FORTRAN G * 00079100 //* 3. FORTRAN H (GODDARD SPACE FLIGHT CENTER * 00079200 //* VERSION ) * 00079300 //* B. PLI F COMPILER AND SUBROUTINE LIBRARY * 00079400 //* C. FORTRAN G & H COMPILES AND SUBROUTINE LIBRARY * 00079500 //* * 00079600 //* 7 ADDITION OF FILE 384 FROM COMPUTER DATA SYSTEMS INC * 00079700 //* OF ROCKVILLE , MARYLAND . THIS FILE CONTAINS : * 00079800 //* A . ISPF QUE ( SEE $$QDOC ) * 00079900 //* B . ISPF SPY ( SEE ISP#QI2 ) * 00080000 //* C . OTHER PGMS ( SEE $$$DOC ) * 00080100 //* * 00080200 //* 8 UPDATE TO FILE 296 FROM MR BRUCE LELAND OF HATACHI * 00080300 //* THIS HAS BEEN UPDATED TO CONTAIN : * 00080400 //* A . DVOL - MODFIED FOR MVS/XA * 00080500 //* B . HEL - MODFIED TO HANDLE 3278 MODELS * 00080600 //* 3 AND 4 AND 5 * 00080700 //* C . COMPARE - ADDED A PDS PUTLINE INTERFACE * 00080800 //* * 00080900 //* 9 ADDITION OF FILE 198 WHICH IS THE PREVIOUS VERSION * 00081000 //* OF PDS * 00081100 //* * 00081200 //* 10 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00081300 //* PDS TSO CP . VERSION 7.0 * 00081400 //* THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS * 00081500 //* VERSION : * 00081600 //* * 00081700 //* NEW SUBCOMMAND * 00081800 //* * 00081900 //* MEMLIST -- INVOKES A MEMBER LIST MANAGEMENT * 00082000 //* INTERFACE WRITTEN BY STEVEN SMITH WITH * 00082100 //* SECURITY PACIFIC NATIONAL BANK IN LOS ANGELES. * 00082200 //* * 00082300 //* CHANGES AND IMPROVEMENTS * 00082400 //* * 00082500 //* 1. VERIFY: ADDED MEMBER AND MEMBER GROUP * 00082600 //* VERIFICATION SUPPORT. * 00082700 //* 2. IF AND FIND: * 00082800 //* A. ADDED THEN(VERIFY) AND ELSE(VERIFY) * 00082900 //* B. ADDED THEN(MEMLIST) AND ELSE(MEMLIST) * 00083000 //* 3. ISPMODE: ENTERED SUBCOMMANDS ARE ECHOED IN * 00083100 //* UPPER/LOWER CASE. * 00083200 //* 4. COMPRESS: SHOULD BE EFFECTIVE FOR ANY SIZE DATA * 00083300 //* SET. * 00083400 //* 5. ISPMODE: ADDED THREE OPERANDS - * 00083500 //* A. CHKMAX(NUMBER) CONTROLS THE NUMBER OF LINES * 00083600 //* BETWEEN CHECKPOINTS. * 00083700 //* B. CMDMAX(NUMBER) CONTROLS THE AMOUNT OF * 00083800 //* OUTPUT FROM A SUBCOMMAND. * 00083900 //* C. TBLMAX(NUMBER) CONTROLS THE SIZE OF THE * 00084000 //* ISPF DIALOG TABLE. * 00084100 //* 6. CONTROL: * 00084200 //* A. RENAMED THE ABEND, CPULOOP, MSGS AND * 00084300 //* OUTLOOP OPERANDS TO TESTABEND, TESTCPULOOP, * 00084400 //* TESTMSGS AND TESTOUTLOOP. * 00084500 //* B. ADDED THE SYSOUT OPERAND TO PROVIDE * 00084600 //* HARDCOPY LOGGING. * 00084700 //* C. ADDED THE DSNAME OPERAND TO PROVIDE DATA * 00084800 //* SET LOGGING. * 00084900 //* 7. FIXPDS: * 00085000 //* A. RENAMED THE RESETDIR OPERAND TO RESET. * 00085100 //* B. ADDED SUPPORT FOR SEQUENTIAL DATA SETS. * 00085200 //* C. ADDED MAXSPACE, RELEASE, RELEXTENT AND * 00085300 //* RELSAVE OPERANDS. * 00085400 //* D. REDUCED THE DEFAULT BLOCKSIZES FOR 3350, * 00085500 //* 3375 AND 3380 DISKS. * 00085600 //* 8. RECALL: ADDED SUPPORT UNDER ISPMODE AND * 00085700 //* MEMLIST. * 00085800 //* 9. ATTRIB AND IF: ADDED SUPPORT FOR SSI FIELD * 00085900 //* MANIPULATION. * 00086000 //* 10. OUTCOPY: ADDED THE TEXT OPERAND. * 00086100 //* 11. TSO SUBCOMMAND: * 00086200 //* A. CAN PROCESS CLISTS WHICH ARE EXTERNAL TO * 00086300 //* PDS. * 00086400 //* B. CAN OPTIONALLY INTERFACE TO TSOEXEC FOR * 00086500 //* TSO/E RELEASE 2. * 00086600 //* 12. EDIT SUBCOMMAND: RENAMED TO TSOEDIT. * 00086700 //* 13. SPFEDIT SUBCOMMAND: * 00086800 //* A. RENAMED TO EDIT (WITH AN ALIAS OF SPFEDIT). * 00086900 //* B. ADDED THE MACRO OPERAND FOR ISPF VERSION 2. * 00087000 //* 14. OPTIONS DIALOG SUPPORT: STEVE SMITH ADDED THE O * 00087100 //* LINE COMMAND AND THE O COMMAND TO PROVIDE PDS * 00087200 //* SUBCOMMAND ENTRY ASSISTANCE. * 00087300 //* 15. PROGRAM ENTRY FROM ISPF: ALLOWS FOR THREE * 00087400 //* DIFFERENT ENTRY MODES. * 00087500 //* 16. PDS200I MESSAGE: ADDED THE NUMBER OF EXTENTS IN * 00087600 //* THE MESSAGE. * 00087700 //* 17. PDS300A MESSAGE: ADDED A DEFAULT GROUP DISPLAY * 00087800 //* TO THE MESSAGE. * 00087900 //* PROBLEMS FIXED * 00088000 //* 1. 3278-5 TERMINALS: ISPMODE DISPLAYS ARE LIMITED * 00088100 //* TO 80 BYTES. * 00088200 //* 2. IF CREATED AND CHANGED: LOAD MODULE CHECKING * 00088300 //* WAS INCORRECT WHEN A YEAR BOUNDARY WAS * 00088400 //* SPANNED. * 00088500 //* ADDITIONAL INFORMATION * 00088600 //* 1. PROGRAM COMMENTS FOLLOWING VER 7.0: ON PAGE 18 * 00088700 //* OF A LISTING. * 00088800 //* 2. THE INFORMATION IN THE HELP MEMBER AND IN THE * 00088900 //* HELP PANELS. * 00089000 //* * 00089100 //* 11 UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION * 00089200 //* 70 * 00089300 //* * 00089400 //***SECTION V-241 SECTION * 00089500 //* V-241 CHANGES FOR VERSION 241 JANUARY 01, 1985 * 00089600 //* * 00089700 //* 1 UPDATE TO FILE 182 WHICH IS A COPY OF PDS VERS 6.3 * 00089800 //* TO THE MEMBER CALLED PDSGEN63 TO ADD A COMMENT * 00089900 //* ABOUT USING AN SPLEVEL MACRO EQUAL 1 WHEN COMPILING * 00090000 //* WITH AN XA MACLIB * 00090100 //* * 00090200 //* 2 UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION * 00090300 //* # 6.5 OF TSUPDATE FROM CONRAIL * 00090400 //* * 00090500 //***SECTION V-240 SECTION * 00090600 //* V-240 CHANGES FOR VERSION 240 DECEMBER 18, 1984 * 00090700 //* * 00090800 //* 1 DELETION OF THE FOLLOWING FILES FROM ROCKWELL * 00090900 //* INTERNATIONAL * 00091000 //* FILE 384 * 00091100 //* * 00091200 //* 2 ADDITION OF FILES 431-452 FROM ROCKWELL * 00091300 //* INTERNATIONAL OF SEAL BEACH , CALIFORNIA WHICH * 00091400 //* CONTAIN A COPY OF THEIR SYSTEMS PROGRAMMING * 00091500 //* TOOLS TAPE * 00091600 //* * 00091700 //* 3 UPDATE TO FILE 161 FROM THE AIRFORCE WHICH CONTAINS * 00091800 //* A COPY OF THEIR ISPF/PDF CODE TO VERSION 1 DATED * 00091900 //* NOVEMBER 27, 1984 * 00092000 //* * 00092100 //***SECTION V-239 SECTION * 00092200 //* V-239 CHANGES FOR VERSION 239 NOVEMBER 18, 1984 * 00092300 //* * 00092400 //* 1 UPDATE CROSS REFERENCE SECTION FROM DAVE COLE ABOUT * 00092500 //* HIS MACLIB (408) AND - DYNABLDL (407), XREFASM (162) * 00092600 //* SCHEDULE (388) COMPRSEQ (226) OFFLOAD (225) * 00092700 //* * 00092800 //* 2 UPDATE TO FILE 314 WHICH IS THE MVS/SP1.3 JES2 MODS * 00092900 //* TAPE ABSTRACT TO VERSION 036 * 00093000 //* * 00093100 //* 3 UPDATE TO FILE 393 WHICH IS A COPY OF THE TSO CP * 00093200 //* CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.3/4 .THIS * 00093300 //* VERSION IS FROM JACK SCHUDEL FROM THE UNIVERSITY * 00093400 //* OF FLORIDA AND WAS LIFTED FROM VER 36 OF THE JES2 * 00093500 //* MODS TAPE * 00093600 //* * 00093700 //***SECTION V-238 SECTION * 00093800 //* V-238 CHANGES FOR VERSION 238 NOVEMBER 04, 1984 * 00093900 //* * 00094000 //* 1 UPDATE TO FILE 182 WHICH IS A COPY OF PDS VERS 6.3 * 00094100 //* TO CORRECT AN ERROR IN THE ATTENTION INTERRUPT * 00094200 //* HANDLING ROUTINE ( ALSO CORRECTED THE LOAD MODULE * 00094300 //* IN FILE 035 ) * 00094400 //* * 00094500 //* 2 UPDATE TO FILE 032 FROM ROHM AND HAAS COMPANY TO * 00094600 //* VERSION 2 OF NCCF AND ALL PRIOR RELEASES IN * 00094700 //* COMBINATION WITH ACF2 V3.1.4 OR BEFORE * 00094800 //* * 00094900 //***SECTION V-237 SECTION * 00095000 //* V-237 CHANGES FOR VERSION 237 OCTOBER 28, 1984 * 00095100 //* * 00095200 //* 1 UPDATE TO FILE 182 WHICH IS A COPY OF PDS VERS 6.3 * 00095300 //* TO CORRECT AN ASSEMBLE ERROR WHEN USING THE OS/VS * 00095400 //* ASSEMBLER ( THE H ASSEMBLER HAS NO PROBLEMS) * 00095500 //* * 00095600 //* 2 UPDATE TO FILE 299 FROM DAVE COLE AT COMNET TO * 00095700 //* CONTAIN AN UPDATED COPY OF TAPEMAP . THIS VERSION * 00095800 //* HAS BEEN UPDATED TO * 00095900 //* 1 SHOW DETAILED LISTINGS OF THE CONTENTS OF FDR * 00096000 //* AND FDRDSF TAPES * 00096100 //* 2 ADDED SUPPORT FOR BLKSIZES GREATER THAN 32K * 00096200 //* UP TO 64K-1 BYTES . ( THE RECENT RELEASES OF * 00096300 //* FDR WRITE BLOCKS THAT ARE 50K LARGE OR * 00096400 //* LARGER ) * 00096500 //* 3 ADDED A REWIND COMMAND JUST AFTER THE TAPE IS * 00096600 //* OPENED TO INSURE THAT THE TAPE IS PROPERLY * 00096700 //* POSITIONED . THIS MAKES TAPE MAPPING STANDARD * 00096800 //* LABELED TAPES IN A UCC/1 ENVIROMNEMT A LITTLE * 00096900 //* EASIER * 00097000 //* * 00097100 //* 3 UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES * 00097200 //* OF : A DYNABLDL SOURCE FILE 407 * 00097300 //* B TAPEMAP SOURCE FILE 299 * 00097400 //* C OFFLOAD SOURCE FILE 225 * 00097500 //* * 00097600 //* 4 UPDATE TO FILE 407 FROM DAVE COLE AT COMNET TO * 00097700 //* CONTAIN AN UPDATED COPY OF DYNAMIC BLDL : * 00097800 //* A ADD SUPPORT OF ADDITION VERSIONS OF IGC018 * 00097900 //* ( DPF VERSIONS ) * 00098000 //* * 00098100 //* 5 UPDATE TO FILE 408 FROM DAVE COLE AT COMNET TO * 00098200 //* CONTAIN AN UPDATED COPY OF HIS MACRO LIBRARY * 00098300 //* * 00098400 //* 6 UPDATE TO FILE 225 FROM DAVE COLE AT COMNET TO * 00098500 //* CONTAIN AN UPDATED COPY OF THE OFFLOAD PROGRAM * 00098600 //* * 00098700 //***SECTION V-236 SECTION * 00098800 //* V-236 CHANGES FOR VERSION 236 OCTOBER 21, 1984 * 00098900 //* * 00099000 //* 1 UPDATE TO FILE 116 WHICH IS A DISK SEEK ANALYSIS * 00099100 //* PROGRAM TO RUN UNDER AN MVS/XA AND NON - XA * 00099200 //* ENVIRONMENT * 00099300 //* * 00099400 //* 2 UPDATE TO FILE 325 FROM WELLS FARGO TO ADD NEW CODE * 00099500 //* * 00099600 //* 3 UPDATE TO FILE 296 FROM MR BRUCE LELAND OF HATACHI * 00099700 //* THIS HAS BEEN UPDATED TO CONTAIN A NEW TSO CP CALLED * 00099800 //* XEQ AND UPDATED VERSIONS OF HEL AND REVIEW * 00099900 //* * 00100000 //* 4 UPDATE TO FILE 112 FROM MR BRUCE LELAND OF HATACHI TO* 00100100 //* VTOC WHICH WILL WORK UNDER MVS XA AND NON XA AND ICF * 00100200 //* CATALOGS WITH MORE THAN 16 EXTENTS * 00100300 //* * 00100400 //* 5 DELETION OF FILES 198 AND 199 WHICH CONTAINED AN OLD * 00100500 //* COPY OF VTOC . REPLACED BY FILE 112 * 00100600 //* * 00100700 //* 6 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00100800 //* PDS TSO CP . VERSION 6.3 * 00100900 //* THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS * 00101000 //* VERSION : * 00101100 //* * 00101200 //* NEW SUBCOMMAND * 00101300 //* -------------- * 00101400 //* ISPMODE -- INVOKES AN ISPF SESSION DISPLAY * 00101500 //* INTERFACE . * 00101600 //* IMPROVEMENTS * 00101700 //* ------------ * 00101800 //* 1 VERIFY : ADDED A MAXIMUM PHYSICAL BLOCKSIZE * 00101900 //* MESSAGE * 00102000 //* 2 FIND : ADDED CAPS AND ASIS KEYWORDS FOR ENTERING 00102100 //* LOWER CASE CHARACTER DATA. * 00102200 //* 3 IF AND HISTORY : ADDED A SYSMOD ALIAS FOR THE * 00102300 //* USER KEYWORD . * 00102400 //* 4 DSNAME : REVISED THE PDS200I MESSAGE . * 00102500 //* 5 BATCH EXECUTION : CONTROL NORECOVER IS NOW A * 00102600 //* DEFAULT TO PREVENT MULTIPLE ABENDS DURING BATCH * 00102700 //* EXECUTION ; IF ABEND RECOVERY IS DESIRED ; * 00102800 //* CONTROL RECOVER MUST BE EXPLICITLY SPECIFIED . * 00102900 //* 6 PDS CUSTOMIZATION : CONTROLS WERE ADDED FOR PDS * 00103000 //* TO INVOKE A CLIST INSTEAD OF A TSO COMMAND FOR * 00103100 //* CERTAIN PDS SUBCOMMANDS . * 00103200 //* 7 EXIT ROUTINES : ADDED AN ACF2 SAMPLE SECURITY * 00103300 //* EXIT . * 00103400 //* PROBLEMS FIXED * 00103500 //* -------------- * 00103600 //* 1 PROFILE NOPREFIX : CAUSED AN DATA SET ALLOCATION 00103700 //* S0C4 ABEND AND FILENAME ALLOCATION DID NOT WORK * 00103800 //* PROPERLY EITHER . * 00103900 //* 2 COMMAND LINE PARSE : PDS DATA.SET VOL(VOLSER) * 00104000 //* SHR DID NOT WORK . * 00104100 //* 3 HISTORY : CERTAIN FOCUS LOAD MODULES RECEIVED * 00104200 //* S0C7 ABENDS . * 00104300 //* 4 SPFEDIT , BROWSE , ISPF : THE RETURN KEY ( OR * 00104400 //* EXTENDED RETURN) CAUSED SUBSEQUENT SPFEDIT , * 00104500 //* BROWSE OR ISPF SUBCOMMANDS TO EXIT PREMATURELY * 00104600 //* THEY ARE NOW REINVOKED TO RESET RETURN * 00104700 //* PROCESSING . * 00104800 //* 5 PDS INVOKED UNDER EDIT : THE SPFEDIT SUBCOMMAND * 00104900 //* DID NOT WORK . * 00105000 //* 6 ATTENTION EXIT : * 00105100 //* A ADDED TCLEARQ INPUT TO SYNCRONIZE TERMINAL * 00105200 //* INPUTS. * 00105300 //* B ADDED STATUS STOP TO TERMINATE ANY * 00105400 //* SUBTASKS . * 00105500 //* C ADDED GETPUT TERM TO DISALLOW PROMPT INPUT * 00105600 //* FROM A CLIST . * 00105700 //* D ADDED STACK DELETE TO TERMINATE ANY CURRENT * 00105800 //* CLIST . * 00105900 //* 7 ESTAE EXIT : ADDED STACK DELETE TO TERMINATE ANY 00106000 //* CURRENT CLIST . * 00106100 //* 8 COMPRESS SB37 ABEND : ADDED A PDS GENERATION * 00106200 //* CONTROL TO SPECIFY THE MAXIMUM NUMBER OF * 00106300 //* MEMBERS IN A DATA SET TO BE COMPRESSED . * 00106400 //* 9 ISPF RESERVE/DEQ NAME : CHANGED THE MAJOR NAME * 00106500 //* FROM SPFDSN TO SPFEDIT AS IN PTF UZ65671 . * 00106600 //* 10 SESSION MANAGER : * 00106700 //* A PDS ENTRY PANEL : OBTAINED AN S0C4 ABEND * 00106800 //* B SPFEDIT AND BROWSE : TURNED OFF SESSION * 00106900 //* MANAGER * 00107000 //* C RESTORE WITH PROMPT : REQUIRED DOUBLE YES/NO 00107100 //* PROMPTING * 00107200 //* D KLEAR : CAUSED ERRONEOUS INVALID SUBCOMMAND * 00107300 //* MESSAGES * 00107400 //* * 00107500 //***SECTION V-235 SECTION * 00107600 //* V-235 CHANGES FOR VERSION 235 SEPTEMBER 16, 1984 * 00107700 //* * 00107800 //* 1 UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES * 00107900 //* OF : A DYNABLD SOURCE FILE 407 * 00108000 //* B TAPEMAP SOURCE FILE 299 * 00108100 //* * 00108200 //* 2 REMOVAL OF THE TAPEMAP PROGRAM FROM FILES 149 AND * 00108300 //* 316 OF THIS TAPE . TAPEMAP IS NOW ON FILE 299 * 00108400 //* * 00108500 //* 3 ADDITION OF FILE 162 FROM MR DAVE COLE OF COMNET * 00108600 //* WHICH CONTAINS A COPY OF THEIR GLOBAL CROSS - * 00108700 //* REFERENCE LISTING GENERATOR ( XREFASM ) * 00108800 //* * 00108900 //* 4 UPDATE TO FILE 299 FROM DAVE COLE AT COMNET TO * 00109000 //* CONTAIN AN UPDATED COPY OF TAPEMAP . THIS VERSION * 00109100 //* HAS SEVERAL CHANGES TO IT - THIS VERSION WILL ALSO * 00109200 //* REPLACE THE VERSIONS OF TAPEMAP THAT WERE IN FILES * 00109300 //* 149 AND 316 ( ALSO UPDATED THE LOAD MODULE IN FILE * 00109400 //* 035 ) * 00109500 //* * 00109600 //* 5 ADDITION OF FILE 336 FROM RICE UNIVERISTY WHICH * 00109700 //* CONTAINS SEVERAL OF THE UTILITY PROGRAMS , TSO * 00109800 //* COMMANDS PROCESSORS , MACROS , ETC * 00109900 //* * 00110000 //* 6 UPDATE TO FILE 388 TO REMOVE ALL THE MACROS FROM * 00110100 //* THE SCHEDULER SYSTEM AND PUT THEM IN FILE 408 * 00110200 //* OF THIS TAPE * 00110300 //* * 00110400 //* 7 UPDATE TO FILE 390 FROM ANR PRODUCTION CO. TO * 00110500 //* THEIR JES2 1.3.3 VERSION OF QUE TO THE 3.1.4 OR * 00110600 //* 3.1.5 LEVEL OF ACF2 * 00110700 //* * 00110800 //* 8 UPDATE TO FILE 407 FROM DAVE COLE AT COMNET TO * 00110900 //* CONTAIN AN UPDATED COPY OF DYNAMIC BLDL : * 00111000 //* A ADD SUPPORT OF ADDITION VERSIONS OF IGC018 * 00111100 //* B THE DYNABLD REPORT NOWS FLAGS LOAD MODULES THAT * 00111200 //* ARE REENTRANT * 00111300 //* * 00111400 //* 9 UPDATE TO FILE 408 FROM DAVE COLE AT COMNET TO * 00111500 //* CONTAIN AN UPDATED COPY OF HIS MACRO LIBRARY * 00111600 //* * 00111700 //* 10 ADDITION OF FILE 419 WHICH IS A COPY OF DIDOCS THAT * 00111800 //* RUNS UNDER MVS / XA 2.1.2 FROM HAMILTON STANDARD * 00111900 //* * 00112000 //* 11 ADDITION OF FILE 420 WHICH IS A PDS FROM CONNECTICUT * 00112100 //* NATIONAL BANK THAT CONTAINS SOME SAS PROGRAMS THAT * 00112200 //* PROCESS MVS / XA RMF DATA * 00112300 //* * 00112400 //***SECTION V-234 SECTION * 00112500 //* V-234 CHANGES FOR VERSION 234 AUGUST 28, 1984 * 00112600 //* * 00112700 //* 1 UPDATE TO FILE 300 FROM THE AIRFORCE TO VERSION 14.0 * 00112800 //* JULY 24, 1984 * 00112900 //* * 00113000 //* 2 ADDITION OF FILE 161 FROM THE AIRFORCE TO CONTAIN A * 00113100 //* COPY OF THEIR ISPF/PDF CODE * 00113200 //* * 00113300 //* 3 UPDATE TO FILE 160 FROM THE COMMONWEALTH OF * 00113400 //* MASSACHUSETTS TO GET A NEWER VERSION OF THEIR * 00113500 //* TSO FREEALL CP * 00113600 //* * 00113700 //***SECTION V-233 SECTION * 00113800 //* V-233 CHANGES FOR VERSION 233 AUGUST 22, 1984 * 00113900 //* * 00114000 //* 1 UPDATE TO FILE 325 FROM WELLS FARGO TO ADD NEW CODE * 00114100 //* * 00114200 //* 2 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00114300 //* PDS TSO CP . VERSION 6.2B * 00114400 //* THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS * 00114500 //* VERSION : * 00114600 //* * 00114700 //* NEW SUBCOMMANDS: * 00114800 //* ---------------- * 00114900 //* 1 COMPARE -- INVOKES THE TSO COMPARE COMMAND * 00115000 //* 2 COMPRESS -- COMPRESSES THE DATA SET * 00115100 //* 3 DSNAME -- DISPLAYS THE CURRENT ALLOCATION * 00115200 //* 4 DSPRINT -- PRINTS A HARDCOPY USING DSPRINT * 00115300 //* 5 ISPF -- INVOKES THE ISPF PRIMARY PANEL * 00115400 //* IMPROVEMENTS * 00115500 //* ------------ * 00115600 //* 1 ADDED IDENTIFIERS FOR PROGRAM MESSAGES * 00115700 //* 2 ADDED AN EXTENDED HELP FACILITY FOR MESSAGE * 00115800 //* EXPLANATIONS * 00115900 //* 3 MEMBER LISTS : ADDED FOR SUBCOMMANDS WHICH * 00116000 //* DEFINE MEMBER GROUPS * 00116100 //* 4 INPUT BUFFERING : THREE BUFFERING MODES CAN BE * 00116200 //* SELECTED * 00116300 //* 5 ALLOCATION : * 00116400 //* A REWRITTEN TO USED SVC 99 INSTEAD OF DAIR * 00116500 //* B ADDED FILE(FILENAME) SUPPORT * 00116600 //* C ADDED * DATA SET NAME SUPPORT * 00116700 //* D ADDED ALIAS DATA SET NAME SUPPORT * 00116800 //* 6 OUTCOPY: MADE ECHO MODE THE DEFAULT AND ADDED * 00116900 //* THE ALIAS OPERAND * 00117000 //* 7 SECURITY: * 00117100 //* A ADDED A SUBCOMMAND AUTHORIZATION EXIT * 00117200 //* B ADDED A TSO COMMAND AUTHORIZATION EXIT * 00117300 //* C ADDED SEVERAL SAMPLE EXITS (ONE USES RACF) * 00117400 //* 8 USAGE : EXPANDED TO INCLUDE MORE DATA SET * 00117500 //* INFORMATION * 00117600 //* 9 IF : ADDED CREATED AND CHANGED KEYWORDS * 00117700 //* 10 RECALL : CHANGED TO ALLOW CHARACTER INSERT ON * 00117800 //* 3270 TERMINALS * 00117900 //* 11 PDS PANEL FOR SPF : ADDED A HELP SCREEN * 00118000 //* 12 ADDED INSTALLATION GENERATION CONTROLS TO * 00118100 //* SPECIFY : * 00118200 //* A NULL SUBCOMMANDS * 00118300 //* B SUBCOMMAND NAMES * 00118400 //* C SUPPORTING TSO COMMAND NAMES * 00118500 //* D THE DEFAULT DSNAME OPERAND * 00118600 //* E DEFAULT BUFFERING BY DEVICE TYPE * 00118700 //* F DEVICE UNIT NAMES DISPLAYED * 00118800 //* PROBLEMS FIXED * 00118900 //* -------------- * 00119000 //* 1 VERIFY : DATA SETS WITH LARGE DIRECTORIES * 00119100 //* SOMETIMES RECEIVED S0C4 ABEND ERRORS * 00119200 //* 2 % OR IMPLIED CLIST : A PROC STATEMENT IS NO * 00119300 //* LONGER REQUIRED * 00119400 //* 3 ESTAE RECOVERY : MVX/XA 2.1.2 RECEIVED A S0C4 * 00119500 //* AND A S0C6 ABEND * 00119600 //* * 00119700 //* 3 DELETE THE DATA IN FILES 271-274 AND MOVE ALL THOSE * 00119800 //* PROGRAMS TO FILE 270 * 00119900 //* * 00120000 //* 4 UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP * 00120100 //* SERVICE CENTER TO CONTAIN SEVERAL OF THEIR LOCAL * 00120200 //* UTILITIES * 00120300 //* * 00120400 //* 5 ADDITION OF FILE 159 FROM CBT WHICH CONTAINS A COPY * 00120500 //* THEIR UCBFIND ROUTINE FOR MVS AND MVS/XA * 00120600 //* * 00120700 //* 6 UPDATE TO FILE 296 FROM MR BRUCE LELAND OF HATACHI * 00120800 //* THIS HAS BEEN UPDATED TO CONTAIN HEL AND A NEW * 00120900 //* VERSION OF REVIEW * 00121000 //* * 00121100 //* 7 ADDITION OF FILE 160 FROM THE COMMONWEALTH OF * 00121200 //* MASSACHUSETTS WHICH CONTAINS SEVERAL OF THEIR * 00121300 //* TSO COMMAND PROCESSORS * 00121400 //* * 00121500 //* 8 UPDATE TO FILE 115 FROM L.L. BEAN TO THEIR * 00121600 //* PASSWORD MOD TO AN SP1.3.3 LEVEL * 00121700 //* * 00121800 //* 9 UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION * 00121900 //* # 6.4 OF TSUPDATE FROM CONRAIL TO HAVE 3380 SUPPORT * 00122000 //* * 00122100 //* 10 ADDITION OF FILE 401 TO CONTAIN A COPY OF THE * 00122200 //* MODIFIED TSSO SUBSYSTEM FROM MR MARC SCHARE OF BELL * 00122300 //* COMMUNICATION RESEARCH INC , NEW JERSEY * 00122400 //* * 00122500 //* 11 ADDITION OF FILES 271-273 FROM KEITH MOE FROM AMDHAL * 00122600 //* * 00122700 //* A FILE 271 - DYNAMIC PROCLIB * 00122800 //* B FILE 272 - VTAM LOGO MODIFICATION * 00122900 //* C FILE 273 - TSO AND STC UNDER A SECONDARY JES * 00123000 //* * 00123100 //* 12 UPDATE TO FILE 363 FROM COMMERICAL UNION TO BE * 00123200 //* XA COMPATIBLE AND ADD ADDITIONAL CODE * 00123300 //* * 00123400 //* 13 UPDATE TO FILE 364 FROM COMMERICAL UNION TO BE * 00123500 //* XA COMPATIBLE AND ADD ADDITIONAL PROCEDURES * 00123600 //* * 00123700 //* 14 UPDATE TO FILE 365 FROM COMMERICAL UNION TO BE * 00123800 //* XA COMPATIBLE * 00123900 //* * 00124000 //* 15 UPDATE TO FILE 367 FROM COMMERICAL UNION TO BE * 00124100 //* XA COMPATIBLE AND ADD ADDITIONAL PROGRAMS * 00124200 //* * 00124300 //* 16 UPDATE TO FILE 418 FROM COMBINED INTERNATIONAL . * 00124400 //* THE MEMBER CALLED ACFSCAN HAS BEEN UPDATED TO * 00124500 //* CORRECT A DATE INTERVAL PROBLEM WHEN A USER GOES TO * 00124600 //* A NEW YEAR * 00124700 //* * 00124800 //* 17 ADDITION OF FILE 274 FROM MR TOM BRYANT OF COMBINED * 00124900 //* INTERNATIONAL TO CONTAIN A COPY OF THEIR ISPF 3.8 * 00125000 //* VERSION WITH DESTINATION AND REMOTE SUPPORT * 00125100 //* * 00125200 //* 18 UPDATE TO FILE 417 WHICH CONTAINS A COPY OF THE # * 00125300 //* CMD1 SUBSYSTEM TO ADD THE FOLLOWING # COMMAND * 00125400 //* * 00125500 //* CSCSR03D #O DISPLAY I/O PENDING/ALLOC QUEUE * 00125600 //* * 00125700 //* FROM CONNECTICUT NATIONAL BANK * 00125800 //* * 00125900 //***SECTION V-232 SECTION * 00126000 //* V-232 CHANGES FOR VERSION 232 JUNE 17, 1984 * 00126100 //* * 00126200 //* 1 UPDATE TO FILE 353 FROM MORTON THIOKOL , INC OF * 00126300 //* CHICAGO . ALSO A NEW PROGRAM WHICH PROVIDES A FULL * 00126400 //* SCREEN EDITOR THAT CAN BE INVOKED AS A STARTED * 00126500 //* TASK , SPECIFYING A CRT ADRESS AS AN EXEC PARM * 00126600 //* * 00126700 //* 2 UPDATE TO FILE 388 TO CONTAIN AN UPDATED VERSION OF * 00126800 //* THE SCHEDULE SYSTEM FROM COMNET . THIS VERSION * 00126900 //* SCHEUDLES ON THE BASIS OF LOCAL TIME RATHER THAN * 00127000 //* GMT . THE MACROS NEEDED ARE CONTAINED IN FILE 408 * 00127100 //* OF THIS TAPE * 00127200 //* * 00127300 //* 3 UPDATE TO FILE 226 WHICH IS A NEW VERSION OF CMPRSEQ * 00127400 //* FROM DAVE COLE AT COMNET . THIS VERSION HAS SEVERAL * 00127500 //* ENHANCEMENTS FROM THE PREVIOUS VERSION * 00127600 //* * 00127700 //* 4 UPDATE TO FILE 339 FROM E.F. MACDONALD MOTIVATION * 00127800 //* WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM * 00127900 //* TO RUN UNDER JES2 1.3.4 AND OR JES2 1.3.3 * 00128000 //* * 00128100 //* 5 ADDITION OF FILE 158 FROM CONN MUTUAL WHICH IS * 00128200 //* A COPY OF THEIR DSPRINT REPLACEMENT * 00128300 //* * 00128400 //* 6 UPDATE TO FILE 381 FROM NORTHWESTERN BANK TO * 00128500 //* UPDATE THEIR JES2 EXITS FOR SP1.3.3 LEVEL * 00128600 //* * 00128700 //* 7 UPDATE TO FILE 263 FROM REVLON WHICH CONTAINS A * 00128800 //* COMPLETE REWRITE OF THE OLD GDG CHANGE PROGRAM * 00128900 //* * 00129000 //* * 00129100 //***SECTION V-231 SECTION * 00129200 //* V-231 CHANGES FOR VERSION 231 MAY 28, 1984 * 00129300 //* * 00129400 //* 1 ADDITION OF FILE 009 FROM COCA COLA IN ATLANTIC * 00129500 //* WHICH CONTAINS A COPY OF THEIR SYNCSORT EXIT * 00129600 //* * 00129700 //* 2 UPDATE TO FILE 218 FROM COCA COLA TO ADD A ZAP TO * 00129800 //* FIX A PROBLEM WITH THEIR RMFMON USER PROGRAM * 00129900 //* * 00130000 //* 3 ADDITION OF FILE 297 WHICH CONTAINS A COPY OF LSPACE * 00130100 //* AND VTOC THAT HAVE BEEN MODIFIED FOR USE IN AN XA * 00130200 //* SYSTEM ONLY FROM FEDERAL EXPRESS * 00130300 //* * 00130400 //* 4 ADDITION OF FILE 339 FROM E.F. MACDONALD MOTIVATION * 00130500 //* WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM * 00130600 //* * 00130700 //***SECTION V-230 SECTION * 00130800 //* V-230 CHANGES FOR VERSION 230 APRIL 15, 1984 * 00130900 //* * 00131000 //* 1 UPDATE TO FILES 182 AND 035 WHICH IS A COPY OF THE * 00131100 //* 6.1 VERSION OF PDS TO CORRECT A MINOR PROBLEM IE * 00131200 //* SHOW THE CORRECTED VERSION AND MODIFICATION LEVEL * 00131300 //* OF THE LINKAGE EDITOR WHEN A HISTORY DISPLAY IS * 00131400 //* REQUESTED OF A LOAD MODULE * 00131500 //* * 00131600 //* 2 ADDITION OF FILE 233 FROM GTE SYLVANIA OF DANVERS * 00131700 //* MASS WHICH SOULD BENEFIT PANSPOOL USERS (FILE 067) * 00131800 //* THAT EITHER HAVE NO ACCESS TO A PLI COMPILER OR * 00131900 //* JUST WANT TO SIMPLIFY THE SYSTEM * 00132000 //* * 00132100 //* 3 ADDITION OF FILE 325 FROM WELLS FARGO BANK IN * 00132200 //* CALIFORNIA TO ADD A FEW OF THEIR TSO COMMANDS AND * 00132300 //* PROGRAMS * 00132400 //* * 00132500 //* 4 UPDATE TO FILE 296 TO ADD TWO ADDITIONAL TSO CPS * 00132600 //* DSAT AND DVOL (ORIGINALLY FROM FLORIDA POWER AND * 00132700 //* LIGHT ( FILE 058 ) THIS CP'S WHERE CHANGED : * 00132800 //* DSAT - CHANGED TO SUPPORT 3375'S AND 3380'S * 00132900 //* DVOL - SUPPORT WAS ADDED FORM INDEXED VTOCS * 00133000 //* 3375'S AND 3380'S * 00133100 //* SUPPORT WAS ADDED FOR PARTIAL VOLUME * 00133200 //* NAMES * 00133300 //* SUPPORT WAS ADDED FOR UCB ADDRESSES * 00133400 //* AND PARTIAL UCB ADDRESSES * 00133500 //* * 00133600 //***SECTION V-229 SECTION * 00133700 //* V-229 CHANGES FOR VERSION 229 MARCH 25, 1984 * 00133800 //* * 00133900 //* 1 UPDATE TO FILE 294 TO CONTAINS THE VSAM ANALYZER * 00134000 //* THAT HAS 3380 SUPPORT * 00134100 //* * 00134200 //* 2 UPDATE TO FILES 182 AND 035 WHICH IS A COPY OF THE * 00134300 //* 6.1 VERSION OF PDS TO CORRECT A MINOR PROBLEM IE * 00134400 //* IF AN UN-DOCUMENTED BIT IS TURNED ON WHEN A HIS OF * 00134500 //* A MEMBER OF A LOAD MODULE IS REQUESTED RMODE 24 AND * 00134600 //* AMODE 24 IS DISPLAYED (NORMALLY AMODE 24 AND RMODE * 00134700 //* 24 IS NOT DISPLAYED ) * 00134800 //* * 00134900 //* 3 UPDATE TO FILE 334 FROM FEDERAL EXPRESS TO ADD * 00135000 //* SOME ADDITIONAL SAS PROGRAMS TO ALLOW AN * 00135100 //* INSTALLATION TO CHECK THE WORK SET SIZES ON * 00135200 //* PARTICULAR JOBS * 00135300 //* * 00135400 //* 4 ADDITION OF FILE 393 WHICH IS A COPY OF THE TSO CP * 00135500 //* CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.3 . THIS * 00135600 //* VERSION IS FROM JACK SCHUDELL FROM THE UNIVERSITY * 00135700 //* OF FLORIDA * 00135800 //* * 00135900 //***SECTION V-228 SECTION * 00136000 //* V-228 CHANGES FOR VERSION 228 MARCH 18, 1984 * 00136100 //* * 00136200 //* 1 UPDATE TO FILE 324 FROM CONNECTICUT NATIONAL BANK * 00136300 //* THE SAME VERSION OF # Q THAT IS IN FILE 266 OF THIS * 00136400 //* TAPE IS NOW ALSO IN THIS FILE * 00136500 //* * 00136600 //* 2 UPDATE TO FILE 417 TO CHANGE THE ESTAE WORK AREA * 00136700 //* FROM 16 BYTES TO 20 BYTES * 00136800 //* * 00136900 //* 3 REMOVAL OF THE OLD VERSIONS OF DYNMAIC BLDL ON THIS * 00137000 //* TAPE - HAVE RETAINED THE LASTEST 2 VERSIONS IN * 00137100 //* FILES 407 AND 335 * 00137200 //* * 00137300 //* 4 EVERY OCCURANCE OF HARTFORD NATIONAL BANK HAS BEEN * 00137400 //* CHANGED TO CONNECTICUT NATIONAL BANK IN THIS FILE * 00137500 //* * 00137600 //* 5 REMOVE THE TSO CP CALLED PDS FROM FILE 300 SO AS NOT * 00137700 //* TO HAVE MULTIPLE COPIES ON THIS TAPE * 00137800 //* * 00137900 //* 6 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00138000 //* PDS TSO CP . VERSION 6.1 * 00138100 //* THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS * 00138200 //* VERSION : * 00138300 //* * 00138400 //* NEW SUBCOMMANDS : * 00138500 //* ---------------- * 00138600 //* 1 CONTROL -- SPECIFIES PDS PROCESSING OPTIONS. * 00138700 //* 2 REVIEW -- INVOKES THE TSO REVIEW COMMAND. * 00138800 //* IMPROVEMENTS : * 00138900 //* ------------- * 00139000 //* 1 INPUT BUFFERING : DOUBLE BUFFERING IS USED * 00139100 //* WHEREVER POSSIBLE * 00139200 //* 2 FIND AND LIST : * 00139300 //* A ADDED SUPPORT FOR OUTPUT OF CSECT * 00139400 //* INFORMATION * 00139500 //* B CHANGED LOAD MODULE DEFAULT OUTPUT FORMAT * 00139600 //* TO LDUMP * 00139700 //* C ADDED MODULE AND OFFSET KEYWORDS * 00139800 //* D ADDED A SECOND OUTPUT DISPLACEMENT FIELD * 00139900 //* 3 RESTORE : * 00140000 //* A CHANGED RESTORE SCAN TO ALSO CONSIDER THE * 00140100 //* PROVIDED TTR ADDRESS AS THE ADDRESS OF A * 00140200 //* DELETED MEMBER * 00140300 //* B ADDED THE LIKE KEYWORD * 00140400 //* 4 DELETE : REWROTE TO TAKE ADVANTAGE OF DOUBLE * 00140500 //* BUFFERING * 00140600 //* 5 DISPLAY AND PATTERN : ADDED MEMBER GROUP SYNTAX * 00140700 //* 6 IF : ADDED APFERR AND NOAPFERR KEYWORDS * 00140800 //* 7 VERIFY : ADDED UPDATE AND NOUPDATE KEYWORDS * 00140900 //* 9 FIXPDS : BLOCKSIZE VALUES FOR DATA KEYWORDS SUCH 00141000 //* AS ASM , CLIST , CNTL , LOAD OR OBJECT ARE * 00141100 //* BASED ON THE DEVICE TYPE * 00141200 //* PROBLEMS FIXED : * 00141300 //* --------------- * 00141400 //* 1 PDS DIALOG ENTRY TO PDS : THE ACTUAL ECT IS NOW * 00141500 //* LOCATED * 00141600 //* 2 TSO SERVICE ROUTINE ADDRESSES : LOAD AND DELETES 00141700 //* ARE PERFORMED FOR ANY SERVICE ROUTINE ADDRESSES * 00141800 //* NOT LOCATED IN THE CVT * 00141900 //* 3 TSO : THE TIME OPERAND IS NOW SUPPORTED * 00142000 //* 4 EDIT , FSE , PRINTOFF , REVIEW , SUBMIT AND * 00142100 //* TSOLIST : PDS CHECKS FOR VALID MEMBER NAMES * 00142200 //* BEFORE LINKING TO THE COMMAND PROCESSOR * 00142300 //* 5 IF : AUTHORIZED MODULE CHECKING WAS INCORRECT * 00142400 //* ( THE APF LENGTH FIELD WAS NOT CHECKED * 00142500 //* PROPERLY ) * 00142600 //* ADDITIONAL INFORMATION : * 00142700 //* ----------------------- * 00142800 //* 1 PROGRAM COMMENTS FOLLOWING VER 6.1 : ON PAGE 14 * 00142900 //* OF A LISTING * 00143000 //* 2 THE HELP MEMBER * 00143100 //* * 00143200 //* 7 DELETION OF FILE 115 WHICH WAS OBSOLETE * 00143300 //* * 00143400 //* 8 ADDITION OF FILE 115 FROM L.L. BEAN WHICH CONTAINS * 00143500 //* A COPY OF THEIR CODE TO ALLOW PASSWORDS IN JCL * 00143600 //* * 00143700 //* 9 UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS * 00143800 //* DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER . * 00143900 //* * 00144000 //* 10 ADDITION OF FILE 222 FROM AMERICAN HOSPITAL SUPPLY * 00144100 //* CORPORATION OF MCGAW PARK , ILLINOIS WHICH CONTAINS * 00144200 //* A COPY OF THEIR DF/DS AND RMF EXITS * 00144300 //* * 00144400 //* 11 UPDATE TO FILE 416 FROM DELUXE CHECK PRINTERS * 00144500 //* TO THE FOLLOWING MEMBERS : * 00144600 //* EXIMPORT - GEN JCL FOR EXPORTS AND IMPORTS * 00144700 //* IGGPRE00 - DF/DS ALLOCATE PRE PROCESSING EXIT * 00144800 //* TESTER * 00144900 //* INMRZ01 - RECEIVE INITIALIZATION EXIT * 00145000 //* INMRZ11 - RECEIVE PRE-PROCESSING EXIT * 00145100 //* * 00145200 //***SECTION V-227 SECTION * 00145300 //* V-227 CHANGES FOR VERSION 227 FEBRUARY 26, 1984 * 00145400 //* * 00145500 //* 1 UPDATE TO FILE 300 FROM THE AIRFORCE TO VERSION 12.0 * 00145600 //* FEBRUARY 07, 1984 * 00145700 //* * 00145800 //* 2 UPDATE TO FILE 306 FROM THE AIRFORCE TO VERSION 5.0 * 00145900 //* OCTOBER 03, 1984 (CONTAINS XA VERSION OF TSSO) * 00146000 //* * 00146100 //* 3 UPDATE TO FILE 316 FROM THE AIRFORCE TO VERSION 10.0 * 00146200 //* FEBRUARY 07, 1984 * 00146300 //* * 00146400 //* 4 REMOVAL OFF ALL INFORMATION CONCERNING THE IMS USERS * 00146500 //* GROUP TAPE WHICH IS NO LONGER AVAILABLE * 00146600 //* * 00146700 //* 5 ADDITION OF FILE 417 THAT CONTAINS THE FOLLOWING * 00146800 //* # COMMANDS CONVERTED TO XA ( CMD1 XA VER VERSION ) * 00146900 //* * 00147000 //* CMDSBCSC CROSS SYSTEM CONTROL MODULE * 00147100 //* CMDSBINT INITIALIZATION AND MONITOR MODULE * 00147200 //* CMDSBTSO TSO FULL SCREEN MONITOR ( OLD VERSION ) * 00147300 //* CMDTSO TSO COMMAND (OLD VERSION) * 00147400 //* CSCSE03D #A EXTENDED DISPLAY ACTIVE * 00147500 //* CSCSG03D #R DISPLAY DEVICE * 00147600 //* CSCSI03D #V EXTNEDED DISPLAY UNITS * 00147700 //* CSCSJ03D #I DISPLAY SYSTEM INDICATORS * 00147800 //* CSCSL03D #J DISPLAY ACTIVE REPLACEMENT * 00147900 //* CSCZA03D ##A ACTIVITY MONITOR * 00148000 //* CSCZJ03D ##J JOB MONITOR * 00148100 //* * 00148200 //* PUT IEES*03D MODULES IN NON-PROTECTED MLPA * 00148300 //* * 00148400 //* 6 ADDITION OF FILE 418 FROM COMBINED INSURANCE OF * 00148500 //* AMERICA WHICH CONTAINS TWO ACF2 EXITS AND AN * 00148600 //* MVS/XA ( XA ) VERSION OF DIDOCS CALLED MCS * 00148700 //* * 00148800 //***SECTION V-226 SECTION * 00148900 //* V-226 CHANGES FOR VERSION 226 FEBRUARY 12, 1984 * 00149000 //* * 00149100 //* 1 UPDATE TO FILE 153 TO ADD A FEW FUNCTIONS TO QUE AND * 00149200 //* FIX SOME MINOR PROBLEMS THAT IT HAD (SEE THE MEMBER * 00149300 //* CALLED $$CHANGE) : * 00149400 //* A DISPLAY LINES ON HELD OUTPUT * 00149500 //* B DISPLAY AND UPDATE LINE NUMBERS AND DEVICE TYPE * 00149600 //* C DISPLAY REMOTE NUMBERS GREATER THAN 255 * 00149700 //* D ADDED SUPPORT FOR NON-3270 TYPE TERMINALS ( TTY ) * 00149800 //* E A MODULE TO ADJUST LINE LENGTH AND NUMBER OF * 00149900 //* LINES FOR TTY'S - CMD : SCR # # * 00150000 //* * 00150100 //* 2 UPDATE TO FILE 144 TO ADD A VERSION OF OF LSPACE * 00150200 //* THAT RUNS UNDER XA (THIS HAS BEEN ON THE TAPE SINCE * 00150300 //* JUNE 1983 BUT IT WAS NEVER DOCUMENTED IN FILE 001 ) * 00150400 //* * 00150500 //* 3 UPDATE TO FILE 329 WHICH IS A COPY OF AMDPSCAN FROM * 00150600 //* THE CITY UNIVERSITY OF NEW YORK . THIS UPDATE * 00150700 //* CONTAINS THE CURRENT VERSIONS OF AMDPSCAN . IT * 00150800 //* INCLUDES MVS/XA SUPPORT, ALL CURRENT PTFS TO BOTH * 00150900 //* THE 370 AND XA VERSIONS AND THE USERS GUIDE * 00151000 //* * 00151100 //***SECTION V-225 SECTION * 00151200 //* V-225 CHANGES FOR VERSION 225 FEBRUARY 05, 1984 * 00151300 //* * 00151400 //* 1 ADDITION OF FILE 416 FROM DELUXE CHECK PRINTERS * 00151500 //* THAT CONTAINS SEVERAL OF THEIR UTILITY PROGRAM * 00151600 //* * 00151700 //* 2 UPDATE TO FILE 358 FROM THE GEORGIA DEPARTMENT OF * 00151800 //* LABOR TO ADD ADDITIONAL PROGRAMS * 00151900 //* * 00152000 //***SECTION V-224 SECTION * 00152100 //* V-224 CHANGES FOR VERSION 224 JANUARY 15, 1984 * 00152200 //* * 00152300 //* 1 ADDITION OF FILE 404 FROM FLORIDA POWER , WHICH * 00152400 //* CONTAINS A COPY OF THEIR TSO CP CALLED MVSMON * 00152500 //* AT AN SP1.3 LEVEL , WHICH IS A COMMAND DRIVEN * 00152600 //* DISPLAY MONITOR * 00152700 //* * 00152800 //* 2 ADDITION OF FILE 405 FROM GTE IN WALTHAM , MASS , * 00152900 //* WHICH CONTAINS A COPY OF THEIR TSO CP CALLED * 00153000 //* SAFECOPY , WHICH ENABLES MANY USERS TO COPY DATA * 00153100 //* INTO THE SAME DATASET SIMULTANEOUSLY WITHOUT * 00153200 //* CONFLICTING WITH EACH OTHER * 00153300 //* * 00153400 //* 3 ADDITION OF FILE 406 FROM COMPUTER DATA SYSTEMS INC * 00153500 //* OF MARYLAND WHICH CONTAINS A COPY OF TWO OF THEIR * 00153600 //* TSO CP'S CALLED CQX AND FIND * 00153700 //* * 00153800 //* 4 UPDATE TO FILE 376 FROM RAINIER NATIONAL BANK TO FIX * 00153900 //* A BUG IN MEMBER $TEC462 * 00154000 //* * 00154100 //* 5 UPDATE TO FILE 001 OF THIS TAPE TO CREDIT AUTHORSHIP * 00154200 //* OF A FEW PROGRAMS TO THE PROPER INDIVIDUAL , MR * 00154300 //* DAVID B COLE , OF COMNET , IN WASHINGTON D.C. * 00154400 //* FILE 225 OFFLOAD (WHEN MR COLE WORKED FOR YALE) * 00154500 //* FILE 226 CMPRSEQ (WHEM MR COLE WORKED FOR YALE) * 00154600 //* FILE 388 SCHEDULE * 00154700 //* * 00154800 //* 6 ADDITION OF FILES 407 AND 408 FROM MR DAVID B COLE * 00154900 //* FROM COMNET THAT CONTAINS A NEW VERSION OF DYNABLDL * 00155000 //* THAT HAS SIGNIFICANT DIFFERENCES FROM THE OTHER * 00155100 //* VERSIONS ON THIS TAPE * 00155200 //* * 00155300 //* 7 ADDITION OF FILE 409 FROM BF GOODRICH WHICH CONTAINS * 00155400 //* A CORRECTION TO #D AND #T WHICH ARE CONTAINED IN * 00155500 //* FILE 266 OF THIS TAPE * 00155600 //* * 00155700 //* 8 ADDITION OF FILES 410-415 FROM BLUE CROSS/BLUE * 00155800 //* SHIELD OF KANSAS WHICH CONTAINS TWO DIALOG MANAGER * 00155900 //* APPLICATIONS . THE FIRST IS AN INTERFACE TO USE THE * 00156000 //* TSO ACCESS MEHTOD SERVICES COMMANDS AND THE SECONDS * 00156100 //* IS A CATALOGED DATA SET CLEANUP PROCESS * 00156200 //* * 00156300 //* 9 UPDATE TO FILE 035 TO CONTAIN A COPY OF THE LOAD * 00156400 //* MODULE CALLED DYNABLDL . THE SOURCE IS IN FILE 407 * 00156500 //* * 00156600 //***SECTION V-223 SECTION * 00156700 //* V-223 CHANGES FOR VERSION 223 NOVEMBER 27, 1983 * 00156800 //* * 00156900 //* 1 UPDATE TO FILE 182 TO HAVE THE CORRECT VERISON OF * 00157000 //* PDS - THE INCORRECT VERSION WAS LOADED ONTO VERSIONS * 00157100 //* 222 AND 221 BY MISTAKE * 00157200 //* * 00157300 //* 2 UPDATE TO FILES 310 AND 311 FROM NUSCO WHICH CONTAIN * 00157400 //* SOURCE AND CLISTS FROM THEIR INSTALLATION * 00157500 //* * 00157600 //* 3 UPDATE TO FILE 390 WHICH IS THE TSO CP CALLED QUE * 00157700 //* FROM ANR PRODUCTION COMPANY ( FORMERLY MICHIGAN * 00157800 //* WISCONSIN PIPELINE ) WHICH RUNS UNDER THE JES2 * 00157900 //* 1.3.3 LEVEL * 00158000 //* * 00158100 //* 4 ADDITION OF FILE 401 WHICH CONTAINS A COPY OF TSSO * 00158200 //* THAT HAS BEEN MODIFIED TO RUN UNDER MVS/SP XA AND * 00158300 //* SEVERAL OTHER XA PROGRAMS * 00158400 //* * 00158500 //* 5 ADDITION OF FILE 402 WHICH CONTAINS A COPY OF * 00158600 //* A DASD MANAGEMENT SYSTEM FROM THE NATIONAL BANK OF * 00158700 //* ALASKA , ANCHORAGE , ALASKA * 00158800 //* * 00158900 //* 6 ADDITION OF FILE 403 FROM COCA COLA IN ATLANTA WHICH * 00159000 //* CONTAINS A COPY OF THEIR MODIFICATION THAT SHOWS * 00159100 //* WHAT OPERATOR CONSOLE REPLIED TO A WTOR OR ISSUED * 00159200 //* A COMMAND * 00159300 //* * 00159400 //***SECTION V-222 SECTION * 00159500 //* V-222 CHANGES FOR VERSION 222 OCTOBER 30, 1983 * 00159600 //* * 00159700 //* 1 ADDITION OF FILE 388 FROM COMNET WHICH CONTAINS A * 00159800 //* COPY OF THEIR OPERATOR COMMANDS SCHEDULING FACILITY * 00159900 //* * 00160000 //* 2 ADDITION OF FILE 389 FROM CAPITAL HOLDING CORP WHICH * 00160100 //* CONTAINS A COPY OF LOGSCAN * 00160200 //* * 00160300 //***SECTION V-221 SECTION * 00160400 //* V-221 CHANGES FOR VERSION 221 OCTOBER 23, 1983 * 00160500 //* * 00160600 //* 1 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00160700 //* PDS TSO CP * 00160800 //* * 00160900 //* 2 ADDITION OF FILE 012 FROM JOHN HANCOCK MUTUAL LIFE * 00161000 //* WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER * 00161100 //* * 00161200 //* 3 ADDITION OF FILE 392 WHICH IS A COPY OF THE TSO CP * 00161300 //* CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.3 . THIS * 00161400 //* VERSION IS FROM THE TEXAS EMPLOYMENT COMMISSION * 00161500 //* * 00161600 //* 4 ADDITION OF FILE 387 FROM CITI-TRUST IN NEW YORK * 00161700 //* THIS FILE CONTAINS SEVERAL OF THEIR UTILITIES * 00161800 //* * 00161900 //***SECTION V-220 SECTION * 00162000 //* V-220 CHANGES FOR VERSION 220 SEPTEMBER 25, 1983 * 00162100 //* * 00162200 //* 1 UPDATE TO FILE 148 WHICH IS THE TSO CP CALLED QUE * 00162300 //* FROM ANR PRODUCTION COMPANY ( FORMERLY MICHIGAN * 00162400 //* WISDCONSIN PIPELINE ) TO ADD SOME CHANGES * 00162500 //* * 00162600 //* 2 ADDITION OF FILE 390 WHICH IS THE QUE TSO COMMAND * 00162700 //* PROCESSOR FROM ANR PRODUCTION COMPANY (FORMERLY * 00162800 //* MICHIGAN WISCONSIN PIPELINE ) WHICH RUNS UNDER THE * 00162900 //* JES2 1.3.3 LEVEL * 00163000 //* * 00163100 //* 3 ADDITION OF A QUE TSO CP SECTION IN THIS FILE WHERE * 00163200 //* I WILL ATTEMPT TO DOCUMENT ALL THE QUE COMMANDS THAT * 00163300 //* ARE ON THIS TAPE . AT THIS TIME THIS IS NOWHERE * 00163400 //* COMPLETE AS YOU WILL SEE IF YOU LOOK AT IT * 00163500 //* * 00163600 //* 4 ADDITION OF FILE 391 WHICH IS THE QUE TSO COMMAND * 00163700 //* PROCESSOR FROM OAK RIDGE NATIONAL LABORATORY . THIS * 00163800 //* VERSION HAS ALL THE SECURITY CHECKING MOVED TO A * 00163900 //* NEW CSECT * 00164000 //* * 00164100 //* 5 ADDITION OF FILE 386 FROM THE FIRST NATIONAL BANK OF * 00164200 //* ATLANTA WHICH A COPY OF THEIR AMASPZAP MODIFICATION * 00164300 //* TO PACIFY THE AUDITORS * 00164400 //* * 00164500 //* 6 UPDATE TO FILE 252 WHICH IS DYNALIST FROM STANDARD * 00164600 //* OIL TO ADD AN XA VERSION OF THE CODE . THE XA VER * 00164700 //* HAS TO RUN AUTHORIZED * 00164800 //* * 00164900 //***SECTION V-219 SECTION * 00165000 //* V-219 CHANGES FOR VERSION 219 AUGUST 28, 1983 * 00165100 //* * 00165200 //* 1 THE FOLLOWING INFORMATION HAS BEEN ADDED TO THE * 00165300 //* WRITE UP IN FILE 350 OF THIS TAPE : * 00165400 //* * 00165500 //* *************************************************** * 00165600 //* * * * 00165700 //* * THE SET CLOCK ROUTINE WAS NOT WRITTEN TO HANDLE * * 00165800 //* * MP'S AND AP'S . IF YOU HAVE A 3033AP , 3033MP , * * 00165900 //* * 168MP , 168AP OR 3084 DO NOT ATTEMPT TO USE THIS * 00166000 //* * ROUTINE - IF YOU DO YOU WILL LOSE YOUR SYSTEM * * 00166100 //* * * * 00166200 //* * IST AND MORINO ARE AWARE OF THIS PROBLEM AND * * 00166300 //* * WILL TRY TO RESOLVE IT IN THE FUTURE . HOWEVER * * 00166400 //* * THEY DO NOT HAVE AN AP OR AN MP . * * 00166500 //* * * * 00166600 //* *************************************************** * 00166700 //* * 00166800 //* 2 UPDATE TO FILE 118 WHICH IS A COPY OF AN SMP PUTXREF * 00166900 //* PROGRAM FROM THE HARTFORD INSURANCE GROUP * 00167000 //* * 00167100 //* 3 UPDATE TO FILE 300 TO RELEASE 11.0 OF TSO COMMANDS * 00167200 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO , TEXAS * 00167300 //* * 00167400 //* 4 UPDATE TO FILE 316 TO RELEASE 9.0 OF BATCH COMMANDS * 00167500 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO, TEXAS * 00167600 //* * 00167700 //* 5 ADDITION OF FILE 385 FROM THE HARTFORD INSURANCE * 00167800 //* GROUP WHICH CONTAINS A COPY OF THEIR LPA COMPARE PGM * 00167900 //* * 00168000 //***SECTION V-218 SECTION * 00168100 //* V-218 CHANGES FOR VERSION 218 AUGUST 07, 1983 * 00168200 //* * 00168300 //* 1 UPDATE TO FILE 141 FROM THE DEPARTMENT OF TRANS ., * 00168400 //* OF THE STATE OF WASHINGTON TO UPDATE SEVERAL OF * 00168500 //* THEIR COMMAND PROCESSORS TO AN MVS/SP1.3 LEVEL * 00168600 //* AND ADD ADDITIONAL NEW PROGRAMS . THE NEW PROGRAMS * 00168700 //* ARE : * 00168800 //* 1 ) BRODSCAN PROGRAM TO SCAN SYS1.BRODCAST * 00168900 //* DATASET AND REPORT STRUCTURE * 00169000 //* 2 ) BRODSCN$ SUMMARY OF BRODSCAN AND SAMPLE JCL * 00169100 //* 3 ) VSAMHST$ DESCRIBES USE OF VSAMHIST PROGRAM * 00169200 //* 4 ) VSAMHIST PROGRAM TO ANALYZE VSAM DATASET * 00169300 //* UTILIZATIONS * 00169400 //* * 00169500 //* 2 ADDITION OF FILE 381 FROM NORTHWESTERN BANK WHICH * 00169600 //* CONTAINS A COPY OF SOME OF THEIR PROGRAMS , JES2 * 00169700 //* EXITS AND UTILITIES * 00169800 //* * 00169900 //* 3 ADDITION OF FILE 382 FROM DELUXE CHECK PRINTERS * 00170000 //* WHICH IS A PROGRAM TO ALLOW TRANSMISSION OF ANY * 00170100 //* SIZE FILE FROM/TO AN MVS HOST FROM/TO A VS1 REGION * 00170200 //* RUNNING A WORKSTATION RJE PACKAGE (IN OUR CASE * 00170300 //* ' HRNES ' ) . * 00170400 //* * 00170500 //* 4 UPDATE TO FILE 352 WHICH IS THE INTEL MODS TAPE * 00170600 //* TO VERSION 1.11 (JULY 1983) * 00170700 //* THIS FILE HAS THE INTEL QUE COMMAND FOR USE WITH * 00170800 //* JES2 1.3.0 (THE LANE BRYANT CODE HAS BEEN * 00170900 //* INCORPORATED INTO THIS VERSION ) * 00171000 //* * 00171100 //* 5 ADDITION OF FILE 383 FROM INTEL WHICH IS A PDS * 00171200 //* CONTAINING A COPY OF THEIR CLISTS FOR THEIR * 00171300 //* TECHINFO SYSTEM WHICH IS INCLUDED IN FILE 352 OF * 00171400 //* THIS TAPE * 00171500 //* * 00171600 //***SECTION V-217 SECTION * 00171700 //* V-217 CHANGES FOR VERSION 217 JULY 17, 1983 * 00171800 //* * 00171900 //* 1 NEW VERSION OF FILE 155 WHICH IS THE 'THE MVS * 00172000 //* TUNING REPORT VERSION V JUNE 14, 1983 ', * 00172100 //* FROM THE SHARE MVS TUNNING COMMITTEE. * 00172200 //* * 00172300 //* 2 ADDITION OF FILE 379 FROM THE SPLA TAPE WHICH * 00172400 //* CONTAINS A SYSTEM TO GENERATE SEVERAL PROCLIB * 00172500 //* XREF REPORTS * 00172600 //* * 00172700 //* 3 UPDATE TO FILE 019 WHICH CORRECTS A PROBLEM * 00172800 //* WITH THIS FILE IN VERSION 216 * 00172900 //* * 00173000 //* 4 ADDITION OF FILE 380 FROM ALLIED DATA UTILITY * 00173100 //* WHICH IS A ZAP TO DEACTIVATE THE SPEED MATCHING * 00173200 //* BUFFERS * 00173300 //* * 00173400 //***SECTION V-216 SECTION * 00173500 //* V-216 CHANGES FOR VERSION 216 JUNE 12, 1983 * 00173600 //* * 00173700 //* 1 ADDITION OF FILE 372 FROM THE NORTHEAST REGIONAL * 00173800 //* DATA CETER ( NERDC ) , UNIVERSITY OF FLORIDA WHICH * 00173900 //* CONTAINS A COPY OF THEIR USERMODS * 00174000 //* * 00174100 //* 2 UPDATE TO FILE 019 WHICH IS A SERIES OF VTAM PGMS * 00174200 //* FROM THE BRITISH COLUMBIA SYSTEMS CORP IN CANADA * 00174300 //* * 00174400 //* 3 UPDATE TO FILE 219 WHICH IS CBT ' S SETSHR PROGRAM * 00174500 //* TO USE THE UCB SCAN SERVICE ROUTINE IN PREPARATION * 00174600 //* FOR MVS/XA * 00174700 //* * 00174800 //* 4 ADDITION OF FILE 373 FROM GTE LABS , WALTHAM , MASS * 00174900 //* WHICH CONTAINS A COUPLE OF THEIR TSO COMMAND * 00175000 //* PROCESSORS , ONE REPLACES LISTALC AND THE OTHER IS * 00175100 //* IS FOR QUICK AND EASY ALLOCATION OF A NEW DATASET * 00175200 //* * 00175300 //* 5 UPDATE TO FILE 203 WHICH IS THE TCAM POLLING ZAP * 00175400 //* LOMA LINDA UNIVERSITY MEDICAL CENTER * 00175500 //* * 00175600 //* 6 UPDATE TO FILE 175 WHICH IS THE SQA TRAP FROM * 00175700 //* LONDON LIFE. UPDATE TO MEMBERS SQAPRT AND SQAJCL * 00175800 //* * 00175900 //* 7 ADDITION OF FILE 374 FROM THE US POSTAL CENTER IN * 00176000 //* CALIFORNIA WHICH CONTAINS A COPY OF THEIR ASSEMBLER * 00176100 //* TRACE PROGRAM * 00176200 //* * 00176300 //* 8 ADDITION OF FILE 375 WHICH IS AN EXTREMELY FAST * 00176400 //* TCAM QUEUE FORMAT PROGRAM * 00176500 //* * 00176600 //* 9 ADDITION OF FILE 376 FROM RAINIER NATIONAL BANK IN * 00176700 //* SEATTLE WHICH CONTAINS SEVERAL OF THEIR PROGRAMS * 00176800 //* INCLUDING A REPLACEMENT FOR THE READSPC MODULE (Q17) * 00176900 //* FOR THE SP3 QUEUE COMMAND WHICH HAS MORE RACF STUFF * 00177000 //* AND FIXES A MINOR ERROR * 00177100 //* * 00177200 //* 10 ADDITION OF FILE 377 AND 378 WHICH CONTAIN THE * 00177300 //* SOURCE AND CLIST FOR LIBSPOOL ( PANSPOOL FOR * 00177400 //* LIBRARIAN ) FROM OCCIDENTAL PETROLEUM SERVICES , INC * 00177500 //* OF HOUSTON , TEXAS * 00177600 //* * 00177700 //***SECTION V-215 SECTION * 00177800 //* V-215 CHANGES FOR VERSION 215 MAY 08, 1983 * 00177900 //* * 00178000 //* 1 ADDITION OF FILE 368 WHICH CONTAINS A TSO MONITOR * 00178100 //* PROGRAM FROM SMITH-BARNEY * 00178200 //* * 00178300 //* 2 ADDITION OF FILE 369 WHICH CONTAINS THE SYSTEM * 00178400 //* MODIFICATION TO ADD I/O COUNTS TO MESSAGE IEF285I * 00178500 //* FROM GENERAL ELECTRIC * 00178600 //* * 00178700 //* 3 ADDITION OF FILE 370 WHICH CONTAINS A TAPE ERASE * 00178800 //* PROGRAM FROM THE FEDERAL BANK OF WEST GERMANY * 00178900 //* * 00179000 //* 4 ADDITION OF FILE 371 WHICH CONTAINS A PDF FRONT END * 00179100 //* TSO COMMAND PROCESSOR FROM GTE LABS IN WALTHAM MASS * 00179200 //* * 00179300 //***SECTION V-214 SECTION * 00179400 //* V-214 CHANGES FOR VERSION 214 APRIL 17, 1983 * 00179500 //* * 00179600 //* 1 UPDATE TO FILE 149 TO CORRECT A MINOR PROBLEM WITH * 00179700 //* THE COMMAND CALLED ENQ WHEN DISPLAYING RESERVES * 00179800 //* * 00179900 //* 2 UPDATE TO FILES 266 AND 267 TO ADD A MACRO CALLED * 00180000 //* $DEB TO CSCGI03D ( I COMMAND UNDER FULL SCREEN MODE )* 00180100 //* FOR THE CMD1 SYSTEM * 00180200 //* * 00180300 //* 3 ADDITION OF FILE 361 FROM REVLON WHICH CONTAINS A * 00180400 //* COPY OF THEIR TSO CP TO ALLOCATE THE PDF PROFILE FOR * 00180500 //* SPF. THIS COMMAND WILL ALLOCATE THE PDF PROFILE * 00180600 //* DATASET AT LOGON TIME OR MAY BE INVOKED PRIOR TO * 00180700 //* INVOKING ISPF/PDF . THIS IS CONSIDERABLY FASTER THAN * 00180800 //* USING A CLIST TO ALLOCATE * 00180900 //* * 00181000 //* 4 ADDITION OF FILE 362 FROM CONNECTICUT NATIONAL BANK * 00181100 //* WHICH CONTAINS A PROGRAM THAT USES IOSLOOK . THIS * 00181200 //* CODE WILL CONDITIONALLY FIX DSCB VOLSER IN THE DSCB * 00181300 //* OR TURN RACF BITS NON OR OFF * 00181400 //* * 00181500 //* 5 ADDITION OF FILES 363 - 367 FROM COMMERCIAL UNION * 00181600 //* ASSURANCE COMPANIES, OF BOSTON, MASS . THESE FILES * 00181700 //* CONTAIN SEVERAL PROGRAMS AND PROCEDURES THAT HAVE * 00181800 //* BEEN DEVELOPED BY COMMERICAL UNION * 00181900 //* * 00182000 //* 6 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00182100 //* PDS TSO CP ( VERSION 5.3 ) * 00182200 //* * 00182300 //***SECTION V-213 SECTION * 00182400 //* V-213 CHANGES FOR VERSION 213 MARCH 20, 1983 * 00182500 //* * 00182600 //* 1 UPDATE TO FILE 136 TO ADD A TSO COMMAND PROCESSOR * 00182700 //* TO LIST PSCB'S * 00182800 //* * 00182900 //* 2 ADDITION OF FILE 358 FROM THE GEORGIA DEPARTMENT OF * 00183000 //* LABOR TO CONTAIN A COPY OF THEIR TSO SUBMIT EXIT * 00183100 //* * 00183200 //***SECTION V-212 SECTION * 00183300 //* V-212 CHANGES FOR VERSION 212 MARCH 14, 1983 * 00183400 //* * 00183500 //* 1 UPDATE TO FILE 300 TO RELEASE 10.0 OF TSO COMMANDS * 00183600 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO TEXAS * 00183700 //* * 00183800 //* 2 UPDATE TO FILE 316 TO RELEASE 7.0 OF BATCH COMMANDS * 00183900 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO , TEXAS * 00184000 //* * 00184100 //* 3 UPDATE TO FILE 306 TO RELEASE 4.0 OF THE TIME * 00184200 //* SHARING SUBSYSTEM OPTION (TSSO) FROM THE U.S. * 00184300 //* AIRFORCE IN TEXAS * 00184400 //* * 00184500 //* 4 ADDITION OF FILE 033 FROM THE LIBRARY OF CONGRESS * 00184600 //* WHICH IS A COPY OF THEIR IEECVXIT (MODIFIED COPY OF * 00184700 //* R2D2 FROM THE AIR FORCE) * 00184800 //* * 00184900 //***SECTION V-211 SECTION * 00185000 //* V-211 CHANGES FOR VERSION 211 FEBRUARY 27, 1983 * 00185100 //* * 00185200 //* 1 ADDITION OF FILE 353 FROM MORTON-THIOKOL , INC WHICH * 00185300 //* CONTAIN SEVERAL OF THEIR PROGRAM TO RUN UNDER SPF * 00185400 //* * 00185500 //* 2 UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS * 00185600 //* A COPY OF THEIR USER MODS * 00185700 //* * 00185800 //* 3 UPDATE TO FILES 266 AND 267 WHICH IS THE # CMD1 * 00185900 //* SUBSYSTEM TO UPDATE THE FOLLOWING MODULES TO * 00186000 //* INCREASE THE ESTAE PARM LIST FROM 16 TO 20 BYTES * 00186100 //* * 00186200 //* FILE 266 # CMD NAME * 00186300 //* SE2SF03D # F * 00186400 //* CSCSH03D # S * 00186500 //* SE2SK03D # C * 00186600 //* CSCSO03D # M * 00186700 //* CSCSP03D # P * 00186800 //* SP3SQ03D # Q * 00186900 //* CSCSS03D # E * 00187000 //* CSCSZ03D # Z * 00187100 //* SE2SE03D # A WAS ALSO MODIFIED TO CORRECT A * 00187200 //* MINOR ERROR IN WHICH JOBS THAT BEGAN * 00187300 //* WITH AN 'S', 'A', 'T', OR 'I' WOULD * 00187400 //* NOT BE DISPLAYED WITH A #S.= COMMAND * 00187500 //* (WHERE = WOULD BE AN 'S','A','T','I') * 00187600 //* CSCZB03D ## B * 00187700 //* CSCZC03D ## C * 00187800 //* CSCZP03D ##P * 00187900 //* * 00188000 //* 4 ADDITION TO FILE 117 TO CONTAIN THE ZAP TO ADD * 00188100 //* 3380 SUPPORT TO IEHMAP FROM NORTH EAST UTILITIES * 00188200 //* * 00188300 //* 5 ADDITION OF FILE 354 FROM KAISER STEEL FOR A FEW OF * 00188400 //* THEIR UTILITY PROGRAMS * 00188500 //* * 00188600 //* 6 ADDITION OF FILE 355 FROM CHICAGO TITLE & TRUST CO * 00188700 //* FOR A COPY OF THEIR TSO PASSWORD COMMAND PROCESSOR * 00188800 //* * 00188900 //* 7 ADDITION OF FILES 356 AND 357 FROM MONUMENTAL LIFE * 00189000 //* OF MARYLAND ( AND UPDATED BY ROHM AND HAAS COMPANY OF 00189100 //* PHILADELPHIA , PA ) WHICH CONTAINS A COPY OF THEIR * 00189200 //* SPF MENUS , PANELS , MESSAGES , AND CLISTS TO* 00189300 //* CALCULATE BLOCKSIZES * 00189400 //* * 00189500 //* 8 DELETION OF FILE 033 AT THE REQUEST OF THE AUTHOR * 00189600 //* * 00189700 //***SECTION V-210 SECTION * 00189800 //* V-210 CHANGES FOR VERSION 210 JANUARY 23, 1983 * 00189900 //* * 00190000 //* 1 UPDATE TO FILE 266 WHICH IS THE # CMD1 SUBSYSTEM * 00190100 //* TO CONTAIN THE FOLLOWING COMMENTS ABOUT RUNNING CMD1 * 00190200 //* IN A JES3 ENVIRONMENT : * 00190300 //* * 00190400 //* THERE IS A PROBLEM UNDER JES3 WHEN A #T * 00190500 //* OR A #D ( INTO SOMEONES ADDRESS SPACE ) IS * 00190600 //* ISSUED . THE JES3 CONSOLES LOSE ROLL * 00190700 //* MODE . * 00190800 //* IT APPEARS THAT THESE TWO COMMANDS ARE * 00190900 //* EXECUTED IN THE JES3 ADDRESS SPACE . SO * 00191000 //* FAR SO GOOD , HOWEVER THESE COMMANDS * 00191100 //* ISSUE OS / MACROS ( EXAMPLE STIMER ) WHICH * 00191200 //* ARE ILLEGAL UNDER THE JES3 ADDRESS * 00191300 //* SPACE . * 00191400 //* ILLEGAL OS / MACROS ARE DOCUMENTED IN A * 00191500 //* JES3 MANUAL ( I DO NOT KNOW THE MANUAL * 00191600 //* NAME OR NUMBER - IF AND WHEN I FIND OUT * 00191700 //* I WILL DOCUMENT IT HERE ) . * 00191800 //* * 00191900 //* 2 UPDATE TO FILE 300 TO RELEASE 9.0 OF TSO COMMANDS * 00192000 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO TEXAS * 00192100 //* * 00192200 //* 3 UPDATE TO FILE 316 TO RELEASE 6.0 OF BATCH COMMANDS * 00192300 //* FROM THE U.S. AIRFORCE IN SAN ANTONIO TEXAS * 00192400 //* * 00192500 //* 4 UPDATE TO FILE 037 WHICH IS THE MVS VERSION OF * 00192600 //* COPYCAT TO INCLUDE 3380 / 3375 SUPPORT FROM UCLA * 00192700 //* * 00192800 //***SECTION V-209 SECTION * 00192900 //* V-209 CHANGES FOR VERSION 209 JANUARY 02, 1983 * 00193000 //* * 00193100 //* 1 REMOVAL OFF ALL REFERENCE TO THE GTE MVS * 00193200 //* MODIFICATION TAPE . THIS TAPE IS NO LONGER AVAILABLE * 00193300 //* * 00193400 //* 2 A NOTE ABOUT FILE 288 WHICH IS THE PROGRAM TO UPDATE * 00193500 //* THE NUMBER OF DIRECTORY BLOCKS IN A PDS WITHOUT * 00193600 //* DELETING THE ALL THE MEMBERS IN THE PROCESS . TO * 00193700 //* HAVE IT WORK CORRECTLY YOU MUST HAVE AT LEAST ONE * 00193800 //* MEMBER IN THE PDS ELSE WHEN YOU ADD THE FIRST ONE * 00193900 //* THE NUMBER OF DIRECTORY BLOCKS WILL GO BACK TO THE * 00194000 //* NUMBER THAT WAS ORIGINALLY SPECIFIED . THE DL1START * 00194100 //* IS NOT SET PROPERLY IF THERE ARE NO MEMBERS * 00194200 //* * 00194300 //* 3 UPDATE TO FILES 266 AND 267 TO CONTAIN THE SAME * 00194400 //* VERSION OF #D TO WORK IN AN MVS/SP1.1 OR MVS/SP1.3 * 00194500 //* ENVIRONMENT . FIX OKCANC AND NOCANC FOR #D * 00194600 //* * 00194700 //* 4 ADDITION OF FILE 335 WHICH IS A COPY OF DYNMAIC BLDL * 00194800 //* FROM GTE DATA SERVICES IN CALIFORNIA . THIS VERSION * 00194900 //* DOES NOT REQUIRE ANY SYSTEM MODIFICATION * 00195000 //* * 00195100 //* 5 UPDATE TO FILE 003 WHICH IS THE JCL TO DROP DOWN THE * 00195200 //* TAPE . THIS FILE WILL NOW EXECUTE IEBUPDTE TO PUT * 00195300 //* PDS'S BACK INTO PDS FORMAT * 00195400 //* * 00195500 //***SECTION V-208 SECTION * 00195600 //* V-208 CHANGES FOR VERSION 208 DECEMBER 19, 1982 * 00195700 //* * 00195800 //* 1 UPDATE TO FILE 260 FROM CONNECTICUT NATIONAL BANK * 00195900 //* TO THE QUICK MAP PROGRAM TO SUPPORT RACF . IF THE * 00196000 //* RACF BIT IS ON FOR A DATASET THE WORD 'RACF' WILL * 00196100 //* APPEAR IN THE 'R/W' FIELD * 00196200 //* * 00196300 //* 2 UPDATE TO FILES 266 AND 267 FROM CONNECTICUT * 00196400 //* NATIONAL BANK TO CONTAIN A PREVIOUS VERSION OF #L * 00196500 //* ( IEESC03D AND CSCSC03D ) THAT HAD SUPPORT FOR VTAM * 00196600 //* LOGICAL TERMINAL ADDRESSES . SOME HOW OR ANOTHER THIS 00196700 //* VERSION WAS DELETED BY MISTAKE * 00196800 //* * 00196900 //* 6 ADDITION OF FILE 012 FROM JOHN HANCOCK MUTUAL LIFE * 00197000 //* WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER * 00197100 //* * 00197200 //***SECTION V-207 SECTION * 00197300 //* V-207 CHANGES FOR VERSION 207 DECEMBER 05, 1982 * 00197400 //* * 00197500 //* 1 UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION # 6 * 00197600 //* OF TSUPDATE FROM CONRAIL * 00197700 //* * 00197800 //* 2 ADDITION OF FILES 010 AND 011 FROM YALE WHICH IS A * 00197900 //* COPY OF GPASM (GENERAL PURPOSE SUBSYSTEM ACCESS * 00198000 //* METHOD) * 00198100 //* * 00198200 //* 3 UPDATE TO FILE 266 AND 267 TO CONTAIN # D (CSCSD03D) * 00198300 //* TO WORK IN AN MVS/SP1.1 AND MVS/SP1.3 ENVIRONMENT . * 00198400 //* THIS VERSION OF #D HAS FIXES SO #DOKCANC AND NOCANC * 00198500 //* WILL WORK CORRECTLY . * 00198600 //* * 00198700 //* IN FILE 266 SP3SD03D IS MVS/SP1.* VER OF #D * 00198800 //* IN FILE 267 : * 00198900 //* S3ESD03D IS MVS/SP1.* #D FOR LPA * 00199000 //* S3CSD03D IS MVS/SP1.* #D FOR TSO * 00199100 //* * 00199200 //***SECTION V-206 SECTION * 00199300 //* V-206 CHANGES FOR VERSION 206 NOVEMBER 28, 1982 * 00199400 //* * 00199500 //* 1 ADDITION OF FILE 288 WHICH IS A PROGRAM TO UPDATE * 00199600 //* THE NUMBER OF DIRECTORY BLOCKS IN A PDS WITHOUT * 00199700 //* DELETING ALL THE MEMBERS IN THE PDS ITSELF * 00199800 //* * 00199900 //* 2 UPDATE TO THE MEMBER CALLED CMDDOCTN IN FILE 266 * 00200000 //* TO UPDATE THE DOCUMENTATION FOR THE # SYSTEM * 00200100 //* * 00200200 //* 3 NOTE ABOUT # D (IEESD03D) IN FILE 266 OF THIS TAPE * 00200300 //* WHEN ISSUING A #DOKCANC/#DNOCANC AGAINST A BATCH JOB * 00200400 //* THIS COMMAND IS NOT WORKING PROPERLY ( IT CHANGES THE 00200500 //* INITIATOR RATHER THAN THE JOB ) . WE ARE CURRENTLY * 00200600 //* LOOKING AT IT (AT LEVEL MVS/SP1.3.0 ) * 00200700 //* * 00200800 //* 4 ADDITION OF FILE 347 WHICH IS A VIRTUAL STORAGE * 00200900 //* MONITOR WHICH IS DESIGNED TO ASSIST IN IDENTIFYING * 00201000 //* VIRTUAL STORAGE PROBLEMS , PARTICULARY THOSE * 00201100 //* ASSOCIATED WITH CSA UTILIZATION . THIS TSO CP IS * 00201200 //* FROM HALLMARK CARDS * 00201300 //* * 00201400 //***SECTION V-205 SECTION * 00201500 //* V-205 CHANGES FOR VERSION 205 NOVEMBER 21, 1982 * 00201600 //* * 00201700 //* 1 UPDATE TO FILE 266 TO UPDATE THE FOLLOWING MEMBERS : * 00201800 //* A $MVSSP13 TO DO RENAMES FOR THE MEMBERS ADD IN * 00201900 //* VERSION 203 OF THIS TAPE * 00202000 //* B CMDINSTL FIX A JCL ERROR IN THIS JCL * 00202100 //* * 00202200 //* 2 A NOTE ABOUT THE # SYSTEM IN FILES 266 AND 267 . * 00202300 //* THIS CODE HAS NOT AS YET BEEN TESTED WITH 3880'S * 00202400 //* MODELS 11 AND 13 - IT MAY GIVE OUT INCORRECT * 00202500 //* INFORMATION * 00202600 //* * 00202700 //* 4 UPDATE TO FILE 260 WHICH IS THE QUICK MAP PROGRAM * 00202800 //* TO SUPPORT INDEXED VTOCS * 00202900 //* * 00203000 //***SECTION V-204 SECTION * 00203100 //* V-204 CHANGES FOR VERSION 204 NOVEMBER 14, 1982 * 00203200 //* * 00203300 //* 1 ADDITION OF FILE 269 FROM LOUISIANA STATE UNIVERSITY * 00203400 //* WHICH IS A MODIFICATION USED TO PREFIX ANY MESSAGE * 00203500 //* FROM THE SYSTEM OPERATORS ( INCLUDING NOTIFY'S ) * 00203600 //* WITH THE DATE AND TIME * 00203700 //* * 00203800 //* 2 ADDITION OF FILE 170 FROM THE COLLEGE OF WILLIAM AND * 00203900 //* MARY, THIS FILE CONTAINS INFORMATION ON HOW TO * 00204000 //* OBTAIN A COPY OF THEIR FULL SCREEN EDITOR AND ALSO * 00204100 //* A FEW OF THEIR TSO COMMANDS * 00204200 //* * 00204300 //* 3 ADDITION OF FILE 171 FROM THE COLLEGE OF WILLIAN AND * 00204400 //* MARY THAT CONTAINS THE LOAD MODULES FOR THE PROGRAMS * 00204500 //* IN FILE 170 * 00204600 //* * 00204700 //* 4 UPDATE TO FILE 266 AND 267 TO CONTAIN # I ( CSCSJ03D ) 00204800 //* TO WORK IN AN MVS/SP1.3 ENVIRONMENT . * 00204900 //* THIS VERSION OF #I HAS FIXES SO #IC WILL WORK UNDER * 00205000 //* MVS/SP1.3 CORRECTLY . * 00205100 //* IN FILE 266 SP3SJ03D IS MVS/SP1.3 VER OF #I * 00205200 //* IN FILE 267 : * 00205300 //* S3ESJ03D IS MVS/SP1.3 #I FOR LPA * 00205400 //* S3CSJ03D IS MVS/SP1.3 #I FOR TSO * 00205500 //* * 00205600 //* 5 UPDATE TO FILE 266 AND 267 TO CONTAIN # R ( CSCSG03D) 00205700 //* TO WORK IN AN MVS/SP1.3 ENVIRONMENT . * 00205800 //* THIS VERSION OF #R HAS FIXES SO #RR WILL WORK UNDER * 00205900 //* MVS/SP1.3 CORRECTLY . * 00206000 //* IN FILE 266 SP3SG03D IS MVS/SP1.3 VER OF #R * 00206100 //* IN FILE 267 : * 00206200 //* S3ESG03D IS MVS/SP1.3 #R FOR LPA * 00206300 //* S3CSG03D IS MVS/SP1.3 #R FOR TSO * 00206400 //* * 00206500 //* 6 UPDATE TO FILE 266 TO CONTAIN A MEMBER CALLED $QUE * 00206600 //* WHICH TELLS ABOUT THE QUE COMMAND USED UNDER * 00206700 //* THE FULL SCREEN TSO AND STANDALONE VERSION OF THE * 00206800 //* # SYSTEM * 00206900 //* * 00207000 //* 7 UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE * 00207100 //* PDS TSO CP . THIS VERSION FIXES SOME MINOR BUGS AND * 00207200 //* ADD SEVERAL NEW ENHANCEMENTS * 00207300 //* * 00207400 //* 8 UPDATE TO FILE 213 WHICH IS THE PROGRAM TO GIVE * 00207500 //* STATS ON A DISK DATA SET . THIS VERSION GIVES * 00207600 //* SEVERAL NEW ADDITIONAL STATS * 00207700 //* * 00207800 //* 9 UPDATE TO FILE 296 TO HAVE A NEW VERSION OF BLKDISK * 00207900 //* PROGRAM . SEE THE WRITEUP UNDER FILE 296 FOR * 00208000 //* ADDITIONAL INFORMATION * 00208100 //* * 00208200 //***SECTION V-203 SECTION * 00208300 //* V-203 CHANGES FOR VERSION 203 NOVEMBER 07, 1982 * 00208400 //* * 00208500 //* 1 UPDATE TO FILE 266 AND 267 TO ADD THE FOLLOWING * 00208600 //* SUBCOMMANDS TO # J : * 00208700 //* A #JI DISPLAY TASKS THAT ARE IN STORAGE * 00208800 //* B #JO DISPLAY TASKS THAT ARE NOT IN STORAGE * 00208900 //* * 00209000 //* MODULES EFFECTED ARE CSCSL03D AND IEESL03D * 00209100 //* #H WAS NOT UPDATED AS YET TO SHOW THIS AND THIS * 00209200 //* CHANGE DOES NOT AFFECT #JT * 00209300 //* * 00209400 //* ALSO UPDATED #O (CSCSR03D IEESR03D) TO ADD ENTRIES * 00209500 //* TO THE I/O DRIVE TABLE . ADDED VPSS AND SUSPEND/ * 00209600 //* RESUME ENTRIES TO THE TABLE * 00209700 //* * 00209800 //* 2 ADDITION OF FILE 136 FROM CBT TO CONTAIN SEVERAL * 00209900 //* OF THEIR TSO COMMAND PROCESSORS * 00210000 //* * 00210100 //* 3 UPDATE TO FILE 322 WHICH IS THE QUE COMMAND FOR * 00210200 //* THE MVS/SP1.3 LEVEL OF JES2 TO ADD SUPPORT FOR * 00210300 //* 3380'S AS SPOOL AND CHECKPOINT . ALSO CORRECT A * 00210400 //* MINOR PROBLEM TO NOW SHOW WHAT SYSOUT IS ON THE * 00210500 //* PRINTER ( S ) * 00210600 //* * 00210700 //* 4 ADDITION OF FILE 153 FROM DIEBLOD WHICH CONTAINS * 00210800 //* AN UPDATED VERSION OF QUE , SPY AND STATJES FOR * 00210900 //* MVS/SP1.3 * 00211000 //* * 00211100 //***SECTION V-202 SECTION * 00211200 //* V-202 CHANGES FOR VERSION 202 OCTOBER 06, 1982 * 00211300 //* * 00211400 //* 1 UPDATE TO FILE 266 AND 267 TO ADD 3375 AND 3380 * 00211500 //* SUPPORT TO THE FOLLOWING MEMBERS * 00211600 //* A CSCSN03D IEESN03D # T (TIOT DISPLAY) * 00211700 //* FREE SPACE) * 00211800 //* * 00211900 //***SECTION V-201 SECTION * 00212000 //* V-201 CHANGES FOR VERSION 201 OCTOBER 03, 1982 * 00212100 //* * 00212200 //* 1 UPDATE TO FILE 266 AND 267 TO ADD 3375 AND 3380 * 00212300 //* SUPPORT TO THE FOLLOWING MEMBERS * 00212400 //* A CSCSM03D IEESM03D # H ( HELP ) * 00212500 //* B CSCSI03D IEESI03D # V ( DISPLAY UNITS ) 00212600 //* C CSCGH03D GRAPHIC H ( HELP ) * 00212700 //* D CSCGU03D GRAPHIC U ( DISPLAY DASD * 00212800 //* FREE SPACE ) * 00212900 //* * 00213000 //* 2 UPDATE TO FILE 266 AND 267 TO CORRECT A MINOR * 00213100 //* FORMATING ERROR WHEN #Q COMMAND IS RUN UNDER TSO * 00213200 //* A SP3SQ03D IEESQ03D # Q ( FOR SP3 ) 00213300 //* ( ANALYZE ENQ) * 00213400 //* 3 UPDATE TO FILES 343-345 WHICH IS THE MELLON BANK * 00213500 //* SHARED SPOOL FOR MVS/SP1.3 TO CORRECT THE FOLLOWING * 00213600 //* PROBLEMS: * 00213700 //* A AN ASSEMBLY ERROR IN EXITCOM IF MBNUMRJE IS * 00213800 //* LESS THAN 16 * 00213900 //* B SOC1 AND SOC4 ABENDS IN EXITCOMM FROM $DN * 00214000 //* $DQ COMMANDS DUE TO AN ERROR IN THE INSTALL * 00214100 //* PROCEDURE * 00214200 //* * 00214300 //* 3 UPDATE TO FILE 141 FROM THE DEPARTMENT OF TRANS ., * 00214400 //* OF THE STATE OF WASHINGTON TO UPDATE SEVERAL OF * 00214500 //* THEIR COMMAND PROCESSORS TO AN MVS/SP1.3 LEVEL * 00214600 //* * 00214700 //***SECTION V-200 SECTION * 00214800 //* V-200 CHANGES FOR VERSION 200 SEPTEMBER 26, 1982 * 00214900 //* * 00215000 //* 1 UPDATE TO FILE 324 TO ADD A NEW VERSION OF TSOENQ * 00215100 //* WHICH USES A PARM OF TOKEN ON THE GQSCAN MACRO * 00215200 //* * 00215300 //* 2 ADDITION TO FILE 117 TO CONTAIN THE ZAP TO ADD * 00215400 //* 3375 SUPPORT TO IEHMAP FROM ROYAL BUSINESS MACHINES * 00215500 //* * 00215600 //* 3 UPDATE TO FILE 266 AND 267 TO CONTAIN # Q ( CSCSQ03D ) 00215700 //* TO WORK IN AN MVS/SP1.3 ENVIRONMENT . * 00215800 //* THIS VERSION OF #Q ALSO USES A PARM OF TOKEN ON THE * 00215900 //* GQSCAN MACRO . * 00216000 //* IN FILE 266 SP3SQ03D IS MVS/SP1.3 VER OF #Q * 00216100 //* IN FILE 267 : * 00216200 //* S3ESQ03D IS MVS/SP1.3 #Q FOR LPA * 00216300 //* S3CSQ03D IS MVS/SP1.3 #Q FOR TSO * 00216400 //* ALSO ADDED DOCUMENTATION TELLING ABOUT B0A ABENDS * 00216500 //* TO THE FOLLOWING MEMBERS : * 00216600 //* CMDTSO * 00216700 //* CMDSBTSO * 00216800 //* CMDSBMON * 00216900 //* $B0A * 00217000 //* $HINTS * 00217100 //* THE FOLLOWING MEMBERS WERE ALSO UPDATED TO SHOW * 00217200 //* MVS/SP1.3 SUPPORT : * 00217300 //* $DOC * 00217400 //* $MVSSP13 * 00217500 //* * 00217600 //***SECTION V-199 SECTION * 00217700 //* V-199 CHANGES FOR VERSION 199 SEPTEMBER 19, 1982 * 00217800 //* * 00217900 //* 1 ADDITION OF FILE 352 FROM INTEL WHICH CONTAINS A * 00218000 //* COPY OF THE INTEL MODS TAPE * 00218100 //* * 00218200 //* 2 UPDATE TO FILE 040 TO CHANGE DIDOCS FOR MVS/SP1.3 * 00218300 //* TO GET THE MASTER CONSOLE RATHER THAN THE FIRST * 00218400 //* GRAPHIC CONSOLE ( IF YOU DO NOT HAVE THE MASTER * 00218500 //* CONSOLE, REPLYS ARE NOT ECHOED BACK TO THE CONSOLE * 00218600 //* YOU ARE LOOK AT - SPY DOES NOT HAVE THIS PROBLEM ) * 00218700 //* * 00218800 //* 3 UPDATE TO FILE 346 ( JES2 SPOOL TRANSFER FOR USE * 00218900 //* WITH MVS/SP1.3 ) TO CONTAIN A COPY OF CBT'S FIXES * 00219000 //* TO THE CODE SO WE COULD COMPILE IT * 00219100 //* * 00219200 //* 4 UPDATE TO FILE 218 FROM COCA COLA TO FIX A PROBLEM * 00219300 //* * 00219400 //* WITH THEIR USER SCREENS FOR RMFMON AND ADD SOME * 00219500 //* ADDITIONAL PROGRAMS * 00219600 //* * 00219700 //* 5 UPDATE TO FILE 266 AND 267 TO CONTAIN THE FIRST * 00219800 //* LOAD OF #N ( CSCSA03D ) TO WORK IN A MVS/SP1.3 * 00219900 //* ENVIRONMENT. * 00220000 //* IN FILE 266 SP3SA03D IS MVS/SP1.3 VER OF #N * 00220100 //* IN FILE 267 : * 00220200 //* S3ESA03D IS MVS/SP1.3 #N FOR LPA * 00220300 //* S3CSA03D IS MVS/SP1.3 #N FOR TSO * 00220400 //* ONLY THE FIRST LOAD OF #N HAD TO BE CHANGED THE * 00220500 //* SECOND LOAD OF #N ( CSCSB03D ) IS EXACTLY THE SAME * 00220600 //* * 00220700 //***SECTION V-198 SECTION * 00220800 //* V-198 CHANGES FOR VERSION 198 SEPTEMBER 12, 1982 * 00220900 //* * 00221000 //* 1 CORRECTION TO FILE 324 TO FIX # Q SO IT WILL WORK * 00221100 //* PROPERLY * 00221200 //* * 00221300 //* 2 CORRECTION TO FILE 322 TO CONTAIN THE QUE COMMAND * 00221400 //* AS DOCUMENTED IN THIS FILE * 00221500 //* * 00221600 //***SECTION V-197 SECTION * 00221700 //* V-197 CHANGES FOR VERSION 197 SEPTEMBER 05, 1982 * 00221800 //* * 00221900 //* 1 UPDATE TO FILE 338 TO ADD AN ADDITIONAL PROGRAM * 00222000 //* CALLED COMMAND WHICH IS USED BY SPY TO ISSUE * 00222100 //* OPERATOR COMMANDS VIA SVC 34 * 00222200 //* * 00222300 //* 2 UPDATED INFORMATION ABOUT THE JES2 MODIFICATION * 00222400 //* TAPES ABOUT WHERE THE NON-SP 1.3 AND THE MVS/SP1.3 * 00222500 //* VERSION MAY BE ORDERED * 00222600 //* * 00222700 //* 3 UPDATED TO FILE 120 TO CONTAIN CORRECT INFORMATION * 00222800 //* ABOUT THE NON-MVS/SP1.3 VERSION OF THE JES2 * 00222900 //* MODIFICATION TAPE * 00223000 //* * 00223100 //* 4 UPDATE TO FILE 322 WHICH IS THE QUE COMMAND FROM * 00223200 //* NERDC , THE UNIVERSITY OF FLORIDA . THIS VERSION OF * 00223300 //* QUE FIXES SOME BUGS , AND ALSO CONTAINS RACF SUPPORT * 00223400 //* FROM RAINER BANK IN WASHINGTON , ALSO * 00223500 //* SUPPORTS 3278 MODELS 2 , 3 , 4 , AND 5 * 00223600 //* AND WILL SUPPORT THE FOLLOWING JES2 VERSIONS: * 00223700 //* 1 JES2 4.1 * 00223800 //* 2 NJE 3.1 * 00223900 //* 3 MVS/SP - JES2 1.3 * 00224000 //* VIA SYSPARM OPTIONS * 00224100 //* ( THIS VERSION CAN ALSO BE USED FOR NON MVS/SP1.3 OR * 00224200 //* SO IT SAYS IN THE CODE - BUT WHEN CBT TRIED IT * 00224300 //* I GOT ASSEMBLE ERRORS AND WHEN I LINKED IT ANYWAYS * 00224400 //* I GOT OC4'S - BE AWARE ) * 00224500 //* * 00224600 //* 5 UPDATE TO FILE 300 TSO COMMANDS FROM THE AIRFORCE TO * 00224700 //* CORRECT SAVESHR SO IT WILL WORK WITH 3380 'S ( AND * 00224800 //* I ASSUME WITH 3375 'S ALSO ) * 00224900 //* * 00225000 //* 9/2/82 THERE WAS A PROBLEM WITH THIS COMMAND TRYING * 00225100 //* TO SAVE TO A 3380 YOU CAN READ ABOUT IT IN * 00225200 //* INFO/MVS DO SEARCH KWS A TSO 3380 . CHECK APAR * 00225300 //* AZ57340 * 00225400 //* WHAT WE DID NO-OP THE FOLLOWING INSTRUCTION * 00225500 //* * 00225600 //* LH SAWR1,CABLKS GET EDIT BLOCKSIZE 34760020 * 00225700 //* * 00225800 //* 6 ADDITION OF FILE 323 FROM GTE DATA SERVICES OF * 00225900 //* FORT WAYNE , INDIANA WHICH CONTAINS A COPY OF SOME * 00226000 //* OF THEIR MODIFICATIONS AT MVS 3.8 BASE LEVEL AT AN * 00226100 //* 8201 PTF LEVEL * 00226200 //* * 00226300 //* 7 UPDATE TO FILE 324 TO CONTAIN THE CONSOLE ROLL ZAP * 00226400 //* MODIFICATION TO AN MVS/SP1.3 LEVEL . THIS IS NOW AT * 00226500 //* THE SAME LEVEL AS FILE 133 * 00226600 //* * 00226700 //* 8 ADDITION OF FILE 148 FROM THE MICHIGAN WISCONSIN * 00226800 //* PIPE LINE COMPANY OF HOUSTON , TEXAS . THIS FILE * 00226900 //* CONTAINS AN MVS/SP1.3 VERSION OF THE QUE TSO CP * 00227000 //* * 00227100 //* 9 ADDITION OF FILE 149 FROM UCLA . THIS FILE CONTAINS * 00227200 //* SEVERAL UTILITIES FROM UCLA INCLUDING AN MVS/SP1.3 * 00227300 //* VERSION OF THE QUE TSO CP AND A FULL SCREEN EDITOR * 00227400 //* * 00227500 //* 10 ADDITION OF FILE 152 FROM MC DONNELL DOUGLAS * 00227600 //* AUTOMATION COMPANY OF LONG BEACH , CALIFORNIA WHICH * 00227700 //* IS A PCCW MONITOR * 00227800 //* * 00227900 //* 11 UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS * 00228000 //* DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER . * 00228100 //* THIS VERSION HAS A NEW UCB LOOK UP ROUTINE WHICH * 00228200 //* IS UPWARD COMPATIBLE WITH MVS/SP1.3 AND MVS/SP2.0 * 00228300 //* (XA) AS WELL AS MVS 3.8 BASE LEVEL CODE * 00228400 //* * 00228500 //* 12 UPDATE TO FILE 341 FROM DELUXE CHECK PRINTERS TO * 00228600 //* ADD AND UPDATE SOME OF THEIR PREVIOUSLY SUBMITTED * 00228700 //* UTILITIES * 00228800 //* * 00228900 //* 13 ADDITION OF FILE 100 AND 101 FROM DELUXE CHECK * 00229000 //* PRINTERS WHICH CONTAINS A COPY OF THEIR SPF MENUS , * 00229100 //* PANELS , MESSAGES , AND CLISTS FOR THE NEW ISPF/PDF * 00229200 //* * 00229300 //* 14 ADDITION OF FILE 102 FROM GTE LABS IN WALTHAM , MASS * 00229400 //* WHICH CONTAINS VTOCLIST AND DSPACE THAT HAVE BEEN * 00229500 //* MODIFIED TO WORK WITH INDEXED VTOCS * 00229600 //* * 00229700 //***SECTION V-196 SECTION * 00229800 //* V-196 CHANGES FOR VERSION 196 JULY 18, 1982 * 00229900 //* * 00230000 //* 1 UPDATE TO FILE 300 TO RELEASE 8.3 OF TSO COMMANDS * 00230100 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00230200 //* * 00230300 //* 2 UPDATE TO FILE 316 TO RELEASE 5.2 OF BATCH COMMANDS * 00230400 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00230500 //* * 00230600 //* 3 ADDITION OF FILE 304 WHICH IS A RACF / SPF INTERFACE * 00230700 //* FROM CONNECTICUT NATIONAL BANK * 00230800 //* * 00230900 //* 4 ADDITION OF FILES 124 AND 125 WHICH ARE FOR GTF DATA * 00231000 //* ANALYSIS FROM GPU SERVICE CORPORATION * 00231100 //* * 00231200 //***SECTION V-195 SECTION * 00231300 //* V-195 CHANGES FOR VERSION 195 JULY 11, 1982 * 00231400 //* * 00231500 //* 1 ADDITION OF FILE 265 - THE JES2 PERFORMANCE MONITOR * 00231600 //* UPDATED FOR SP1.2 AND SP1.3 FROM MELLON BANK * 00231700 //* * 00231800 //* 2 UPDATE TO FILE 003 TO NOW CONTAIN A JOB TO LOAD FILE * 00231900 //* 001 OF THIS TAPE INTO A PRE-DEFINED VSAM CLUSTER * 00232000 //* FOR INFO/MVS PROCESSING . THIS WAS SUGGESTED , * 00232100 //* IMPLEMENTED AND SUBMITTED BY SCHERING-PLOUGH * 00232200 //* * 00232300 //***SECTION V-194 SECTION * 00232400 //* V-194 CHANGES FOR VERSION 194 JUNE 27, 1982 * 00232500 //* * 00232600 //* 1 UPDATE TO CONSOLE ROLL ZAP TO SP1.3 IN FILE 133 . * 00232700 //* THIS FILE NOW ALSO CONTAINS A SP1.3 VERSION OF THE * 00232800 //* CONSOLE ROLL ZAP AS WELL AS MVS/SP1.1 * 00232900 //* * 00233000 //* 2 UPDATE TO TSSO TO CONTAIN THE EE COMMAND FROM THE * 00233100 //* AIRFORCE WHICH IS IN FILE 306 * 00233200 //* * 00233300 //* 3 UPDATE TO FILE 300 TO RELEASE 8.0 OF TSO COMMANDS * 00233400 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00233500 //* * 00233600 //* 4 UPDATE TO FILE 316 TO RELEASE 4.0 OF BATCH COMMANDS * 00233700 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00233800 //* * 00233900 //***SECTION V-193 SECTION * 00234000 //* V-193 CHANGES FOR VERSION 193 JUNE 20, 1982 * 00234100 //* * 00234200 //* 1 UPDATE TO FILE 004 TO THE PROGRAM TO ALLOW IT TO * 00234300 //* HANDLE A LARGER NUMBER OF KEYWORDS * 00234400 //* * 00234500 //* 2 UPDATE TO FILES 116 AND 260 TO HANDLE 3380'S . * 00234600 //* THESE ARE THE DISK MAP AND DISK SEEK PROGRAM FILES * 00234700 //* * 00234800 //* 3 ADDITION OF FILE 178 WHICH IS A USER EXIT TO MOVE * 00234900 //* TSO TEMPORARY DATASETS OFF THE PRIMARY TSO VOLUME * 00235000 //* THIS FILE IS FROM COCA-COLA COMPANY * 00235100 //* * 00235200 //* 4 ADDITION OF FILES 065 TO 068 FROM B.F. GOODRICH * 00235300 //* WHICH CONTAINS SEVERAL PROGRAMS AND MODS . PLEASE * 00235400 //* SEE BELOW UNDER THE RESPECTIVE FILES FOR ADDITIONAL * 00235500 //* INFORMATION * 00235600 //* * 00235700 //* 5 UPDATE TO FILE 001 FOR ADDITIONAL INFORMATION WHEN * 00235800 //* LOADED UNDER INFOMVS (WITH FILES 004 AND 005) * 00235900 //* * 00236000 //***SECTION V-192 SECTION * 00236100 //* V-192 CHANGES FOR VERSION 192 JUNE 14, 1982 * 00236200 //* * 00236300 //* 1 ADDITION OF FILES 004 AND 005 WHICH CONTAIN THE * 00236400 //* CODE AND DOCUMENTATION NECESSARY TO TURN FILE 001 OF * 00236500 //* THIS TAPE INTO MVS/INFO FORMAT AND THE JCL NEEDED * 00236600 //* TO CREATE AND LOAD THE FILE INTO A INFO DATABASE * 00236700 //* * 00236800 //* 2 ADDITION OF FILE 032 FROM ROHM AND HAAS COMPANY * 00236900 //* WHICH CONTAINS AN ACF2 SECURITY EXIT FOR NCCF * 00237000 //* * 00237100 //* 3 ADDITION OF FILE 098 FROM REVLON WHICH IS A MOD TO * 00237200 //* HAVE DATASETS IN THE LINKLIST THAT ARE NOT IN THE * 00237300 //* MASTER CATALOG * 00237400 //* * 00237500 //* 4 ADDITION OF FILE 099 FROM REVLON WHICH IS A SAS * 00237600 //* PERFORMANCE ZAP * 00237700 //* * 00237800 //* 5 UPDATE TO THE MEMBER CALLED SYSTEM IN FILE 340 * 00237900 //* FROM THE FIRST NATIONAL BANK OF CHICAGO TO CORRECT * 00238000 //* SOME MINOR PROBLEMS * 00238100 //* * 00238200 //* 6 ADDITION OF FILE 040 WHICH IS DIDOCS FOR SP1.3 FROM * 00238300 //* DANIEL INTERNATIONAL * 00238400 //* * 00238500 //* 7 UPDATE TO FILES 310 AND 311 FROM NUSCO WHICH CONTAIN * 00238600 //* SOURCE AND CLISTS FROM THEIR INSTALLATION * 00238700 //* * 00238800 //* 8 UPDATE TO FILE 343-345 WHICH IS THE MVS/SP1.3 VER * 00238900 //* OF MELLON BANK SHARED SPOOL * 00239000 //* * 00239100 //***SECTION V-191 SECTION * 00239200 //* V-191 CHANGES FOR VERSION 191 APRIL 30, 1982 * 00239300 //* * 00239400 //* 1 ADDITION OF FILE 349 FROM ATARI WHICH CONTAINS TWO * 00239500 //* PROGRAMS FOR USE WITH VTAM IN A VM ENVIRONMENT * 00239600 //* * 00239700 //* 2 ADDITION OF FILE 350 FROM L'INDUSTRIELLE-SERVICES * 00239800 //* TECHNIQUES , INC . THAT CONTAINS THEIR TIME-OF-DAY * 00239900 //* CLOCK SYNCHRONIZER AND THEIR BLDL/LINKLIST ANALYSIS * 00240000 //* PACKAGE . KWS A SETCLOCK SET CLOCK TOD * 00240100 //* * 00240200 //* 3 UPDATE TO FILE 168 WHICH IS A DYNAMIC ALLOCATION * 00240300 //* EXIT ( IEFDB401 ) FROM SCHERING-PLOUGH * 00240400 //* * 00240500 //* 4 UPDATE TO FILE 169 WHICH IS THE VTAM SECONDARY * 00240600 //* PROGRAM OPERATOR FROM SCHERING-PLOUGH * 00240700 //* * 00240800 //* 5 UPDATE TO FILE 326 WHICH IS A SET OF SMF EXITS AND * 00240900 //* A TSO CP FOR CHARGES FROM SCHERING-PLOUGH * 00241000 //* * 00241100 //* 6 ADDITION OF FILE 351 FROM EXXON PRODUCTION RESEARCH * 00241200 //* COMPANY OF HOUSTON , WHICH ARE MODIFICATIONS TO THE * 00241300 //* LOADER AND LOADGO PROMPTERS * 00241400 //* * 00241500 //* 7 UPDATE TO FILE 300 TO RELEASE 7.0 OF TSO COMMANDS * 00241600 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00241700 //* * 00241800 //* 8 UPDATE TO FILE 316 TO RELEASE 4.0 OF BATCH COMMANDS * 00241900 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00242000 //* * 00242100 //* 9 ADDITION OF FILE 141 FROM THE DEPARTMENT OF TRANS ., * 00242200 //* STATE OF WASHINGTON WHICH CONTAINS TWO TSO COMMAND * 00242300 //* PROCESSORS * 00242400 //* * 00242500 //* 10 ADDITION OF FILE 143 FROM UNION OIL COMPANY OF * 00242600 //* CALIFORNIA , LOS ANGELES , WHICH CONTAINS SOME TSO * 00242700 //* COMMAND PROCESSORS SOME OF WHAT HAVE BEEN UPDATED * 00242800 //* FOR SP1.3 * 00242900 //* * 00243000 //* 11 ADDITION OF FILE 175 FROM LONDON LIFE IN CANADA * 00243100 //* WHICH CONTAINS A COPY OF THEIR SQA OVERFLOW TO CSA * 00243200 //* TRAP * 00243300 //* * 00243400 //* 12 COMPLETE CHANGE OF THE APEMAN SYSTEM ON THIS TAPE * 00243500 //* THIS UPDATE WAS RECEIVED FROM GRUMMAN DATA SYSTEMS * 00243600 //* CORPORATION . THE FOLLOWING FILES HAVE EITHER BEEN * 00243700 //* COMPLETELY ELIMINATED OR COMPLETELY UPDATED : * 00243800 //* FILE 092 REPLACED COMPLETELY * 00243900 //* FILE 093 REPLACED COMPLETELY * 00244000 //* FILE 094 REPLACED COMPLETELY * 00244100 //* FILE 095 REPLACED COMPLETELY * 00244200 //* FILE 096 REPLACED COMPLETELY * 00244300 //* FILE 097 REPLACED COMPLETELY * 00244400 //* * 00244500 //***SECTION V-190 SECTION * 00244600 //* V-190 CHANGES FOR VERSION 190 APRIL 04, 1982 * 00244700 //* * 00244800 //* 1 UPDATE TO FILE 300 TO RELEASE 6.3 OF TSO COMMANDS * 00244900 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00245000 //* * 00245100 //* 2 UPDATE TO FILE 316 TO RELEASE 2.7 OF BATCH COMMANDS * 00245200 //* FROM THE U.S. AIRFORCE IN WASHINGTON , D.C. * 00245300 //* * 00245400 //* 3 UPDATE TO FILE 306 TO RELEASE 3.2 OF THE TIME * 00245500 //* SHARING SUBSYSTEM OPTION (TSSO) FROM THE U.S. * 00245600 //* AIRFORCE IN WASHINGTON , D.C. * 00245700 //* * 00245800 //* 4 UPDATE TO FILE 338 FROM ANACONDA-ERICCSON TO CONTAIN * 00245900 //* AN UPDATED VERSION OF SPY FROM THE BANK OF NEW SOUTH * 00246000 //* WALES FOR MVS/SP1.3 TO USE SVC 34 RATHER THAN THE * 00246100 //* INTERNAL READER TO ISSUE OPERATOR COMMANDS . ALSO * 00246200 //* CONTAINS SOME ADDITIONAL UTILITIES FROM ANACONDA- * 00246300 //* ERRICSON * 00246400 //* * 00246500 //* 5 UPDATE TO FILE 118 WHICH IS THE PTF-COVER CROSS- * 00246600 //* REFERENCE PROGRAM TO CORRECT A MINOR ERROR WHICH * 00246700 //* CAUSED A 001 ABEND * 00246800 //* * 00246900 //* 6 WITH FILE 227 IF YOU APPLY UZ32172 ( OZ51339 ) YOU * 00247000 //* WILL NO LONGER BE ABLE TO ATTACH A COPY OF IKJEFT01 * 00247100 //* ( TMP ) UNDER TSO AND HAVE IT WORK CORRECTLY * 00247200 //* * 00247300 //* 7 ADDITION OF FILE 340 FROM THE 1ST NATIONAL BANK OF * 00247400 //* CHICAGO, CONTAINS SOME TSO COMMANDS AND A TYPE 30 * 00247500 //* SMF REPORT PROGRAM * 00247600 //* * 00247700 //* 8 MOVE FILE 304 TO FILE 341 AND THE ADDITION OF FILE * 00247800 //* 342 FROM DELUXE CHECK PRINTERS SO BOTH FILES OF * 00247900 //* RELATED MATERIAL WILL BE TOGETHER FILE 341 HAS BEEN * 00248000 //* UPDATED TO CONTAIN NEW CODE AND FILE 342 CONTAINS * 00248100 //* SPF MENUS * 00248200 //* * 00248300 //* 9 ADDITION OF FILES 343-346 FROM MELLON BANK * 00248400 //* TO BRING MELLON BANK SHARE SPOOL AND THE SPOOL * 00248500 //* TRANSFER PROGRAM UP TO AN SP1.3 JES2 PRODUCT LEVEL * 00248600 //* * 00248700 //* 10 ADDITION OF FILES 279-287 WHICH IS FROM THE STATE * 00248800 //* OF WISCONSIN REGIONAL COMPUTING CENTER AND CONTAINS * 00248900 //* SOME OF THEIR UTILITIES PLUS SCRIPT * 00249000 //* * 00249100 //* 11 ADDITION OF FILE 348 FROM THE LOUISIANA DEPARTMENT * 00249200 //* OF HEALTH AND HUMAN RESOURCES FOR GDG PROCESSING * 00249300 //* * 00249400 //***SECTION V-189 SECTION * 00249500 //* V-189 CHANGES FOR VERSION 189 FEBRUARY 21, 1982 * 00249600 //* * 00249700 //* 1 COMPLETE REPLACEMENT OF FILE 70 WHICH IS A SERIES * 00249800 //* OF MODIFICATIONS FROM GENERAL DYNAMICS * 00249900 //* * 00250000 //* 2 ADDITION OF FILE 338 WHICH CONTAINS A COPY OF SPY * 00250100 //* THAT HAS BEEN MODIFIED TO RUN UNDER MVS 1.3. BY M. * 00250200 //* TOWN OF THE BANK OF NEW SOUTH WALES IN AUSTRALIA . * 00250300 //* THIS VERSION OF SPY ISSUES OPERATOR COMMANDS VIA * 00250400 //* THE INTERNAL READER * 00250500 //* * 00250600 //* 3 UPDATE TO FILE 118 WHICH IS THE PTF-COVER CROSS - * 00250700 //* REFERENCE PROGRAM TO CORRECT SOME MINOR ERRORS * 00250800 //* * 00250900 //***SECTION V-188 SECTION * 00251000 //* V-188 CHANGES FOR VERSION 188 JANUARY 31, 1982 * 00251100 //* * 00251200 //* 1 ADDITION OF FILE 337 WHICH IS FROM EXXON COMPANY IN * 00251300 //* HOUSTON , TEXAS OF A MODIFIED VERSION OF THE CMD1 * 00251400 //* SUBSYSTEM THAT RUNS UNDER JES3 * 00251500 //* * 00251600 //***SECTION V-187 SECTION * 00251700 //* V-187 CHANGES FOR VERSION 187 JANUARY 23, 1982 * 00251800 //* * 00251900 //* 1 UPDATE TO FILE 046 FROM MASS MUTUAL TO CORRECT A * 00252000 //* PROBLEM WITH PACKRAT . IT WAS NOT CORRECTLY * 00252100 //* CALCULATING SPACE ON A DATASET THAT HAD MORE THAN * 00252200 //* 3 EXTENTS * 00252300 //* * 00252400 //* 2 ADDITION OF FILE 332 WHICH IS FROM CAMERON IRON * 00252500 //* WORKS AND IS AN AUTOMATIC JOB SUBMISSION/SCHEDULER * 00252600 //* * 00252700 //* 3 UPDATE TO FILE 132 WHICH IS THE SMP4 CDS LISTER * 00252800 //* FROM AETNA TO : * 00252900 //* A SUB-ENTRIES FOR MACRO 'S WERE BEING INCORRECTLY * 00253000 //* LISTED AS LMOD ' S, THEY WILL NOW BE LISTED AS * 00253100 //* GENASM . * 00253200 //* B THE INCORE STORAGE TABLE FOR MOD/MAC'S (600K) HAS * 00253300 //* BEEN ELIMINATED , SO REGION SIZE CAN NOW BE * 00253400 //* 300-400K . * 00253500 //* C ALL READING FOR THE DIRECTORY BLOCKS IS NOW DONE * 00253600 //* A TRACK AT A TIME USING EXCP PROCESSING . CODE IS * 00253700 //* WRITTEN FOR 3330-11, 3350 AND 3380 'S * 00253800 //* * 00253900 //* 4 ADDITION OF FILE 333 FROM IBM IN BASEL , SWITZ ., * 00254000 //* THIS FILE CONTAINS SEVERAL UTILITIES ( IN OBJECT ) * 00254100 //* TO HANDLE PTF TAPES MORE EASILY . ALSO INCLUDED IS * 00254200 //* AN SMP4 CROSS-REFERENCE PROGRAM * 00254300 //* * 00254400 //* 5 UPDATE TO FILE 120 WHICH CONTAINS THE DOCUMENTATION * 00254500 //* TO THE JES2 MODS TAPE TO VERSION 24 , * 00254600 //* DATE NOVEMBER 1982 * 00254700 //* * 00254800 //* 6 ADDITION OF FILE 334 FROM L.A. COUNTY IN CALIFORNIA * 00254900 //* WHICH IS A SAS PROGRAM TO EVALUATE STORAGE ISLOATION * 00255000 //* FOR ON ONLINE ENVIRONMENT * 00255100 //* * 00255200 //***SECTION V-186 SECTION * 00255300 //* V-186 CHANGES FOR VERSION 186 JANUARY 10, 1982 * 00255400 //* * 00255500 //* 1. FILES 330 AND 331 ARE DMS FOR MVS/SP 1.1. DMS WILL * 00255600 //* NOT BE SUPPORTED FOR MVS/SP1.2 , MVS.SP1.3 AND LATER * 00255700 //* THIS IS THE LAST OF IT UNFORTUNATELY * 00255800 //* * 00255900 //***SECTION V-185 SECTION * 00256000 //* V-185 CHANGES FOR VERSION 185 JANUARY 03, 1982 * 00256100 //* * 00256200 //* 1 UPDATE TO THE # CMD1 SUB-SYSTEM IN FILES 266 AND * 00256300 //* 267 TO INCORPORATE THE CHANGES THAT WERE PREVIOUSLY * 00256400 //* IN FILE XXX OF THIS TAPE . THAT CODE HAS BEEN MERGED * 00256500 //* INTO THE BASE LEVEL CODE IN 266 THAT HAD BEEN * 00256600 //* PREVIOUSLY UPDATED BY ANOTHER USER . * 00256700 //* THE FOLLOWING CHANGES WERE MADE : * 00256800 //* 1 CSCSD03D #D - DUMP FORMATTED IN BOTH HEX AND * 00256900 //* EBCDIC FROM THE UNIVERSITY OF FLA * 00257000 //* 2 CSCSJ03D #I - ADD #IR TO DISPLAY THE SRM RCT * 00257100 //* VARIABLES FROM THE UNIVERSITY OF * 00257200 //* FLA * 00257300 //* 3 CSCSZ03D #Z - A MODIFIED VERSION OF #J TO SHOW * 00257400 //* DIFFERENT AND ADDITIONAL INFORMA- * 00257500 //* TION FROM THE UNIVERSITY OF FLA * 00257600 //* 4 CSCSC03D #L - BYPASS S0C4 IF UNDER TSO FROM THE * 00257700 //* UNIVERSITY OF FLA * 00257800 //* 5 CSCSM03D #H - UPDATED #H TO REFLECT THE ABOVE * 00257900 //* CHANGES FROM THE UNIVERSITY OF FLA * 00258000 //* 6 CMDSBTSO - ADD 24 PFK AND #Z SUPPORT FROM THE * 00258100 //* 1ST NATIONAL BANK OF BIRMINGHAM * 00258200 //* 7 CMDSBMON - ADD 24 PFK AND #Z SUPPORT FROM THE * 00258300 //* 1ST NATIONAL BANK OF BIRMINGHAM * 00258400 //* 8 CMDSBCSC - ADD #Z SUPPORT FROM C.B.T. * 00258500 //* 9 CMDINST - ADD #Z SUPPORT FROM C.B.T. * 00258600 //* 10 SE2DOCTN - ADD #Z DOCUMENTATION FROM C.B.T. * 00258700 //* 11 $DOC - ADD #Z DOCUMENTATION FROM C.B.T. * 00258800 //* 12 $MODS - ADD #Z DOCUMENTATION FROM C.B.T. * 00258900 //* * 00259000 //* 2 UPDATE TO FILE 021-026 WHICH CONTAINS DMS ( DYNAMIC * 00259100 //* MONITOR SYSTEM ) FROM IBM SWITZERLAND * 00259200 //* TO A NEW LEVEL * 00259300 //* * 00259400 //* 3 ADDITION OF FILES 330 AND 331 WHICH CONTAIN THE * 00259500 //* SP1.1 VER OF DMS FROM IBM SWITZERLAND . PREVIOUS * 00259600 //* VERSIONS OF THIS CODE ARE CONTAINED IN FILES 021-026 * 00259700 //* SEE FILES 021 AND 022 FOR ADDITIONAL AND DOCUMENTA- * 00259800 //* TION ON HOW TO USE THE DMS SYSTEM . DMS WILL NOT RUN * 00259900 //* WITH MVS/SP1.2 OR MVS/SP1.3 OR BEYOND * 00260000 //* * 00260100 //***SECTION V-184 SECTION * 00260200 //* V-184 CHANGES FOR VERSION 184 DECEMBER 30, 1981 * 00260300 //* * 00260400 //* 1 UPDATE TO FILE 169 WHICH IS THE VTAM SECONDARY * 00260500 //* PROGRAM OPERATOR FROM SCHERING-PLOUGH . THIS * 00260600 //* VERSION HAS BEEN UPDATED FOR PFK SUPPORT * 00260700 //* * 00260800 //* 2 UPDATE TO FILE 019 WHICH IS A SERIES OF VTAM PGMS * 00260900 //* FROM THE BRITISH COLUMBIA SYSTEMS CORP IN CANADA * 00261000 //* * 00261100 //* 3 ADDITION OF FILES 326 TO 329 FROM SCHERING-PLOUGH * 00261200 //* WHICH CONTAIN SEVERAL HELPFUL PROGRAMS . SEE BELOW * 00261300 //* UNDER THE FILE SECTION FOR ADDITIONAL INFORMATION * 00261400 //* * 00261500 //***SECTION V-183 SECTION * 00261600 //* V-183 CHANGES FOR VERSION 183 DECEMBER 06, 1981 * 00261700 //* * 00261800 //* 1 UPDATE TO MY MAILING ADDRESS TO ADD A MAIL STOP * 00261900 //* CODE * 00262000 //* * 00262100 //* 2 COMMENT TO SAY THAT THIS TAPE MAY NOW BE ORDERED * 00262200 //* THROUGH SPLA . ITS PROGRAM NUMBER IS 370D-03.00.019 * 00262300 //* * 00262400 //* 3 UPDATE TO THE FILE 045 PDS COMPARE PGM TO INCLUDE A * 00262500 //* SYSTEM THAT IS SPECIFICALLY DESIGNED TO HANDLE THE * 00262600 //* CHANGES BETWEEN TWO RELEASE OF JES2 , FROM TMS IN * 00262700 //* UTAH * 00262800 //* * 00262900 //* 4 UPDATE TO FILE 312 WHICH IS THE MVS/SE SIMULATOR * 00263000 //* TO SUPPORT MVS/SP1.3 * 00263100 //* * 00263200 //* 5 ADDITION OF FILE 324 WHICH IS SEVERAL MVS/SP1.3 * 00263300 //* UTILITIES FROM CONNECTICUT NATIONAL BANK INCLUDING * 00263400 //* # Q * 00263500 //* * 00263600 //***SECTION V-182 SECTION * 00263700 //* V-182 CHANGES FOR VERSION 182 NOVEMBER 22, 1981 * 00263800 //* * 00263900 //* 1 ADDITION OF FILE 118 WHICH CONTAINS AN SMP PUT-TAPE * 00264000 //* XREF PROGRAM * 00264100 //* * 00264200 //* 2 ADDITION OF FILE 119 WHICH CONTAINS USER MODS FROM * 00264300 //* THE FIRST NATIONAL BANK OF CHICAGO * 00264400 //* * 00264500 //* 3 REPLACEMENT OF FILE 072 WITH THE LATEST CBT MODS TO * 00264600 //* THEIR LEVEL OF THE OPERATING SYSTEM 8106 * 00264700 //* * 00264800 //* 4 ADDITION OF FILE 317 FROM THE U.S. POSTAL SERVICE * 00264900 //* WHICH CONTAINS AN UPDATED VERSION OF STATDIE FROM * 00265000 //* THE YALE OMF SYSTEM . THE LOAD MODULES FROM THIS * 00265100 //* SOURCE RESIDE IN FILE 035 * 00265200 //* * 00265300 //* 5 ADDITION OF FILE 318 FROM THE U.S. POSTAL SERVICE * 00265400 //* WHICH CONTAINS AN UPDATED VERSION OF THE UICC * 00265500 //* PACKLIST GENERATOR MODIFIED TO USE STATDIE . THE * 00265600 //* LOAD MODULES FROM THIS SOURCE RESIDE IN FILE 035 * 00265700 //* * 00265800 //* 6 ADDITION OF THE LOAD MODULES FROM THE SOURCE IN * 00265900 //* FILES 317 AND 318 TO FILE 035 * 00266000 //* * 00266100 //* 7 ADDITION OF FILE 319 FROM THE U.S. POSTAL SERVICE * 00266200 //* WHICH CONTAINS A PROGRAM THAT EXTRACTS SMF TYPE * 00266300 //* 14 AND 15 RECORDS AND PROVIDES A REPORT SUMMARIZING * 00266400 //* THEM * 00266500 //* * 00266600 //* 8 ADDITION OF A NEW SECTION IN FILE 001 ( THIS FILE ) * 00266700 //* CALLED 'PUT-TAPE CHANGES' THIS SECTION WILL CONTAIN * 00266800 //* INFORMATION ABOUT WHAT EFFECT A PARTICULAR PUT-TAPE * 00266900 //* HAD ON SOMETHING CONTAINED WITHIN THIS MODS TAPE . * 00267000 //* THE SECTION IS BETWEEN THE 'EMPTY FILE SECTION' AND * 00267100 //* THE ' VERSION SECTION ' . OBVIOUSLY THIS SECTION IS * 00267200 //* ONLY AS GOOD AS THE FEEDBACK I GET OR PROBLEMS THAT * 00267300 //* WE PERSONALLY RUN INTO * 00267400 //* * 00267500 //* 9 UPDATE TO FILE 037 WHICH IS THE MVS VERSION OF * 00267600 //* COPYCAT TO INCLUDE SOME CODE CHANGES IN IEBUPDTE * 00267700 //* FORMAT TO CORRECT S30A AND S200 ABENDS * 00267800 //* * 00267900 //* 10 ADDITION OF FILE 320 WHICH IS A SERIES OF DF/DSS * 00268000 //* DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER * 00268100 //* * 00268200 //* 11 ADDITION OF FILE 321 WHICH IS A COPY OF DYNMAIC * 00268300 //* BLDL FOR BASE LEVEL MVS AT AN 8107 LEVEL FROM PENN * 00268400 //* MUTUAL LIFE INSURANCE COMPANY * 00268500 //* * 00268600 //***SECTION V-181 SECTION * 00268700 //* V-181 CHANGES FOR VERSION 181 OCTOBER 18, 1981 * 00268800 //* * 00268900 //* 1 UPDATE TO FILE 292 WHICH IS THE TSO NEWS CP FROM * 00269000 //* ARCO AND UPDATED BY KAISER CALIFORNIA . * 00269100 //* THIS COMMAND IS AN EXTENSIVELY MODIFIED VERSION OF * 00269200 //* THE PREVIOUS NEWS COMMAND . THE MODIFICATIONS * 00269300 //* SUPPORT CONDITIONAL DISPLAY OF SUPERCEDED ITEMS * 00269400 //* ( AND , IF DISPLAYED , THEY ARE SHOWN IN * 00269500 //* LOW-INTENSITY ) ; MULTI-SCREEN SUPPORT FOR DETAIL * 00269600 //* ITEMS , INCLUDING PFK7/19 BACKUP ABILITY ; MULTIPLE * 00269700 //* PRINT ITEMS IN A SINGLE SYSOUT DATASET ; ETC . PAGE * 00269800 //* NUMBERS HAVE BEEN DROPPED SINCE # OF PAGES IS * 00269900 //* VARIABLE DEPENDING UPON WHETHER OR NOT SUPERCEDED * 00270000 //* ENTRIES ARE BEING DISPLAYED; INSTEAD , A ' *MORE* ' * 00270100 //* WILL APPEAR IN THE UPPER RIGHT CORNER FOR BOTH THE * 00270200 //* SUMMARY AND DETAIL DISPLAYS . * 00270300 //* SEE THE CODE IN FILE 292 OF THIS TAPE . THIS FILE * 00270400 //* IS NOW IN IEBUPDTE SYSIN FORMAT * 00270500 //* * 00270600 //* 2. ADDITION OF FILE 045 WHICH IS A PDS COMPARE PROGRAM * 00270700 //* FROM THE TRANSPORTATION MANAGEMENT SERVICES OF UTAH * 00270800 //* * 00270900 //* 3. ADDITION OF FILE 046 WHICH A FULL SCREEN TSO CP * 00271000 //* SCRATCH PROGRAM FROM MASS MUTUAL * 00271100 //* * 00271200 //* V-180 CHANGES FOR VERSION 180 SEPTEMBER 27, 1981 * 00271300 //***SECTION V-180 SECTION * 00271400 //* * 00271500 //* 1 ADDITION OF FILE 316 WHICH CONTAINS A SERIES OF * 00271600 //* BATCH UTILITIES FROM THE U.S. AIRFORCE IN * 00271700 //* WASHINGTON D C * 00271800 //* * 00271900 //***SECTION V-179 SECTION * 00272000 //* V-179 CHANGES FOR VERSION 179 SEPTEMBER 20, 1981 * 00272100 //* * 00272200 //***SECTION V-178 SECTION * 00272300 //* V-178 CHANGES FOR VERSION 178 SEPTEMBER 6, 1981 * 00272400 //* * 00272500 //* 1 UPDATE TO FILES 266 AND 267 WHICH CONTAIN THE #CMD1 * 00272600 //* SUBSYSTEM TO UPDATE AND FIX 6 OF THE COMMANDS . * 00272700 //* THE UPDATES ARE FROM BLUE CROSS/BLUE SHIELD OF * 00272800 //* INDIANA . * 00272900 //* # L NOWS RUNS THE ASVT CHAIN AND HAS VTAM SUPPORT * 00273000 //* # D NOWS RUNS THE ASVT CHAIN AND HAS A NEW * 00273100 //* SUBCOMMAND * 00273200 //* # A NOWS RUNS THE ASVT CHAIN * 00273300 //* # J NOWS RUNS THE ASVT CHAIN * 00273400 //* ##A NOWS RUNS THE ASVT CHAIN * 00273500 //* ##J NOWS RUNS THE ASVT CHAIN * 00273600 //* * 00273700 //* #H HAS BEEN UPDATED TO REFLECT #D CHANGE * 00273800 //* SE2CMDOCTN HAS BEEN UPDATED TO REFLECT #D CHANGE * 00273900 //* * 00274000 //* 2 ADDITION OF FILE 218 FROM COCA COLA IN ATLANTA * 00274100 //* WHICH CONTAINS AN MPL AND ASM MONITOR UNDER RMFMON * 00274200 //* * 00274300 //***SECTION V-177 SECTION * 00274400 //* V-177 CHANGES FOR VERSION 177 AUGUST 30, 1981 * 00274500 //* * 00274600 //* 1 ADDITION OF FILE 122 WHICH CONTAINS 3 TSO CP 'S FROM * 00274700 //* FROM ARAMCO . PRINTOFF FOR 3800 ' S , PRINTODD AND * 00274800 //* LOGALLOC * 00274900 //* * 00275000 //***SECTION V-176 SECTION * 00275100 //* V-176 CHANGES FOR VERSION 176 AUGUST 11, 1981 * 00275200 //* * 00275300 //* 1 UPDATE TO FILES 266 AND 267 TO CORRECT THE PROBLEM * 00275400 //* REFERRED TO IN VERSION 175 OF THIS TAPE * 00275500 //* * 00275600 //* A THE FOLLOWING MODULES OF THE # COMMAND SUBSYSTEM * 00275700 //* HAVE BEEN MODIFIED TO CHANGE THE WAY ESTAE * 00275800 //* PROCESSING IS HANDLED * 00275900 //* * 00276000 //* CSCGF03D NSEGF03D SE2GF03D SP1GF03D FRAME GRAPH * 00276100 //* CSCGH03D HELP GRAPH * 00276200 //* CSCSE03D NSESE03D SE2SE03D # A * 00276300 //* CSCSK03D SE2SK03D # C * 00276400 //* CSCSD03D SE2SD03D # D * 00276500 //* CSCSS03D # E * 00276600 //* CSCSF03D SE2SF03D # F * 00276700 //* CSCSM03D # H * 00276800 //* CSCSJ03D NSESJ03D SE2#IOLD SE2SJ03D # I * 00276900 //* CSCSL03D NSESL03D # J * 00277000 //* CSCSC03D # L * 00277100 //* CSCSO03D # M * 00277200 //* CSCSA03D # N 1ST LOD * 00277300 //* CSCSB03D # N 2ND LOD * 00277400 //* CSCSR03D SE2SR03D # O * 00277500 //* CSCSP03D # P * 00277600 //* CSCSQ03D # Q * 00277700 //* CSCSG03D # R * 00277800 //* CSCSH03D # S * 00277900 //* CSCSN03D # T * 00278000 //* CSCSI03D # V * 00278100 //* CSCZB03D ##B * 00278200 //* NSEZJ03D ##J * 00278300 //* * 00278400 //* NOTE : * 00278500 //* 1 NSE***** ARE THE NON-MVS/SE-SP VERSIONS * 00278600 //* 1 SE2***** ARE THE MVS/SE RELEASE 2 VERSIONS * 00278700 //* 1 SP1***** ARE THE MVS/SP RELEASE 1 VERSIONS * 00278800 //* * 00278900 //* B #DXX,00 IS FIXED SO IT WILL NOT LOOP AND * 00279000 //* POSSIBILY PUT THE OPERATING SYSTEM INTO A * 00279100 //* SOLID WAIT * 00279200 //* * 00279300 //* C ADDED THE ' C ' SUBCOMMAND TO THE MVS/SP1 VERSION * 00279400 //* OF #I * 00279500 //* * 00279600 //* 2 UPDATE TO FILE 145 FROM LOMA LINDA TO ADD A VERSION * 00279700 //* OF THE FENCING ZAP TO AN 8104 LEVEL * 00279800 //* * 00279900 //***SECTION V-175 SECTION * 00280000 //* V-175 CHANGES FOR VERSION 175 JULY 19, 1981 * 00280100 //* * 00280200 //* ************************************************ * 00280300 //* * * * 00280400 //* * THE FOLLOWING IS FOR INFORMATION ONLY AS THE * * 00280500 //* * CODE HAS BEEN MODIFIED SO THE FOLLOWING WILL * * 00280600 //* * NO LONGER OCCUR ( ASSUMING YOU ARE RUNING * * 00280700 //* * THE CODE FROM TAPE 175+ OR LATER ) * * 00280800 //* * * * 00280900 //* ************************************************ * 00281000 //* * 00281100 //* 1 UPDATE TO FILE 266 WHICH IS THE # CMD1 SUBSYSTEM * 00281200 //* TO ADD THE FOLLOWING INFORMATION * 00281300 //* * 00281400 //* ## ## * 00281500 //* ## ## * 00281600 //* ## ## * 00281700 //* ############# * 00281800 //* ALSO NEED APAR ############# * 00281900 //* AZ55724 WITH THE ## ## * 00282000 //* BELOW MENTIONED ## ## * 00282100 //* PTF'S AS THEY HAVE ############# * 00282200 //* A PE AGAINST THEM ############# * 00282300 //* (FIX IS IN RETAIN) ## ## * 00282400 //* ## ## * 00282500 //* ## ## * 00282600 //* * 00282700 //* THERE SS A VERY SERIOUS PROBLEM WITH THE USE * 00282800 //* OF THE # COMMAND SUBSYSTEM ( CMD1 ) AND A PTF * 00282900 //* ON PUT TAPE 8105 . WHEN CMD1 IS USED ON A * 00283000 //* SYSTEM THAT HAS PTF UZ35143 , OR UZ35144 , OR * 00283100 //* UZ35145 APPLIED YOU WILL BE PLACED IN THE * 00283200 //* SITUATION WHERE YOU WILL HAVE TO IPL !!!! * 00283300 //* YOUR SYSTEM WILL GO INTO A LOOP AND ALL YOUR * 00283400 //* WQE ' S WILL BE FILLED WITH AN ' ERROR * 00283500 //* ENCOUNTED IN IN CONTROL BLOCKS , RETRY * 00283600 //* COMMAND ' MESSAGE . SOME SOLUTIONS TO THIS * 00283700 //* ARE : * 00283800 //* 1 DO NOT RUN CMD1 * 00283900 //* 2 DO NOT PUT THE PTF ON * 00284000 //* 3 REMOVE ALL THE ESTAE ' S FROM CMD1 * 00284100 //* 4 CORRECT ALL THE ESTAE CODING * 00284200 //* THE PTF CHANGED MODULE IEE0003D AND THE * 00284300 //* MODULE NOW USES THE FAST ESTAE PATH AND * 00284400 //* BECAUSE OF THE WAY ESTAE IS IMPLEMENTED IN * 00284500 //* CMD1 THERE IS A PROBLEM . WE HAVE FIXED ALL THE * 00284600 //* ESTAES ON LATER VERSIONS OF THIS TAPE SO THEY * 00284700 //* WORK CORRECTLY , IF YOU DO NOT WANT THIS CODE * 00284800 //* THE QUICKEST AND FASTEST * 00284900 //* SOLUTION IS TO REMOVE ALL THE ESATES . * 00285000 //* OBVIOUSLY IF YOU DO THIS AND CMD1 ABENDS YOU * 00285100 //* WILL GET AN SVC DUMP ( C0D ) INTO ONE OF YOUR * 00285200 //* SYS1.DUMP DATA SETS * 00285300 //* * 00285400 //* V-174 CHANGES FOR VERSION 174 JUNE 25, 1981 * 00285500 //***SECTION V-174 SECTION * 00285600 //* * 00285700 //* 1 ADDITION OF FILE 315 FROM FEDERAL EXPRESS WHICH IS * 00285800 //* A COPY OF THEIR SINGLE STEP COMPILER * 00285900 //* * 00286000 //***SECTION V-173 SECTION * 00286100 //* V-173 CHANGES FOR VERSION 173 JUNE 21, 1981 * 00286200 //* * 00286300 //* 1 ADDITION OF FILE 313 WHICH IS FROM MEMOREX AND * 00286400 //* CONTAINS UTILITIES PGMS , MODS , SMF EXITS AND OTHER * 00286500 //* GOODIES * 00286600 //* * 00286700 //* 2 UPDATE TO FILE 266 TO ADD MVS/SP RELEASE 1 VERSIONS * 00286800 //* OF THE # COMMANDS THAT HAVE CHANGED * 00286900 //* THE FOLLOWING HAVE BEEN UPDATED FOR USE IN AN * 00287000 //* MVS/SP RELEASE 1 ENVIRONMENT * 00287100 //* * 00287200 //* ##S SYSIND MON CSCZS03D (SP1ZS03D) * 00287300 //* A ACTIVITY MON CSCGA03D (SP1GA03D) * 00287400 //* E EXCEPTION MON CSCGE03D (SP1GE03D) * 00287500 //* F FRAME USE GRAPH CSCGF0ED (SP1GF03D) * 00287600 //* O I/O ACTIVITY CSCGO03D (SP1GO03D) * 00287700 //* S SYS IND GRAPH CSCGS03D (SP1GS03D)> * 00287800 //* * 00287900 //***SECTION V-172 SECTION * 00288000 //* V-172 CHANGES FOR VERSION 172 MAY 24, 1981 * 00288100 //* * 00288200 //* 1. UPDATE TO FILE 003 TO ADD AN EXPIRATION DATE (98000) * 00288300 //* TO THE INPUT TAPE FILES * 00288400 //* * 00288500 //* 2. UPDATE TO FILE 057 WHICH IS A NEW VERSION OF THE * 00288600 //* PANSPOOL PROGRAM FROM MEMOREX * 00288700 //* * 00288800 //* 3. ADDITION OF FILE 307 WHICH IS A MODIFIED COPY OF THE * 00288900 //* QUE COMMAND THAT IS IN FILE 278 OF THIS TAPE. THIS * 00289000 //* VERSION OF QUEUE COMES FROM THE UNIVERSITY OF FLORIDA* 00289100 //* AND CONTAINS SUPPORT FOR 3278'S MODELS 2,4 AND 5 * 00289200 //* * 00289300 //* 4 ADDITION OF FILE 308 WHICH IS A MODIFIED COPY OF THE * 00289400 //* QUE COMMAND THAT IS IN FILE 278 OF THIS TAPE . THIS * 00289500 //* VERSION OF QUEUE COMES FROM THE LANE BRYANT AND * 00289600 //* CONTAINS SUPPORT FOR 3278'S MODELS 2,3,4 AND 5 AND * 00289700 //* 3279'S * 00289800 //* * 00289900 //* 5 ADDITION OF FILE 309 WHICH CONTAINS A REPLACEMENT FOR 00290000 //* Q12 (JOBLOG) FOR THE QUE COMMANDS IN FILES 278 , * 00290100 //* 307 AND 308 * 00290200 //* * 00290300 //* 6 ADDITION OF FILE 310 FROM NORTHEAST UTILITIES , WHICH 00290400 //* CONTAINS SEVERAL OF NUSCO 'S UTILITIES * 00290500 //* * 00290600 //* 7 ADDITION OF FILE 311 FROM NORTHEAST UTILITIES , WHICH 00290700 //* CONTAINS SOME TSO CLISTS TO GO WITH FILE 310 * 00290800 //* * 00290900 //* 8 ADDITION OF FILE 312 FROM UNION CARBIDE WHICH IS AN * 00291000 //* MVS/SE SIMULATOR * 00291100 //* * 00291200 //***SECTION V-171 SECTION * 00291300 //* V-171 CHANGES FOR VERSION 171 APRIL 12, 1981 * 00291400 //* * 00291500 //* 1 UPDATE TO FILE 276 WHICH IS THE SPY COMMAND TO * 00291600 //* CONTAIN THE TWO MACROS IT NEEDS FOR PROPER ASSEMBLY * 00291700 //* * 00291800 //* 2 ADDITION OF FILE 306 WHICH CONTAINS THE TIME SHARING * 00291900 //* SUBSYSTEM FROM THE U.S. AIRFORCE IN WASHINGTON D.C * 00292000 //* * 00292100 //* 3 UPDATE TO FILE 167 WHICH IS A LOGON PRE-PROMPT EXIT * 00292200 //* FROM SCHERING-PLOUGH . THIS VERSION HAS HAD SOME * 00292300 //* ERRORS CORRECTED AS WELL AS SUPPORT NOTICES , MAIL , * 00292400 //* AND DESTINATION CHANGING * 00292500 //* * 00292600 //* 4 ADDITION OF FILE 169 WHICH IS A VTAM SECONDARY * 00292700 //* PROGRAM OPERATOR FROM SCHERING-PLOUGH . THIS VERSION * 00292800 //* HAS BEEN UPDATED TO HANDLE THREE CONCURRENT USERS * 00292900 //* * 00293000 //***SECTION V-170 SECTION * 00293100 //* V-170 CHANGES FOR VERSION 170 FEBRUARY 22, 1981 * 00293200 //* * 00293300 //* 1 ADDITION OF FILE 303 WHICH CONTAINS A NEW # COMMAND * 00293400 //* CALLED #B , ALSO INCLUDED IS A NEW VERSION OF THE * 00293500 //* CROSS-SYSTEM CONTROLLER * 00293600 //* * 00293700 //* 2 ADDITION OF FILE 305 FROM REVLON WHICH IS AN * 00293800 //* SMF / RMF SPLITTER PROGRAM * 00293900 //* * 00294000 //***SECTION V-169 SECTION * 00294100 //* V-169 CHANGES FOR VERSION 169 FEBRUARY 15, 1981 * 00294200 //* * 00294300 //* 1 ADDITION OF FILE 300 WHICH CONTAINS SEVERAL TSO * 00294400 //* COMMAND PROCESSORS FROM THE U.S. AIRFORCE IN D.C. * 00294500 //* * 00294600 //* 2 ADDITION OF FILE 301 WHICH CONTAINS SEVERAL TSO * 00294700 //* COMMAND PROCESSORS FROM THE FEDERAL RESERVE BANK * 00294800 //* OF NEW YORK * 00294900 //* * 00295000 //* 3 ADDITION OF FILE 302 WHICH CONTAINS A PROGRAM TO * 00295100 //* GIVE THE TSO USER THE ABILITY TO CHANGE HIS OR HER * 00295200 //* TSO PASSWORD * 00295300 //* * 00295400 //* 4 UPDATE TO FILE 142 WHICH IS AN RMF POST PROCESSOR * 00295500 //* * 00295600 //* 5 UPDATE TO FILE 238 WHICH IS AN RMF POST PROCESSOR * 00295700 //* * 00295800 //***SECTION V-168 SECTION * 00295900 //* V-168 CHANGES FOR VERSION 168 FEBRUARY 01, 1981 * 00296000 //* * 00296100 //* 1 ADDITION OF THE TAPEMAP LOAD MODULE TO FILE 035 * 00296200 //* * 00296300 //***SECTION V-167 SECTION * 00296400 //* V-167 CHANGES FOR VERSION 167 JANUARY 18, 1981 * 00296500 //* * 00296600 //***SECTION V-166 SECTION * 00296700 //* V-166 CHANGES FOR VERSION 166 JANUARY 04, 1981 * 00296800 //* * 00296900 //* 1 ADDITION OF FILE 298 WHICH IS A UCB ZAP PROGRAM * 00297000 //* * 00297100 //***SECTION V-165 SECTION * 00297200 //* V-165 CHANGES FOR VERSION 165 DECEMBER 30, 1980 * 00297300 //* * 00297400 //***SECTION V-164 SECTION * 00297500 //* V-164 CHANGES FOR VERSION 164 DECEMBER 28, 1980 * 00297600 //* * 00297700 //***SECTION V-163 SECTION * 00297800 //* V-163 CHANGES FOR VERSION 163 DECEMBER 14, 1980 * 00297900 //* * 00298000 //* 1 ADDITION OF FILE 296 WHICH CONTAINS A SERIES OF * 00298100 //* UTILITIES FROM MISTER A BRUCE LELAND * 00298200 //* * 00298300 //***SECTION V-162 SECTION * 00298400 //* V-162 CHANGES FOR VERSION 162 DECEMBER 7, 1980 * 00298500 //* * 00298600 //***SECTION V-161 SECTION * 00298700 //* V-161 CHANGES FOR VERSION 161 NOVEMBER 26, 1980 * 00298800 //* * 00298900 //* 1 UPDATE TO FILE 145 TO UPDATE THE CPU COMMAND FROM * 00299000 //* HOBART * 00299100 //* * 00299200 //***SECTION V-160 SECTION * 00299300 //* V-160 CHANGES FOR VERSION 160 NOVEMBER 09, 1980 * 00299400 //* * 00299500 //* 1 UPDATE TO FILE 145 FROM HOBART TO ADD AN ASSEMBLER * 00299600 //* VERSION OF THE CPU COMMAND FROM YALE AND TO UPDATE * 00299700 //* THE NON-MVSSE VERSION OF THE FENCING ZAP TO AN * 00299800 //* 8004 LEVEL * 00299900 //* * 00300000 //* 2 UPDATE TO FILE 035 TO ADD A COPY OF THE HOBART * 00300100 //* CPU COMMAND LOAD MODULE * 00300200 //* * 00300300 //* 3 UPDATE TO FILE 294 TO NOW CONTAIN THE SOURCE FOR * 00300400 //* THE VSAM ANALYZER TSO CP * 00300500 //* * 00300600 //***SECTION V-159 SECTION * 00300700 //* V-159 CHANGES FOR VERSION 159 OCTOBER 28, 1980 * 00300800 //* * 00300900 //* 1 UPDATE TO FILE 016 TO ADD A NEW VERSION OF THE * 00301000 //* PROGRAM TO PRODUCE XREF REPORTS FROM A PTF TAPE * 00301100 //* * 00301200 //* 2 ADDITION OF FILE 295 WHICH IS A PROGRAM TO * 00301300 //* CREATE PF KEYS FOR THE SYSTEM OPERATOR FROM * 00301400 //* CARDS * 00301500 //* * 00301600 //***SECTION V-158 SECTION * 00301700 //* V-158 CHANGES FOR VERSION 158 OCTOBER 21, 1980 * 00301800 //* * 00301900 //* 1 ADDITION OF FILE 294 WHICH IS A VSAM ANALYSER * 00302000 //* * 00302100 //* 2 UPDATE TO FILE 035 TO HOLD THE LOAD MODULES * 00302200 //* OF THE VSAM ANALYZER CONTAINED IN FILE 294 * 00302300 //* * 00302400 //***SECTION V-157 SECTION * 00302500 //* V-157 CHANGES FOR VERSION 157 OCTOBER 12, 1980 * 00302600 //* * 00302700 //* 1 UPDATE TO FILE 035 TO ADD A NEW VERSION OF TSPUDATE * 00302800 //* WHICH CORRECTS A POSSIBLE OC4 IN THE GENERATE MODE * 00302900 //* * 00303000 //* 2 ADDITION OF FILE 019 WHICH IS A SERIES OF VTAM * 00303100 //* PROGRAMS FROM THE BRITISH COLUMBIA SYSTEMS * 00303200 //* CORPORATION IN CANADA * 00303300 //* * 00303400 //***SECTION V-156 SECTION * 00303500 //* V-156 CHANGES FOR VERSION 156 SEPTEMBER 28, 1980 * 00303600 //* * 00303700 //* 1 ADDITION OF FILES 292 AND 293 WHICH CONTAIN A TSO CP * 00303800 //* CALL NEWS AND A SAMPLE OF ITS ASSOCIATED INPUT * 00303900 //* FROM ARAMCO * 00304000 //* * 00304100 //***SECTION V-155 SECTION * 00304200 //* V-155 CHANGES FOR VERSION 155 SEPTEMBER 14, 1980 * 00304300 //* * 00304400 //* 1 ADDITION OF FILES 289 - 291 WHICH IS A SYSTEM FROM * 00304500 //* ARAMACO TO GENERATE 3270 FULL SCREEN DISPLAYS FOR * 00304600 //* USE IN PL/I PROGRAMS * 00304700 //* * 00304800 //* 2. ADDITION OF FILE 020 FROM MEMOREX WHICH CONTAINS * 00304900 //* A TSO CP TO INVOKE THE WATERLOO SCRIPT ( THIS FILE * 00305000 //* DOES NOT CONTAIN THE WATERLOO SCRIPT ) * 00305100 //* * 00305200 //***SECTION V-154 SECTION * 00305300 //* V-154 CHANGES FOR VERSION 154 SEPTEMBER 02, 1980 * 00305400 //* * 00305500 //* 1 ADDITION OF FILE 018 WHICH IS DOCUMENTATION FROM * 00305600 //* CONRAIL CONCERNING THEIR PDS UPDATE PROGRAM * 00305700 //* CALLED TSUPDATE * 00305800 //* * 00305900 //* 2 ADDITION OF THE LOAD MODULE CALLED TSUPDATE * 00306000 //* INTO FILE 035 * 00306100 //* * 00306200 //***SECTION V-153 SECTION * 00306300 //* V-153 CHANGES FOR VERSION 153 SEPTEMBER 01, 1980 * 00306400 //* * 00306500 //* 1 ADDITION OF FILE 017 WHICH IS A SERIES OF UTILITIES * 00306600 //* FROM RAINIER BANK * 00306700 //* * 00306800 //***SECTION V-152 SECTION * 00306900 //* V-152 CHANGES FOR VERSION 152 AUGUST 28, 1980 * 00307000 //* * 00307100 //* 1 ADDITION OF FILE 123 WHICH IS INSTRUCTIONS ON HOW * 00307200 //* TO CONTRIBUTE TO THE TSO-GUIDE TAPE * 00307300 //* * 00307400 //***SECTION V-151 SECTION * 00307500 //* V-151 CHANGES FOR VERSION 151 AUGUST 27, 1980 * 00307600 //* * 00307700 //* 1 ADDITION OF FILE 015 WHICH IS THE TSO STATE * 00307800 //* COMMAND PROCESSOR * 00307900 //* * 00308000 //* 2 ADDITION OF FILE 016 WHICH IS CODE TO GENERATE * 00308100 //* A PTF TAPE XREF REPORT * 00308200 //* * 00308300 //***SECTION V-150 SECTION * 00308400 //* V-150 CHANGES FOR VERSION 150 AUGUST 24, 1980 * 00308500 //* * 00308600 //* 1 UPDATE TO FILE 027 ( MTRACE ) TO CORRECT A MINOR * 00308700 //* FORMATTING ERROR * 00308800 //* * 00308900 //* 2 UPDATE TO FILE 278 WHICH IS QUE TO ADD THE * 00309000 //* TGET MACRO WHICH IS AT PTF LEVEL UZ30398 ( 8002 ) * 00309100 //* * 00309200 //* 3 UPDATE TO FILE 266 WHICH IS THE # COMMAND SUBSYSTEM * 00309300 //* TO ADD A MEMBER CALLED $SMFSE2 WHICH CONTAINS * 00309400 //* INFORMATION ABOUT SMF STARTED TASK ACCOUNTING WITH * 00309500 //* CMD1 * 00309600 //* * 00309700 //* 4 ADDITION OF FILE 200 WHICH IS A SERIES OF PROGRAMS * 00309800 //* FROM TWA TO PROCESS LOAD MODULES * 00309900 //* * 00310000 //* 5 ADDITION OF FILE 256 WHICH IS A JES3 MODIFICATION * 00310100 //* FROM TWA * 00310200 //* * 00310300 //***SECTION V-149 SECTION * 00310400 //* V-149 CHANGES FOR VERSION 149 AUGUST 03, 1980 * 00310500 //* * 00310600 //* 1 ADDITION OF FILE 129 WHICH IS A SUPERZAP FOR CHANNEL * 00310700 //* ROTATE AND I/O PRIORITY FOR A 3.8 NON-SE SYSTEM * 00310800 //* * 00310900 //***SECTION V-148 SECTION * 00311000 //* V-148 CHANGES FOR VERSION 148 JULY 20, 1980 * 00311100 //* * 00311200 //* 1 UPDATE TO FILE 204 WHICH IS A PROGRAM THAT RE-ORDERS * 00311300 //* VTOC'S ON TSO PACKS * 00311400 //* * 00311500 //* 2 ADDITION OF FILE 035 WHICH WILL CONTAIN MOST BUT * 00311600 //* NOT ALL OF THE LOAD MODULES THAT I SHIP * 00311700 //* * 00311800 //* 3 ADDITION OF THE FOLLOWING LOAD MODULES TO FILE 035 * 00311900 //* * 00312000 //* SOURCE FILE LOAD MODULE NAME * 00312100 //* * 00312200 //* 038 STARTREK AND ALL ITS LOAD * 00312300 //* MODULES (CPAGE,BPAGE,QTIME, * 00312400 //* QDATE,DEDUCT,RANKING, * 00312500 //* ST79INIT,SUPRTREK) * 00312600 //* 112 $VTOC * 00312700 //* 128 ADVENT * 00312800 //* 255 RMFPP * 00312900 //* * 00313000 //***SECTION V-147 SECTION * 00313100 //* V-147 CHANGES FOR VERSION 147 JUNE 29, 1980 * 00313200 //* * 00313300 //* 1 UPDATE TO FILE 168 WHICH IS A DYNAMIC ALLOCATION * 00313400 //* EXIT ( IEFDB401 ) FROM SCHERING-PLOUGH * 00313500 //* * 00313600 //* 2 ADDITION OF FILE 036 WHICH IS A COLLECTION OF * 00313700 //* AMDPRDMP EXITS AND ZAPS REQUIRED FOR 8004 LEVEL * 00313800 //* FROM SCHERING-PLOUGH * 00313900 //* * 00314000 //* 3 ADDITION OF FILE 037 WHICH IS COPYCAT THAT HAS BEEN * 00314100 //* MODIFIED TO RUN UNDER MVS FROM SCHERING-PLOUGH * 00314200 //* * 00314300 //* 4 ADDITION OF FILE 038 WHICH CONTAINS 3 PROGRAMS : * 00314400 //* A SMPSEL - FOR SMP MAINTENANCE * 00314500 //* B PROGDQUE - FOR THE PRINT QUEUE DATASET FOR * 00314600 //* DSPRINT * 00314700 //* C STARTREK - STAR TREK * 00314800 //* * 00314900 //* FROM FEDERAL EXPRESS * 00315000 //* * 00315100 //* 5 ADDITION OF FILE 183 WHICH CONTAINS A MODIFIED * 00315200 //* COPY OF THE MVS TUNING REPORT WHICH IS THE PREVIOUS * 00315300 //* VERSION THAT USED TO BE CONTAINED IN FILE 155 OF * 00315400 //* THIS TAPE FROM LOMA LINDA * 00315500 //* * 00315600 //***SECTION V-146 SECTION * 00315700 //* V-146 CHANGES FOR VERSION 146 JUNE 24, 1980 * 00315800 //* * 00315900 //* 1 ADDITION OF FILE 039 WHICH IS A SERIES OF PROGRAMS , * 00316000 //* TSO CP ' S , CLISTS , ETC ., FROM AN INSTALLATION * 00316100 //* IN THE MIDWEST * 00316200 //* * 00316300 //* 2 ADDITION OF FILE 058 WHICH IS A SERIES OF PROGRAMS , * 00316400 //* TSO CP ' S , MACROS , ETC ., FROM FLORIDA POWER & * 00316500 //* LIGHT COMPANY * 00316600 //* * 00316700 //***SECTION V-145 SECTION * 00316800 //* V-145 CHANGES FOR VERSION 145 JUNE 17, 1980 * 00316900 //* * 00317000 //* 1 UPDATE TO FILE 042 WHICH IS A SERIES OF PROGRAMS AND * 00317100 //* MODIFICATION FROM KAISER PERMENENTE * 00317200 //* * 00317300 //* 2 ADDITION OF FILE 057 WHICH IS PANSPOOL , A JES2 * 00317400 //* SYSMSG SPOOLING SYSTEM FROM MEMOREX * 00317500 //* * 00317600 //* 3 UPDATE TO FILE 003 WHICH IS THE JCL TO DROP DOWN THE * 00317700 //* WHOLE TAPE . RATHER THAN REQUIRING THAT THE DE- * 00317800 //* COMPRESSION PROGRAM BE ASSEMBLED AND LINKED PRIOR * 00317900 //* TO LOADING ANY COMPRESSED FILES , THIS FILE WILL * 00318000 //* NOW ASSEMBLE AND LINK THE DECOMPRESSION PROGRAM * 00318100 //* INTO A TEMPORARY LIBRARY . YOU CAN STILL USE IT THE * 00318200 //* OLD WAY AND JUST REMOVE THE ASSEMBLE PROC . THIS WAS * 00318300 //* SUGGESTED , IMPLEMENTED AND SUBMITTED BY * 00318400 //* SCHERING-PLOUGH * 00318500 //* * 00318600 //***SECTION V-144 SECTION * 00318700 //* V-144 CHANGES FOR VERSION 144 JUNE 16, 1980 * 00318800 //* * 00318900 //* 1 UPDATE TO FILE 266 TO ADD ADDITONAL INFORMATION * 00319000 //* IN THE DOCUMENTATION MEMBERS OF THE # COMMAND * 00319100 //* SUBSYSTEM * 00319200 //* * 00319300 //* 2 UPDATE TO FILE 278 TO NOW CONTAIN THE NEW VERSION * 00319400 //* OF QUEUE FROM THE JES2 MODS TAPE VERSION 18 . THIS * 00319500 //* VERSION HAS A NUMBER OF ENHANCEMENTS AND CLEANUP * 00319600 //* FIXES INSTALLED . A SCREEN PRINT FACILITY HAS ALSO * 00319700 //* BEEN ADDED . FOR MORE INFORMATION SEE THE WRITE UP * 00319800 //* UNDER FILE 278 * 00319900 //* * 00320000 //***SECTION V-143 SECTION * 00320100 //* V-143 CHANGES FOR VERSION 143 MAY 29, 1980 * 00320200 //* * 00320300 //* 1 UPDATE TO FILE 133 TO PUT IN A MORE CORRECT VERSION * 00320400 //* OF THE CONSOLE ROLL ZAP . IF YOU TRIED TO RETROFIT * 00320500 //* THE PREVIOUS COPY TO 3.8 - YOUR SYSTEM WOULD PROBABLY 00320600 //* LOOP AT IPL TIME . THAT VERSION HAS BEEN REMOVED * 00320700 //* * 00320800 //* 2 CORRECTION TO THE APAR NUMBER TO FIX CONSOLE * 00320900 //* ROLL WITH #T AND #D ( FILE 266 ) THE APAR IS * 00321000 //* OZ43769 NOT OZ43967 . THE ZAP ITSELF WAS ALWAYS * 00321100 //* CORRECT JUST THE APAR NUMBER WAS WRONG . APARS * 00321200 //* OZ43238 AND OZ43769 ARE PICKED UP IN * 00321300 //* UZ29750 , UZ29751 OR UZ29752 DEPENDING ON YOUR FMIDS * 00321400 //* * 00321500 //* 3 UPDATE TO FILE 205 WHICH IS A PRINTOFF CP FROM * 00321600 //* SOUTHERN CALIFORNIA EDISON . THIS VERSION NOW * 00321700 //* SUPPORTS A SEARCH AND LIST KEYWORD * 00321800 //* * 00321900 //* 4 ADDITION OF FILE 276 WHICH IS AN UPDATED VERSION * 00322000 //* OF SPY FROM SOUTHERN CALIFORNIA EDISON . THIS COPY * 00322100 //* UPDATES THE CODE THAT IS IN FILE 206 AND HAS * 00322200 //* MVS/SE 1 AND MVS/SE 2 SUPPORT * 00322300 //* * 00322400 //***SECTION V-142 SECTION * 00322500 //* V-142 CHANGES FOR VERSION 142 MAY 07, 1980 * 00322600 //* * 00322700 //* 1 ADDITION OF FILES 021-026 WHICH CONTAIN THE SERVICE * 00322800 //* AID CALLED THE DYNMAIC MONITOR SYSTEM ( DMS ) FOR AN * 00322900 //* IBM OS/MVS SYSTEM * 00323000 //* * 00323100 //* 2 ADDITION OF FILE 027 WHICH IS THE MTRACE PRINT * 00323200 //* DUMP SERVICE AID EXIT FOR SU64 * 00323300 //* * 00323400 //***SECTION V-141 SECTION * 00323500 //* V-141 CHANGES FOR VERSION 141 APRIL 14, 1980 * 00323600 //* * 00323700 //***SECTION V-140 SECTION * 00323800 //* V-140 CHANGES FOR VERSION 140 APRIL 07, 1980 * 00323900 //* * 00324000 //* 1 UPDATE TO FILE 227 TO ADD TWO NEW ADDITIONAL * 00324100 //* PROGRAMS * 00324200 //* * 00324300 //***SECTION V-139 SECTION * 00324400 //* V-139 CHANGES FOR VERSION 139 MARCH 20, 1980 * 00324500 //* * 00324600 //* 1 UPDATE TO FILES 30 AND 31 SO THESE COPIES OF * 00324700 //* THE FREEALL COMMANDS WILL NO LONGER ABEND WITH * 00324800 //* AN OC4 * 00324900 //* * 00325000 //* 2 ADDITION OF FILE 120 WHICH CONTAINS THE * 00325100 //* DOCUMENTATION FILE FROM THE JES2 MODS TAPE * 00325200 //* VERSION 15 , DATED FEBRUARY 1980 * 00325300 //* * 00325400 //* 3 ADDITION OF FILE 257 WHICH CONTAINS A VTAM BUFFER * 00325500 //* TRACE PROGRAM FROM GTE IN ERIE , PA * 00325600 //* * 00325700 //* 4 ADDITION OF FILE 145 FROM HOBART WHICH CONTAINS * 00325800 //* THE FLOATING FENCE PLUS OTHER PROGRAMS AND DATA * 00325900 //* * 00326000 //***SECTION V-138 SECTION * 00326100 //* V-138 CHANGES FOR VERSION 138 MARCH 09, 1980 * 00326200 //* * 00326300 //* 1 UPDATE TO FILE 227 TO ADD INFORMATION AND A PROGRAM * 00326400 //* ON HOW TO ATTACH ANOTHER COPY OF THE TMP * 00326500 //* ( IKJEFT01 ) * 00326600 //* * 00326700 //* 2 ADDITION OF FILE 259 WHICH IS A SERIES OF CLISTS * 00326800 //* FROM KAISER PERMANENTE * 00326900 //* * 00327000 //***SECTION V-137 SECTION * 00327100 //* V-137 CHANGES FOR VERSION 137 FEBRUARY 10, 1980 * 00327200 //* * 00327300 //* 1 UPDATE TO FILE 41 TO CONTAIN AN MVS/SE AND * 00327400 //* NON-MVS/SE VERSION OF CHIMP * 00327500 //* * 00327600 //***SECTION V-136 SECTION * 00327700 //* V-136 CHANGES FOR VERSION 136 FEBRUARY 3, 1980 * 00327800 //* * 00327900 //* 1 NEW VERSION OF THE FULL SCREEN EDITOR CONTAINED * 00328000 //* IN FILE 207 FROM CITIBANK IN NEW YORK * 00328100 //* * 00328200 //***SECTION V-135 SECTION * 00328300 //* V-135 CHANGES FOR VERSION 135 JANUARY 27, 1980 * 00328400 //* * 00328500 //* 1 UPDATE TO FILE 266 TO ADD SUPPORT FOR THE JES2 * 00328600 //* DUAL CHECKPOINT PTF 27300 FOR THE QUE COMMAND * 00328700 //* UNDER THE STANDALONE VERSION OF THE # SYSTEM . * 00328800 //* THE FOLLOWING MEMBERS HAVE BEEN MODIFIED * 00328900 //* CSCGI03D - JES2 INIT DISPLAY (NOT BECAUSE OF 27300)* 00329000 //* CSCGQQ03 - QUEUE COMMAND - UPDATE TO 27300 * 00329100 //* CSCGQQ10 - QUEUE COMMAND - UPDATE TO 27300 * 00329200 //* QCOMMON - QUEUE MACRO - UPDATE TO 27300 * 00329300 //* QSTART - QUEUE MACRO - UPDATE TO 27300 * 00329400 //* THE LOAD MODULES IN FILE 267 ARE NOT AT A 27300 * 00329500 //* LEVEL * 00329600 //* * 00329700 //* 2 UPDATE TO FILES 214 AND 215 WHICH CONTAIN THE * 00329800 //* DOCUMENTATION AND SOURCE FOR THE PROGRAM CALLED * 00329900 //* LISTPDS * 00330000 //* * 00330100 //* 3 ADDITION OF FILE 075 WHICH IS A TSO ZAP COMMAND * 00330200 //* PROCESSOR * 00330300 //* * 00330400 //***SECTION V-134 SECTION * 00330500 //* V-134 CHANGES FOR VERSION 134 JANUARY 20, 1980 * 00330600 //* * 00330700 //* 1 UPDATE TO FILE 266 TO ADD THE FOLLOWING ZAP TO FIX * 00330800 //* THE PROBLEM OF LOSSING ROLL DELETE WITH THE #T * 00330900 //* COMMAND * 00331000 //* * 00331100 //* DUMP IGC0007B IEECVFT2 OZ43238 * 00331200 //* NAME IGC0007B IEECVFT2 OZ43238 * 00331300 //* VER 0322 94F7,B121 OZ43238 * 00331400 //* VER 03B8 5C5C,40C9 OZ43238 * 00331500 //* REP 0322 47F0,C3B6 OZ43238 * 00331600 //* REP 03B8 94F7,B121 OZ43238 * 00331700 //* REP 03BC 9610,B121 OZ43238 * 00331800 //* REP 03C0 47F0,C324 OZ43238 * 00331900 //* DUMP IGC0007B IEECVFT2 OZ43238 * 00332000 //* DUMP IGC0007B IEECVET3 OZ43769 * 00332100 //* NAME IGC0007B IEECVET3 OZ43769 * 00332200 //* VER 00A2 1817,180D,41E0 OZ43769 * 00332300 //* VER 00A8 0013,89E0,0018 OZ43769 * 00332400 //* VER 00AE 160E,0A2F,9680,700C OZ43769 * 00332500 //* REP 00A2 9680,700C,1817 OZ43769 * 00332600 //* REP 00A8 180D,41E0,0013 OZ43769 * 00332700 //* REP 00AE 89E0,0018,160E,0A2F OZ43769 * 00332800 //* DUMP IGC0007B IEECVET3 OZ43769 * 00332900 //* * 00333000 //***SECTION V-133 SECTION * 00333100 //* V-133 CHANGES FOR VERSION 133 DECEMBER 16, 1979 * 00333200 //* * 00333300 //* 1 UPDATE TO FILE 266 IN THIS FILE ( FILE 1 ) FOR * 00333400 //* ADDITIONAL DOCUMENTATION * 00333500 //* * 00333600 //* 2 ADDITION TO FILE 266 TO ADD A SAMPLE OUTPUT OF THE * 00333700 //* # COMMANDS FROM A LIVE MVS SYSTEM * 00333800 //* * 00333900 //* 3 ADDITION OF FILE 144 WHICH IS THE TSO COMMAND * 00334000 //* CALLED LSPACE FROM SCHERING-PLOUGH * 00334100 //* * 00334200 //***SECTION V-132 SECTION * 00334300 //* V-132 CHANGES FOR VERSION 132 DECEMBER 16, 1979 * 00334400 //* * 00334500 //* 1 UPDATE TO FILES 266 AND 267 TO ADD ADDITIONAL * 00334600 //* COMMANDS AND SUBCOMMANDS TO THE # COMMAND SUBSYSTEM . 00334700 //* FOR THE FULL SCREEN VERSION AND THE STANDALONE * 00334800 //* VERSION THE FOLLOWING HAVE BEEN ADDED : * 00334900 //* 1 CSCGI03D A JES2 INIT DISPLAY * 00335000 //* 2 CSCGU03D A FREE DASD DISPLAY * 00335100 //* 3 CSCZA03D AN ACTIVITY MONITOR * 00335200 //* * 00335300 //***SECTION V-131 SECTION * 00335400 //* V-131 CHANGES FOR VERSION 131 DECEMBER 2, 1979 * 00335500 //* * 00335600 //* 1 UPDATE TO FILES 266 AND 267 TO ADD ADDITIONAL * 00335700 //* COMMANDS AND SUBCOMMANDS TO THE # COMMAND SUBSYSTEM. * 00335800 //* FOR THE FULL SCREEN VERSION AND THE STANDALONE * 00335900 //* VERSION THE FOLLOWING HAVE BEEN ADDED: * 00336000 //* 1 CSCGA03D A JOB ACTIVITY MONITOR * 00336100 //* 2 CSCGO03D AN I/O ACTIVITY MONITOR * 00336200 //* 3 CSCGQ03D A STRIPPED VERSION OF THE QUEUE * 00336300 //* COMMAND. THIS VERSION DOES NOT CONTAIN * 00336400 //* THE DUAL CHECKPOINT PTF * 00336500 //* THE FOLLOWING COMMANDS HAVE BEEN UPDATED * 00336600 //* 1 CSCSB03D (IEESB03D) # N * 00336700 //* 2 CSCSC03D (IEESC03D) # L * 00336800 //* 3 CSCSG03D (IEESG03D) # R * 00336900 //* 4 CSCSI03D (IEESI03D) # V * 00337000 //* 5 CSCSJ03D (IEESJ03D) # I * 00337100 //* 6 CSCSM03D (IEESM03D) # H * 00337200 //* 7 CSCZB03D (IEEZB03D) ##B * 00337300 //* 8 CSCZC03D (IEEZC03D) ##C * 00337400 //* * 00337500 //***SECTION V-130 SECTION * 00337600 //* V-130 CHANGES FOR VERSION 130 NOVEMBER 22, 1979 * 00337700 //* * 00337800 //* 1 UPDATE TO FILES 266 AND 267 TO ADD ADDITIONAL * 00337900 //* COMMANDS AND SUBCOMMANDS TO THE # COMMAND SUBSYSTEM * 00338000 //* * 00338100 //* A MACROS NEEDED FOR THE STANDALONE MONITOR ARE NOW * 00338200 //* INCLUDED IN THE PDS IN FILE 266 * 00338300 //* B MODIFICATIONS TO #D TO MARK A TASK CANCELABLE OR * 00338400 //* NON-CANCELABLE * 00338500 //* C UPDATE TO # J TO SHOW IF A TASK IS RUNNING REAL * 00338600 //* D PFK SUPPORT FOR THE TSO FULL SCREEN VERSION OF * 00338700 //* THE # SYSTEM * 00338800 //* E ADDITION OF THE X SUBCOMMAND FOR # I TO DISPLAY * 00338900 //* PERFORMANCE GROUP ACTIVITY * 00339000 //* F ##B HAS BEEN MODIFIED TO YOU CAN NOW DISPLAY * 00339100 //* 1 DEVICE LIST * 00339200 //* 2 DEVICE AND JOB LIST * 00339300 //* OR * 00339400 //* 3 A SEEK ANALYSIS OF A DASD DEVICE * 00339500 //* G ##C HAS BEEN MODIFIED SO YOU CAN NOW DISPLAY * 00339600 //* 1 DEVICE LIST * 00339700 //* OR * 00339800 //* 2 DEVICE AND JOB LIST * 00339900 //* H UPDATE TO #O TO CORRECT A MINOR ERROR * 00340000 //* * 00340100 //* 2 UPDATE TO THE # COMMAND SYSTEM ( FILES 266 AND 267 ) * 00340200 //* TO ADD AN EXCEPTION DISPLAY MONITOR . SEE THE WRITE * 00340300 //* UP UNDER FILE 266 IN THIS FILE FOR MORE INFORMATION * 00340400 //* ON THIS PROGRAM * 00340500 //* * 00340600 //* 3 ADDITION OF FILE 116 WHICH IS A DISK SEEK ANALYSIS * 00340700 //* PROGRAM * 00340800 //* * 00340900 //* 4 ADDITION OF FILE 250 WHICH IS AN RMF EXIT TO INCLUDE * 00341000 //* IMS TRANSACTION COUNT INTO RMF * 00341100 //* * 00341200 //* 5 ADDITION OF FILE 187 WHICH IS A PROGRAM TO CONVERT * 00341300 //* CLISTS FROM 255 LRECL VB TO 80 LRECL FB AND * 00341400 //* VICE VERSA * 00341500 //* * 00341600 //* 6 ADDITION OF FILE 126 WHICH IS A PROGRAM TO GIVE * 00341700 //* INFORMATION ON THE SMF DATA SETS IN AN SE2 * 00341800 //* ENVIRONMENT * 00341900 //* * 00342000 //***SECTION V-129 SECTION * 00342100 //* V-129 CHANGES FOR VERSION 129 OCTOBER 14, 1979 * 00342200 //* * 00342300 //***SECTION V-128 SECTION * 00342400 //* V-128 CHANGES FOR VERSION 128 OCTOBER 01, 1979 * 00342500 //* * 00342600 //* 1 UPDATE TO FILE 266 MEMBER, $HINTS FOR THE # COMMAND * 00342700 //* CONCERNING THE LOSS OF DIDOCS CONSOLE ROLL WITH * 00342800 //* THE #T, #D AND #X * 00342900 //* * 00343000 //* 2 UPDATE TO FILES 234 AND 236 WHICH ARE THE SOURCE * 00343100 //* AND HELP FILES FOR THE PRINTOFF COMMAND FROM GTE . * 00343200 //* THIS VERSION ADDS SUPPORT FOR HANDLING RECORDS UP * 00343300 //* TO FULL TRACK IN LENGTH PLUS ADDITION PARAMETERS * 00343400 //* * 00343500 //* 3 ADDITION OF FILE 069 FROM GTE WHICH CONTAINS * 00343600 //* THE MODFICATIONS TO TCAM10 TO SUPPORT THE USE * 00343700 //* OF 43 LINES FOR 3278 ' S . ALSO SEVERAL TSO HELP * 00343800 //* MEMBERS ARE INCLUDED * 00343900 //* * 00344000 //***SECTION V-127 SECTION * 00344100 //* V-127 CHANGES FOR VERSION 127 SEPTEMBER 25, 1979 * 00344200 //* * 00344300 //* 1 UPDATE TO FILES 188 AND 189 FOR THE MELLON BANK * 00344400 //* SHARED SPOOL JES2 4.1 ( SU25 ) TO THE PID LEVEL * 00344500 //* TAPE 7905 . WITH THE DUAL CHECKPOINT PTF * 00344600 //* * 00344700 //* 2 UPDATE TO FILE 266 TO DOCUMENT IT FOR THE FOLLOWING * 00344800 //* INFORMATION . IF YOU ARE GOING TO USE THE # N COMMAND 00344900 //* UNDER TSO , YOU MUST MAKE SURE IEESA03D CSECT COMES * 00345000 //* BEFORE THE IEESB03D CSECT IN THE LOAD MODULE * 00345100 //* CALLED CSCSA03D , IF YOU DO NOT RATHER THAN ISSUE * 00345200 //* A TPUT A WTO WILL BE ISSUED INSTEAD . THIS IS ONLY * 00345300 //* FOR THE TSO VERSION * 00345400 //* * 00345500 //***SECTION V-126 SECTION * 00345600 //* V-126 CHANGES FOR VERSION 126 SEPTEMBER 24, 1979 * 00345700 //* * 00345800 //* 1 UPDATE TO FILE 073 TO CORRECT A MINOR ERROR IN THE * 00345900 //* PROGRAM CALLED ANALYSE * 00346000 //* * 00346100 //***SECTION V-125 SECTION * 00346200 //* V-125 CHANGES FOR VERSION 125 SEPTEMBER 18, 1979 * 00346300 //* * 00346400 //* 1 UPDATE TO FILES 266 AND 267 WHICH IS A COMPLETE * 00346500 //* REPLACEMENT OF THE # COMMAND SUBSYSTEM . THIS VERSION 00346600 //* MAY BE RUN IN ANY OF THE FOLLOWING MODES OF * 00346700 //* OPERATION : * 00346800 //* * 00346900 //* A OPERATOR CONSOLE MODE * 00347000 //* B CROSS-SYSTEM MODE * 00347100 //* C STANDALONE MODE FROM A 3270 DEVICE * 00347200 //* D TSO LINE MODE * 00347300 //* E TSO FULL SCREEN MODE * 00347400 //* * 00347500 //* SEVERAL NEW COMMANDS AND SUBCOMMANDS HAVE BEEN ADDED.* 00347600 //* SEE THE MEMBER CALLED CMDDOCTN FOR COMPLETE * 00347700 //* DOCUMENTATION OF THIS VERSION OF THE # SUBSYSTEM . * 00347800 //* THERE ARE NOW 23 MAJOR COMMANDS AND 87 SUBCOMMANDS * 00347900 //* * 00348000 //* 2 SPY AND DIDOCS . IF YOU USE THESE 2 PROGRAMS UNDER * 00348100 //* ---------------- * 00348200 //* TSO BE ALERTED TO THE FACT THAT IF YOU APPLY * 00348300 //* PTF UZ26385 ( APAR OZ39506 ) ON 7907 YOU WILL NO * 00348400 //* LONGER BE ABLE TO RUN SPY AND DIDOCS . IBM HAS * 00348500 //* MOVED THE CONSOLE BUFFERS TO FETCH PROTECTED * 00348600 //* STORAGE . IN THE FUTURE THESE PROGRAMS WILL HAVE TO * 00348700 //* BE MODIFIED TO RUN IN KEY 0 . ( SPY WORK WHEN RUN * 00348800 //* IN KEY 0 SUPERVISOR STATE ) . ( DIDOCS IS IN DCMS ) * 00348900 //* * 00349000 //* 3 ADDITION OF FILE 132 WHICH IS AN SMP4 CDS LISTER * 00349100 //* * 00349200 //* 4 ADDITION OF FILE 133 WHICH IS A CONSOLE ROLL DELETE * 00349300 //* ZAP * 00349400 //* * 00349500 //* 5 ADDITION OF FILE 134 WHICH IS A ZAP FOR I/O * 00349600 //* PRIORITY QUEUEING * 00349700 //* * 00349800 //* 6 ADDITION OF FILE 135 WHICH IS A ZAP TO KEEP VIO * 00349900 //* PAGES OFF THE DRUM * 00350000 //* * 00350100 //* 7 ADDITION OF FILE 112 WHICH A COPY OF THE TSO VTOC CP * 00350200 //* * 00350300 //* 8 ADDITION OF FILES 113 AND 114 WHICH A UCB MAPPING * 00350400 //* PROGRAM WITH A SAMPLE OUTPUT * 00350500 //* * 00350600 //* 9 UPDATE TO FILE 051 TO CONTAIN THE HELP MEMBER FOR * 00350700 //* LISTSPC * 00350800 //* * 00350900 //***SECTION V-124 SECTION * 00351000 //* V-124 CHANGES FOR VERSION 124 JULY 31, 1979 * 00351100 //* * 00351200 //***SECTION V-123 SECTION * 00351300 //* V-123 CHANGES FOR VERSION 123 JULY 01, 1979 * 00351400 //* * 00351500 //* 1 UPDATE TO FILE 246 WHICH ARE A SERIES OF SHARE * 00351600 //* ZAPS * 00351700 //* * 00351800 //* 2 ADDITION OF FILE 207 WHICH IS A FULL SCREEN EDITOR * 00351900 //* * 00352000 //***SECTION V-122 SECTION * 00352100 //* V-122 CHANGES FOR VERSION 122 JUNE 24, 1979 * 00352200 //* * 00352300 //* 1 ADDITION OF FILES 205 AND 206 WHICH ARE TWO TSO * 00352400 //* COMMAND PROCESSORS ( PRINTOFF & SPY ) FROM SOUTHERN * 00352500 //* CALIFORNIA EDISON COMPANY * 00352600 //* * 00352700 //***SECTION V-121 SECTION * 00352800 //* V-121 CHANGES FOR VERSION 121 JUNE 19, 1979 * 00352900 //* * 00353000 //* 1 ADDITION OF FILES 42 - 44 WHICH ARE A SERIES OF * 00353100 //* PROGRAMS AND MODIFICATIONS FROM KAISER PERMANENTE . * 00353200 //* SOME OF THIS DATA WAS ORIGINALLY IN FILE 250 WHICH * 00353300 //* HAS BEEN DELETED * 00353400 //* * 00353500 //* 2 ADDITION OF FILE 128 WHICH CONTAIN THE TSO * 00353600 //* GAME CALLED ADVENTURE . YOU NEED THE PL/I OPTIMIZING * 00353700 //* COMPILER TO COMPILE THIS PROGRAM AND THE PL/I * 00353800 //* TRANSIENT TO RUN * 00353900 //* * 00354000 //* 3 ADDITION OF FILE 167 WHICH IS A LOGON PRE-PROMP * 00354100 //* EXIT FROM SCHERING-PLOUGH * 00354200 //* * 00354300 //* 4 ADDITION OF FILE 168 WHICH IS A DYNAMIC ALLOCATION * 00354400 //* EXIT , IEFDB401 FROM SCHERING-PLOUGH * 00354500 //* * 00354600 //* 5 ADDITION OF FILE 169 WHICH IS A VTAM SECONDARY * 00354700 //* PROGRAM OPERATOR FROM SCHERING-PLOUGH * 00354800 //* * 00354900 //* 6 ADDITION OF FILE 229 WHICH IS A TAPE COPY PGM * 00355000 //* FROM THE AIR FORCE FINANCE CENTER IN DENVER * 00355100 //* * 00355200 //* 7 ADDITION OF FILE 246 WHICH CONTAINS SOME * 00355300 //* MISCELLANEOUS ZAPS FOR MVS * 00355400 //* * 00355500 //* 8 CORRECTION TO FILE 081 WHICH IS MVS DEBE TO FIX THE * 00355600 //* PROBLEM OF ONLY BEING ABLE TO WRITE AT THE HIGHER * 00355700 //* DENSITY ON A DUAL-DENSITY DRIVE * 00355800 //* * 00355900 //* 9 ADDITION OF FILE 204 FROM A SHARE INSTALLATION WHICH * 00356000 //* IS A PROGRAM THAT REORDERS THE VTOC ' S ON THEIR * 00356100 //* TSO PACKS * 00356200 //* * 00356300 //***SECTION V-120 SECTION * 00356400 //* V-120 CHANGES FOR VERSION 120 MAY 21, 1979 * 00356500 //* * 00356600 //***SECTION V-119 SECTION * 00356700 //* V-119 CHANGES FOR VERSION 119 MAY 01, 1979 * 00356800 //* * 00356900 //* 1 ADDITION OF FILES 073 AND 074 FROM NATIONAL * 00357000 //* WESTMINISTER BANK IN ENGLAND CONTAINING SOME * 00357100 //* PERFORMANCE PROGRAMS * 00357200 //* * 00357300 //* 2 ADDITION OF FILE 223 WHICH IS A TSO PERFORMANCE * 00357400 //* MONITOR FROM PROCTOR AND GAMBLE * 00357500 //* * 00357600 //***SECTION V-118 SECTION * 00357700 //* V-118 CHANGES FOR VERSION 118 APRIL 16, 1979 * 00357800 //* * 00357900 //* 1 UPDATE TO THE SMFSCAN PROGRAM CONTAINED IN FILE 195 * 00358000 //* * 00358100 //* 2 ADDITION OF FILE 052 WHICH IS THE WORDS FOR ' MVS IS * 00358200 //* BREAKING MY HEART ' * 00358300 //* * 00358400 //* 3 ADDITION OF FILE 186 WHICH IS A GENERAL PURPOSE * 00358500 //* TSO PROMPTER FROM THE UNIVERSITY OF MANITOBA * 00358600 //* * 00358700 //***SECTION V-117 SECTION * 00358800 //* V-117 CHANGES FOR VERSION 117 APRIL 15, 1979 * 00358900 //* * 00359000 //***SECTION V-116 SECTION * 00359100 //* V-116 CHANGES FOR VERSION 116 APRIL 01, 1979 * 00359200 //* * 00359300 //* 1 MOVEMENT OF FILES 2 AND 3 ( TSO QCB TRACE ) TO FILES * 00359400 //* 4 AND 5 * 00359500 //* * 00359600 //* 2 ADDITION OF FILE 2 WHICH IS A COMPRESSION / * 00359700 //* DECOMPRESSION PROGRAM * 00359800 //* * 00359900 //* 3 MOVEMENT OF FILE 186 TO FILE 3 . FILE 186 IS / WAS * 00360000 //* THE JCL TO DROP THE ENTIRE TAPE DOWN TO DISK * 00360100 //* * 00360200 //* 4 MINOR CHANGE TO THE LISTPDS PROGRAM IN FILE 215 * 00360300 //* * 00360400 //* 5 ADDITION OF FILES 87 AND 88 WHICH IS AN IMS * 00360500 //* COMPRESSION EXIT FROM THE UNIVERSITY OF MANITOBA * 00360600 //* * 00360700 //* 6 ADDITION OF FILES 89 AND 90 WHICH IS A DYNAMIC * 00360800 //* ALLOCATION INTERFACE FOR HIGH LEVEL LANGUAGES FROM * 00360900 //* THE UNVIERSITY OF MANITOBA * 00361000 //* * 00361100 //* 7 ADDITION OF FILE 091 WHICH IS A VSAM EDITOR BASED ON * 00361200 //* TSO EDIT FROM THE UNIVERSITY OF MANITOBA * 00361300 //* * 00361400 //* 8 ADDITION OF FILES 059 - 064 FROM STANDARD OIL WHICH * 00361500 //* IS THE MVS/SE VERSION OF DCMS . THIS IS VERSION 02 * 00361600 //* RELEASE 3.0 , FEBRUARY 1979 * 00361700 //* * 00361800 //* 9 ADDITION OF FILE 047 FROM STANDARD OIL WHICH IS A * 00361900 //* COPY OF THEIR MVS/SE IPS PARMS * 00362000 //* * 00362100 //* 10 ADDITIONS OF FILE 139 FROM STANDARD OIL WHICH IS * 00362200 //* SEVERAL UTILITY PROGRAMS AND THEIR ASSOCIATED MACROS * 00362300 //* * 00362400 //***SECTION V-115 SECTION * 00362500 //* V-115 CHANGES FOR VERSION 115 MARCH 11, 1979 * 00362600 //* * 00362700 //* 1 UPDATE TO FILE 252 TO INCREASE THE SIZE OF THE * 00362800 //* NAMETABLE , SO AS TO AVOID A POSSIBLE OC4 * 00362900 //* * 00363000 //* 2 TO ADD A COMMENT CONCERNING FILE 260 WHICH IS THE * 00363100 //* QUICK MAP PROGRAM . A USER OF THIS CODE DECIDED * 00363200 //* TO USE A PARM OF RESET , WHICH WILL RESET THE HIGH * 00363300 //* WATER MARK IN THE VTOC . IT DID ALRIGHT BUT IT SET * 00363400 //* IT TO 512 ( ON A 3350 ) AND THE ARM BOUNCED ALL OVER * 00363500 //* THE PLACE . BE CAREFUL !!!!! * 00363600 //* * 00363700 //* 3. CHANGED FILE 261 ( SMF BUFFER ZAP ) TO BE IN SMP * 00363800 //* FORMAT ( MORE OR LESS - HAVE TO CHANGE ALL ' , S TO * 00363900 //* + ' S BECAUSE WE USE PANVALET TO STORE IT ) * 00364000 //* * 00364100 //***SECTION V-114 SECTION * 00364200 //* V-114 CHANGES FOR VERSION 114 MARCH 7, 1979 * 00364300 //* * 00364400 //* 1 ADDITION OF FILE 277 WHICH IS A COMMAND PROCESSOR * 00364500 //* FROM CHRYSLER PARTS TO NOTIFY XWRTR TO CANCEL * 00364600 //* 3284 OUTPUT * 00364700 //* * 00364800 //***SECTION V-113 SECTION * 00364900 //* V-113 CHANGES FOR VERSION 113 FEBRUARY 25, 1979 * 00365000 //* * 00365100 //* 1 ADDITION OF FILE 275 WHICH IS FROM GTE LABS . THIS * 00365200 //* PROGRAM IS CATEDIT ORIGINALLY CALLED CATUPDTE * 00365300 //* * 00365400 //***SECTION V-112 SECTION * 00365500 //* V-112 CHANGES FOR VERSION 112 FEBRUARY 11, 1979 * 00365600 //* * 00365700 //* 1 UPDATE OF FILES 240 - 245 FROM STANDARD OIL WHICH * 00365800 //* IS A COMPLETE REPLACEMENT FOR DCMS . THIS IS VERSION * 00365900 //* 2.2 NOVEMBER 1978 * 00366000 //* * 00366100 //***SECTION V-111 SECTION * 00366200 //* V-111 CHANGES FOR VERSION 111 FEBRUARY 08, 1979 * 00366300 //* * 00366400 //* 1 ADDITION OF FILE 266 WHICH IS A COMPLETE * 00366500 //* REPLACEMENT OF THE # COMMAND SUBSYSTEM * 00366600 //* * 00366700 //* 2 ADDITION OF FILE 267 WHICH IS A FILE CONTAINING * 00366800 //* THE LOAD MODULES FOR THE NEW # COMMAND SUBSYSTEM * 00366900 //* CONTAINED IN FILE 267 * 00367000 //* * 00367100 //* 3 UPDATE TO FILE 226 WHICH IS THE YALE COMPARE PROGRAM 00367200 //* * 00367300 //* 4 ADDITION OF FILE 268 WHICH IS A MODIFIED COPY OF * 00367400 //* YALE COMPARE PROGRAM IN FILE 226 WHICH IS FOR * 00367500 //* USE FROM TSO * 00367600 //* * 00367700 //***SECTION V-110 SECTION * 00367800 //* V-110 CHANGES FOR VERSION 110 JANUARY 7, 1979 * 00367900 //* * 00368000 //***SECTION V-109 SECTION * 00368100 //* V-109 CHANGES FOR VERSION 109 DECEMBER 3, 1978 * 00368200 //* * 00368300 //* 1 CHANGE TO FILE 260 TO ALLOW QUICKMAP TO BE STARTED * 00368400 //* FROM AN OPERATOR ' S CONSOLE WITH PARAMETERS * 00368500 //* * 00368600 //* 2 CHANGE TO FILE 252 TO ALLOW ONE TO GET A REPEAT * 00368700 //* OF THE NAME TABLE BY TYPING IN AN 'R' * 00368800 //* * 00368900 //* 3 NEW VERSION OF FILE 248 WHICH IS THE SMF/RMF SPLIT * 00369000 //* PROGRAM . PROGRAM WILL NOW HANDLE START AND STOP * 00369100 //* DATES * 00369200 //* * 00369300 //***SECTION V-108 SECTION * 00369400 //* V-108 CHANGES FOR VERSION 108 NOVEMBER 5, 1978 * 00369500 //* * 00369600 //* 1 ADDITION OF FILE 263 WHICH IS A PROGRAM FOR * 00369700 //* GENERATION DATA SET GROUP INDEX CHANGES * 00369800 //* * 00369900 //* 2 ADDITION OF FILE 264 WHICH IS A PROGRAM TO PERFORM * 00370000 //* A HIGH SPEED COPY OF A CVOL CATALOG * 00370100 //* * 00370200 //***SECTION V-107 SECTION * 00370300 //* V-107 CHANGES FOR VERSION 107 OCTOBER 25, 1978 * 00370400 //* * 00370500 //***SECTION V-106 SECTION * 00370600 //* V-106 CHANGES FOR VERSION 106 OCTOBER 24, 1978 * 00370700 //* * 00370800 //* 1 ADDITION OF FILE 261 WHICH IS A ZAP TO ALLOW THE SMF * 00370900 //* BUFFER SIZE TO BE GREATER THAN THE CURRENT LIMIT OF * 00371000 //* 4096 (8192/2) ( NOT FOR VSAM SMF FILES ) * 00371100 //* * 00371200 //* 2 ADDITION OF FILE 262 WHICH IS A VERY QUICK INDEX OF * 00371300 //* WHAT IS ON THIS TAPE IN ALPHABETICAL ORDER . THIS * 00371400 //* IS DIRECTLY GENERATED FROM THE FILE STATUS SECTION * 00371500 //* IN FILE ONE OF THIS TAPE * 00371600 //* * 00371700 //***SECTION V-105 SECTION * 00371800 //* V-105 CHANGES FOR VERSION 105 OCTOBER 15, 1978 * 00371900 //* * 00372000 //* 1 ADDITION OF FILE 260 WHICH IS A VERY FAST MAPPING * 00372100 //* PROGRAM * 00372200 //* * 00372300 //***SECTION V-104 SECTION * 00372400 //* V-104 CHANGES FOR VERSION 104 OCTOBER 01, 1978 * 00372500 //* * 00372600 //* 1 UPDATE TO FILE 251 TO USE SVC 34 INSTEAD OF THE * 00372700 //* INTERNAL READER TO ISSUE START AND STOP COMMANDS * 00372800 //* FOR RMF * 00372900 //* * 00373000 //***SECTION V-103 SECTION * 00373100 //* V-103 CHANGES FOR VERSION 103 SEPTEMBER 10, 1978 * 00373200 //* * 00373300 //* 1 ADDITION OF FILE 258 WHICH IS A SQUISH PROGRAM * 00373400 //* FROM DART INDUSTRIES * 00373500 //* * 00373600 //***SECTION V-102 SECTION * 00373700 //* V-102 CHANGES FOR VERSION 102 AUGUST 27, 1978 * 00373800 //* * 00373900 //* 1 ADDITION OF FILE 247 WHICH IS AN UPDATE TO FILE 190 * 00374000 //* ON THE MODS TAPE TO PROCESS MVS/SE RMF DATA * 00374100 //* * 00374200 //* 2 ADDITION OF FILE 248 WHICH IS A PROGRAM TO SPLIT * 00374300 //* SMF MVS/SE RMF RECORDS AND MVS RMF RECORDS FROM * 00374400 //* ANY SMF FILE * 00374500 //* * 00374600 //* 3 ADDITION OF FILE 249 WHICH IS THE JCL USED TO RUN * 00374700 //* THE PROGRAM IN FILE 248 * 00374800 //* * 00374900 //* 4 ADDITION OF FILE 251 WHICH IS A PROGRM TO SYNCHRONIZE 00375000 //* RMF START TIME * 00375100 //* * 00375200 //* 5 UPDATE TO FILES 240 241 242 243 244 245 WHICH * 00375300 //* IS DCMS . NOW AT VERSION 2 RELEASE 2 * 00375400 //* * 00375500 //* 6 ADDITION OF FILE 252 WHICH IS DYNALIST FROM * 00375600 //* STANDARD OIL * 00375700 //* * 00375800 //* 7 ADDITION OF FILE 253 WHICH IS SEVERAL ASSORTED * 00375900 //* ZAPS FROM STANDARD OIL * 00376000 //* * 00376100 //* 8 ADDITION OF FILE 254 WHICH IS SEVERAL SAS REPORT * 00376200 //* SOURCE PROGRAMS FOR PROCESSING RMF DATA * 00376300 //* * 00376400 //* 9 ADDITION OF FILE 255 WHICH IS AN RMF POST PROCESSOR * 00376500 //* FROM SOUTHERN CALIFORNIA EDISION * 00376600 //* * 00376700 //***SECTION V-101 SECTION * 00376800 //* V-101 CHANGES FOR VERSION 101 AUGUST 14, 1978 * 00376900 //* * 00377000 //***SECTION V-100 SECTION * 00377100 //* V-100 CHANGES FOR VERSION 100 AUGUST 13, 1978 * 00377200 //* * 00377300 //* 1 ADDITION OF FILES 240 - 245 FROM STANDARD OIL WHICH * 00377400 //* IS A COMPLETE REPLACEMENT FOR DCMS WHICH IS SPREAD * 00377500 //* OUT ALL OVER THIS TAPE . THIS IS VERSION 2.0 AUG 78 * 00377600 //* * 00377700 //***SECTION V-099 SECTION * 00377800 //* V-099 CHANGES FOR VERSION 99 AUGUST 10, 1978 * 00377900 //* * 00378000 //***SECTION V-098 SECTION * 00378100 //* V-098 CHANGES FOR VERSION 98 AUGUST 5, 1978 * 00378200 //* * 00378300 //* 1 ADDITION OF FILE 239 WHICH IS A DYNAMIC TRACE * 00378400 //* FACILITY FROM MCDONNELL DOUGLAS AUTOMATION COMPANY * 00378500 //* * 00378600 //***SECTION V-097 SECTION * 00378700 //* V-097 CHANGES FOR VERSION 97 AUGUST 2, 1978 * 00378800 //* * 00378900 //* 1 ADDITION OF FILE 237 WHICH IS A PDS CROSS REFERENCE * 00379000 //* PROGRAM FROM THE FLORIDA POWER COMMISSION * 00379100 //* * 00379200 //* 2 ADDITION OF FILE 238 WHICH IS AN RMF POST PROCESSOR * 00379300 //* PROGRAM FROM CARRIER CORPORATION FOR DASD ANALYSIS * 00379400 //* * 00379500 //***SECTION V-096 SECTION * 00379600 //* V-096 CHANGES FOR VERSION 96 JULY 30, 1978 * 00379700 //* * 00379800 //* 1 ADDITION OF FILES 230 AND 236 FROM GTE LABORATORIES * 00379900 //* * 00380000 //* FILE 230 - $DF TO SHOW # OF RECORDS * 00380100 //* FILE 236 - HELP DATA SET FOR THE PRINTOFF COMMAND * 00380200 //* CONTAINED IN FILE 234 * 00380300 //* * 00380400 //***SECTION V-095 SECTION * 00380500 //* V-095 CHANGES FOR VERSION 95 JULY 26, 1978 * 00380600 //* * 00380700 //***SECTION V-094 SECTION * 00380800 //* V-094 CHANGES FOR VERSION 94 JULY 25, 1978 * 00380900 //* * 00381000 //* 1 UPDATED VERSION OF FILE 201 WHICH IS THE DATE * 00381100 //* ROUTINE FOR THE RMF POST PROCESSORS CONTAINED * 00381200 //* IN FILES 179 AND 190 * 00381300 //* * 00381400 //***SECTION V-093 SECTION * 00381500 //* V-093 CHANGES FOR VERSION 93 JULY 24, 1978 * 00381600 //* * 00381700 //* 1 ADDITION OF FILE 235 WHICH IS AN LPA/SVC REAL TIME * 00381800 //* LOADER AND REPLACEMENT AND PERFORMANCE TOOL * 00381900 //* FROM CHYRSLER PARTS MODREP * 00382000 //* * 00382100 //* V-092 CHANGES FOR VERSION 92 JULY 23, 1978 * 00382200 //***SECTION V-092 SECTION * 00382300 //* * 00382400 //* 1 ADDITION OF FILES 230-234 FROM GTE LABORATORIES * 00382500 //* * 00382600 //* FILE 230 - $DF TO SHOW # OF PRINT LINES LEFT * 00382700 //* FILE 231 - SET PRINTERS TO SELECT JOBS BY * 00382800 //* NUMBER OF LINES * 00382900 //* FILE 232 - TSO NOTIFY RETURNS MAX CONDITION CODE * 00383000 //* OR ABEND CODE * 00383100 //* FILE 234 - PRINTOFF CP MODIFIED FOR 3211 CONTROL * 00383200 //* * 00383300 //***SECTION V-091 SECTION * 00383400 //* V-091 CHANGES FOR VERSION 91 JUNE 18, 1978 * 00383500 //* * 00383600 //* 1 UPDATE TO FILE 212 TO ADD A CORRECTED COPY OF * 00383700 //* THE SAS PGM CALLED SAS#T72 * 00383800 //* * 00383900 //* 2 INCREASE OF THE POSTAGE & HANDLING CHARGE TO $20.00 * 00384000 //* EFFECTIVE JANUARY 1, 1979 * 00384100 //* * 00384200 //***SECTION V-090 SECTION * 00384300 //* V-090 CHANGES FOR VERSION 90 JUNE 5, 1978 * 00384400 //* * 00384500 //* 1 UPDATE TO FILE 111 TO SHOW THE LATEST SAMPLE * 00384600 //* VERSION OF VABDUMP * 00384700 //* * 00384800 //***SECTION V-089 SECTION * 00384900 //* V-089 CHANGES FOR VERSION 89 JUNE 4, 1978 * 00385000 //* * 00385100 //* 1 ADDITION OF FILE 228 WHICH IS A SYNCSORT EXIT TO * 00385200 //* CONTROL SWAPPABILITY/NON-SWAPPABILITY BY TIME OF * 00385300 //* DAY FROM CARRIER CORPORATION * 00385400 //* * 00385500 //***SECTION V-088 SECTION * 00385600 //* V-088 CHANGES FOR VERSION 88 MAY 24, 1978 * 00385700 //* * 00385800 //* 1 ADDITION OF A MEMBER CALLED $SASDOC IN FILE 212 * 00385900 //* FOR ADDED INFORMATION OF THE SAS PROGRAMS CONTAINED * 00386000 //* IN FILE 212 * 00386100 //* * 00386200 //***SECTION V-087 SECTION * 00386300 //* V-087 CHANGES FOR VERSION 87 MAY 23, 1978 * 00386400 //* * 00386500 //* 1 ADDITIONAL NOTE FOR SQUISH WHICH IS IN FILE 192 * 00386600 //* ON THIS TAPE . YOU MAY RUN INTO PROBLEMS IF YOU HAVE * 00386700 //* MORE THAN 26 EXTENTS IN THE FORMAT 5 DSCB * 00386800 //* * 00386900 //* 2 ADDITION OF FILE 225 WHICH IS AN OFFLOAD PROGRAM * 00387000 //* WHICH WILL UNLOAD A PDS INTO AN IEBUPDTE STREAM * 00387100 //* * 00387200 //* 3 ADDITION OF FILE 226 WHICH IS A COMPARE PROGRAM * 00387300 //* * 00387400 //* 4 ADDITION OF FILE 227 WHICH IS A SERIES OF PROGRAMS * 00387500 //* TO ALLOW CERTAIN TSO USERS TO PERFORM AUTHORIZED * 00387600 //* FUNCTIONS * 00387700 //* * 00387800 //***SECTION V-086 SECTION * 00387900 //* V-086 CHANGES FOR VERSION 86 MAY 21, 1978 * 00388000 //* * 00388100 //* 1 ADDITIONAL NOTE FOR SQUISH WHICH IS IN FILES 146 AND * 00388200 //* 192 ON THIS TAPE. BOTH OF THESE PROGRAM MUST BE * 00388300 //* MARKED AC=1 * 00388400 //* * 00388500 //* 2 ADDITION OF FILE 212 WHICH IS SIX SAS PROGRAMS * 00388600 //* TO PROCESS SMF AND RMF DATA * 00388700 //* * 00388800 //* 3 ADDITION OF FILE 213 WHICH IS A PROGRAM TO GIVE * 00388900 //* DISK DATA SET STATISTICS * 00389000 //* * 00389100 //* 4 ADDITION OF FILE 214 WHICH IS THE DOCUMENTATION * 00389200 //* FOR THE LISTPDS PROGRAM CONTAINED IN FILE 215 * 00389300 //* * 00389400 //* 5 ADDITION OF FILE 215 WHICH IS THE LISTPDS * 00389500 //* PROGRAM * 00389600 //* * 00389700 //* 6 ADDITION OF FILE 216 WHICH IS TWO TSO CPS FROM * 00389800 //* ALLEHGENY POWER SERVICE CORPORATION * 00389900 //* * 00390000 //* 7 ADDITION OF FILE 217 WHICH IS A DISSASSEMBLER * 00390100 //* * 00390200 //* 8 ADDITION OF FILE 219 WHICH IS A PROGRAM TO SET * 00390300 //* THE SHARED BITS ON OR OFF FROM CONNECTICUT BANK * 00390400 //* AND TRUST COMPANY * 00390500 //* * 00390600 //* 9 ADDITION OF FILE 220 WHICH IS A PROGRAM TO SET * 00390700 //* THE SHARED BITS ON OR OFF FROM UNION CARBIDE * 00390800 //* CORPORATION * 00390900 //* * 00391000 //* 10 ADDITION OF FILE 221 WHICH IS ADDITIONAL * 00391100 //* DOCUMENTATION FOR THE DCMS COMMANDS * 00391200 //* * 00391300 //* 11 ADDITIONAL NOTE FOR FILES 208 210 . THE MVS SYSEVENT * 00391400 //* ANALYSIS PACKAGE REQUIRES A SUBROUTINE CALLED * 00391500 //* ' TODCNVRT ' WHICH IS AN ALIAS OF AMDPRSEG WHICH IS * 00391600 //* IN SYS1.AOS12 ON THE DLIB ' S . AN OBJECT DECK OF * 00391700 //* AMDPRSEG ALSO RESIDES IN IEBUPDTE FORMAT IN FILE 173 * 00391800 //* ON THIS TAPE * 00391900 //* * 00392000 //* 12 ADDITION OF FILE 224 WHICH IS A UTILITY TO MOVE * 00392100 //* SYS1.DUMP DATASETS TO ARCHIVE / DUMP TAPE , FORMAT * 00392200 //* TITLE INFORMATION FROM TAPE / DUMP , AND OR CLEAN * 00392300 //* SYS1.DUMP DATASETS * 00392400 //* * 00392500 //***SECTION V-085 SECTION * 00392600 //* V-085 CHANGES FOR VERSION 85 APRIL 01, 1978 * 00392700 //* 1 SYNCHRONIZE THE DATE ON THE VERSION WITH THE TRUE * 00392800 //* CALENDAR DATE * 00392900 //* * 00393000 //***SECTION V-084 SECTION * 00393100 //* V-084 CHANGES FOR VERSION 84 MARCH 20, 1978 * 00393200 //* * 00393300 //* 1 ADDITION OF FILE 202 WHICH IS THE EXTENDED JES2 * 00393400 //* AUTOMATIC COMMAND PROCESSING , RELEASE 2 , MARCH * 00393500 //* 1978 FROM GTE LABORATORIES . THIS SYSTEM WILL EXTEND * 00393600 //* THE TIME-OF-DAY PROCESSING SUPPORTED BY JES2 AND * 00393700 //* ADD THE FEATURES OF DAY-OF-WEEK , WEEK-OF-MONTH , * 00393800 //* AND MONTH-OF-YEAR PROCESSING * 00393900 //* * 00394000 //* 2 ADDITIONAL NOTE FOR SQUISH WHICH IS IN FILE 192 ON * 00394100 //* THIS TAPE . 3350 ' S CAN HAVE 47 DSCB ' S PER TRACK , 00394200 //* IF YOU NOTICE THAF YOUR PACKS HAVE ONLY 46 DSCB'S * 00394300 //* PER TRACK YOU ARE MISSING PTF UZ14352 . SQUISH MAY * 00394400 //* VERY WELL BLOW WHEN YOU TRY TO WRITE THE 47TH DSCB * 00394500 //* IF THE PTF IS NOT ON * 00394600 //* * 00394700 //* 3 SEE ADDITIONAL INFORMATION UNDER FILE 172 WHICH IS * 00394800 //* VERSION 1.1 , JANUARY 1978 OF OURMF * 00394900 //* * 00395000 //* 4 ADDITION OF FILE 203 WHICH IS A SUPERZAP TO REDUCE * 00395100 //* THE POLLING OF REMOTE 3270 DEVICES THAT ARE NOT * 00395200 //* LOGGED ON * 00395300 //* * 00395400 //* 5 ADDITION OF FILE 208 WHICH IS THE DOCUMENTATION FOR * 00395500 //* THE MVS SYSEVENT ANALYSIS PACKAGE FROM STANDARD * 00395600 //* OIL CONTAINED IN FILES 209 AND 210 * 00395700 //* * 00395800 //* 6 ADDITION OF FILE 209 WHICH CONTAINS THE MACROS FOR * 00395900 //* THE MVS SYSEVENT ANALYSIS PACKAGE FROM STANDARD OIL * 00396000 //* DOCUMENTED IN FILE 208 * 00396100 //* * 00396200 //* 7 ADDITION OF FILE 210 WHICH CONTAINS THE SOURCE FOR * 00396300 //* THE MVS SYSEVENT ANALYSIS PACKAGE FROM STANDARD OIL * 00396400 //* DOCUMENTED IN FILE 208 * 00396500 //* * 00396600 //* 8 ADDITION OF FILE 211 WHICH CONTAINS THE SOURCE FOR * 00396700 //* THE NEW POUND COMMANDS FROM STANDARD OIL FOR USE * 00396800 //* WITH DCMS VERSION 2.0 * 00396900 //* * 00397000 //***SECTION V-083 SECTION * 00397100 //* V-083 CHANGES FOR VERSION 83 FEBRUARY 25, 1978 * 00397200 //* * 00397300 //* 1 ADDITION OF FILE 201 WHICH IS CODE THAT ONE MIGHT * 00397400 //* WISH TO ADD TO THE RMF POST PROCESSOR PROGRAMS IN * 00397500 //* FILES 179 AND 190 * 00397600 //* * 00397700 //* 2 ADDITIONAL INFORMATION HAS BEEN ADDED IN THIS FILE * 00397800 //* ( FILE 001 ) BELOW UNDER THE CHANGES FOR VERSION 81 * 00397900 //* UNDER SECTIONS 7 AND 8 CONCERNING THE REASON WHY * 00398000 //* BFTEK=A WAS ADDED TO CERTAIN PROGRAMS ON THIS TAPE * 00398100 //* * 00398200 //* 3. ADDITIONAL NOTE FOR SQUISH WHICH IS IN FILE 192 ON * 00398300 //* THIS TAPE * 00398400 //* BEFORE YOU RUN THIS BE SURE YOU DASDR THE OUTPUT * 00398500 //* VOLUME WITH A NEW VTOC , ELSE YOU MAY ( WILL ) HAVE * 00398600 //* TROUBLE WITH IT * 00398700 //* * 00398800 //***SECTION V-082 SECTION * 00398900 //* V-082 CHANGES FOR VERSION 82 FEBRUARY 20,1978 * 00399000 //* * 00399100 //***SECTION V-081 SECTION * 00399200 //* V-081 CHANGES FOR VERSION 81 FEBRUARY 1, 1978 * 00399300 //* * 00399400 //* 1 MODIFICATION TO FILE 179, WHICH IS AN RMF POST * 00399500 //* PROCESSOR TO HARD CODE BFTEK=A IN THE DCB FOR * 00399600 //* THE INPUT SMF FILE . BYPASS FOR APAR OZ21111 . * 00399700 //* IN/INCORROUT IFG019RJ - JFCB - DCB * 00399800 //* MERGE OF BFTEK=A FOR VBS RECORDS BAD . * 00399900 //* WHEN REQUESTING VBS , SMF DATASET , TO BE IN QSAM * 00400000 //* LOCATE MODE FOR SPANNED RECORDS , VIA JCL . * 00400100 //* JFCB+X'59' HAS CORRECT VALUE , DCB BFTEK IS * 00400200 //* INCORRECT . WILL WORK WHEN DCB IN PROGRAM HAS * 00400300 //* BFTEK=A HARDCODED IN . CORRECTED BY UZ13299 * 00400400 //* * 00400500 //* 2 MODIFICATION TO FILE 190 , WHICH IS AN RMF POST * 00400600 //* PROCESSOR TO HARD CODE BFTEK=A IN THE DCB FOR * 00400700 //* THE INPUT SMF FILE . BYPASS FOR APAR OZ21111 . * 00400800 //* IN/INCORROUT IFG019RJ - JFCB - DCB * 00400900 //* MERGE OF BFTEK=A FOR VBS RECORDS BAD . * 00401000 //* WHEN REQUESTING VBS , SMF DATASET , TO BE IN QSAM * 00401100 //* LOCATE MODE FOR SPANNED RECORDS , VIA JCL . * 00401200 //* JFCB+X'59' HAS CORRECT VALUE , DCB BFTEK IS * 00401300 //* INCORRECT . WILL WORK WHEN DCB IN PROGRAM HAS * 00401400 //* BFTEK=A HARDCODED IN . CORRECTED BY UZ13299 * 00401500 //* * 00401600 //* 3 UPDATE OF FILE 172 TO VERSION 1.1 JANUARY 1978 * 00401700 //* WHICH IS THE USER ' S GUIDE AND DOCUMENTATION FOR * 00401800 //* OURMF AND SEVERAL MONITOR TOOLS FROM YALE UNIVERSITY 00401900 //* * 00402000 //* 4 UPDATE TO FILE 173 TO VERSION 1.1 JANUARY 1978 * 00402100 //* WHICH IS THE SOURCE FOR OURMF AND SEVERAL MONITORING 00402200 //* TOOLS FROM YALE UNIVERSITY IN IEBUPDTE FORMAT . * 00402300 //* THIS VERSION NOW CONTAINS MP/AP SUPPORT IN STATDIE * 00402400 //* AND CPU ALSO A NEW OURMF POST PROCESSOR IS INCLUDED 00402500 //* * 00402600 //* 5 ADDITION OF FILE 194 WHICH IS A SMALL PROGRAM TO * 00402700 //* DETERMINE THE ACTIVE SMF DATA SET * 00402800 //* * 00402900 //* 6 ADDITION OF FILE 195 WHICH IS A PROGRAM TO PROCESS * 00403000 //* SMF DATA FROM TSO * 00403100 //* * 00403200 //* 7 ADDITION OF FILE 196 WHICH IS SOME SAMPLE OUTPUT * 00403300 //* FROM A RUN OF THE PROGRAM IN FILE 195 * 00403400 //* * 00403500 //* 8 ADDTION OF FILE 197 WHICH IS A PROGRAM TO EXTRACT * 00403600 //* RMF RECORDS FROM THE SMF FILE * 00403700 //* * 00403800 //***SECTION V-080 SECTION * 00403900 //* V-080 CHANGES FOR VERSION 80 JANUARY 15, 1978 * 00404000 //* * 00404100 //* 1 ADDITION OF FILE 191 WHICH IS A COMMAND PROCESSOR * 00404200 //* THAT ALLOWS A TEMPORARY JOBLIB/STEPLIB FUNCTION * 00404300 //* FOR THE TESTING OF DYNAMIC LINKAGE MODULAR STRUCTURES 00404400 //* THIS FUNCTION IS ESTABLISHED BY USING THE ' ATTACH ' * 00404500 //* MACRO WITH THE ' TASKLIB ' OPERAND * 00404600 //* * 00404700 //* 2 ADDITION OF FILE 192 WHICH IS A NEW SQUISH PROGRAM * 00404800 //* THAT HAS SUPPORT FOR 3350 * 00404900 //* * 00405000 //* 3 ADDITION OF FILE 193 WHICH IS A NEW SQUISH SVC * 00405100 //* APPENDAGE FOR USE WITH FILE 192 * 00405200 //* * 00405300 //***SECTION V-079 SECTION * 00405400 //* V-079 CHANGES FOR VERSION 79 JANUARY 5, 1978 * 00405500 //* * 00405600 //* 1 NEW VERSION OF FILE 049 , THE LISTSPC COMMAND TO * 00405700 //* HANDLE DATA SETS ON 3350 CORRECTLY * 00405800 //* * 00405900 //***SECTION V-078 SECTION * 00406000 //* V-078 CHANGES FOR VERSION 78 JANUARY 4, 1978 * 00406100 //* * 00406200 //* 1 ADDITION OF FILE 190 WHICH IS AN RMF POST PROCESSOR * 00406300 //* THAT IS A LATER VERSION OF THE RMF POST PROCESSOR * 00406400 //* IN FILE 179 THIS PROGRAM HOWEVER WILL RUN ONLY WITH * 00406500 //* DATA FROM RMF VERSION 2 * 00406600 //* * 00406700 //***SECTION V-077 SECTION * 00406800 //* V-077 CHANGES FOR VERSION 77 JANUARY 1, 1978 * 00406900 //* * 00407000 //* 1 NEW VERSION OF FILE 179 WHICH IS AN RMF POST * 00407100 //* PROCESSOR. ALSO ADDITIONAL DOCUMENTATION IN THIS FILE 00407200 //* ( FILE 001 ) FOR THIS PROGRAM * 00407300 //* * 00407400 //* 2 NEW VERSION OF FILE 180 WHICH IS THE JCL NEEDED TO * 00407500 //* EXECUTE THE PROGRAM IN FILE 179 * 00407600 //* * 00407700 //***SECTION V-076 SECTION * 00407800 //* V-076 CHANGES FOR VERSION 76 DECEMBER 20, 1977 * 00407900 //* * 00408000 //* 1 ADDITION OF FILE 181 WHICH IS A REPLACEMENT FOR THE * 00408100 //* IBM SUPPLIED PROGRAM IKJEBEMV * 00408200 //* * 00408300 //* 2 ADDITION OF FILE 182 WHICH IS THE TSO PDS COMMAND * 00408400 //* PROCESSOR * 00408500 //* * 00408600 //* 3. ADDITION OF FILE 184 WHICH IS PROGRAM WHICH WILL * 00408700 //* PROCESS UCBS TO GIVE INFORMATION CONCERNING THEM * 00408800 //* * 00408900 //* 4 ADDITION OF FILE 185 WHICH IS A SCANNER PROGRAM * 00409000 //* USED BY THE PROGRAM IN FILE 184 * 00409100 //* * 00409200 //***SECTION V-075 SECTION * 00409300 //* V-075 CHANGES FOR VERSION 75 DECEMBER 14, 1977 * 00409400 //* * 00409500 //* 1 COMPLETE REPLACEMENT OF FILE 146 WHICH A SQUISH * 00409600 //* PROGRAM FOR USE UNDER MVS * 00409700 //* * 00409800 //* 2 COMPLETE REPLACEMENT OF FILE 147 WHICH IS THE * 00409900 //* SQUISH SVC APPENDAGE FOR USE WITH FILE 146 * 00410000 //* * 00410100 //* 3 ADDITION OF FILE 179 WHICH IS AN RMF POST PROCESSOR * 00410200 //* PROGRAM * 00410300 //* * 00410400 //* 4 ADDITION OF FILE 180 WHICH IS THE JCL NEEDED TO RUN * 00410500 //* RUN THE RMF PROGRAM IN FILE 179 * 00410600 //* * 00410700 //***SECTION V-074 SECTION * 00410800 //* V-074 CHANGES FOR VERSION 74 DECEMBER 01, 1977 * 00410900 //* * 00411000 //* 1 REPLACEMENT OF FILE 41 WHICH IS AN OLD VERSION OF * 00411100 //* CHIMP . THIS VERSION WILL RUN CORRECTLY WITH SU5 & 7 * 00411200 //* INSTALLED * 00411300 //* * 00411400 //* 2 ADDITION OF FILE 176 WHICH CONTAINS ZAPS TO IEHMAP * 00411500 //* WHICH IS IN FILE 83 * 00411600 //* * 00411700 //* 3 ADDITION OF FILE 177 WHICH CONTAINS 2 ZAPS TO THE * 00411800 //* SRM TO CORRECT 2 POTENTIAL PROBLEMS * 00411900 //* * 00412000 //* 4 FILE 156 WHICH IS THE TSO CP ' PRINTOFF ' IS FROM * 00412100 //* IPO RELEASE 1.2 * 00412200 //* * 00412300 //***SECTION V-073 SECTION * 00412400 //* V-073 CHANGES FOR VERSION 73 SEPTEMBER 21, 1977 * 00412500 //* * 00412600 //* 1 CORRECT AN ERROR IN FILE 166 * 00412700 //* * 00412800 //* LINE NUMBER 620 WAS * 00412900 //* * 00413000 //* PARMPROC L R2,0(R1) * 00413100 //* * 00413200 //* BUT IS NOW CHANGED TO * 00413300 //* * 00413400 //* PARMPROC L R2,0(R2) * 00413500 //* * 00413600 //***SECTION V-072 SECTION * 00413700 //* V-072 CHANGES FOR VERSION 72 SEPTEMBER 14, 1977 * 00413800 //* * 00413900 //***SECTION V-071 SECTION * 00414000 //* V-071 CHANGES FOR VERSION 71 SEPTEMBER 11, 1977 * 00414100 //* * 00414200 //***SECTION V-070 SECTION * 00414300 //* V-070 CHANGES FOR VERSION 70 SEPTEMBER 8, 1977 * 00414400 //* * 00414500 //* 1 NEW VERSION OF FILE 142 WHICH IS THE RMF POST * 00414600 //* PROCESSOR FROM CARRIER CORPORATION * 00414700 //* * 00414800 //* 2 ADDITION OF FILE 163 WHICH IS THE VIO PAGE QUEUEING * 00414900 //* ZAP FROM NATIONAL WESTMINSTER BANK LTD , GREAT BRITAIN 00415000 //* * 00415100 //* 3 ADDITION OF FILE 164 WHICH IS A PAGEING UTILIZATION * 00415200 //* PROGRAM FROM NATIONAL WESTMINSTER BANK LTD , GREAT * 00415300 //* BRITAIN * 00415400 //* * 00415500 //* 4 ADDITION OF FILE 165 WHICH IS A PROGRAM TO GIVE A SET * 00415600 //* NAME TO A PAGE /SWAP DATASET FROM GREAT BRITAIN * 00415700 //* * 00415800 //* 5 ADDITION OF FILE 166 WHICH IS A PROGRAM TO REMOVE * 00415900 //* DATASPACES FROM GREAT BRITAIN * 00416000 //* * 00416100 //* 6 ADDITION OF FILE 172 WHICH IS THE USER ' S GUIDE AND * 00416200 //* DOCUMENTATION FOR OURMF AND SOME ADDITIONAL * 00416300 //* MONITORING PROGRAMS FROM YALE UNIVERSITY CONTAINED * 00416400 //* IN FILES 172 - 174 * 00416500 //* * 00416600 //* 7 ADDITION OF FILE 173 WHICH IS THE SOURCE FOR OURMF * 00416700 //* AND ADDITIONAL MONITORING PROGRAMS FROM YALE * 00416800 //* SEE FILE 172 FOR DOCUMENTATION * 00416900 //* * 00417000 //* 8 ADDITION OF FILE 174 WHICH IS THE UICC PACKER PROGRAM * 00417100 //* SEE FILE 172 FOR ADDITIONAL DOCUMENTATION * 00417200 //* * 00417300 //***SECTION V-069 SECTION * 00417400 //* V-069 CHANGES FOR VERSION 69 AUGUST 2, 1977 * 00417500 //* * 00417600 //***SECTION V-068 SECTION * 00417700 //* V-068 CHANGES FOR VERSION 68 JULY 24, 1977 * 00417800 //* * 00417900 //* 1 ADDITION OF FILE 156 WHICH IS THE PRINTOFF COMMAND * 00418000 //* PROCESSOR FOR TSO * 00418100 //* * 00418200 //* 2 ADDITION OF FILE 157 WHICH IS THE HELP DATA SET FOR * 00418300 //* THE PRINTOFF COMMAND PROCESSOR * 00418400 //* * 00418500 //***SECTION V-067 SECTION * 00418600 //* V-067 CHANGES FOR VERSION 67 JULY 05, 1977 * 00418700 //* * 00418800 //* 1 ADDITION OF FILE 150 FROM MELLON BANK FOR LISTCTLG * 00418900 //* * 00419000 //* 2 ADDITION OF FILE 151 FROM MELLON BANK A SPECIAL SVC * 00419100 //* * 00419200 //* 3 ADDITION OF FILE 154 FROM MELLON BANK FOR A SHARED * 00419300 //* DASD ANALYSIS PROGRAM THAT SHOWS CONTENTION * 00419400 //* * 00419500 //***SECTION V-066 SECTION * 00419600 //* V-066 CHANGES FOR VERSION 66 JUNE 28, 1977 * 00419700 //* * 00419800 //***SECTION V-065 SECTION * 00419900 //* V-065 CHANGES FOR VERSION 65 JUNE 27, 1977 * 00420000 //* * 00420100 //***SECTION V-064 SECTION * 00420200 //* V-064 CHANGES FOR VERSION 64 JUNE 26, 1977 * 00420300 //* * 00420400 //***SECTION V-063 SECTION * 00420500 //* V-063 CHANGES FOR VERSION 63 JUNE 20, 1977 * 00420600 //* * 00420700 //***SECTION V-062 SECTION * 00420800 //* V-062 CHANGES FOR VERSION 62 JUNE 15, 1977 * 00420900 //* * 00421000 //* 1 CORRECTION TO FILE 081 MVS DEBE TO INCLUDE THE MACRO * 00421100 //* CALLED DEBCHK WITHIN THE CODE * 00421200 //* * 00421300 //* 2 ADDITION OF FILE 146 WHICH IS A SQUISH PROGRAM FOR * 00421400 //* USE UNDER MVS * 00421500 //* * 00421600 //* 3 ADDITION OF FILE 147 WHICH IS THE SQUISH SVC * 00421700 //* APPENDAGE FOR USE WITH FILE 146 * 00421800 //* * 00421900 //***SECTION V-061 SECTION * 00422000 //* V-061 CHANGES FOR VERSION 61 JUNE 5, 1977 * 00422100 //* * 00422200 //* 1 ADDITION OF FILE 142 WHICH IS AN RMF POST PROCESSOR * 00422300 //* PROGRAM * 00422400 //* * 00422500 //***SECTION V-060 SECTION * 00422600 //* V-060 CHANGES FOR VERSION 60 MAY 3, 1977 * 00422700 //* * 00422800 //***SECTION V-059 SECTION * 00422900 //* V-059 CHANGES FOR VERSION 59 MAY 1, 1977 * 00423000 //* * 00423100 //* 1 ADDITION OF FILE 140 WHICH IS A PROGRAM TO PROCESS * 00423200 //* THE DATA FROM THE OUTPUT OF FILES 28 AND 29 * 00423300 //* * 00423400 //***SECTION V-058 SECTION * 00423500 //* V-058 CHANGES FOR VERSION 58 APRIL 19, 1977 * 00423600 //* * 00423700 //* 1 MODIFICATION TO FILE 28, WHICH IS CBT224 TO ADD A * 00423800 //* WTO TO THE PROGRAM * 00423900 //* * 00424000 //***SECTION V-057 SECTION * 00424100 //* V-057 CHANGES FOR VERSION 57 APRIL 14, 1977 * 00424200 //* * 00424300 //* ******************** * 00424400 //* * * * 00424500 //* * V A B D U M P * * 00424600 //* * * * 00424700 //* * VERSION 2.1 * * 00424800 //* * * * 00424900 //* ******************** * 00425000 //* * 00425100 //* 1 NEW VERSION OF VABDUMP WHICH IS FILE #110, CORRECTS * 00425200 //* A MINOR FORMATTING ERROR THAT MAY OCCUR WHEN A * 00425300 //* DATASET RESIDES ON A 3350 ( NATIVE MODE ) * 00425400 //* * 00425500 //* 2 ADDITION OF FILE 137 WHICH IS A DYNAMIC * 00425600 //* TRACE ON/TRACE OFF PROGRAM * 00425700 //* * 00425800 //* 3 ADDITION OF FILE 138 WHICH IS A SERIES OF MVS * 00425900 //* MODIFICATION RECEIVED FROM A SHARE INSTALLATION * 00426000 //* * 00426100 //***SECTION V-056 SECTION * 00426200 //* V-056 CHANGES FOR VERSION 56 APRIL 03, 1977 * 00426300 //* * 00426400 //* 1 ADDITION OF FILES 130 AND 131 WHICH IS A * 00426500 //* TSO CATALOG/DADSM INTERFACE CP FOR USE UNDER MVS * 00426600 //* * UNFORTUNATELY THERE IS NO SOURCE AVAILABLE FOR * 00426700 //* * THIS PROGRAM . SORRY * 00426800 //* * 00426900 //***SECTION V-055 SECTION * 00427000 //* V-055 CHANGES FOR VERSION 55 FEBRUARY 23, 1977 * 00427100 //* * 00427200 //***SECTION V-054 SECTION * 00427300 //* V-054 CHANGES FOR VERSION 54 FEBRUARY 21, 1977 * 00427400 //* * 00427500 //***SECTION V-053 SECTION * 00427600 //* V-053 CHANGES FOR VERSION 53 FEBRUARY 20, 1977 * 00427700 //* * 00427800 //***SECTION V-052 SECTION * 00427900 //* V-052 CHANGES FOR VERSION 52 DECEMBER 26, 1976 * 00428000 //* * 00428100 //* 1 THERE IS AN ERROR WITH IEHMAP ( FILE 83 ) WHEN * 00428200 //* PROCESSING 3350 ' S IN NATIVE MODE . THE ZAP IN * 00428300 //* FILE # 117 IS TO ADD 3350 SUPPORT TO IEHMAP * 00428400 //* * 00428500 //***SECTION V-051 SECTION * 00428600 //* V-051 CHANGES FOR VERSION 51 DECEMBER 19, 1976 * 00428700 //* * 00428800 //* 1 NEW VERSION OF VABDUMP WHICH IS FILE # 110 . * 00428900 //* THIS COPY HAS A TABLE TO SUPPRESS CERTAIN ABEND * 00429000 //* CODES . LABEL IS ' ABENTAB ' CHECK THE CODE TO SEE * 00429100 //* WHICH ABEND CODES ARE THERE FOR APPLICABILITY TO * 00429200 //* YOUR OWN INSTALLATION * 00429300 //* * 00429400 //* 2. MODIFICATION TO THE CHKDUMPS PROGRAM * 00429500 //* FILE 53 * 00429600 //* * 00429700 //***SECTION V-050 SECTION * 00429800 //* V-050 CHANGES FOR VERSION 50 NOVEMBER 28, 1976 * 00429900 //* * 00430000 //***SECTION V-049 SECTION * 00430100 //* V-049 CHANGES FOR VERSION 49 NOVEMBER 7, 1976 * 00430200 //* * 00430300 //* 1 ADDITION OF FILE 110. WHICH IS VABDUMP FOR 3.7 * 00430400 //* WITH SUPERVISOR #1 AND #2 * 00430500 //* * 00430600 //* 2 ADDITION OF FILE 111. WHICH IS A VABDUMP SAMPLE * 00430700 //* OUTPUT * 00430800 //* * 00430900 //***SECTION V-048 SECTION * 00431000 //* V-048 CHANGES FOR VERSION 48 NOVEMBER 6, 1976 * 00431100 //* * 00431200 //* 1. ADDITION OF FILE 109 AN MVS SYSGEN XREF PROGRAM * 00431300 //* * 00431400 //***SECTION V-047 SECTION * 00431500 //* V-047 CHANGES FOR VERSION 47 NOVEMBER 4, 1976 * 00431600 //* * 00431700 //***SECTION V-046 SECTION * 00431800 //* V-046 CHANGES FOR VERSION 46 OCTOBER 22, 1976 * 00431900 //* * 00432000 //***SECTION V-045 SECTION * 00432100 //* V-045 CHANGES FOR VERSION 45 OCTOBER 19, 1976 * 00432200 //* * 00432300 //* 1 ADDITION OF FILE 81 AN MVS DEBE * 00432400 //* * 00432500 //* 2 ADDITION OF FILES 82 - 86 WHICH ARE 4 MVS * 00432600 //* UTILITIES AND DOCUMENTATION * 00432700 //* * 00432800 //***SECTION V-044 SECTION * 00432900 //* V-044 CHANGES FOR VERSION 44 SEPTEMBER 3, 1976 * 00433000 //* * 00433100 //***SECTION V-043 SECTION * 00433200 //* V-043 CHANGES FOR VERSION 43 AUGUST 13,1976 * 00433300 //* * 00433400 //***SECTION V-042 SECTION * 00433500 //* V-042 CHANGES FOR VERSION 42 AUGUST 6, 1976 * 00433600 //* * 00433700 //* 1 INCREASE OF POSTAGE AND HANDLING CHARGE TO $10.00 * 00433800 //* * 00433900 //***SECTION V-041 SECTION * 00434000 //* V-041 CHANGES FOR VERSION 41 JULY 24, 1976 * 00434100 //* * 00434200 //***SECTION V-040 SECTION * 00434300 //* V-040 CHANGES FOR VERSION 40 JUNE 14, 1976 * 00434400 //* * 00434500 //***SECTION V-039 SECTION * 00434600 //* V-039 CHANGES FOR VERSION 39 JUNE 3, 1976 * 00434700 //* * 00434800 //* 1 ADDITION OF FILE 80 - A SPOOL DUMP/RESTORE SYSTEM * 00434900 //* * 00435000 //***SECTION V-038 SECTION * 00435100 //* V-038 CHANGES FOR VERSION 38 JUNE 2, 1976 * 00435200 //* * 00435300 //* 1 ADDITION OF A SET OF JCL TO RUN APEMAN AND GET * 00435400 //* ALL THE REPORTS . THIS IS ON FILE 079 . SEE BELOW * 00435500 //* FOR ADDITIONAL INFORMATION * 00435600 //* * 00435700 //***SECTION V-037 SECTION * 00435800 //* V-037 CHANGES FOR VERSION 37 JUNE 1, 1976 * 00435900 //* * 00436000 //***SECTION V-036 SECTION * 00436100 //* V-036 CHANGES FOR VERSION 36 MAY 24, 1976 * 00436200 //* * 00436300 //***SECTION V-035 SECTION * 00436400 //* V-035 CHANGES FOR VERSION 35 MAY 20, 1976 * 00436500 //* * 00436600 //***SECTION V-034 SECTION * 00436700 //* V-034 CHANGES FOR VERSION 34 MAY 11, 1976 * 00436800 //* * 00436900 //* 1 ADDITION OF FILE 076 . SQA MONITOR * 00437000 //* * 00437100 //* 2 ADDITION OF FILE 077 DOCUMENTATION FOR INCORZAP * 00437200 //* THIS IS IN FBA FORMAT * 00437300 //* * 00437400 //* 3. ADDITION OF FILE 078 INCORZAP PROGRAM * 00437500 //* * 00437600 //***SECTION V-033 SECTION * 00437700 //* V-033 CHANGES FOR VERSION 33 APRIL 30, 1976 * 00437800 //* * 00437900 //***SECTION V-032 SECTION * 00438000 //* V-032 CHANGES FOR VERSION 32 APRIL 28, 1976 * 00438100 //* * 00438200 //***SECTION V-031 SECTION * 00438300 //* V-031 CHANGES FOR VERSION 31 APRIL 19, 1976 * 00438400 //* * 00438500 //***SECTION V-030 SECTION * 00438600 //* V-030 CHANGES FOR VERSION 30 APRIL 14, 1976 * 00438700 //* * 00438800 //***SECTION V-029 SECTION * 00438900 //* V-029 CHANGES FOR VERSION 29 APRIL 5, 1976 * 00439000 //* * 00439100 //***SECTION V-028 SECTION * 00439200 //* V-028 CHANGES FOR VERSION 28 MARCH 27, 1976 * 00439300 //* * 00439400 //***SECTION V-027 SECTION * 00439500 //* V-027 CHANGES FOR VERSION 27 MARCH 19, 1976 * 00439600 //* * 00439700 //***SECTION V-026 SECTION * 00439800 //* V-026 CHANGES FOR VERSION 26 MARCH 17, 1976 * 00439900 //* * 00440000 //***SECTION V-025 SECTION * 00440100 //* V-025 CHANGES FOR VERSION 25 MARCH 16, 1976 * 00440200 //* * 00440300 //* 1 ADDITION OF FILE 71 WHICH IS A SERIES OF MVS * 00440400 //* MODIFICATIONS FROM F.I.S * 00440500 //* * 00440600 //* 2 ADDITION OF FILE 72 WHICH IS A SERIES OF MVS * 00440700 //* MODIFICATIONS FROM C.B.T. * 00440800 //* * 00440900 //***SECTION V-024 SECTION * 00441000 //* V-024 CHANGES FOR VERSION 24 MARCH 11, 1976 * 00441100 //* * 00441200 //* 1 ADDITION OF FILE 070 WHICH IS A SERIES OF MVS * 00441300 //* MODIFICATIONS FROM GENERAL DYNAMICS , SAN DIEGO , * 00441400 //* CALIFORNIA 92138 * 00441500 //* * 00441600 //***SECTION V-023 SECTION * 00441700 //* V-023 CHANGES FOR VERSION 23 MARCH 10, 1976 * 00441800 //* * 00441900 //***SECTION V-022 SECTION * 00442000 //* V-022 CHANGES FOR VERSION 22 MARCH 8, 1976 * 00442100 //* * 00442200 //***SECTION V-021 SECTION * 00442300 //* V-021 CHANGES FOR VERSION 21 MARCH 4, 1976 * 00442400 //* * 00442500 //***SECTION V-020 SECTION * 00442600 //* V-020 CHANGES FOR VERSION 20 MARCH 3, 1976 * 00442700 //* * 00442800 //***SECTION DISCLAIMER SECTION * 00442900 //******************************************************************* 00443000 //* * 00443100 //* D I S C L A I M E R S E C T I O N * 00443200 //* * 00443300 //******************************************************************* 00443400 //* * 00443500 //* THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY & TO THE BEST * 00443600 //* OF OUR KNOWLEDGE THEY ARE OPERATIONAL, HOWEVER NO WARRANTY * 00443700 //* IS MADE TO THE ACCURACY OF THE PROGRAMS OR RELATED MATERIAL AND * 00443800 //* NO RESPONSIBILITY IS ASSUMED FOR ANY MODIFICATION DIRECTLY OR * 00443900 //* INDIRECTLY CAUSED BY THE USE OF THESE MODS. IT IS THE USERS * 00444000 //* RESPONSIBILITY TO EVALUATE THE USEFULLNESS OF THE MATERIAL * 00444100 //* SUPPLIED. * 00444200 //* * 00444300 //* WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP TO DATE * 00444400 //* NOR DO WE GUARANTEE TO PROVIDE ANY CORRECTIONS OR EXTENSIONS * 00444500 //* DESCRIBED BY THE USER OR CORRECTIONS OR EXTENSIONS MADE IN THE * 00444600 //* FUTURE. * 00444700 //* * 00444800 //***SECTION FILE STATUS SECTION * 00444900 //******************************************************************* 00445000 //* * 00445100 //* F I L E S T A T U S S E C T I O N * 00445200 //* * 00445300 //******************************************************************* 00445400 //* * 00445500 //* THE COLUMN 3.7 SHOWS STATUS WITH MVS 3.7. THE CODES MEAN , * 00445600 //* * 00445700 //* 3.8 = IT HAS BEEN RUN UNDER 3.8 SOMEWHERE NOT AT CBT * 00445800 //* YES = IT HAS BEEN RUN UNDER 3.7 OKAY WITH SU 5 & 7 * 00445900 //* NO = IT WILL NOT RUN UNDER 3.7 * 00446000 //* UNK = HAS NOT BEEN TESTED UNDER 3.7 * 00446100 //* N/A = NOT SYSTEM DEPENDENT (NO REASON NOT TO RUN) * 00446200 //* DELETED = DELETED FROM THIS TAPE * 00446300 //* SU'S = SU5 & SU7 * 00446400 //* SE2 = MVS/SE2 RELEASE 1 * 00446500 //* SE22 = MVS/SE2 RELEASE 2 * 00446600 //* SP11 = MVS/SP RELEASE 1.1 * 00446700 //* SP12 = MVS/SP RELEASE 1.2 * 00446800 //* SP13 = MVS/SP1.3 RELEASE * 00446900 //* X A = MVS/ X A RELEASE * 00447000 //* UNKCBT = NOT TESTED AT CBT * 00447100 //* MVS/SE = SPECIFICALLY FOR MVS/SE * 00447200 //* ALL = ONLY THE SOURCE FOR # COMMAND SYSTEM HAS THIS * 00447300 //* THIS MARKER BECAUSE THERE IS SOURCE FOR : * 00447400 //* 01 NON-SE ( BASE 3.8 - 3.7 WITH SU5 AND SU7 ) * 00447500 //* 02 SE/RELEASE 1 * 00447600 //* 03 SE/RELEASE 2 * 00447700 //* 04 SP/RELEASE 1 * 00447800 //* SOME OF THE COMMANDS ARE ONLY SUPPORTED ON * 00447900 //* CERTAIN RELEASES WHILE OTHERS ARE SUPPORTED ON * 00448000 //* ALL RELEASES * 00448100 //* CBT = RELEASE 6.0 OF IPO WITH THE FOLLOWING SU ' S AND * 00448200 //* 8304: ( MVS 3.8 ) MVS 3.8 SP/1.3 * 00448300 //* * 00448400 //* 01 02 03 04 05 06 07 08 09 10 13 * 00448500 //* 15 16 17 19 20 21 22 23 24 25 27 * 00448600 //* 29 30 32 33 34 35 36 37 39 40 * 00448700 //* 45 47 48 50 51 52 53 54 55 * 00448800 //* 57 58 60 61 63 64 65 68 * 00448900 //* 74 * 00449000 //* 95 96 * 00449100 //* * 00449200 //* * 00449300 //* COMPRESSED HEADER SHOWS IF THE FILE HAS BEEN COMPRESSED * 00449400 //* * 00449500 //* * 00449600 //* * 00449700 //* FILE 3.7 RECORD FOOT ORIGINAL * 00449800 //* NUM- COUNT AGE AS OF LRECL * 00449900 //* BER 6 * 00450000 //* 2 COM * 00450100 //* 5 PRES * 00450200 //* 0 SED? * 00450300 //* BPI * 00450400 //* | DO NOT REMOVE THIS LINE FOR QUICK INDEX PGM * 00450500 //* |JCL CREAT 001 N/A 23386 26.4 07-05-85 080 NO* % 00450600 //* COMPRESS 002 CBT 260 .3 04-01-79 080 NO* 00450700 //* DROP TAPE 003 CBT 1549 1.9 07-05-85 080 NO* 00450800 //* INFOTAPE 004 CBT 1414 .4 06-20-82 080 YES * 00450900 //* INFOTAPE 005 CBT 20 .0 06-14-82 255 NO* 00451000 //* FREEALL 006 CBT 140 .1 10-16-76 080 YES * 00451100 //* IEFACTRT 007 CBT 485 .3 10-16-76 080 YES * 00451200 //* DELETE LIST 008 N/A 234 .2 04-04-82 080 YES * 00451300 //* SYNSCORT EXIT 009 UNKCBT 95 .1 05-28-84 080 YES * 00451400 //* GPSAM DOC 010 UNKCBT 1522 1.4 12-05-82 080 YES * 00451500 //* GPSAM SRC 011 UNKCBT 2047 1.4 12-05-82 080 YES * 00451600 //* ISPF DIAG 012 UNCBT 6366 3.7 03-24-85 080 YES * 00451700 //* IO CONFIG 013 CBT 1179 .9 08-27-80 080 YES * 00451800 //* GRUM UTIL 014 CBT 1079 .9 08-27-80 080 YES * 00451900 //* STATE CP 015 CBT 184 .2 08-27-80 080 YES * 00452000 //* SMPCOVER 016 CBT 1956 1.4 10-28-80 080 YES * 00452100 //* UTILITIES 017 UNKCBT 5176 3.2 09-01-80 080 YES * 00452200 //* TSUPDATE 018 CBT 910 1.9 04-21-85 133 NO* 00452300 //* VTAM 019 UNKCBT 9016 6.0 07-17-83 080 YES * 00452400 //* SCRPIT CP 020 UNKCBT 2149 1.4 09-14-80 080 YES * 00452500 //* DMS JCL 021 UNKCBT 178 .1 01-03-82 080 YES * 00452600 //* DMS DOC 022 UNKCBT 1684 1.4 01-03-82 080 YES * 00452700 //* DMS SRC NOSE 023 UNKCBT 20866 13.9 01-03-82 080 YES * 00452800 //* DMS LOAD NOSE 024 UNKCBT 57 11.2 01-03-82 IEBCOPY NO* 00452900 //* DMS SRC SE 025 UNKCBT 14054 8.8 01-03-82 080 YES * 00453000 //* DMS LOAD SE 026 UNKCBT 57 11.2 01-03-82 IEBCOPY NO* 00453100 //* MTRACE 027 UNKCBT 307 .2 08-24-80 080 YES * 00453200 //* DLIBXREF 028 N/A 303 .2 04-19-77 080 YES * 00453300 //* DLIBXREF 029 N/A 235 .2 10-16-76 080 YES * 00453400 //* FREEALL 030 CBT 228 .1 03-20-80 080 YES * 00453500 //* FREEALL 031 CBT 228 .1 03-20-80 080 YES * 00453600 //* NCCFACF2 032 UNKCBT 4308 2.3 06-11-85 080 YES * 00453700 //* IEECVXIT 033 UNKCBT 892 .9 03-14-83 080 YES * 00453800 //* APEMAN 034 UNKCBT 144 .1 10-16-76 080 YES * 00453900 //* LOAD MODS 035 CBT 120 33.7 07-05-85 IEBCOPY NO* 00454000 //* AMDPRDMP 036 UNKCBT 1126 .9 06-29-80 080 YES * 00454100 //* COPYCAT 037 UNKCBT 4317 2.8 01-23-83 080 YES * 00454200 //* UTILITIES 038 UNKCBT 8538 6.0 06-29-80 080 YES * 00454300 //* UTILITIES 039 SOME 25875 16.7 06-24-80 080 YES * 00454400 //* DIDOCS 1.3 040 SP1.3 1082 .9 09-19-82 080 YES * 00454500 //* CHIMP 041 CBT 852 .9 02-10-80 080 YES * 00454600 //* KAISER PGMS 042 UNKCBT 9944 7.4 06-17-80 080 YES * 00454700 //* KAISER SAMPLE 043 UNKCBT 101 .2 06-19-79 133 NO* 00454800 //* KAISER PGMS 044 UNKCBT 5 .9 06-19-79 IEBCOPY NO* 00454900 //* PDS COMPARE 045 CBT 1732 1.9 12-06-81 080 YES * 00455000 //* TSO SCRATCH 046 CBT 758 .4 01-23-82 080 YES * 00455100 //* MVSSE IPS 047 UNKCBT 285 .2 04-01-79 080 YES * 00455200 //* LISTVOL 048 CBT 308 .2 10-16-76 080 YES * 00455300 //* LISTSPC 049 CBT 640 .4 01-05-78 080 YES * 00455400 //* LOCINDEX 050 CBT 356 .2 10-16-76 080 YES * 00455500 //* HELP 48-49 051 N/A 53 .1 09-18-79 080 YES * 00455600 //* BONY FINGERS 052 N/A 162 .1 04-16-79 080 YES * 00455700 //* CHKDUMP 053 CBT 142 .1 12-19-76 080 YES * 00455800 //* CHKDUMP 054 CBT 3 .0 10-16-76 080 YES * 00455900 //* LPAREA 055 UNKCBT 127 .1 10-16-76 080 YES * 00456000 //* VCOREZAP 056 UNKCBT 275 .2 10-16-76 080 YES * 00456100 //* PANSPOOL 057 UNKCBT 9170 6.5 05-24-81 080 YES * 00456200 //* UTILITIES 058 SOME 22396 15.3 06-24-80 080 YES * 00456300 //* DCMS 2.3 SE 059 UNKCBT 3443 1.9 04-01-79 137 NO* 00456400 //* DCMS 2.3 SE 060 UNKCBT 23173 13.9 04-01-79 080 YES * 00456500 //* DCMS 2.3 SE 061 UNKCBT 4581 2.8 04-01-79 080 YES * 00456600 //* DCMS 2.3 SE 062 UNKCBT 5 .0 04-01-79 080 YES * 00456700 //* DCMS 2.3 SE 063 UNKCBT 3994 3.7 04-01-79 080 YES * 00456800 //* DCMS 2.3 SE 064 UNKCBT 88 16.9 04-01-79 IEBCOPY NO* 00456900 //* BFG UTIL 065 UNKCBT 9788 6.9 06-20-82 080 YES * 00457000 //* BFG QUE 066 UNKCBT 7650 5.6 06-20-82 080 YES * 00457100 //* BFG PANSPL 067 UNKCBT 5166 3.7 06-20-82 080 YES * 00457200 //* BFG INFO BA 068 UNKCBT 2617 1.9 06-20-82 080 YES * 00457300 //* TCAM10-43 069 UNKCBT 2249 2.3 10-01-79 080 YES * 00457400 //* ZAPS GENDY 070 CBT 10673 7.9 02-17-85 080 YES * 00457500 //* ZAPS FIS 071 CBT 134 1.4 10-16-76 080 YES * 00457600 //* ZAPS CBT 072 CBT 1513 1.4 11-22-81 080 YES * 00457700 //* PERF MON 073 UNKCBT 10453 6.5 09-24-79 080 YES * 00457800 //* PERF SAMPLES 074 N/A 2748 2.8 05-01-79 133 NO* 00457900 //* ZAP CP 075 UNKCBT 5024 3.2 01-27-80 080 YES * 00458000 //* SQA MON 076 CBT 87 .1 10-16-76 080 YES * 00458100 //* COREZAP DO 077 N/A 342 .2 10-16-76 080 YES * 00458200 //* COREZAP 078 CBT 176 .2 10-16-76 080 YES * 00458300 //* APE JCL 079 CBT 44 .1 10-16-76 080 YES * 00458400 //* SPOOL TRAN 080 CBT 2201 1.4 10-16-76 080 YES * 00458500 //* MVS DEBE 081 CBT 1608 .9 06-19-79 080 YES * 00458600 //* DOC 82-86 082 CBT 3482 1.9 10-16-76 080 YES * 00458700 //* ZAP IEHMAP 083 CBT 1024 1.4 10-16-76 080 YES * 00458800 //* MAPLPA OBJ 084 SU'S 146 .2 10-16-76 080 YES * 00458900 //* PTXREF OBJ 085 SU'S 297 .4 10-16-76 080 YES * 00459000 //* ZAP OBJ 086 SU'S 260 .3 10-16-76 080 YES * 00459100 //* IMS COMP 087 UNKCBT 501 .4 04-01-79 080 YES * 00459200 //* IMS COMP 088 UNKCBT 6 .6 04-01-79 IEBCOPY NO* 00459300 //* DYNAMIC 089 UNKCBT 1169 .9 04-01-79 080 YES * 00459400 //* DYNAMIC 090 UNKCBT 562 .3 04-01-79 080 YES * 00459500 //* VSAM EDIT 091 UNKCBT 3585 2.3 04-01-79 080 YES * 00459600 //* APEMAN 092 UNKCBT 6450 4.2 04-30-82 080 YES * 00459700 //* APEMAN 093 UNKCBT 2963 1.9 04-30-82 080 YES * 00459800 //* APEMAN 094 UNKCBT 708 .9 04-30-82 080 YES * 00459900 //* APEMAN 095 UNKCBT 1294 .9 04-30-82 080 YES * 00460000 //* APEMAN 096 UNKCBT 9346 8.8 04-30-82 133 NO* 00460100 //* APEMAN 097 UNKCBT 5718 5.6 04-30-82 133 NO* 00460200 //* LNKLST REV 098 UNKCBT 110 .1 06-14-82 080 YES * 00460300 //* SAS ZAP REV 099 UNKCBT 66 .1 06-14-82 080 YES * 00460400 //* ISPF/PDF 100 UNKCBT 2712 1.9 09-05-82 080 YES * 00460500 //* ISPF/PDF 101 UNKCBT 3627 1.9 09-05-82 080 YES * 00460600 //* INDEX-VTOC 102 SP1.3 6145 4.2 09-05-82 080 YES * 00460700 //* APEMAN 103 UNKCBT 1905 .9 10-22-76 080 YES * 00460800 //* SUBMAN 104 UNKCBT 441 .9 10-22-76 133 NO* 00460900 //* SUBMAN 105 UNKCBT 2004 1.4 10-22-76 080 YES * 00461000 //* SUBMAN 106 UNKCBT 430 .2 10-22-76 080 YES * 00461100 //* SUBMAN 107 UNKCBT 203 .1 10-22-76 080 YES * 00461200 //* SUBMAN 108 UNKCBT 210 .1 10-22-76 080 YES * 00461300 //* SYSGN XREF 109 N/A 846 .4 11-06-76 080 YES * 00461400 //* VABDUMP 110 CBT 1397 .9 04-17-76 080 YES * 00461500 //* VABDUMP EX 111 CBT 963 .9 06-05-78 133 NO* 00461600 //* VTOC 112 CBT 7456 5.6 10-21-84 080 YES * 00461700 //* UCBMAP 113 N/A 231 .2 09-18-79 080 YES * 00461800 //* UCBMAP 114 N/A 168 .3 09-18-79 133 NO* 00461900 //* PASSWORD 115 UNKCBT 2501 1.9 08-22-84 080 YES * 00462000 //* SEEK ANAY 116 X A 3347 1.9 10-21-84 080 YES * 00462100 //* IEHMAP ZAP 117 CBT 57 .1 02-27-83 080 YES * 00462200 //* PUTXREF 118 CBT 861 .9 08-28-83 080 YES * 00462300 //* ZAPS FNBC 119 UNKCBT 1822 1.4 11-22-81 080 YES * 00462400 //* JES2 TAPE 120 N/A 7699 5.1 09-05-82 080 YES * 00462500 //* SPLA TAPE 121 N/A 9473 . 07-05-85 080 YES * 00462600 //* UTIL ARAMCO 122 UNKCBT 5183 3.7 08-30-81 080 YES * 00462700 //* GUIDE TSO 123 N/A 161 .1 08-28-80 080 YES * 00462800 //* GPU GTF 124 UNKCBT 8144 5.1 07-18-82 080 YES * 00462900 //* GPU GTF 125 UNKCBT 916 1.9 07-18-82 133 NO * 00463000 //* SMFDS 126 SE2 343 .2 11-22-79 080 YES * 00463100 //* CHYR MODS 127 UNKCBT 9976 5.6 02-06-85 080 YES * 00463200 //* ADVENT 128 CBT 5113 3.2 06-19-79 080 YES * 00463300 //* CHAN ROTATE 129 UNKCBT 40 .1 08-03-80 080 YES * 00463400 //* CUTLOCUS D 130 CBT 343 .2 04-03-77 080 YES * 00463500 //* CUTLOCUS 131 CBT 174 .2 04-03-77 080 YES * 00463600 //* SMPLIST 132 CBT 1777 1.4 01-23-82 080 YES * 00463700 //* CONSOLE ZP 133 CBT 124 .1 06-27-82 080 YES * 00463800 //* I/O QUE ZP 134 UNKCBT 56 .1 09-18-79 080 YES * 00463900 //* VIO ZAP 135 UNKCBT 195 .2 09-18-79 080 YES * 00464000 //* TSO CPS 136 CBT 2438 1.9 03-20-83 080 YES * 00464100 //* SYS TRACE 137 CBT 535 .3 04-17-77 080 YES * 00464200 //* SYSMODS 138 CBT 195 .2 04-17-77 080 YES * 00464300 //* SO UTILITIES 139 UNKCBT 2982 2.3 04-16-79 080 YES * 00464400 //* PRCS 27-29 140 N/A 314 .2 05-01-77 080 YES * 00464500 //* TSO CPS 141 UNKCBT 2716 1.9 08-07-83 080 YES * 00464600 //* RMF P.P. 142 CBT 1108 .9 02-15-81 080 YES * 00464700 //* TSO CPS 143 1.3 8537 6.5 04-30-82 080 YES * 00464800 //* LSPACE 144 CBT 1944 1.4 06-02-83 080 YES * 00464900 //* HOBART MODS 145 UNKCBT 3002 2.3 10-11-81 080 YES * 00465000 //* SQUISH 146 YES 1164 .9 12-14-77 080 YES * 00465100 //* SQUISH SVC 147 YES 28 .0 12-14-77 080 YES * 00465200 //* QUE 1.3.0 148 UNKCBT 8187 6.0 09-25-82 080 YES * 00465300 //* UTILITIES 149 UNKCBT 35041 20.8 09-16-84 080 YES * 00465400 //* LISTCTLG 150 YES 1373 .9 07-05-77 080 YES * 00465500 //* SPECIA SVC 151 YES 351 .2 07-05-77 080 YES * 00465600 //* PCCW MON 152 SP1.3 348 .2 09-05-82 080 YES * 00465700 //* DIEBOLD PGMS 153 UNKCBT 19138 13.4 12-12-84 080 YES * 00465800 //* DASD ANAYL 154 YES 967 .9 07-05-77 080 YES * 00465900 //* TUNING RPT 155 N/A 5021 2.8 07-17-83 080 YES * 00466000 //* PRINTOFF 156 CBT 1645 1.4 07-24-77 080 YES * 00466100 //* PRINTOFF H 157 CBT 45 .1 07-24-77 080 YES * 00466200 //* DSPRINT 158 UNKCBT 8040 5.1 06-17-84 080 YES * 00466300 //* UCBFIND 159 CBT 697 .9 08-22-84 080 YES * 00466400 //* TSO CPS 160 UNKCBT 5696 3.7 08-28-84 080 YES * 00466500 //* AIR ISPF 161 UNKCBT 3271 1.9 02-06-85 080 YES * 00466600 //* XREFASM 162 UNKCBT 2309 1.9 02-17-85 080 YES * 00466700 //* VIO ZAP 163 YES 26 .0 09-08-77 080 YES * 00466800 //* PUSE 164 CBT 340 .2 09-08-77 080 YES * 00466900 //* NAMEVS 165 YES 231 .1 09-08-77 080 YES * 00467000 //* VASMSC 166 YES 230 .1 09-21-77 080 YES * 00467100 //* LOGON EXT 167 UNKCBT 6816 5.1 04-12-81 080 YES * 00467200 //* DYN EXIT 168 UNKCBT 720 .4 04-30-82 080 YES * 00467300 //* VTAM OP 169 UNKCBT 730 .4 04-30-82 080 YES * 00467400 //* WM TSO CP 170 UNKCBT 2320 .9 11-14-82 080 YES * 00467500 //* WM TSO LD 171 UNKCBT 5 .5 11-14-82 IEBCOPY NO* 00467600 //* OURMF YALE 172 YES 2341 1.4 02-01-78 080 YES * 00467700 //* OURMF YALE 173 YES 13755 10.6 02-01-78 080 YES * 00467800 //* PACKER 174 CBT 1633 1.4 09-08-77 080 YES * 00467900 //* SQA TRAP 175 UNKCBT 1194 .9 06-12-83 080 YES * 00468000 //* IEHMAP ZAP 176 YES 10 .0 12-01-77 080 YES * 00468100 //* SRM ZAP 177 YES 10 .0 12-01-77 080 YES * 00468200 //* TSO 99 178 UNKCBT 146 .1 06-20-82 080 YES * 00468300 //* RMF P.P. 179 CBT 3168 2.3 02-01-78 080 YES * 00468400 //* JCL 180 180 CBT 113 .1 01-01-78 080 YES * 00468500 //* IKJEBEMV 181 CBT 80 .1 12-20-77 080 YES * 00468600 //* PDS CP 182 CBT 44810 . 07-05-85 080 YES * 00468700 //* TUNING RPT 183 N/A 6401 3.7 06-29-80 080 YES * 00468800 //* UCB PGM 184 CBT 932 .9 12-20-77 080 YES * 00468900 //* SCANNER 185 CBT 206 .2 12-20-77 080 YES * 00469000 //* TSO CP 186 UNKCBT 3564 2.3 04-16-79 080 YES * 00469100 //* CLIST CONV 187 UNKCBT 532 .3 11-22-79 080 YES * 00469200 //* MELLON 4.1 188 YES 387 .2 09-25-79 080 YES * 00469300 //* MELLON 4.1 189 YES 2130 1.9 09-25-79 080 YES * 00469400 //* RMF P.P 190 CBT 3248 2.3 02-01-78 080 YES * 00469500 //* STEPLIB CP 191 CBT 546 .4 01-15-78 080 YES * 00469600 //* SQUISH 192 CBT 1528 .9 01-15-78 080 YES * 00469700 //* SQUISH SVC 193 CBT 28 .0 01-15-78 080 YES * 00469800 //* ACTIVE SMF 194 CBT 14 .0 02-01-78 080 YES * 00469900 //* PROCES SMF 195 CBT 944 .9 04-16-79 080 YES * 00470000 //* OUTPUT 195 196 CBT 200 .2 02-01-78 080 YES * 00470100 //* EXTRCT RMF 197 CBT 347 .2 02-01-78 080 YES * 00470200 //* PDS 7.0 198 CBT 34691 . 07-05-85 080 YES * 00470300 //* COMNET TSO 199 UNKCBT 2286 1.9 02-17-85 080 YES * 00470400 //* TWA PDS 200 UNKCBT 5037 3.2 08-24-80 080 YES * 00470500 //* RMF W/DATE 201 CBT 119 .1 07-25-78 080 YES * 00470600 //* AUTO JES 202 CBT 987 .9 03-16-78 080 YES * 00470700 //* ZAP REMOTE 203 UNKCBT 49 .1 06-12-83 080 YES * 00470800 //* TSO VTOC 204 UNKCBT 846 .9 07-20-80 080 YES * 00470900 //* PRINTOFF 205 CBT 3656 2.8 05-29-80 080 YES * 00471000 //* SPY V1 206 CBT 1970 1.4 07-31-79 080 YES * 00471100 //* FSE 207 CBT 5377 3.2 02-03-80 080 YES * 00471200 //* SYSEVENT 208 CBT 62 .1 03-16-78 080 YES * 00471300 //* SYSEVENT 209 CBT 1363 .9 03-16-78 080 YES * 00471400 //* SYSEVENT 210 CBT 540 .3 03-16-78 080 YES * 00471500 //* DCMS - # 211 UNKCBT 5754 3.7 03-16-78 080 YES * 00471600 //* SAS 212 UNKCBT 2846 2.3 06-18-78 080 YES * 00471700 //* DISK STAT 213 CBT 3280 2.3 11-14-82 080 YES * 00471800 //* LISTPDS 214 N/A 564 .5 01-27-80 080 YES * 00471900 //* LISTPDS 215 N/A 1758 1.4 01-27-80 080 YES * 00472000 //* LOCD-DATE 216 CBT 918 .9 05-21-78 080 YES * 00472100 //* DISAMBLR 217 CBT 7070 5.1 05-21-78 080 YES * 00472200 //* RMFMON SCR 218 CBT 4147 2.8 05-28-84 080 YES * 00472300 //* SHARED BIT 219 CBT 253 .2 06-12-83 080 YES * 00472400 //* SHARED BIT 220 UNKCBT 245 .2 05-21-78 080 YES * 00472500 //* DCMS 221 CBT 1512 .9 05-21-78 080 YES * 00472600 //* EXITS DF/RMF 222 UNKCBT 1190 .9 03-18-84 080 YES * 00472700 //* TSO PERFM 223 UNKCBT 2026 1.9 05-01-79 080 YES * 00472800 //* ARCHIV DMP 224 CBT 833 .9 05-21-78 080 YES * 00472900 //* OFFLOAD 225 CBT 1071 .9 10-28-84 080 YES * 00473000 //* COMPRSEQ 226 CBT 1181 .9 06-17-84 080 YES * 00473100 //* TSO AUTHD0 227 CBT 2582 1.9 04-07-80 080 YES * 00473200 //* SYNSORT EX 228 UNKCBT 74 .1 06-04-78 080 YES * 00473300 //* TAPE COPY 229 CBT 764 .9 06-19-79 080 YES * 00473400 //* JES2 GTE 230 UNKCBT 10 .0 07-30-78 080 YES * 00473500 //* JES2 GTE 231 UNKCBT 132 .1 07-23-78 080 YES * 00473600 //* JES2 GTE 232 UNKCBT 74 .1 07-23-78 080 YES * 00473700 //* PANSPOOL UPDT 233 UNKCBT 1280 1.4 04-15-84 080 YES * 00473800 //* PRINTOFF 234 CBT 2130 1.9 10-01-79 080 YES * 00473900 //* LPA LOADER 235 CBT 1065 .9 07-24-78 080 YES * 00474000 //* PRINTOFF H 236 CBT 73 .1 10-01-79 080 YES * 00474100 //* PDSXREF 237 CBT 5480 3.2 08-02-78 080 YES * 00474200 //* RMF P.P. 238 CBT 1017 .9 02-15-81 080 YES * 00474300 //* DYN TRACE 239 UNKCBT 716 .9 08-05-78 080 YES * 00474400 //* DCMS 2.2 240 UNKCBT 3279 1.9 02-11-79 137 NO* 00474500 //* DCMS 2.2 241 UNKCBT 22723 13.9 02-11-79 080 YES * 00474600 //* DCMS 2.2 242 UNKCBT 4068 2.8 02-11-79 080 YES * 00474700 //* DCMS 2.2 243 UNKCBT 10025 7.9 02-11-79 080 YES * 00474800 //* DCMS 2.2 244 UNKCBT 3678 3.7 02-11-79 080 YES * 00474900 //* DCMS 2.2 245 UNKCBT 88 16.9 02-11-79 IEBCOPY NO* 00475000 //* ZAPS SHARE 246 UNKCBT 126 .1 07-01-79 080 YES * 00475100 //* RMF PP/SE 247 MVS/SE 3315 2.3 08-27-78 080 YES * 00475200 //* SMF SPLIT 248 MVS/SE 441 .3 12-03-78 080 YES * 00475300 //* JCL - 248 249 MVS/SE 122 .0 08-27-78 080 YES * 00475400 //* RMF IMS EXIT 250 UNKCBT 501 .3 11-22-79 080 YES * 00475500 //* SYNCH RMF 251 UNKCBT 140 .1 10-01-78 080 YES * 00475600 //* DYNALIST 252 CBT 624 .4 09-25-83 080 YES * 00475700 //* ZAPS STD O 253 UNKCBT 1008 .9 08-27-78 080 YES * 00475800 //* SAS STD OI 254 UNKCBT 6750 5.1 08-27-78 080 YES * 00475900 //* RMF P.P. 255 UNKCBT 3603 2.8 08-27-78 080 YES * 00476000 //* JES3 TWA MOD 256 UNKCBT 520 .4 08-24-80 080 YES * 00476100 //* VTAM TRACE 257 UNKCBT 642 .3 03-20-80 080 YES * 00476200 //* SQUISH 258 UNKCBT 3571 2.3 09-10-78 080 YES * 00476300 //* TSO CLISTS 259 UNKCBT 49 8.0 03-09-80 IEBCOPY NO* 00476400 //* QUICK MAP 260 CBT 3152 1.9 12-19-82 080 YES * 00476500 //* SMF ZAP 261 CBT 75 .1 03-11-79 080 YES * 00476600 //* MODS XREF 262 CBT 214 .2 05-01-79 080 YES * 00476700 //* INDEX 262 CBT 214 .2 05-01-79 080 YES * 00476800 //* QUICK INDEX 262 CBT 214 .2 05-01-79 080 YES * 00476900 //* GDG UTIL 263 UNKCBT 1397 .9 06-17-84 080 YES * 00477000 //* COPY CAT 264 CBT 1732 1.4 11-05-78 080 YES * 00477100 //* JES2 MON 265 SP13 4161 3.2 07-11-82 080 YES * 00477200 //* # SUBSYS 266 ALL 63736 37.5 03-17-83 080 YES * 00477300 //* # LOAD MODS 267 MVS/SP 117 32.2 03-17-83 IEBCOPY NO* 00477400 //* COMPARE TSO 268 CBT 367 .2 02-08-79 080 YES * 00477500 //* OPER MES 269 UNKCBT 113 .1 11-14-82 080 YES * 00477600 //* WASH UTIL 270 UNKCBT 38066 19.9 08-22-84 080 YES * 00477700 //* DYN PROCLIB 271 UNKCBT 4576 3.7 08-22-84 080 YES * 00477800 //* VTAM LOGO 272 UNKCBT 829 .9 08-22-84 080 YES * 00477900 //* TSO SEC JES2 273 UNKCBT 692 .9 08-22-84 080 YES * 00478000 //* 3.8 SPF 274 UNKCBT 918 .9 08-22-84 080 YES * 00478100 //* CATEDIT 275 UNKCBT 2013 1.9 02-25-79 080 YES * 00478200 //* SPY V2 276 SE2/2 3945 2.8 04-12-81 080 YES * 00478300 //* JESCNCL 277 UNKCBT 3386 2.3 03-07-79 080 YES * 00478400 //* QUEUE TSO 278 CBT 7809 5.1 08-24-80 080 YES * 00478500 //* UTILITIES 279 UNKCBT 9371 5.6 04-04-82 080 YES * 00478600 //* SCRIPT DOC 280 UNKCBT 17688 10.2 04-04-82 080 YES * 00478700 //* SCRIPT LOD 281 UNKCBT 34 4.2 04-04-82 IEBCOPY NO* 00478800 //* SCRIPT MAC 282 UNKCBT 29093 19.4 04-04-82 080 YES * 00478900 //* SCRIPT MEMO 283 UNKCBT 96 21.2 04-04-82 IEBCOPY NO* 00479000 //* SCRIPT CODE 284 UNKCBT 7546 5.1 04-04-82 080 YES * 00479100 //* SCRIPT HYPH 285 UNKCBT 2 .9 04-04-82 080 NO* 00479200 //* SCRIPT OBJ 286 UNKCBT 2771 3.2 04-04-82 080 YES * 00479300 //* SCRIPT TSO 287 UNKCBT 3989 2.8 04-04-82 080 YES * 00479400 //* PDS DIR INC 288 CBT 1328 1.4 11-28-82 080 YES * 00479500 //* PLI FS 289 FULLSCR 7114 4.2 09-14-80 080 YES * 00479600 //* PLI FS 290 UNKCBT 8 2.2 09-14-80 IEBCOPY NO* 00479700 //* PLI FS 291 UNKCBT 7 2.0 09-14-80 IEBCOPY NO* 00479800 //* NEWS CP TSO 292 CBT 4551 3.2 10-18-81 080 YES * 00479900 //* NEWS CP TSO 293 CBT 152 .1 11-09-80 255 NO* 00480000 //* VSAM ANALYSER 294 CBT 6187 4.2 03-25-84 080 YES * 00480100 //* PFK LOADER 295 CBT 479 .3 10-28-80 080 YES * 00480200 //* TSO MODS 296 UNKCBT 21299 . 07-05-85 080 YES * 00480300 //* XA-LSPACE VTOC 297 UNKCBT 9248 6.0 05-28-84 080 YES * 00480400 //* UCBZAP 298 UNKCBT 1201 .9 01-04-81 080 YES * 00480500 //* TAPEMAP 299 CBT 4392 3.2 10-28-84 080 YES * 00480600 //* TSO CP'S 300 CBT 151723 94.9 02-06-85 080 YES * 00480700 //* TSO CP'S 301 CBT 11186 5.6 02-15-81 080 YES * 00480800 //* UADS PASS 302 CBT 389 .2 02-15-81 080 YES * 00480900 //* #B 303 UNKCBT 2247 1.4 02-22-81 080 YES * 00481000 //* RACF/SPF 304 UNKCBT 4180 2.3 07-18-82 080 YES * 00481100 //* RMF SPLIT 305 CBT 79 .1 02-22-81 080 YES * 00481200 //* TSO-SUBSYS 306 CBT 5170 3.2 02-26-84 080 YES * 00481300 //* QUEUE CP 307 CBT 8195 5.6 05-24-81 080 YES * 00481400 //* QUEUE CP 308 CBT 8371 5.6 05-24-81 080 YES * 00481500 //* Q12 QUE 309 CBT 63 .1 05-24-81 080 YES * 00481600 //* NUSCO UT 310 UNKCBT 15666 9.7 11-27-83 080 YES * 00481700 //* NUSCO CLISTS 311 UNKCBT 1735 3.0 11-27-83 IEBCOPY NO* 00481800 //* SE SIMULATOR 312 UNKCBT 2274 1.9 12-06-81 080 YES * 00481900 //* MEMOREX MODS 313 UNKCB 109769 65.7 06-21-81 080 YES * 00482000 //* JES2 TAPE 314 N/A 5108 3.7 03-04-85 080 YES * 00482100 //* FED COMPILER 315 UNKCBT 4212 2.8 06-25-81 080 YES * 00482200 //* AIR UTILITIES 316 CBT 55853 33.3 02-06-85 080 YES * 00482300 //* STATIE USP 317 3.8 4058 2.8 11-22-81 080 YES * 00482400 //* PACKER USP 318 3.8 1493 1.4 11-22-81 080 YES * 00482500 //* SMF1415 USP 319 3.8 1535 1.4 11-22-81 080 YES * 00482600 //* DSS EXITS 320 SP13 1082 .9 03-18-84 080 YES * 00482700 //* DYN BLDL 8107 321 3.8 1100 .9 11-22-81 080 YES * 00482800 //* QUE MVS/SP 3 322 SP13 10695 7.4 11-07-82 080 YES * 00482900 //* GTE MODS 323 3.8 708 .4 09-05-82 080 YES * 00483000 //* SP3 UTIL 324 SP13 1338 .9 03-18-84 080 YES * 00483100 //* TSO CPS WELLS 325 UNKCBT 9951 6.9 10-21-84 080 YES * 00483200 //* TSO CHARG 326 UNKCBT 2557 1.9 04-30-82 080 YES * 00483300 //* TSO FLIPFLOP 327 UNKCBT 132 .1 12-30-81 080 YES * 00483400 //* PROBL MANA 328 UNKCBT 1394 1.4 12-30-81 080 YES * 00483500 //* AMDPSCAN 329 UNKCBT 7161 6.5 02-12-84 080 YES * 00483600 //* DMS SRC SP 330 UNKCBT 16373 10.6 01-03-82 080 YES * 00483700 //* DMS LOAD SP 331 UNKCBT 57 11.2 01-03-82 IEBCOPY NO* 00483800 //* AUTO SCHED 332 UNKCBT 1584 1.4 01-23-82 080 YES * 00483900 //* PTF SYSTEM 333 UNKCBT 1521 1.4 01-23-82 080 YES * 00484000 //* SAS ISOLATE 334 UNKCBT 1523 1.4 03-25-84 080 YES * 00484100 //* DYN BLDL 335 SP1.3 2237 1.9 01-02-83 080 YES * 00484200 //* RICE UTILITIES 336 UNKCBT 30469 20.8 09-16-84 080 YES * 00484300 //* #CMD-JES3 337 UNKCBT 1388 1.4 01-31-82 080 YES * 00484400 //* SPY 1.3 338 SP1.3 3084 2.3 09-05-82 080 YES * 00484500 //* JES2 #5 EXIT 339 UNKCBT 783 .4 06-17-84 080 YES * 00484600 //* TSO CMDS 340 SP1.1 1598 1.4 06-14-82 080 YES * 00484700 //* UTILITIES 341 UNKCBT 6601 3.2 09-05-82 080 YES * 00484800 //* TSO SPF 342 UNKCBT 1245 .9 04-04-82 080 YES * 00484900 //* MELLON 1.3 343 UNKCBT 437 .3 06-14-82 080 YES * 00485000 //* MELLON 1.3 344 UNKCBT 3544 2.8 10-03-82 080 YES * 00485100 //* MELLON 1.3 345 UNKCBT 53 .1 10-03-82 080 YES * 00485200 //* SPOOL X1.3 346 CBT 4314 3.2 09-19-82 080 YES * 00485300 //* VIR STOR 347 CBT 3183 2.3 11-28-82 080 YES * 00485400 //* GDG 348 UNKCBT 1515 .9 04-04-82 080 YES * 00485500 //* VTAM ATARI 349 UNKCBT 309 .2 04-30-82 080 YES * 00485600 //* CLOCK SYNC 350 UNKCBT 4479 3.2 04-30-82 080 YES * 00485700 //* LOADER ZP 351 UNKCBT 36 .0 04-30-82 080 YES * 00485800 //* INTEL MODS 352 UNKCB 122693 74.5 08-07-83 080 YES * 00485900 //* SPF PGMS 353 UNKCB 25277 14.8 06-17-84 080 YES * 00486000 //* KAISER PGM 354 UNKCB 3562 2.8 02-27-83 080 YES * 00486100 //* PASSWORD CP 355 UNKCB 5575 3.7 02-27-83 080 YES * 00486200 //* SPF/BLKSIZE 356 UNKCB 1176 .9 02-27-83 080 YES * 00486300 //* SPF/BLKSIZE 357 UNKCB 9 1.0 02-27-83 IEBCOPY NO* 00486400 //* GA PRMS 358 UNKCB 1900 9.7 02-05-84 080 YES * 00486500 //* SYNTEC PGMS 359 UNKCBT 11192 7.4 03-04-85 080 YES * 00486600 //* WSRCC 360 UNKCBT 18649 11.6 03-17-85 080 YES * 00486700 //* PDF TSO CP 361 UNKCB 395 0.2 04-17-83 080 YES * 00486800 //* IOSLOOK PG 362 CBT 822 0.9 04-17-83 080 YES * 00486900 //* CU UTIL 363 UNKCBT 13045 9.3 08-22-84 IEBCOPY NO* 00487000 //* CU JCL 364 UNKCBT 1933 1.8 08-22-84 080 YES * 00487100 //* CU SYNC 365 UNKCBT 9320 6.9 08-22-84 080 YES * 00487200 //* CU DSSP 366 UNKCBT 1372 0.9 04-17-83 080 YES * 00487300 //* CU UTILITIES 367 UNKCBT 3921 5.3 08-22-84 104 NO* 00487400 //* SYSMON 368 UNKCBT 365 .2 05-08-83 080 YES * 00487500 //* I/O COUNTS 369 UNKCBT 146 .1 05-08-83 080 YES * 00487600 //* TAPE ERASE 370 UNKCBT 421 .3 05-08-83 080 YES * 00487700 //* PDF TSO CP 371 UNKCBT 2264 1.9 05-08-83 080 YES * 00487800 //* USER MODS 372 UNKCBT 1631 1.4 06-12-83 080 YES * 00487900 //* GTE TSO CP 373 UNKCBT 4000 2.8 06-12-83 080 YES * 00488000 //* TRACE PRM 374 CBT 1577 1.4 06-12-83 080 YES * 00488100 //* TCAM Q FORMAT 375 UNKCBT 675 .9 06-12-83 080 YES * 00488200 //* RAINER MODS 376 UNKCBT 4574 3.2 01-15-84 080 YES * 00488300 //* LIBSPOOL SR 377 UNKCBT 7622 5.6 06-12-83 080 YES * 00488400 //* LIBSPOOL CL 378 UNKCBT 526 .8 06-12-83 IEBCOPY NO* 00488500 //* PROC XREF 379 CBT 3027 1.9 07-17-83 080 YES * 00488600 //* SMB ZAP 380 UNKCBT 10 .0 07-17-83 080 YES * 00488700 //* NOR UTIL 381 UNKCBT 16384 12.5 06-17-84 080 YES * 00488800 //* DLX TRANS 382 UNKCBT 1323 .9 08-07-83 080 YES * 00488900 //* INTEL INFO 383 UNKCBT 7658 11.9 08-07-83 IEBCOPY NO* 00489000 //* ISPF 384 UNKCBT 25135 17.1 02-06-85 080 YES * 00489100 //* LPA COMPARE 385 CBT 469 .3 08-28-83 080 YES * 00489200 //* ZAP MODIFY 386 UNKCBT 1844 1.4 09-25-83 080 YES * 00489300 //* CITI-TRUST 387 UNKCBT 2410 1.9 10-23-83 080 YES * 00489400 //* SCHEDULER 388 UNKCBT 8535 6.5 09-16-84 080 YES * 00489500 //* LOGSCAN 389 UNKCBT 949 .9 10-30-83 080 YES * 00489600 //* QUE 1.3.3 390 UNKCBT 8922 6.5 09-16-84 080 YES * 00489700 //* QUE OAK 1.3.0 391 UNKCBT 11389 8.3 09-25-83 080 YES * 00489800 //* QUE TEX EMP 392 UNKCBT 8898 6.5 10-23-83 080 YES * 00489900 //* QUE U FLA 393 UNKCBT 12665 9.3 03-17-85 080 YES * 00490000 //* RESERVED 394 N/A 1 .0 09-25-83 080 YES * 00490100 //* RESERVED 395 N/A 1 .0 09-25-83 080 YES * 00490200 //* RESERVED 396 N/A 1 .0 09-25-83 080 YES * 00490300 //* RESERVED 397 N/A 1 .0 09-25-83 080 YES * 00490400 //* RESERVED 398 N/A 1 .0 09-25-83 080 YES * 00490500 //* RESERVED 399 N/A 1 .0 09-25-83 080 YES * 00490600 //* DYNAMASK 400 UNKCBT 2850 2.3 06-11-85 080 YES * 00490700 //* TSSO X/A 401 UNKCBT 11185 6.9 02-17-85 080 YES * 00490800 //* DASD MAN 402 UNKCBT 16596 9.7 11-27-83 080 YES * 00490900 //* OPER ZAP 403 UNKCBT 113 .1 11-27-83 080 YES * 00491000 //* MVSMON 404 CBT 16171 9.3 01-15-84 080 YES * 00491100 //* SAFECOPY 405 UNKCBT 3402 2.3 01-15-84 080 YES * 00491200 //* CQX FIND 406 UNKCBT 801 .9 01-15-84 080 YES * 00491300 //* DYNBLDL 407 UNKCBT 4810 4.2 02-17-85 080 YES * 00491400 //* MACROS 408 UNKCBT 7495 5.1 02-17-85 080 YES * 00491500 //* #T #D 409 UNKCBT 1803 1.4 01-15-84 080 YES * 00491600 //* ISPF TSO 410 UNKCBT 381 .2 01-15-84 080 YES * 00491700 //* ISPF TSO 411 UNKCBT 556 .4 01-15-84 080 YES * 00491800 //* ISPF TSO 412 UNKCBT 473 .2 01-15-84 080 YES * 00491900 //* ISPF TSO 413 UNKCBT 60 .1 01-15-84 080 YES * 00492000 //* ISPF TSO 414 UNKCBT 18 .0 01-15-84 080 YES * 00492100 //* ISPF TSO 415 UNKCBT 945 .9 01-15-84 080 YES * 00492200 //* DELUXE PGM 416 UNKCBT 3800 2.8 03-18-84 080 YES * 00492300 //* # CMD1 XA 417 CBT XA 7546 4.6 08-22-84 080 YES * 00492400 //* XA DIDOCS 418 CBT XA 997 .9 08-22-84 080 YES * 00492500 //* XA DIDOCS 419 UNKCBT 2509 1.9 09-16-84 080 YES * 00492600 //* XA SAS PGM 420 UNKCBT 613 .4 09-16-84 080 YES * 00492700 //* XACORZAP 421 UNKCBT 4468 2.8 03-24-85 080 YES * 00492800 //* MAY & SPEH 422 UNKCBT 393 9.4 04-21-85 080 YES * 00492900 //* BROIDO CODE 423 UNKCBT 3992 . 07-05-85 080 YES * 00493000 //* EMPTY 424 UNKCBT 1 .0 09-16-84 080 YES * 00493100 //* EMPTY 425 UNKCBT 1 .0 09-16-84 080 YES * 00493200 //* EMPTY 426 UNKCBT 1 .0 09-16-84 080 YES * 00493300 //* EMPTY 427 UNKCBT 1 .0 09-16-84 080 YES * 00493400 //* EMPTY 428 UNKCBT 1 .0 09-16-84 080 YES * 00493500 //* EMPTY 429 UNKCBT 1 .0 09-16-84 080 YES * 00493600 //* EMPTY 430 UNKCBT 1 .0 09-16-84 080 YES * 00493700 //* ROCKWELL 431 UNKCBT 303 .2 02-06-85 080 YES * 00493800 //* ROCKWELL 432 UNKCBT 569 28.0 02-06-85 IEBCOPY NO* 00493900 //* ROCKWELL 433 UNKCBT 5313 4.2 02-06-85 080 YES * 00494000 //* ROCKWELL 434 UNKCBT 212 42.5 02-06-85 IEBCOPY NO* 00494100 //* ROCKWELL 435 UNKCBT 38320 25.0 02-06-85 080 YES * 00494200 //* ROCKWELL 436 UNKCBT 27606 19.4 02-06-85 080 YES * 00494300 //* ROCKWELL 437 UNKCBT149679 94.4 02-06-85 080 YES * 00494400 //* ROCKWELL 438 UNKCBT 24825 35.2 02-06-85 100 NO* 00494500 //* ROCKWELL 439 UNKCBT 5016 9.7 02-06-85 132 NO* 00494600 //* ROCKWELL 440 UNKCBT 3118 1.9 02-06-85 080 YES * 00494700 //* ROCKWELL 441 UNKCBT 13390 7.4 02-06-85 080 YES * 00494800 //* ROCKWELL 442 UNKCBT 86 9.4 02-06-85 IEBCOPY NO* 00494900 //* ROCKWELL 443 UNKCBT 182 .1 02-06-85 080 YES * 00495000 //* ROCKWELL 444 UNKCBT 231 25.1 02-06-85 IEBCOPY NO* 00495100 //* ROCKWELL 445 UNKCBT 2735 .9 02-06-85 080 NO* 00495200 //* ROCKWELL 446 UNKCBT 5106 3.7 02-06-85 080 YES * 00495300 //* ROCKWELL 447 UNKCBT 774 .9 02-06-85 080 YES * 00495400 //* ROCKWELL 448 UNKCBT 857 1.4 02-06-85 100 NO* 00495500 //* ROCKWELL 449 UNKCBT 119 .1 02-06-85 080 YES * 00495600 //* ROCKWELL 450 UNKCBT 38 .0 02-06-85 080 YES * 00495700 //* ROCKWELL 451 UNKCBT 11494 8.3 02-06-85 080 YES * 00495800 //* ROCKWELL 452 UNKCBT 3 .0 02-06-85 080 YES * 00495900 //* FORT PL1 453 UNKCBT 418 .3 02-06-85 080 YES * 00496000 //* FORT PL1 454 UNKCBT 588 63.9 02-06-85 IEBCOPY NO* 00496100 //* FORT PL1 455 UNKCBT 207 22.5 02-06-85 IEBCOPY NO* 00496200 //* 1946.4 * 00496300 //* * 00496400 //* * 00496500 //* * 00496600 //* | * 00496700 //* TOTAL 2,362,266 07-05-85 * % 00496800 //* * 00496900 //* TOTAL 2,204,618 12-09-84 * % 00497000 //* TOTAL 1,713,679 11-27-83 * % 00497100 //* TOTAL 1,428,194 12-19-82 * % 00497200 //* TOTAL 1,012,951 12-30-81 * 00497300 //* TOTAL 626,341 12-07-80 * 00497400 //* TOTAL 404,140 12-02-79 * 00497500 //* TOTAL 251,078 12-03-78 * 00497600 //* TOTAL 120,602 12-20-77 * 00497700 //* TOTAL 77,558 12-26-76 * 00497800 //* TOTAL 48,408 07-24-76 * 00497900 //* * 00498000 //***SECTION OFFLOAD SECTION * 00498100 //******************************************************************* 00498200 //* * 00498300 //* O F F L O A D S E C T I O N * 00498400 //* * 00498500 //******************************************************************* 00498600 //* * 00498700 //* SEVERAL FILES ON THIS TAPE ARE CREATED BY USING THE YALE * 00498800 //* OFFLOAD PROGRAM (FILE 225). WHEN THE OFFLOAD PROGRAM FINDS * 00498900 //* DATA RECORDS IN A PDS THAT LOOK LIKE IEBUPDTE CONTROL CARDS * 00499000 //* ( IE . './' ) IT SUBSTITUES A >< FOR AN ' ./ ' . * 00499100 //* * 00499200 //******************************************************************* 00499300 //* OFFLOAD FORMAT ---- ( ERGO ' ./ ' * 00499400 //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * 00499500 //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * 00499600 //* CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS * 00499700 //* SYSIN INPUT TO IEBUPDTE . * 00499800 //* * 00499900 //* *** FIRST TAKE THE WHOLE FILE AND IEBUPDTE IT TO A DATASET * 00500000 //* THEN EDIT EACH OF THE FOLLOWING MEMBERS AND DO YOUR * 00500100 //* GLOBAL CHANGE BEFORE YOU DO ANOTHER IEBUPDTE RUN FOR * 00500200 //* EACH OF THE FOLLOWING TO ITS OWN UNIQUE PDS . *** * 00500300 //* * 00500400 //* THE FOLLOWING FILES ARE IN IEBUPDTE SYSIN FORMAT AND MAY * 00500500 //* HAVE BEEN ACCESSED BY OFFLOAD AT ONE TIME OR ANOTHER AND * 00500600 //* HENCE MAY HAVE >< SUBSTITUED FOR AN ./ * 00500700 //* * 00500800 //* 004 * 00500900 //* 009 * 00501000 //* 011 * 00501100 //* 012 * 00501200 //* 013 * 00501300 //* 014 * 00501400 //* 017 * 00501500 //* 019 * 00501600 //* 020 * 00501700 //* 023 * 00501800 //* 025 * 00501900 //* 032 * 00502000 //* 036 * 00502100 //* 038 * 00502200 //* 039 * 00502300 //* 040 * 00502400 //* 041 * 00502500 //* 042 * 00502600 //* 045 * 00502700 //* 046 * 00502800 //* 057 * 00502900 //* 058 * 00503000 //* 060 * 00503100 //* 061 * 00503200 //* 063 * 00503300 //* 065 * 00503400 //* 066 * 00503500 //* 067 * 00503600 //* 068 * 00503700 //* 069 * 00503800 //* 072 * 00503900 //* 073 * 00504000 //* 075 * 00504100 //* 080 * 00504200 //* 087 * 00504300 //* 092 * 00504400 //* 093 * 00504500 //* 094 * 00504600 //* 100 * 00504700 //* 101 * 00504800 //* 102 * 00504900 //* 112 * 00505000 //* 113 * 00505100 //* 119 * 00505200 //* 122 * 00505300 //* 124 * 00505400 //* 127 * 00505500 //* 128 * 00505600 //* 136 * 00505700 //* 137 * 00505800 //* 139 * 00505900 //* 141 * 00506000 //* 143 * 00506100 //* 144 * 00506200 //* 145 * 00506300 //* 148 * 00506400 //* 149 * 00506500 //* 153 * 00506600 //* 158 * 00506700 //* 167 * 00506800 //* 168 * 00506900 //* 169 * 00507000 //* 170 * 00507100 //* 173 * 00507200 //* 174 * 00507300 //* 175 * 00507400 //* 182 * 00507500 //* 186 * 00507600 //* 198 * 00507700 //* 199 * 00507800 //* 200 * 00507900 //* 202 * 00508000 //* 205 * 00508100 //* 206 * 00508200 //* 207 * 00508300 //* 209 * 00508400 //* 210 * 00508500 //* 211 * 00508600 //* 212 * 00508700 //* 213 * 00508800 //* 216 * 00508900 //* 217 * 00509000 //* 218 * 00509100 //* 223 * 00509200 //* 227 * 00509300 //* 237 * 00509400 //* 241 * 00509500 //* 242 * 00509600 //* 243 * 00509700 //* 244 * 00509800 //* 253 * 00509900 //* 254 * 00510000 //* 255 * 00510100 //* 257 * 00510200 //* 258 * 00510300 //* 263 * 00510400 //* 265 * 00510500 //* 266 * 00510600 //* 270 * 00510700 //* 275 * 00510800 //* 276 * 00510900 //* 277 * 00511000 //* 278 * 00511100 //* 279 * 00511200 //* 280 * 00511300 //* 282 * 00511400 //* 284 * 00511500 //* 286 * 00511600 //* 287 * 00511700 //* 288 * 00511800 //* 289 * 00511900 //* 292 * 00512000 //* 294 * 00512100 //* 296 * 00512200 //* 297 * 00512300 //* 300 * 00512400 //* 301 * 00512500 //* 303 * 00512600 //* 304 * 00512700 //* 306 * 00512800 //* 307 * 00512900 //* 308 * 00513000 //* 310 * 00513100 //* 312 * 00513200 //* 313 * 00513300 //* 315 * 00513400 //* 316 * 00513500 //* 317 * 00513600 //* 318 * 00513700 //* 321 * 00513800 //* 322 * 00513900 //* 323 * 00514000 //* 324 * 00514100 //* 325 * 00514200 //* 326 * 00514300 //* 327 * 00514400 //* 328 * 00514500 //* 329 * 00514600 //* 330 * 00514700 //* 332 * 00514800 //* 335 * 00514900 //* 337 * 00515000 //* 338 * 00515100 //* 340 * 00515200 //* 341 * 00515300 //* 342 * 00515400 //* 346 * 00515500 //* 347 * 00515600 //* 348 * 00515700 //* 349 * 00515800 //* 350 * 00515900 //* 352 * 00516000 //* 353 * 00516100 //* 354 * 00516200 //* 355 * 00516300 //* 356 * 00516400 //* 359 * 00516500 //* 360 * 00516600 //* 363 * 00516700 //* 364 * 00516800 //* 365 * 00516900 //* 366 * 00517000 //* 377 * 00517100 //* 381 * 00517200 //* 382 * 00517300 //* 383 * 00517400 //* 384 * 00517500 //* 386 * 00517600 //* 387 * 00517700 //* 388 * 00517800 //* 389 * 00517900 //* 390 * 00518000 //* 391 * 00518100 //* 392 * 00518200 //* 393 * 00518300 //* 394 * 00518400 //* 400 * 00518500 //* 401 * 00518600 //* 402 * 00518700 //* 404 * 00518800 //* 405 * 00518900 //* 406 * 00519000 //* 407 * 00519100 //* 408 * 00519200 //* 409 * 00519300 //* 410 * 00519400 //* 411 * 00519500 //* 412 * 00519600 //* 413 * 00519700 //* 414 * 00519800 //* 415 * 00519900 //* 416 * 00520000 //* 417 * 00520100 //* 418 * 00520200 //* 419 * 00520300 //* 420 * 00520400 //* 421 * 00520500 //* 422 * 00520600 //* 423 * 00520700 //* * 00520800 //***SECTION EMPTY FILE SECTION * 00520900 //******************************************************************* 00521000 //* * 00521100 //* E M P T Y F I L E S E C T I O N * 00521200 //* * 00521300 //* * 00521400 //******************************************************************* 00521500 //* * 00521600 //* THE FOLLOWING FILES ARE CURRENTLY EMPTY * 00521700 //* * 00521800 //* 394-399 RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 00521900 //* 424 * 00522000 //* 425 * 00522100 //* 426 * 00522200 //* 427 * 00522300 //* 428 * 00522400 //* 429 * 00522500 //* 430 * 00522600 //* 456 * 00522700 //* 457 * 00522800 //* 458 * 00522900 //* 459 * 00523000 //* 460 * 00523100 //* * 00523200 //***SECTION JES2 QUE COMMANDS QUEUE Q * 00523300 //******************************************************************* 00523400 //* * 00523500 //* J E S 2 Q U E T S O C O M M A N D S * 00523600 //* * 00523700 //******************************************************************* 00523800 //* * 00523900 //* IN THIS SECTION I WILL ATTEMPT TO DOCUMENT ALL THE TSO QUE * 00524000 //* COMMANDS THAT ARE BURIED IN VARIOUS PLACES ON THIS TAPE * 00524100 //* * 00524200 //* ** I KNOW I DO NOT HAVE ALL OF THEM DOCUMENTED YET - WHEN I ** * 00524300 //* ** THINK I DO I WILL REMOVE THIS TWO LINE COMMENT, ARNIE ** * 00524400 //* * 00524500 //* ** IF A VERSION OF QUE WILL RUN WITH JES2 1.3.3 IT WILL BE * 00524600 //* ** NOTED THAT IS DOES - IF NOT , NO COMMENT TO THE CONTRARY * 00524700 //* * 00524800 //* FILE LEVEL COMPANY AND DOCUMENTATION * 00524900 //* * 00525000 //* 148 JES2 1.3.0 ANR FROM HOUTSON, TEXAS . THIS IS FOR * 00525100 //* JES2 1.3.0 . THIS VERSION USES EXCP * 00525200 //* * 00525300 //* 352 JES2 1.3.0 INTEL FROM SAN JOSE , CALIFORNIA . THIS * 00525400 //* VERSION OF QUE HAS THE LANE BRYANT MODS * 00525500 //* INCORPORATED INTO IT * 00525600 //* * 00525700 //* 390 JES2 1.3.3 ANR FROM HOUSTON, TEXAS THIS IS THE 1ST * 00525800 //* VERSION I RECEIVED THAT WILL RUN UNDER * 00525900 //* JES2.1.3.3 . THIS VERSION USES EXCP * 00526000 //* * 00526100 //* 391 JES2 1.3.0 OAK RIDGE NATIONAL LABORATORY FROM * 00526200 //* OAK RIDGE , TENN . THIS VERSION HAS ALL * 00526300 //* THE SECURITY CHECKS MOVED TO A NEW * 00526400 //* AND SEPARATE CSECT * 00526500 //* * 00526600 //* 392 JES2 1.3.3 TEXAS EMPLOYMENT COMMISSION . THIS * 00526700 //* VERSION RUNS UNDER JES2 1.3.3 * 00526800 //* * 00526900 //* 393 JES2 1.3.3 NERDC - UNIVERSITY OF FLORIDA , MR JACK * 00527000 //* 1.3.4 SCHUDEL - THIS VERSION RUNS UNDER * 00527100 //* JES2 1.3.3 AND JES2 1.3.4 * 00527200 //* * 00527300 //* * 00527400 //* * 00527500 //***SECTION PUT TAPE CHANGES * 00527600 //******************************************************************* 00527700 //* * 00527800 //* P U T - T A P E C H A N G E S * 00527900 //* * 00528000 //******************************************************************* 00528100 //* * 00528200 //* THE FOLLOWING PUT TAPES HAD THE FOLLOWING EFFECTS . ( EITHER * 00528300 //* WE AT CBT HAD THE PROBLEM OR SOMEONE ELSE DID AND TOLD US ) * 00528400 //* * 00528500 //* PUT 8105 - AFTER THE INSTALL OF UZ35143 UZ35144 OR UZ35145 * 00528600 //* YOU WILL LOSE YOUR SYSTEM IF YOU TRY TO ISSUE * 00528700 //* CERTAIN # ( CMD1 ) COMMANDS . THE CIRCUMVENTION IS 00528800 //* NOT TO APPLY THE ABOVE PTFS . IF YOU HAVE HOWEVER * 00528900 //* THE PE CORRECTION IS AZ55724 . THE BEST THING TO * 00529000 //* DO IS USE THE CORRECT VERSION OF THE CMD1 CODE * 00529100 //* WHICH IS CURRENTLY ON THIS TAPE . * 00529200 //* * 00529300 //* PUT 8107 - AFTER THE INSTALL OF THE JES2 LEVEL SET ON THIS * 00529400 //* TAPE YOU MAY FIND THE THE XI COMMAND OF QUE DOES * 00529500 //* NOT WORK . THE CORRECTION IS TO RE-COMPILE QUE . * 00529600 //* * 00529700 //* * 00529800 //* PUT8107-8111-AFTER THIS INSTALL WITH PTF UZ32172 ( OZ51339 ) * 00529900 //* THE ATTACHING OF THE TMP ( IKJEFT01 ) UNDER THE * 00530000 //* TMP NO LONGER WORKS CORRECTLY * 00530100 //* * 00530200 //* PUT8201 - AFTER UZ53655 OR UZ53655 ABEND WITH THE CONSOLE * 00530300 //* ROLL ZAP FOR MVS/SP1.*. SEE FILES 133 AND/OR 324 * 00530400 //* FOR THE ZAP TO REMOVE THE CODE PUT ON BY THE * 00530500 //* PTF(S) * 00530600 //* UZ53655 FOR MVS/SP1.1 * 00530700 //* UZ53656 FOR MVS/SP1.3 * 00530800 //* * 00530900 //***SECTION VERSION SECTION * 00531000 //******************************************************************* 00531100 //* * 00531200 //* V E R S I O N S E C T I O N * 00531300 //* * 00531400 //******************************************************************* 00531500 //* * 00531600 //* DATE OF CHANGES TO THE MODS * 00531700 //* * 00531800 //* * 00531900 //* YR VERS SHP VERSION DATE # SHIPPED # REC # FILES * 00532000 //* * 00532100 //* 1975 VERSION OCT 10, 1975 * 00532200 //* VERSION 000 * 00532300 //* VERSION 001 * 00532400 //* VERSION 002 * 00532500 //* VERSION 003 * 00532600 //* VERSION 004 NOV 18, 1975 * 00532700 //* VERSION 005 * 00532800 //* VERSION 006 * 00532900 //* VERSION 007 * 00533000 //* VERSION 008 * 00533100 //* VERSION 009 * 00533200 //* VERSION 010 * 00533300 //* VERSION 011 * 00533400 //* VERSION 012 * 00533500 //* VERSION 013 * 00533600 //* VERSION 014 * 00533700 //* VERSION 015 * 00533800 //* VERSION 016 * 00533900 //* VERSION 017 * 00534000 //* 020-016 VERSION 018 * 00534100 //* * 00534200 //* 1976 VERSION 019 FEB 02, 1976 09 * 00534300 //* VERSION 020 MAR 03, 1976 00 069 * 00534400 //* VERSION 021 MAR 04, 1976 04 069 * 00534500 //* VERSION 022 MAR 08, 1976 06 069 * 00534600 //* VERSION 023 MAR 10, 1976 04 069 * 00534700 //* VERSION 024 MAR 11, 1976 05 070 * 00534800 //* VERSION 025 MAR 16, 1976 08 072 * 00534900 //* VERSION 026 MAR 17, 1976 06 072 * 00535000 //* VERSION 027 MAR 19, 1976 10 072 * 00535100 //* VERSION 028 MAR 27, 1976 11 072 * 00535200 //* VERSION 029 APR 05, 1976 07 072 * 00535300 //* VERSION 030 APR 14, 1976 01 072 * 00535400 //* VERSION 031 APR 19, 1976 07 073 * 00535500 //* VERSION 032 APR 28, 1976 02 073 * 00535600 //* VERSION 033 APR 30, 1976 01 073 * 00535700 //* VERSION 034 MAY 11, 1976 03 078 * 00535800 //* VERSION 035 MAY 20, 1976 01 078 * 00535900 //* VERSION 036 MAY 24, 1976 07 078 * 00536000 //* VERSION 037 JUN 01, 1976 01 078 * 00536100 //* VERSION 038 JUN 02, 1976 02 078 * 00536200 //* VERSION 039 JUN 03, 1976 00 080 * 00536300 //* VERSION 040 JUN 14, 1976 11 080 * 00536400 //* VERSION 041 JUL 24, 1976 01 48,408 080 * 00536500 //* VERSION 042 AUG 06, 1976 04 080 * 00536600 //* VERSION 043 AUG 13, 1976 06 080 * 00536700 //* VERSION 044 SEP 03, 1976 22 080 * 00536800 //* VERSION 045 OCT 19, 1976 01 091 * 00536900 //* VERSION 046 OCT 22, 1976 00 108 * 00537000 //* VERSION 047 NOV 04, 1976 00 108 * 00537100 //* VERSION 048 NOV 06, 1976 00 109 * 00537200 //* VERSION 049 NOV 07, 1976 06 111 * 00537300 //* VERSION 050 NOV 28, 1976 16 115 * 00537400 //* VERSION 051 DEC 19, 1976 00 116 * 00537500 //* 034-164 VERSION 052 DEC 26, 1976 02 77,558 116 * 00537600 //* * 00537700 //* 1977 VERSION 053 FEB 20, 1977 07 122 * 00537800 //* VERSION 054 FEB 21, 1977 03 126 * 00537900 //* VERSION 055 FEB 23, 1977 02 126 * 00538000 //* VERSION 056 APR 03, 1977 33 136 * 00538100 //* VERSION 057 APR 17, 1977 10 139 * 00538200 //* VERSION 058 APR 19, 1977 00 139 * 00538300 //* VERSION 059 MAY 01, 1977 09 87,889 140 * 00538400 //* VERSION 060 MAY 03, 1977 12 141 * 00538500 //* VERSION 061 JUN 05, 1977 10 145 * 00538600 //* VERSION 062 JUN 15, 1977 02 147 * 00538700 //* VERSION 063 JUN 20, 1977 03 147 * 00538800 //* VERSION 064 JUN 26, 1977 00 147 * 00538900 //* VERSION 065 JUN 27, 1977 03 147 * 00539000 //* VERSION 066 JUN 28, 1977 00 147 * 00539100 //* VERSION 067 JUL 05, 1977 06 154 * 00539200 //* VERSION 068 JUL 24, 1977 08 106,689 157 * 00539300 //* VERSION 069 AUG 02, 1977 00 157 * 00539400 //* VERSION 070 SEP 08, 1977 00 174 * 00539500 //* VERSION 071 SEP 11, 1977 00 174 * 00539600 //* VERSION 072 SEP 14, 1977 114 110,718 174 * 00539700 //* VERSION 073 SEP 21, 1977 01 110,733 174 * 00539800 //* VERSION 074 DEC 01, 1977 11 111,452 177 * 00539900 //* VERSION 075 DEC 14, 1977 08 114,778 180 * 00540000 //* 024-243 VERSION 076 DEC 20, 1977 01 120,602 185 * 00540100 //* * 00540200 //* 1978 VERSION 077 JAN 01, 1978 00 189 * 00540300 //* VERSION 078 JAN 04, 1978 09 126,806 190 * 00540400 //* VERSION 079 JAN 05, 1978 00 126,821 190 * 00540500 //* VERSION 080 JAN 15, 1978 10 129,065 193 * 00540600 //* VERSION 081 FEB 01, 1978 03 131,599 197 * 00540700 //* VERSION 081+ FEB 15, 1978 16 138,782 197 * 00540800 //* VERSION 082 FEB 20, 1978 07 139,248 200 * 00540900 //* VERSION 083 FEB 25, 1978 00 139,248 201 * 00541000 //* VERSION 084 MAR 16, 1978 00 177,340 211 * 00541100 //* VERSION 085 APR 01, 1978 96 177,351 211 * 00541200 //* VERSION 086 MAY 21, 1978 00 197,635 224 * 00541300 //* VERSION 087 MAY 23, 1978 07 200,921 227 * 00541400 //* VERSION 088 MAY 24, 1978 00 201,347 227 * 00541500 //* VERSION 089 JUN 04, 1978 00 201,444 228 * 00541600 //* VERSION 090 JUN 05, 1978 11 202,412 228 * 00541700 //* VERSION 091 JUN 18, 1978 05 202,471 228 * 00541800 //* VERSION 092 JUL 23, 1978 00 212,499 234 * 00541900 //* VERSION 093 JUL 24, 1978 00 213,577 235 * 00542000 //* VERSION 094 JUL 25, 1978 00 213,589 235 * 00542100 //* VERSION 095 JUL 26, 1978 03 213,305 235 * 00542200 //* VERSION 096 JUL 30, 1978 03 213,423 236 * 00542300 //* VERSION 097 AUG 02, 1978 01 219,952 238 * 00542400 //* VERSION 098 AUG 05, 1978 00 220,691 239 * 00542500 //* VERSION 099 AUG 10, 1978 01 220,712 239 * 00542600 //* VERSION 100 AUG 13, 1978 00 289,895 245 * 00542700 //* VERSION 101 AUG 14, 1978 02 225,576 245 * 00542800 //* VERSION 101+ AUG 20, 1978 04 225,576 245 * 00542900 //* VERSION 102 AUG 27, 1978 13 245,544 256 * 00543000 //* VERSION 103 SEP 10, 1978 29 250,372 258 * 00543100 //* VERSION 104 OCT 01, 1978 19 254,878 259 * 00543200 //* VERSION 105 OCT 15, 1978 04 257,955 260 * 00543300 //* VERSION 106 OCT 24, 1978 04 258,350 262 * 00543400 //* VERSION 107 OCT 25, 1978 08 258,356 262 * 00543500 //* VERSION 108 NOV 05, 1978 17 260,405 264 * 00543600 //* 035-283 VERSION 109 DEC 03, 1978 11 251,078 265 * 00543700 //* * 00543800 //* 1979 VERSION 110 JAN 07, 1979 14 247,257 265 * 00543900 //* VERSION 110+ FEB 01, 1979 03 257,579 266 * 00544000 //* VERSION 111 FEB 08, 1979 00 254,354 269 * 00544100 //* VERSION 112 FEB 11, 1979 07 2XX,XXX 269 * 00544200 //* VERSION 113 FEB 25, 1979 05 255,461 275 * 00544300 //* VERSION 114 MAR 07, 1979 02 260,163 277 * 00544400 //* VERSION 115 MAR 11, 1979 17 260,205 277 * 00544500 //* VERSION 116 APR 01, 1979 00 310,146 277 * 00544600 //* VERSION 117 APR 15, 1979 13 310,146 277 * 00544700 //* VERSION 118 APR 16, 1979 12 316,975 277 * 00544800 //* VERSION 119 MAY 01, 1979 03 331,777 277 * 00544900 //* VERSION 120 MAY 21, 1979 41 332,310 277 * 00545000 //* VERSION 121 JUN 19, 1979 05 353,454 277 * 00545100 //* VERSION 122 JUN 24, 1979 00 359,599 277 * 00545200 //* VERSION 123 JUL 01, 1979 09 364,884 277 * 00545300 //* VERSION 124 JUL 31, 1979 17 367,309 277 * 00545400 //* VERSION 125 SEP 18, 1979 16 389,071 277 * 00545500 //* VERSION 126 SEP 24, 1979 00 389,282 277 * 00545600 //* VERSION 127 SEP 25, 1979 00 389,323 277 * 00545700 //* VERSION 128 OCT 01, 1979 17 391,971 277 * 00545800 //* VERSION 129 OCT 14, 1979 41 395,790 278 * 00545900 //* VERSION 130 NOV 22, 1979 00 396,775 278 * 00546000 //* VERSION 131 DEC 02, 1979 11 404,140 278 * 00546100 //* 024-259 VERSION 132 DEC 16, 1979 26 406,153 278 * 00546200 //* * 00546300 //* 1980 VERSION 133 JAN 02, 1980 13 408,340 278 * 00546400 //* VERSION 134 JAN 20, 1980 09 408,779 278 * 00546500 //* VERSION 135 JAN 27, 1980 00 413,932 278 * 00546600 //* VERSION 136 FEB 03, 1980 19 415,597 278 * 00546700 //* VERSION 137 FEB 10, 1980 07 415,957 278 * 00546800 //* VERSION 138 MAR 09, 1980 21 415,988 278 * 00546900 //* VERSION 139 MAR 20, 1980 47 424,204 278 * 00547000 //* VERSION 140 APR 07, 1980 03 431,674 278 * 00547100 //* VERSION 141 APR 10, 1980 36 444,988 278 * 00547200 //* VERSION 142 MAY 07, 1980 39 483,649 278 * 00547300 //* VERSION 143 MAY 29, 1980 14 487,078 278 * 00547400 //* VERSION 144 JUN 16, 1980 12 490,679 278 * 00547500 //* VERSION 145 JUN 17, 1980 04 500,432 278 * 00547600 //* VERSION 146 JUN 24, 1980 05 548,731 278 * 00547700 //* VERSION 147 JUN 29, 1980 33 569,660 278 * 00547800 //* VERSION 148 JUL 20, 1980 00 569,582 278 * 00547900 //* VERSION 149 AUG 03, 1980 16 569,670 278 * 00548000 //* VERSION 150 AUG 24, 1980 07 578,247 278 * 00548100 //* VERSION 151 AUG 27, 1980 00 584,275 278 * 00548200 //* VERSION 152 AUG 28, 1980 05 584,447 278 * 00548300 //* VERSION 153 SEP 01, 1980 02 589,685 278 * 00548400 //* VERSION 154 SEP 02, 1980 06 590,756 278 * 00548500 //* VERSION 155 SEP 14, 1980 37 604,309 291 * 00548600 //* VERSION 156 SEP 28, 1980 19 605,574 293 * 00548700 //* VERSION 157 OCT 12, 1980 07 615,939 293 * 00548800 //* VERSION 158 OCT 21, 1980 13 617,928 294 * 00548900 //* VERSION 158+ OCT 26, 1980 07 617,928 294 * 00549000 //* VERSION 159 OCT 28, 1980 11 618,562 295 * 00549100 //* VERSION 160 NOV 09, 1980 07 625,595 295 * 00549200 //* VERSION 161 NOV 26, 1980 21 625,608 295 * 00549300 //* VERSION 162 DEC 07, 1980 03 626,341 295 * 00549400 //* VERSION 163 DEC 14, 1980 13 628,213 296 * 00549500 //* VERSION 164 DEC 28, 1980 03 630,233 297 * 00549600 //* 034-439 VERSION 165 DEC 30, 1980 00 630,242 297 * 00549700 //* * 00549800 //* 1981 03 VERSION 166 JAN 04, 1981 03 631,602 298 * 00549900 //* 15 VERSION 167 JAN 18, 1981 12 631,602 298 * 00550000 //* 23 VERSION 168 FEB 02, 1981 08 631,639 299 * 00550100 //* 53 VERSION 169 FEB 15, 1981 30 685,902 302 * 00550200 //* 99 VERSION 170 MAR 22, 1981 46 689,916 305 * 00550300 //* 115 VERSION 171 APR 12, 1981 16 716,898 306 * 00550400 //* 153 VERSION 171+ APR 15, 1981 38 733,464 308 * 00550500 //* 185 VERSION 172 MAY 24, 1981 32 789,586 312 * 00550600 //* 198 VERSION 173 JUN 21, 1981 13 915,990 314 * 00550700 //* 209 VERSION 174 JUN 26, 1981 11 916,656 315 * 00550800 //* 212 VERSION 175 JUL 19, 1981 03 916,812 315 * 00550900 //* 222 VERSION 175+ AUG 05, 1981 10 916,812 317 * 00551000 //* 225 VERSION 176 AUG 11, 1981 03 918,405 315 * 00551100 //* 241 VERSION 177 AUG 30, 1981 16 928,767 315 * 00551200 //* 258 VERSION 178 SEP 06, 1981 17 924,835 315 * 00551300 //* 271 VERSION 179 SEP 20, 1981 13 926,799 315 * 00551400 //* 297 VERSION 180 SEP 27, 1981 26 964,027 316 * 00551500 //* 332 VERSION 181 OCT 18, 1981 35 969,358 316 * 00551600 //* ROG 364 VERSION 182 NOV 22, 1981 32 995,358 323 * 00551700 //* 364 VERSION 183 DEC 06, 1981 19 1,002,404 325 * 00551800 //* 383 VERSION 184 DEC 30, 1981 00 1,012,951 329 * 00551900 //* 021-383 * 00552000 //* * 00552100 //* 1982 07 VERSION 185 JAN 03, 1982 07 1,030,288 331 * 00552200 //* 23 VERSION 186 JAN 10, 1982 16 1,030,314 331 * 00552300 //* 38 VERSION 187 JAN 23, 1982 15 1,034,508 334 * 00552400 //* ROG 65 VERSION 188 JAN 31, 1982 27 1,040,740 337 * 00552500 //* 85 VERSION 189 FEB 21, 1982 20 1,044,036 339 * 00552600 //* 173 VERSION 190 APR 04, 1982 88 1,141,894 348 * 00552700 //* 247 VERSION 191 APR 30, 1982 74 1,169,738 352 * 00552800 //* 267 VERSION 192 JUN 14, 1982 20 1,185,004 352 * 00552900 //* 283 VERSION 193 JUN 20, 1982 16 1,183,435 352 * 00553000 //* 312 VERSION 194 JUN 27, 1982 29 1,192,797 352 * 00553100 //* 317 VERSION 195 JUL 11, 1982 05 1,191,719 352 * 00553200 //* 370 VERSION 196 JUL 18, 1982 53 1,205,417 352 * 00553300 //* 392 VERSION 197 SEP 05, 1982 22 1,266,168 352 * 00553400 //* 402 VERSION 198 SEP 12, 1982 10 1,262,387 352 * 00553500 //* ROG 426 VERSION 199 SEP 19, 1982 24 1,377,023 353 * 00553600 //* 441 VERSION 200 SEP 26, 1982 15 1,378,146 353 * 00553700 //* 454 VERSION 201 OCT 03, 1982 13 1,XXX,XXX 353 * 00553800 //* 499 VERSION 202 OCT 06, 1982 45 1,XXX,XXX 353 * 00553900 //* 508 VERSION 203 NOV 07, 1982 09 1,405,442 353 * 00554000 //* 527 VERSION 204 NOV 14, 1982 19 1,414,770 353 * 00554100 //* 537 VERSION 205 NOV 21, 1982 10 1,414,905 353 * 00554200 //* 551 VERSION 206 NOV 28, 1982 14 1,419,417 353 * 00554300 //* 579 VERSION 207 DEC 05, 1982 28 1,424,231 353 * 00554400 //* 596 VERSION 208 DEC 19, 1982 17 1,428,194 353 * 00554500 //* 024-596 * 00554600 //* * 00554700 //* 1983 28 VERSION 209 JAN 02, 1983 28 1,429,259 353 * 00554800 //* 71 VERSION 210 JAN 23, 1983 43 1,452,562 353 * 00554900 //* 101 VERSION 211 FEB 27, 1983 30 1,470,432 358 * 00555000 //* ROG 115 VERSION 212 MAR 14, 1983 14 1,473,032 358 * 00555100 //* 179 VERSION 213 MAR 20, 1983 64 1,484,579 361 * 00555200 //* 209 VERSION 214 APR 17, 1983 30 1,513,139 367 * 00555300 //* 254 VERSION 215 MAY 08, 1983 45 1,517,436 371 * 00555400 //* 295 VERSION 216 JUN 12, 1983 41 1,537,647 378 * 00555500 //* 326 VERSION 217 JUL 17, 1983 31 1,538,287 380 * 00555600 //* 337 VERSION 218 AUG 07, 1983 11 1,573,518 383 * 00555700 //* 401 VERSION 219 AUG 28, 1983 64 1,661,704 400 * 00555800 //* 450 VERSION 220 SEP 25, 1983 49 1,672,200 400 * 00555900 //* 466 VERSION 221 OCT 23, 1983 16 1,672,200 400 * 00556000 //* 476 VERSION 222 OCT 30, 1983 10 1,686,328 400 * 00556100 //* 492 VERSION 222+ NOV 09, 1983 16 1,686,328 400 * 00556200 //* 532 VERSION 223 NOV 27, 1983 45 1,713,679 405 * 00556300 //* 016-532 * 00556400 //* * 00556500 //* 1984 19 ROG VERSION 223 NOV 27, 1983 19 1,713,679 405 * 00556600 //* 55 VERSION 224 JAN 15, 1984 36 1,752,647 418 * 00556700 //* 70 VERSION 225 FEB 05, 1984 15 1,757,472 418 * 00556800 //* 90 VERSION 226 FEB 12, 1984 20 1,768,088 418 * 00556900 //* 98 VERSION 227 FEB 26, 1984 08 1,770,664 418 * 00557000 //* 135 VERSION 228 MAR 18, 1984 37 1,758,483 418 * 00557100 //* 183 VERSION 229 MAR 25, 1984 48 1,773,297 418 * 00557200 //* 221 VERSION 230 APR 15, 1984 38 1,783,037 418 * 00557300 //* 268 VERSION 230+ MAY 15, 1984 47 1,783,037 419 * 00557400 //* 282 VERSION 231 MAY 28, 1984 14 1,793,166 418 * 00557500 //* SAM 346 VERSION 232 JUN 17, 1984 60 1,831,383 418 * 00557600 //* 367 VERSION 233 AUG 22, 1984 21 1,908,542 418 * 00557700 //* 407 VERSION 234 AUG 28, 1984 40 1,913,447 418 * 00557800 //* 457 VERSION 235 SEP 16, 1984 50 1,943,866 429 * 00557900 //* 471 VERSION 236 OCT 21, 1984 14 1,940,280 429 * 00558000 //* 483 VERSION 237 OCT 28, 1984 12 1,940,602 429 * 00558100 //* 500 VERSION 238 NOV 04, 1984 17 1,940,592 429 * 00558200 //* 531 VERSION 239 NOV 18, 1984 31 1,941,132 429 * 00558300 //* 557 VERSION 240 DEC 09, 1984 26 2,204,618 460 * 00558400 //* 018-557 * 00558500 //* * 00558600 //* * 00558700 //* 1985 26 VERSION 241 JAN 01, 1985 26 2,204.618 460 * 00558800 //* SAM 58 VERSION 242 FEB 06, 1985 32 2,292,603 460 * 00558900 //* 71 VERSION 243 FEB 17, 1985 13 2,298,705 460 * 00559000 //* 108 VERSION 244 MAR 04, 1985 37 2,310,454 460 * 00559100 //* 133 VERSION 245 MAR 17, 1985 25 2,332,123 460 * 00559200 //* 201 VERSION 246 MAR 24, 1985 68 2,338,406 460 * 00559300 //* 275 VERSION 247 APR 21, 1985 74 2,338,839 460 * 00559400 //* 317 VERSION 248 JUN 11, 1985 42 2,338,879 460 * 00559500 //* VERSION 248 JUL 05, 1985 - 2,362,266 460 * 00559600 //* VERSION 249 ? - , , * 00559700 //* VERSION 250 ? - , , * 00559800 //* VERSION 251 ? - , , * 00559900 //* VERSION 252 ? - , , * 00560000 //* VERSION 253 ? - , , * 00560100 //* VERSION 254 ? - , , * 00560200 //* VERSION 255 ? - , , * 00560300 //* 3772 * 00560400 //***SECTION INFORMATION SECTION 00560500 //******************************************************************* 00560600 //*| * 00560700 //*| I N F O R M A T I O N S E C T I O N * 00560800 //*| * 00560900 //******************************************************************* 00561000 //*| THE FOLLOWING SECTION WILL ADD SOME ADDITIONAL INFO ABOUT * 00561100 //*| EACH FILE ( KEPT RELATIVELY UP TO DATE ) * 00561200 //*| * 00561300 //*| TYPE LANGUAGE * 00561400 //*| 1 SYSTEM MODIFICATION A ASSEMBLER * 00561500 //*| 2 SYSTEM EXIT C COBOL * 00561600 //*| 3 SMF EXIT D DATA * 00561700 //*| 4 JES2 MODIFICATION F FORTRAN * 00561800 //*| 5 SERIES OF COMPANY MODS J JCL * 00561900 //*| 6 IBM SERVICE AIDS LM LOAD MODULE * 00562000 //*| 7 JES3 MODIFICATION M MACRO * 00562100 //*| 8 JES2 EXIT O OBJECT * 00562200 //*| 9 - PF PL/I F * 00562300 //*| 0 OTHER ( RELEASE PO PL/I OPTIMIZER * 00562400 //*| INDEPENDENT ) S SAS * 00562500 //*| T TSO CLIST * 00562600 //*| Z ZAP * 00562700 //*| H TSO HELP * 00562800 //*| SP SPF RELEATED * 00562900 //*| * 00563000 //*| TYPE LANGUAGE * 00563100 //*| 001 0 J * 00563200 //*| 002 0 A * 00563300 //*| 003 0 A J D * 00563400 //*| 004 0 A J D * 00563500 //*| 005 0 D * 00563600 //*| 006 0 A * 00563700 //*| 007 3 A * 00563800 //*| 008 0 D * 00563900 //*| 009 0 A * 00564000 //*| 010 1 D * 00564100 //*| 011 1 D A J Z M * 00564200 //*| 012 O A D J SP * 00564300 //*| 013 1 A J M D * 00564400 //*| 014 1 A D M Z * 00564500 //*| 015 1 A D T * 00564600 //*| 016 1 A * 00564700 //*| 017 1 A D J M * 00564800 //*| 018 0 D * 00564900 //*| 019 0 A D M J * 00565000 //*| 020 0 A H * 00565100 //*| 021 6 J D Z * 00565200 //*| 022 6 D * 00565300 //*| 023 6 A D J M * 00565400 //*| 024 6 LM * 00565500 //*| 025 6 A D J M * 00565600 //*| 026 6 LM * 00565700 //*| 027 6 A * 00565800 //*| 028 0 A * 00565900 //*| 029 0 A * 00566000 //*| 030 0 A * 00566100 //*| 031 0 A * 00566200 //*| 032 012 A D Z * 00566300 //*| 033 2 A D J * 00566400 //*| 034 0 A F J M * 00566500 //*| 035 0 LM * 00566600 //*| 036 02 D O Z * 00566700 //*| 037 0 D A * 00566800 //*| 038 0 D A T * 00566900 //*| 039 0 A D M T H Z * 00567000 //*| 040 0 S D * 00567100 //*| 041 0 A * 00567200 //*| 042 02 A D M * 00567300 //*| 043 0 D * 00567400 //*| 044 0 T * 00567500 //*| 045 0 A D J * 00567600 //*| 046 0 A * 00567700 //*| 047 0 D * 00567800 //*| 048 0 A * 00567900 //*| 049 0 A * 00568000 //*| 050 0 A * 00568100 //*| 051 0 D * 00568200 //*| 052 0 D * 00568300 //*| 053 0 A * 00568400 //*| 054 0 Z * 00568500 //*| 055 0 A * 00568600 //*| 056 0 A * 00568700 //*| 057 0 A B D T H * 00568800 //*| 058 0 A D M T H Z * 00568900 //*| 059 0 D * 00569000 //*| 060 0 A * 00569100 //*| 061 0 M * 00569200 //*| 062 0 D * 00569300 //*| 063 0 O * 00569400 //*| 064 0 LM * 00569500 //*| 065 013 A D J * 00569600 //*| 066 0 A D J * 00569700 //*| 067 0 A J * 00569800 //*| 068 1 A D J * 00569900 //*| 069 10 Z H D * 00570000 //*| 070 5 Z * 00570100 //*| 071 5 Z * 00570200 //*| 072 5 Z * 00570300 //*| 073 0 A PO * 00570400 //*| 074 0 D * 00570500 //*| 075 0 A H * 00570600 //*| 076 0 A * 00570700 //*| 077 0 D * 00570800 //*| 078 0 O * 00570900 //*| 079 0 Z * 00571000 //*| 080 01 D A J Z * 00571100 //*| 081 0 A * 00571200 //*| 082 0 D * 00571300 //*| 083 0 Z * 00571400 //*| 084 0 O * 00571500 //*| 085 0 O * 00571600 //*| 086 0 O * 00571700 //*| 087 0 A M * 00571800 //*| 088 0 A M * 00571900 //*| 089 0 A * 00572000 //*| 090 0 D * 00572100 //*| 091 0 Z M A D * 00572200 //*| 092 0 A D * 00572300 //*| 093 0 F D * 00572400 //*| 094 0 J * 00572500 //*| 095 0 D * 00572600 //*| 096 0 D * 00572700 //*| 097 0 D * 00572800 //*| 098 - * 00572900 //*| 099 - * 00573000 //*| 100 0 SPF D * 00573100 //*| 101 0 SPF D * 00573200 //*| 102 0 A H * 00573300 //*| 103 0 PO * 00573400 //*| 104 0 D * 00573500 //*| 105 0 A * 00573600 //*| 106 0 A * 00573700 //*| 107 0 A * 00573800 //*| 108 0 A * 00573900 //*| 109 0 A * 00574000 //*| 110 2 A * 00574100 //*| 111 0 D * 00574200 //*| 112 0 AD * 00574300 //*| 113 0 A * 00574400 //*| 114 0 D * 00574500 //*| 115 140 A D J * 00574600 //*| 116 0 A * 00574700 //*| 117 0 Z * 00574800 //*| 118 0 A D J * 00574900 //*| 119 5 Z * 00575000 //*| 120 4 D * 00575100 //*| 121 0 D * 00575200 //*| 122 0 D A M H * 00575300 //*| 123 0 D * 00575400 //*| 124 0 D A * 00575500 //*| 125 0 D * 00575600 //*| 126 0 A * 00575700 //*| 127 0 A D M J * 00575800 //*| 128 0 A F PO * 00575900 //*| 129 1 Z * 00576000 //*| 130 0 D * 00576100 //*| 131 0 O * 00576200 //*| 132 0 A * 00576300 //*| 133 1 Z * 00576400 //*| 134 1 Z * 00576500 //*| 135 1 Z * 00576600 //*| 136 0 A D T H * 00576700 //*| 137 0 A M * 00576800 //*| 138 5 Z * 00576900 //*| 139 0 A M PO S * 00577000 //*| 140 0 A * 00577100 //*| 141 0 A D M H * 00577200 //*| 142 0 A * 00577300 //*| 143 * 00577400 //*| 144 0 A D J H * 00577500 //*| 145 013 A L D * 00577600 //*| 146 0 A * 00577700 //*| 147 0 A * 00577800 //*| 148 0 A J M H * 00577900 //*| 149 0 A D J M PO H * 00578000 //*| 150 0 A * 00578100 //*| 151 0 A * 00578200 //*| 152 0 A * 00578300 //*| 153 0 A D J H * 00578400 //*| 154 0 A * 00578500 //*| 155 0 D * 00578600 //*| 156 0 A * 00578700 //*| 157 0 D * 00578800 //*| 158 0 A D M H J * 00578900 //*| 159 0 A * 00579000 //*| 160 0 A D J M H * 00579100 //*| 161 0 A D T SP * 00579200 //*| 162 0 A D * 00579300 //*| 163 0 Z A * 00579400 //*| 164 0 A * 00579500 //*| 165 0 A * 00579600 //*| 166 0 A * 00579700 //*| 167 0 A D * 00579800 //*| 168 0 A D * 00579900 //*| 169 0 A D * 00580000 //*| 170 0 D A O * 00580100 //*| 171 0 LM * 00580200 //*| 172 10 A PO Z M * 00580300 //*| 173 10 A PO Z M * 00580400 //*| 174 0 PO A D * 00580500 //*| 175 01 A D J S Z * 00580600 //*| 176 0 Z * 00580700 //*| 177 1 Z * 00580800 //*| 178 1 A * 00580900 //*| 179 0 A * 00581000 //*| 180 0 J * 00581100 //*| 181 1 A * 00581200 //*| 182 0 A D H J S C * 00581300 //*| 183 0 D * 00581400 //*| 184 0 A * 00581500 //*| 185 0 A * 00581600 //*| 186 0 A M D * 00581700 //*| 187 0 A * 00581800 //*| 188 4 D * 00581900 //*| 189 4 A * 00582000 //*| 190 0 A * 00582100 //*| 191 0 A * 00582200 //*| 192 0 A * 00582300 //*| 193 0 A * 00582400 //*| 194 0 A * 00582500 //*| 195 0 A * 00582600 //*| 196 0 D * 00582700 //*| 197 0 A * 00582800 //*| 198 0 A D H J S C * 00582900 //*| 199 0 A D J H M * 00583000 //*| 200 7 A * 00583100 //*| 201 0 A * 00583200 //*| 202 0 D J A * 00583300 //*| 203 1 Z * 00583400 //*| 204 0 A M D * 00583500 //*| 205 0 A D * 00583600 //*| 206 0 A D * 00583700 //*| 207 0 A D * 00583800 //*| 208 0 D * 00583900 //*| 209 0 M * 00584000 //*| 210 0 J A D * 00584100 //*| 211 0 A * 00584200 //*| 212 0 S D * 00584300 //*| 213 0 A * 00584400 //*| 214 0 D * 00584500 //*| 215 0 A * 00584600 //*| 216 0 A D * 00584700 //*| 217 0 A D * 00584800 //*| 218 0 A D O Z * 00584900 //*| 219 0 A * 00585000 //*| 220 0 A * 00585100 //*| 221 0 D * 00585200 //*| 222 2 A D * 00585300 //*| 223 0 A * 00585400 //*| 224 0 A * 00585500 //*| 225 0 A * 00585600 //*| 226 0 A * 00585700 //*| 227 0 A D * 00585800 //*| 228 0 A * 00585900 //*| 229 0 A * 00586000 //*| 230 4 A * 00586100 //*| 231 4 A * 00586200 //*| 232 4 A * 00586300 //*| 233 0 A * 00586400 //*| 234 0 A * 00586500 //*| 235 0 A * 00586600 //*| 236 0 D * 00586700 //*| 237 0 A * 00586800 //*| 238 0 A * 00586900 //*| 239 0 A * 00587000 //*| 240 0 D * 00587100 //*| 241 0 A * 00587200 //*| 242 0 M * 00587300 //*| 243 0 M * 00587400 //*| 244 0 O * 00587500 //*| 245 0 LM * 00587600 //*| 246 0 Z * 00587700 //*| 247 0 A * 00587800 //*| 248 0 A * 00587900 //*| 249 0 J * 00588000 //*| 250 0 A D * 00588100 //*| 251 0 A * 00588200 //*| 252 0 A * 00588300 //*| 253 0 Z * 00588400 //*| 254 0 S * 00588500 //*| 255 0 PO D J * 00588600 //*| 256 0 A PO J * 00588700 //*| 257 0 A * 00588800 //*| 258 0 A * 00588900 //*| 259 0 T * 00589000 //*| 260 0 A * 00589100 //*| 261 1 Z * 00589200 //*| 262 0 D * 00589300 //*| 263 0 A * 00589400 //*| 264 0 A * 00589500 //*| 265 0 A D J M * 00589600 //*| 266 0 A D J * 00589700 //*| 267 0 LM * 00589800 //*| 268 0 A * 00589900 //*| 269 1 D * 00590000 //*| 270 0 A C D J M T H SP * 00590100 //*| 271 0 A D Z * 00590200 //*| 272 0 A D Z * 00590300 //*| 273 0 A D Z * 00590400 //*| 274 0 A D T SP * 00590500 //*| 275 0 A D * 00590600 //*| 276 0 A D * 00590700 //*| 277 0 A * 00590800 //*| 278 0 A * 00590900 //*| 279 0 5 A D C H J * 00591000 //*| 280 0 D * 00591100 //*| 281 0 LM * 00591200 //*| 282 0 M * 00591300 //*| 283 0 D * 00591400 //*| 284 0 A D * 00591500 //*| 285 0 D * 00591600 //*| 286 0 O * 00591700 //*| 287 0 T * 00591800 //*| 288 0 A D M * 00591900 //*| 289 0 A D J M PO H * 00592000 //*| 290 0 D T * 00592100 //*| 291 0 D * 00592200 //*| 292 0 A H * 00592300 //*| 293 0 D * 00592400 //*| 294 0 A D H PO * 00592500 //*| 295 0 A D * 00592600 //*| 296 0 A D J M * 00592700 //*| 297 0 A D J * 00592800 //*| 298 1 A D * 00592900 //*| 299 0 A D J * 00593000 //*| 300 0 A J H M D * 00593100 //*| 301 0 A H M D * 00593200 //*| 302 0 A * 00593300 //*| 303 0 A D J * 00593400 //*| 304 0 2 A D J T * 00593500 //*| 305 0 A * 00593600 //*| 306 0 A D * 00593700 //*| 307 0 A D * 00593800 //*| 308 0 A D * 00593900 //*| 309 0 A D * 00594000 //*| 310 0 A D M O P S * 00594100 //*| 311 0 T * 00594200 //*| 312 1 A D J * 00594300 //*| 313 5 A C D F J M O PO T Z H * 00594400 //*| 314 4 D * 00594500 //*| 315 0 A D J SP * 00594600 //*| 316 0 A D M * 00594700 //*| 317 1 0 A PO Z M * 00594800 //*| 318 0 PO A D * 00594900 //*| 319 0 A * 00595000 //*| 320 0 2 A D * 00595100 //*| 321 1 Z A D * 00595200 //*| 322 0 A D H * 00595300 //*| 323 1 A D * 00595400 //*| 324 0A A D J * 00595500 //*| 325 0 A D H * 00595600 //*| 326 O A D * 00595700 //*| 327 O A D * 00595800 //*| 328 O A D * 00595900 //*| 329 1 D J O Z * 00596000 //*| 330 6 A D J M * 00596100 //*| 331 6 LM * 00596200 //*| 332 0 A D J * 00596300 //*| 333 0 D J O * 00596400 //*| 334 0 S D * 00596500 //*| 335 * 00596600 //*| 336 0 A D J M PO H * 00596700 //*| 337 0 A D J * 00596800 //*| 338 0 A D J * 00596900 //*| 339 8 A J * 00597000 //*| 340 0 A J * 00597100 //*| 341 0 A D T SP * 00597200 //*| 342 0 SPF * 00597300 //*| 343 4 D * 00597400 //*| 344 4 A * 00597500 //*| 345 4 J A * 00597600 //*| 346 04 A D * 00597700 //*| 347 0 A D J M T * 00597800 //*| 348 0 A D C M Z * 00597900 //*| 349 0 A * 00598000 //*| 350 0 A D * 00598100 //*| 351 1 Z D * 00598200 //*| 352 01235 A D F J M PO S T Z H * 00598300 //*| 353 0 A D J M SP * 00598400 //*| 354 01 A D J Z * 00598500 //*| 355 0 A D J M * 00598600 //*| 356 0 SPF D * 00598700 //*| 357 0 SPF D * 00598800 //*| 358 2 A D * 00598900 //*| 359 0 A D J M T H SP * 00599000 //*| 360 0 A D J M T H * 00599100 //*| 361 0 TSO A SPF * 00599200 //*| 362 0 TSO A * 00599300 //*| 363 0 A D M S * 00599400 //*| 364 0 D J * 00599500 //*| 365 0 A D J * 00599600 //*| 366 0 A D * 00599700 //*| 367 0 O PO * 00599800 //*| 368 0 A D * 00599900 //*| 369 1 A D Z * 00600000 //*| 370 0 A D J * 00600100 //*| 371 0 A D J M H SP * 00600200 //*| 372 1 A D J Z H * 00600300 //*| 373 1 A D M H * 00600400 //*| 374 1 A D M * 00600500 //*| 375 1 A D * 00600600 //*| 376 1 A D M * 00600700 //*| 377 14 A C D J M * 00600800 //*| 378 1 T * 00600900 //*| 379 1 A D J * 00601000 //*| 380 1 Z * 00601100 //*| 381 410 A D M * 00601200 //*| 382 1 A D * 00601300 //*| 383 1 A D C * 00601400 //*| 384 1 * 00601500 //*| 385 1 A D * 00601600 //*| 386 1 0 A D * 00601700 //*| 387 0 A D J M * 00601800 //*| 388 0 A D J O H T * 00601900 //*| 389 6 D O * 00602000 //*| 390 0 A D J * 00602100 //*| 391 0 A D J * 00602200 //*| 392 0 A D J * 00602300 //*| 393 0 A D J * 00602400 //*| 394 * 00602500 //*| 395 * 00602600 //*| 396 * 00602700 //*| 397 * 00602800 //*| 398 * 00602900 //*| 399 * 00603000 //*| 400 0 A D * 00603100 //*| 401 0 A D J M * 00603200 //*| 402 0 A C D J * 00603300 //*| 403 1 D Z * 00603400 //*| 404 1 A D J M * 00603500 //*| 405 1 A D M * 00603600 //*| 406 1 A D * 00603700 //*| 407 1 A D * 00603800 //*| 408 1 D M * 00603900 //*| 409 1 A * 00604000 //*| 410 1 A D SP * 00604100 //*| 411 1 A D SP * 00604200 //*| 412 1 A D SP * 00604300 //*| 413 1 A D SP * 00604400 //*| 414 1 A D SP * 00604500 //*| 415 1 A D SP * 00604600 //*| 416 1 A D * 00604700 //*| 417 1 A D * 00604800 //*| 418 1 A D * 00604900 //*| 419 0 A D M O J * 00605000 //*| 420 0 D J S * 00605100 //*| 421 0 D A O * 00605200 //*| 422 0 D A C * 00605300 //*| 423 0 D A H * 00605400 //***SECTION CROSS XREF SECTION 00605500 //*|***************************************************************** 00605600 //*| * 00605700 //*| C R O S S - X R E F S E C T I O N * 00605800 //*| * 00605900 //*|***************************************************************** 00606000 //*| THE FOLLOWING SECTION WILL ADD SOME CROSS-REFERENCE INFO ABOUT * 00606100 //*| EACH FILE . THE FIRST COLUMN SHOWS FILE NUMBERS - ALL OTHER * 00606200 //*| COLUMNS SHOW WHAT FILES ARE REFERENCED BY THE FILE IN * 00606300 //*| COLUMN ONE * 00606400 //*| * 00606500 //*| * 00606600 //*| 001 ALL * 00606700 //*| 002 - * 00606800 //*| 003 ALL * 00606900 //*| 004 005 * 00607000 //*| 005 004 * 00607100 //*| 006 - * 00607200 //*| 007 - * 00607300 //*| 008 ALL * 00607400 //*| 009 * 00607500 //*| 010 011 * 00607600 //*| 011 010 * 00607700 //*| 012 - * 00607800 //*| 013 - * 00607900 //*| 014 - * 00608000 //*| 015 - * 00608100 //*| 016 - 035 * 00608200 //*| 017 - 089 132 260 * 00608300 //*| 018 - 035 * 00608400 //*| 019 - * 00608500 //*| 020 - * 00608600 //*| 021 - 022 023 024 025 026 330 331 * 00608700 //*| 022 - 021 023 024 025 026 330 331 * 00608800 //*| 023 - 021 022 024 025 026 330 331 * 00608900 //*| 024 - 021 022 023 025 026 330 331 * 00609000 //*| 025 - 021 022 023 024 026 330 331 * 00609100 //*| 026 - 021 022 023 024 025 330 331 * 00609200 //*| 027 - * 00609300 //*| 028 029 140 * 00609400 //*| 029 028 140 * 00609500 //*| 030 031 * 00609600 //*| 031 030 * 00609700 //*| 032 * 00609800 //*| 033 - * 00609900 //*| 034 079 * 00610000 //*| 035 016 018 038 112 128 145 182 255 294 299 317 318 * 00610100 //*| 036 - * 00610200 //*| 037 - * 00610300 //*| 038 - * 00610400 //*| 039 - * 00610500 //*| 040 - * 00610600 //*| 041 - * 00610700 //*| 042 - * 00610800 //*| 043 - * 00610900 //*| 044 - * 00611000 //*| 045 - * 00611100 //*| 046 - * 00611200 //*| 047 - * 00611300 //*| 048 050 051 * 00611400 //*| 049 050 * 00611500 //*| 050 048 049 * 00611600 //*| 051 048 049 * 00611700 //*| 052 - * 00611800 //*| 053 054 * 00611900 //*| 054 053 * 00612000 //*| 055 - * 00612100 //*| 056 - * 00612200 //*| 057 067 377 378 233 * 00612300 //*| 058 - * 00612400 //*| 059 060 061 062 063 064 * 00612500 //*| 060 059 061 062 063 064 * 00612600 //*| 061 059 060 062 063 064 * 00612700 //*| 062 059 060 061 063 064 * 00612800 //*| 063 059 060 061 062 064 * 00612900 //*| 064 059 060 061 062 063 * 00613000 //*| 065 - * 00613100 //*| 066 278 307 308 309 322 * 00613200 //*| 067 057 377 378 233 * 00613300 //*| 068 - * 00613400 //*| 069 - * 00613500 //*| 070 - * 00613600 //*| 071 - * 00613700 //*| 072 - * 00613800 //*| 073 074 * 00613900 //*| 074 073 * 00614000 //*| 075 - * 00614100 //*| 076 - * 00614200 //*| 077 078 * 00614300 //*| 078 077 * 00614400 //*| 079 034 * 00614500 //*| 080 - * 00614600 //*| 081 - * 00614700 //*| 082 083 084 085 086 * 00614800 //*| 083 082 084 085 086 117 176 * 00614900 //*| 084 082 083 085 086 * 00615000 //*| 085 082 083 084 086 * 00615100 //*| 086 082 083 084 085 * 00615200 //*| 087 088 * 00615300 //*| 088 087 * 00615400 //*| 089 090 017 * 00615500 //*| 090 089 * 00615600 //*| 091 - * 00615700 //*| 092 092 TO 097 * 00615800 //*| 093 092 TO 097 * 00615900 //*| 094 092 TO 097 * 00616000 //*| 095 092 TO 097 * 00616100 //*| 096 092 TO 097 * 00616200 //*| 097 092 TO 097 * 00616300 //*| 098 * 00616400 //*| 099 * 00616500 //*| 100 101 341 342 * 00616600 //*| 101 100 341 342 * 00616700 //*| 102 * 00616800 //*| 103 092 TO 097 * 00616900 //*| 104 105 106 107 108 * 00617000 //*| 105 104 106 107 108 * 00617100 //*| 106 104 105 107 108 * 00617200 //*| 107 104 105 106 108 * 00617300 //*| 108 104 105 106 107 * 00617400 //*| 109 - * 00617500 //*| 110 111 * 00617600 //*| 111 110 * 00617700 //*| 112 035 297 * 00617800 //*| 113 114 * 00617900 //*| 114 113 * 00618000 //*| 115 * 00618100 //*| 116 - * 00618200 //*| 117 083 176 * 00618300 //*| 118 - * 00618400 //*| 119 - * 00618500 //*| 120 314 * 00618600 //*| 121 - * 00618700 //*| 122 - * 00618800 //*| 123 - * 00618900 //*| 124 125 * 00619000 //*| 125 124 * 00619100 //*| 126 - * 00619200 //*| 127 112 * 00619300 //*| 128 035 * 00619400 //*| 129 - * 00619500 //*| 130 131 * 00619600 //*| 131 130 * 00619700 //*| 132 017 * 00619800 //*| 133 - * 00619900 //*| 134 - * 00620000 //*| 135 - * 00620100 //*| 136 - * 00620200 //*| 137 - * 00620300 //*| 138 - * 00620400 //*| 139 - * 00620500 //*| 140 028 029 * 00620600 //*| 141 - * 00620700 //*| 142 - * 00620800 //*| 143 - * 00620900 //*| 144 297 * 00621000 //*| 145 035 * 00621100 //*| 146 147 * 00621200 //*| 147 146 * 00621300 //*| 148 - * 00621400 //*| 149 - * 00621500 //*| 150 - * 00621600 //*| 151 - * 00621700 //*| 152 - * 00621800 //*| 153 - * 00621900 //*| 154 - * 00622000 //*| 155 183 * 00622100 //*| 156 157 234 236 * 00622200 //*| 157 156 234 236 * 00622300 //*| 158 277 * 00622400 //*| 159 - * 00622500 //*| 160 - * 00622600 //*| 161 - * 00622700 //*| 162 408 * 00622800 //*| 163 - * 00622900 //*| 164 - * 00623000 //*| 165 - * 00623100 //*| 166 - * 00623200 //*| 167 - * 00623300 //*| 168 - * 00623400 //*| 169 - * 00623500 //*| 170 171 * 00623600 //*| 171 170 * 00623700 //*| 172 173 317 318 * 00623800 //*| 173 172 317 318 * 00623900 //*| 174 318 * 00624000 //*| 175 - * 00624100 //*| 176 083 117 * 00624200 //*| 177 - * 00624300 //*| 178 * 00624400 //*| 179 180 201 190 247 * 00624500 //*| 180 179 190 201 247 * 00624600 //*| 181 - * 00624700 //*| 182 035 * 00624800 //*| 183 155 * 00624900 //*| 184 185 * 00625000 //*| 185 184 * 00625100 //*| 186 - * 00625200 //*| 187 - * 00625300 //*| 188 189 * 00625400 //*| 189 188 * 00625500 //*| 190 179 180 201 247 * 00625600 //*| 191 - * 00625700 //*| 192 193 * 00625800 //*| 193 192 * 00625900 //*| 194 - * 00626000 //*| 195 196 * 00626100 //*| 196 195 * 00626200 //*| 197 - * 00626300 //*| 198 * 00626400 //*| 199 * 00626500 //*| 200 - * 00626600 //*| 201 179 180 190 247 * 00626700 //*| 202 - * 00626800 //*| 203 - * 00626900 //*| 204 - * 00627000 //*| 205 - * 00627100 //*| 206 276 338 * 00627200 //*| 207 - * 00627300 //*| 208 209 210 * 00627400 //*| 209 208 210 * 00627500 //*| 210 208 209 * 00627600 //*| 211 - * 00627700 //*| 212 - * 00627800 //*| 213 - * 00627900 //*| 214 215 * 00628000 //*| 215 214 * 00628100 //*| 216 - * 00628200 //*| 217 - * 00628300 //*| 218 - * 00628400 //*| 219 - * 00628500 //*| 220 - * 00628600 //*| 221 240-245 * 00628700 //*| 222 * 00628800 //*| 223 - * 00628900 //*| 224 - * 00629000 //*| 225 408 * 00629100 //*| 226 408 * 00629200 //*| 227 - * 00629300 //*| 228 - * 00629400 //*| 229 - * 00629500 //*| 230 - * 00629600 //*| 231 - * 00629700 //*| 232 - * 00629800 //*| 233 057 067 377 378 * 00629900 //*| 234 156 157 236 * 00630000 //*| 235 - * 00630100 //*| 236 * 00630200 //*| 237 - * 00630300 //*| 238 - * 00630400 //*| 239 - * 00630500 //*| 240 221 241 242 243 244 245 * 00630600 //*| 241 242 243 244 245 * 00630700 //*| 242 241 243 244 245 * 00630800 //*| 243 241 242 244 245 * 00630900 //*| 244 241 242 243 245 * 00631000 //*| 245 241 242 243 244 * 00631100 //*| 246 * 00631200 //*| 247 179 180 190 201 * 00631300 //*| 248 249 305 * 00631400 //*| 249 248 * 00631500 //*| 250 - * 00631600 //*| 251 - * 00631700 //*| 252 - * 00631800 //*| 253 - * 00631900 //*| 254 * 00632000 //*| 255 035 * 00632100 //*| 256 - * 00632200 //*| 257 - * 00632300 //*| 258 - * 00632400 //*| 259 - * 00632500 //*| 260 017 * 00632600 //*| 261 - * 00632700 //*| 262 - * 00632800 //*| 263 - * 00632900 //*| 264 - * 00633000 //*| 265 - * 00633100 //*| 266 267 303 337 409 * 00633200 //*| 267 266 303 337 409 * 00633300 //*| 268 226 * 00633400 //*| 269 - * 00633500 //*| 270 - * 00633600 //*| 271 - * 00633700 //*| 272 - * 00633800 //*| 273 - * 00633900 //*| 274 - * 00634000 //*| 275 - * 00634100 //*| 276 206 278 * 00634200 //*| 277 158 * 00634300 //*| 278 066 307 308 309 322 * 00634400 //*| 279 - * 00634500 //*| 280 281 282 283 284 285 286 287 * 00634600 //*| 281 280 282 283 284 285 286 287 * 00634700 //*| 282 280 281 283 284 285 286 287 * 00634800 //*| 283 280 281 282 284 285 286 287 * 00634900 //*| 284 280 281 282 283 285 286 287 * 00635000 //*| 285 280 281 282 283 284 286 287 * 00635100 //*| 286 280 281 282 283 284 285 287 * 00635200 //*| 287 280 281 282 283 284 285 286 * 00635300 //*| 288 - * 00635400 //*| 289 290 291 * 00635500 //*| 290 289 291 * 00635600 //*| 291 289 290 * 00635700 //*| 292 293 * 00635800 //*| 293 292 * 00635900 //*| 294 035 * 00636000 //*| 295 - * 00636100 //*| 296 - * 00636200 //*| 297 112 144 * 00636300 //*| 298 - * 00636400 //*| 299 035 * 00636500 //*| 300 316 * 00636600 //*| 301 - * 00636700 //*| 302 - * 00636800 //*| 303 266 267 337 409 * 00636900 //*| 304 - * 00637000 //*| 305 248 * 00637100 //*| 306 * 00637200 //*| 307 066 278 308 309 322 * 00637300 //*| 308 066 278 307 309 322 * 00637400 //*| 309 066 278 307 308 322 * 00637500 //*| 310 311 * 00637600 //*| 311 310 * 00637700 //*| 312 * 00637800 //*| 313 * 00637900 //*| 314 120 * 00638000 //*| 315 * 00638100 //*| 316 300 * 00638200 //*| 317 035 172 173 * 00638300 //*| 318 035 172 174 * 00638400 //*| 319 * 00638500 //*| 320 * 00638600 //*| 321 335 407 408 * 00638700 //*| 322 066 278 307 308 322 * 00638800 //*| 323 - * 00638900 //*| 324 * 00639000 //*| 325 * 00639100 //*| 326 * 00639200 //*| 327 * 00639300 //*| 328 * 00639400 //*| 329 * 00639500 //*| 330 - 021 022 023 024 025 026 331 * 00639600 //*| 331 - 021 022 023 024 025 026 330 * 00639700 //*| 332 - * 00639800 //*| 333 - * 00639900 //*| 334 - * 00640000 //*| 335 321 407 408 * 00640100 //*| 336 * 00640200 //*| 337 144 266 267 303 409 * 00640300 //*| 338 * 00640400 //*| 339 * 00640500 //*| 340 300 * 00640600 //*| 341 100 101 342 * 00640700 //*| 342 100 101 341 * 00640800 //*| 343 344 345 * 00640900 //*| 344 343 345 * 00641000 //*| 345 343 344 * 00641100 //*| 346 * 00641200 //*| 347 * 00641300 //*| 348 * 00641400 //*| 349 * 00641500 //*| 350 * 00641600 //*| 351 * 00641700 //*| 352 383 * 00641800 //*| 353 * 00641900 //*| 354 * 00642000 //*| 355 * 00642100 //*| 356 357 * 00642200 //*| 357 356 * 00642300 //*| 358 * 00642400 //*| 359 * 00642500 //*| 360 * 00642600 //*| 361 * 00642700 //*| 362 * 00642800 //*| 363 364 365 366 367 * 00642900 //*| 364 363 365 366 367 * 00643000 //*| 365 363 364 366 367 * 00643100 //*| 366 363 364 365 367 * 00643200 //*| 367 363 364 365 366 * 00643300 //*| 368 * 00643400 //*| 369 * 00643500 //*| 370 * 00643600 //*| 371 * 00643700 //*| 372 * 00643800 //*| 373 * 00643900 //*| 374 * 00644000 //*| 375 * 00644100 //*| 376 * 00644200 //*| 377 057 067 378 233 * 00644300 //*| 378 057 067 377 233 * 00644400 //*| 378 * 00644500 //*| 379 * 00644600 //*| 380 * 00644700 //*| 381 * 00644800 //*| 382 * 00644900 //*| 383 * 00645000 //*| 384 * 00645100 //*| 385 * 00645200 //*| 386 * 00645300 //*| 387 * 00645400 //*| 388 408 422 * 00645500 //*| 389 * 00645600 //*| 390 * 00645700 //*| 391 * 00645800 //*| 392 * 00645900 //*| 393 * 00646000 //*| 394 * 00646100 //*| 395 * 00646200 //*| 396 * 00646300 //*| 397 * 00646400 //*| 398 * 00646500 //*| 399 * 00646600 //*| 400 * 00646700 //*| 401 * 00646800 //*| 402 * 00646900 //*| 403 * 00647000 //*| 404 * 00647100 //*| 405 * 00647200 //*| 406 * 00647300 //*| 407 408 * 00647400 //*| 408 162 225 226 388 407 * 00647500 //*| 409 266 267 303 337 * 00647600 //*| 410 * 00647700 //*| 411 * 00647800 //*| 412 * 00647900 //*| 413 * 00648000 //*| 414 * 00648100 //*| 415 * 00648200 //*| 416 * 00648300 //*| 417 * 00648400 //*| 418 * 00648500 //*| 419 * 00648600 //*| 420 * 00648700 //*| 421 * 00648800 //*| 422 288 * 00648900 //*| 423 * 00649000 //*| 424 * 00649100 //*| 425 * 00649200 //*| 426 * 00649300 //*| 427 * 00649400 //*| 428 * 00649500 //*| 429 * 00649600 //*| 430 * 00649700 //*| 431 431-452 * 00649800 //*| 432 431-452 * 00649900 //*| 433 431-452 * 00650000 //*| 434 431-452 * 00650100 //*| 435 431-452 * 00650200 //*| 436 431-452 * 00650300 //*| 437 431-452 * 00650400 //*| 438 431-452 * 00650500 //*| 439 431-452 * 00650600 //*| 440 431-452 * 00650700 //*| 441 431-452 * 00650800 //*| 442 431-452 * 00650900 //*| 443 431-452 * 00651000 //*| 444 431-452 * 00651100 //*| 445 431-452 * 00651200 //*| 446 431-452 * 00651300 //*| 447 431-452 * 00651400 //*| 448 431-452 * 00651500 //*| 449 431-452 * 00651600 //*| 450 431-452 * 00651700 //*| 451 431-452 * 00651800 //*| 452 431-452 * 00651900 //*| 453 * 00652000 //*| 454 * 00652100 //*| 455 * 00652200 //*| 456 * 00652300 //*| 457 * 00652400 //*| 458 * 00652500 //*| 459 * 00652600 //*| 460 * 00652700 //******************************************************************* 00652800 //***SECTION DOCUMENTATION SECTION * 00652900 //******************************************************************* 00653000 //* * 00653100 //* D O C U M E N T A T I O N * 00653200 //* * 00653300 //******************************************************************* 00653400 //* * 00653500 //* THIS TAPE IS RECORDED AT 6250 BPI ( USUALLY ) ( 3 REELS WHEN NOT 00653600 //* AND * 00653700 //* HAS CODE THAT PERTAINS TO MVS ( A COUPLE ARE VS & OS ) * 00653800 //* * 00653900 //***FILE 001 IS THE JCL THAT CREATED THIS TAPE * 00654000 //* ( YOU ARE READING IT NOW ) * 00654100 //* * 00654200 //***FILE 002 COMPRESSION / DECOMPRESSION PROGRAM FOR THIS TAPE . * 00654300 //* THIS IS THE CODE USED FOR COMPRESSION AND DECOMPRESSION * 00654400 //* OF THIS TAPE * 00654500 //* * 00654600 //***FILE 003 IS A JCL STREAM WITH INSTREAM PROCS TO DROP DOWN * 00654700 //* THIS WHOLE MODS TAPE ( SAVE FILES THAT HAVE BEEN * 00654800 //* DELETED ) TO A DISK PACK ( IF YOU HAPPEN TO HAVE THE * 00654900 //* LUXURY OF HAVING A DISK PACK LAYING AROUND DOING * 00655000 //* NOTHING ) * 00655100 //* * 00655200 //* IN A TEST RUN ON A 3033 IT TOOK 17.04 ELAPSED MINUTES * 00655300 //* TO DROP DOWN VERSION 168 . CPU TIME WAS 1 MIN 22.81 SEC * 00655400 //* SRB WAS 4.73 SECONDS * 00655500 //* 283 DATA SETS OCCUPIED 3330 TRACKS ON A 3350 * 00655600 //* FOR A TOTAL OF 64127 KBYTES * 00655700 //* * 00655800 //* IN A TEST RUN ON A VERY HEAVILY LOADED 3081 ( 95% BUSY ) * 00655900 //* IT TOOK 216.15 ELAPSED MINUTES TO DROP DOWN VERSION 208 * 00656000 //* CPU TIME WAS 5 MINUTES 27.50 SEC SRB WAS 45.68 SECONDS * 00656100 //* 352 DATA SETS OCCUPIED 3712 TRACKS ON A 3380 * 00656200 //* * 00656300 //* JOB 1 37.50 1 MIN 10.69 SEC 09.63 SRB * 00656400 //* JOB 2 63.84 MIN 58.18 SEC 07.37 SRB * 00656500 //* JOB 3 49.02 1 MIN 19.33 SEC 11.31 SRB * 00656600 //* JOB 4 65.79 1 MIN 59.30 SEC 17.37 SRB * 00656700 //* * 00656800 //* IN A TEST RUN ON A LIGHTLY LOADED 3081 ( 30% - 40% BUSY ) * 00656900 //* IT TOOK 58.40 ELAPSED MINUTES TO DROP DOWN VERSION 209 * 00657000 //* CPU TIME WAS 5 MINUTES 07.12 SEC SRB WAS 47.58 SECONDS * 00657100 //* 352 DATA SETS OCCUPIED 3716 TRACKS ON A 3380 * 00657200 //* * 00657300 //* JOB 1 11.33 1 MIN 05.83 SEC 10.05 SRB * 00657400 //* JOB 2 10.12 MIN 53.07 SEC 7.42 SRB * 00657500 //* JOB 3 14.46 1 MIN 15.44 SEC 12.12 SRB * 00657600 //* JOB 4 22.49 1 MIN 52.78 SEC 17.99 SRB * 00657700 //* * 00657800 //* IN A TEST RUN ON A 3081 . IT TOOK 144.47 ELAPSED MINUTES * 00657900 //* TO DROP DOWN VERSION 235 CPU TIME WAS 5 MINUTES 14.04 * 00658000 //* SECONDS , SRB WAS 54.88 SECONDS . * 00658100 //* 413 DATA SETS OCCUPIED 4748 TRACKS ON A 3380 * 00658200 //* * 00658300 //* JOB 1 22.34 0 MIN 49.43 SEC 7.97 SRB * 00658400 //* JOB 2 28.00 0 MIN 46.89 SEC 7.35 SRB * 00658500 //* JOB 3 36.28 1 MIN 09.89 SEC 12.48 SRB * 00658600 //* JOB 4 46.93 2 MIN 11.12 SEC 24.22 SRB * 00658700 //* JOB 5 10.92 0 MIN 16.78 SEC 2.86 SRB * 00658800 //* FOR A TOTAL OF 128805 MBYTES * 00658900 //* * 00659000 //* THE LAST JOB IN THIS FILE WILL TAKE FILE 1 OF THIS TAPE * 00659100 //* AND LOAD IT INTO AN INFO/MVS DATABASE FOR PROCESSING . THIS * 00659200 //* JOB REQUIRES A PRE-DEFINED VSAM CLUSTER TO HOLD THE * 00659300 //* DATA OUT OF FILE 001 * 00659400 //* * 00659500 //***FILE 004 IS FROM DAVE DROUIN FROM CONN NATIONAL BANK THIS * 00659600 //* CODE WILL TAKE FILE 001 OF THIS TAPE AND PUT IT INTO * 00659700 //* INFO/MVS FORMAT SO IT CAN BE LOADED INTO A INFO/MVS * 00659800 //* DATABASE . THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 00659900 //* SEE THE MEMBER CALLED $DOC FOR ADDTIONAL INFORMATION * 00660000 //* * 00660100 //***FILE 005 IS FROM DAVE DRUIN FROM CONN NATIONAL BANK THIS * 00660200 //* FILE CONTAINS THE DATA FOR THE HEADER INFORMATION * 00660300 //* FOR USE WITH FILE 004 ON THIS TAPE . THIS FILE IS * 00660400 //* IS LRECL=255,BLKSIZE=3120,RECFM=VB * 00660500 //* * 00660600 //***FILE 006 IS THE MVS FREEALL COMMAND FOR TSO * 00660700 //* * 00660800 //***FILE 007 IS AN SMF EXIT IEFACTRT * 00660900 //* * 00661000 //* THIS EXIT WILL PUT OUT ADDITIONAL INFORMATION ON THE * 00661100 //* CONSOLE AND JCL LISTING . ON THE CONSOLE IT WILL SHOW * 00661200 //* WHEN A JOB GOES THROUGH STEP AND JOB TERMINATION * 00661300 //* AND ITS RETURN CODE . IT THE STEP WAS NOT EXECUTED * 00661400 //* IT WILL SHOW NXEQ INSTEAD OF THE RETURN CODE . * 00661500 //* * 00661600 //* AT STEP TERMINATION IT WILL PUT OUT THE FOLLOWING * 00661700 //* INFORMATION IN THE FOLLOWING ORDER ON THE JCL LISTING * 00661800 //* * 00661900 //* FIRST LINE SECOND LINE * 00662000 //* * 00662100 //* JOBNAME PAGE INS * 00662200 //* STEP NUMBER PAGE OUTS * 00662300 //* STEP NAME PAGES SWAPPED IN * 00662400 //* PROGRAM NAME PAGES SWAPPED OUT * 00662500 //* STEP INITIATION TIME VIO PAGES IN * 00662600 //* STEP TERMINATION TIME VIO PAGES OUT * 00662700 //* TCB STEP TIME * 00662800 //* SRB TIME FOR THE STEP * 00662900 //* ELAPSED TIME * 00663000 //* SWAPS FOR THIS STEP * 00663100 //* V OR R JOB * 00663200 //* STORAGE USED * 00663300 //* COMPLETION CODE * 00663400 //* * 00663500 //* FOR JOB TERMINATION IT WILL PUT OUT THE FOLLOWING * 00663600 //* INFORMATION IN THIS ORDER ON THE JCL LISTING * 00663700 //* JOBNAME * 00663800 //* SERVICE UNITS USED * 00663900 //* TOTAL TRANSACTION TIME * 00664000 //* JOB INITIATION TIME * 00664100 //* JOB TERMINATION TIME * 00664200 //* TCB JOB TIME * 00664300 //* SRB TIME FOR THE JOB * 00664400 //* TOTAL SWAPS * 00664500 //* COMPLETION CODE * 00664600 //* * 00664700 //***FILE 008 THIS IS FOR MY USE TO SHOW SOME STATS * 00664800 //* * 00664900 //***FILE 009 IS IN IEBUPDTE FORMAT FROM COCA COLA IN ATLANTIC AND * 00665000 //* CONTAINS A COPY OF THEIR SYNCSORT EXIT . * 00665100 //* * 00665200 //* THIS EXIT WAS TAKEN OFF THE CBT MODS TAPE AND * 00665300 //* MODIFIED TO CHANGE THE VSCORE PARAMETER BY TIME OF * 00665400 //* DAY . THE ORIGINAL VERSION OFF THE MODS TAPE CHANGED * 00665500 //* THE PARAMETER VSIO BY TIME OF DAY . * 00665600 //* * 00665700 //* THIS ROUTINE WILL BE CALLED BY SYNCSORT TO DETERMINE * 00665800 //* WHETHER TO USE "VSCORE=256K" OR "VSCORE=1536K" . IF * 00665900 //* THE TIME IS BETWEEN THE CUTOFFLO AND THE CUTOFFHI * 00666000 //* TIME , A PARM OF "VSCORE=256K" WILL BE PASSED TO * 00666100 //* SYNCSORT . IF THE TIME IS OUTSIDE OF THE CUTOFFLO * 00666200 //* AND CUTOFFHI TIMES A PARM OF "VSCORE=1536K" WILL BE * 00666300 //* PASSED . * 00666400 //* * 00666500 //* THIS MODULE SHOULD BE LINKEDITED INTO THE LIBRARY * 00666600 //* THAT CONTAINS SYNCSORT WITH THE NAME $ORTPARM . THE * 00666700 //* "OPTION FLAG #1" AT HEX (5A) IN CSECT SYNCVEC OF * 00666800 //* SYNCSORT MUST HAVE BIT 4 TURNED ON (X'08')-- * 00666900 //* PRESENTLY THE FLAG IS X'E8' . THE DESCRIPTION OF THE * 00667000 //* "SYNCSORT OPTIONS VECTOR" (CSECT SYNCVEC) IS IN * 00667100 //* SECTION 2 OF THE SYNCSORT PROGRAMMERS GUIDE . THE * 00667200 //* DESCRIPTION OF THE "PARMEXIT FACILITY" IS IN SECTION * 00667300 //* 3 OF THE SYNCSORT PROGRAMMERS GUIDE . * 00667400 //* * 00667500 //***FILE 010 IS THE DOCUMENTATION FILE FOR GPSAM FROM THE YALE * 00667600 //* COMPUTER CENTER WRITTEN BY MR HOWARD GILBERT . THIS * 00667700 //* FILE IS FBA FORMAT . THE SOURCE FOR GPSAM IS CONTAINED 00667800 //* IS CONTAINED IN FILE 011 OF THIS TAPE * 00667900 //* * 00668000 //***FILE 011 IS THE SOURCE FOR GPSAM FROM THE YALE COMPUTER CENTER * 00668100 //* WRITTEN BY MR HOWARD GILBERT . THIS FILE IS IN * 00668200 //* IEBUPDTE SYSIN FORMAT . * 00668300 //* * 00668400 //* GPSAM LETS YOU WRITE YOUR OWN "ACCESS METHOD" AND * 00668500 //* MAKE IT LOOK LIKE A SEQUENTIAL DATASET TO ANY * 00668600 //* APPLICATION PROGRAM OR UTILITY . IT CAN BE USED TO * 00668700 //* PROVIDE DBMS , VTAM , TSO FULLSCREEN , BTAM , OR * 00668800 //* SPECIALIZED DEVICE SUPPORT . * 00668900 //* * 00669000 //* SIMPLE : INSTALLS ON ANY MVS SYSTEM . NO IBM CODE * 00669100 //* IS MODIFIED . TAKES ONLY A FEW MINUTES TO RUN * 00669200 //* LINKEDIT STEPS AND BUILD PROCEDURES . * 00669300 //* * 00669400 //* SMALL : 700 BYTES IN LPA . 160 BYTES IN PRIVATE * 00669500 //* ADDRESS SPACE . * 00669600 //* * 00669700 //* SAFE : ONLY ONE INSTRUCTION EXECUTES IN KEY 0 AND * 00669800 //* MODIFIES A GENERAL SYSTEM CONTROL BLOCK . ANOTHER * 00669900 //* 18 INSTRUCTIONS OPERATE IN A SYSTEM KEY AND ONLY 4 * 00670000 //* OF THEM CHANGE STORAGE , STORING VALUES IN JOB * 00670100 //* RELATED CONTROL BLOCKS IN THE PRIVATE AREA . EVEN * 00670200 //* THE MOST CONSERVATIVE INSTALLATION CAN DESK CHECK * 00670300 //* THE SINGLE AUTHORIZED CSECT SEVERAL TIMES OVER IN * 00670400 //* AN HOUR . * 00670500 //* * 00670600 //* UNIVERSAL : WHILE A SYSTEM PROGRAMMER MUST INSTALL * 00670700 //* THE PACKAGE IN AUTHORIZED LIBRARIES , ANY * 00670800 //* APPLICATION PROGRAMMER CAN WRITE HIS OWN "ACCESS * 00670900 //* METHOD" IN ASSEMBLER AND USE IT FROM HIS OWN * 00671000 //* PROGRAMS . THE USER SPECIFIES THE MODULE NAME ON * 00671100 //* HIS DD CARD OR IN THE TSO ALLOCATION OF THE * 00671200 //* DDNAME . THESE USER MODULES RUN IN PROBLEM STATE * 00671300 //* AND CAN COME FROM ANY LIBRARY . CONTROL IS GIVEN * 00671400 //* TO THE ROUTINE FROM THE OPEN , CLOSE , GET , PUT , * 00671500 //* READ , OR WRITE STATEMENTS . * 00671600 //* * 00671700 //* SECURE : MVS INTEGRITY IS MAINTAINED . IF AN * 00671800 //* AUTHORIZED PROGRAM OPENS A GPSAM FILE , THE "ACCESS * 00671900 //* METHOD" MODULE IS LIMITED TO THOSE EXPLICITLY * 00672000 //* PERMITTED BY AN INSTALLATION SUPPLIED NAME TABLE * 00672100 //* AND THE MODULE MUST COME FROM AN APF LIBRARY . * 00672200 //* * 00672300 //***FILE 012 IS FROM JOHN HANCOCK MUTUAL LIFE INSURANCE COMPANY * 00672400 //* AND IS THEIR ISPF BACKGROUND JOBS DRIVER * 00672500 //* * 00672600 //* THIS FILE CONSISTS OF OPTIONS DESIGNED TO BE USED WITH * 00672700 //* THE INTERACTIVE SYSTEM PRODUCTIVITY FACILITY / PROGRAM * 00672800 //* DEVELOPMENT FACILITY ( ISPF/PDF ) . * 00672900 //* * 00673000 //* NOTE: SOME OF THESE OPTIONS WILL WORK ONLY UNDER ISPF * 00673100 //* VERSION 2. PANELS/SKELETONS/MESSAGES PROVIDED FOR USE * 00673200 //* WITH JH#PDF8 ARE INTENDED ONLY AS SAMPLES. SOME * 00673300 //* MODIFICATION (E.G., ACCOUNTING FIELDS) WOULD BE * 00673400 //* REQUIRED AT YOUR INSTALLATION. PANELS THAT CONTAIN A * 00673500 //* "VOLUME SERIAL" FIELD DETERMINE A UNIT NAME IN THEIR * 00673600 //* )PROC SECTION. THIS SHOULD BE CHECKED FOR * 00673700 //* INSTALLATION COMPATIBILITY. * 00673800 //* * 00673900 //* CHANGES 03/04/85: MODIFICATIONS TO EXPLOIT ISPF * 00674000 //* VERSION 2: MACRO ISPCALL NOW SUPPORTS ISPEXEC * 00674100 //* FORMAT (SEE NEW JH#PDF8 FOR EXAMPLE); JH#PDF8 * 00674200 //* MODIFIED TO USE LM SERVICES TO ENABLE VIO * 00674300 //* ISPCTLN DATA SETS TO BE EDITED (UNDER V1 * 00674400 //* JH#PDF8 WORKS AS BEFORE); PANEL JHAEFR01 ADDED * 00674500 //* (USED BY JH#PDF8 UNDER V2); JH ISR^PRIM * 00674600 //* REPLACED FOR V2; MSGS JHA^M04 ADDED; MANY * 00674700 //* PANELS/SKELETONS/MESSAGES FORMERLY PREFIXED Z* * 00674800 //* ARE NOW PREFIXED JHA*; CLIST ISRCTBL RENAMED * 00674900 //* JH#YCTBL; JH EDIT INTERFACE ALTERED FOR V2; * 00675000 //* CLIST TSEDITPR RENAMED JH#TEDPR AND CHANGED TO * 00675100 //* PROCESS PDF V2 FIELDS; ADDED JH#GTDSN (A DIALOG * 00675200 //* PROGRAM THAT RETURNS VOLUME SERIAL AND DATA SET * 00675300 //* NAME WHEN PROVIDED A DDNAME - USED BY OTHER * 00675400 //* DIALOGS); ADDED JH#TEDRT TO DISPLAY AND EDIT A * 00675500 //* USER'S PDF EDIT RECOVERY TABLE; ADDED ISRUOLJH, * 00675600 //* IBM'S ISRUOL (PDF 3.8) MODIFIED TO RUN FASTER * 00675700 //* BY USING TEMPORARY DATA SETS; ADDED JH#TPRGM TO * 00675800 //* INVOKE IEHPROGM FOREGROUND; ADDED JH#EDTMP TO * 00675900 //* ALLOW EDITING OF VIO ISPCTLN DATA SETS. * 00676000 //* * 00676100 //* CHANGES 10/18/83: TABLE DISPLAY UTILITY REWRITTEN AND * 00676200 //* ENHANCED. CLIST RENAMED JH#YDTBL FROM * 00676300 //* ISRYDTBL. * 00676400 //* * 00676500 //* CHANGES 10/3/83: JOHN HANCOCK EDIT INTERFACE IS * 00676600 //* ENHANCED TO ALLOW USER-DEFINED ABBREVIATIONS * 00676700 //* (SEE #3 BELOW); SMALL CHANGES TO JH#PDF8 AND * 00676800 //* ASSOCIATED SAMPLE PANELS; ADDED #MAXTOP #8, #9. * 00676900 //* * 00677000 //* 1. JOHN HANCOCK BATCH JOBS DRIVER (JH#PDF8) IS A * 00677100 //* GENERAL PURPOSE ISPF FUNCTION FOR THE GENERATION OF * 00677200 //* JCL BASED ON DATA ENTERED ON PANELS. PROCESSING IS * 00677300 //* CONTROLLED BY AN INITIAL PARM AND BY ISPF * 00677400 //* VARIABLES. SEE THE COMMENTS AT THE BEGINNING OF * 00677500 //* THE JH#PDF8 SOURCE FOR ADDITIONAL INFORMATION. * 00677600 //* * 00677700 //* SOME DIFFERENCES BETWEEN PDF OPTION 5 AND JH#PDF8: * 00677800 //* JH#PDF8 DOES NOT ALLOCATE DATA SETS FOR * 00677900 //* VERIFICATION, WHERE OPTION 5 OPTIONALLY ALLOCATES * 00678000 //* THE INPUT DATA SET (ONLY); JH#PDF8 ALLOWS A USER TO * 00678100 //* EDIT THE TEMPORARY GENERATED JCL IN ADDITION TO * 00678200 //* SUBMITTING OR CANCELING THE JOB; JH#PDF8 ALLOWS * 00678300 //* INITIAL AND FINAL SKELETONS TO BE TAILORED FOR EACH * 00678400 //* INVOCATION; JH#PDF8 ALLOWS TWO OR MORE PANELS TO * 00678500 //* PROVIDE INPUT TO ONE TAILORING OPERATION; WITH * 00678600 //* JH#PDF8 PROCESSING SUCH AS JOB CHARACTER * 00678700 //* INCREMENTATION IS DONE IN THE PANELS (SEE SAMPLE * 00678800 //* JHABP^B) INSTEAD OF IN THE DRIVER PROGRAM. * 00678900 //* * 00679000 //* SAMPLE PANELS, SKELETONS, AND MESSAGES ARE PROVIDED * 00679100 //* FOR USE WITH JH#PDF8. IT IS POSSIBLE, HOWEVER, TO * 00679200 //* CREATE TOTALLY DIFFERENT ISPF COMPONENTS FOR USE * 00679300 //* WITH THIS DRIVER. THE ONLY REQUIREMENTS ARE THAT * 00679400 //* THERE BE A PSEUDO-SELECTION PANEL WHOSE NAME IS * 00679500 //* PASSED VIA A PARM TO JH#PDF8 (SAMPLE IS JHABP^A) * 00679600 //* AND THAT THE COMPONENTS SET ISPF VARIABLES TO * 00679700 //* DICTATE PROCESSING (AGAIN, SEE THE COMMENTS). * 00679800 //* * 00679900 //* JH#PDF8 CODE IS REENTERANT; THE MODULE MAY BE * 00680000 //* PLACED IN LPALIB WITH OTHER ISPF MODULES. * 00680100 //* * 00680200 //* 2. CLIST JH#YDTBL WILL DISPLAY THE CONTENTS * 00680300 //* (NON-EXTENSION VARIABLES) OF ANY TABLE IN TABLE * 00680400 //* DISPLAY (SCROLLABLE) FORMAT. AS PROVIDED HERE IT * 00680500 //* SUPPORTS FIVE DIFFERENT TABLE DISPLAY FORMATS. IT * 00680600 //* MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA THE ISPF * 00680700 //* TSO COMMAND, OR FROM A SELECTION PANEL (E.G., * 00680800 //* ISRYXD1). * 00680900 //* * 00681000 //* 3. PANEL JHTEPE01 IS A JOHN HANCOCK EDIT INTERFACE. * 00681100 //* TO USE IT, ADD THE FOLLOWING ENTRY TO A SELECTION * 00681200 //* PANEL: * 00681300 //* N,'PGM(ISREDIT) PARM(P,JHTEPE01) * 00681400 //* NEWAPPL(ISR)' * 00681500 //* NOTE: FUTURE RELEASES OF PDF MAY NOT SUPPORT THIS * 00681600 //* METHOD OF IMPLEMENTATION. * 00681700 //* * 00681800 //* 4. CLIST JH#TEDPR WILL DISPLAY THE CONTENTS OF A * 00681900 //* USER'S CURRENT EDIT PROFILE (FOR THE APPLICATION HE * 00682000 //* HAS ENTERED). IT MAY BE INVOKED FROM ISPF/PDF * 00682100 //* OPTION 6, VIA THE ISPF TSO COMMAND, OR FROM A * 00682200 //* SELECTION PANEL. THE CLIST MUST BE MODIFIED FOR * 00682300 //* YOUR INSTALLATION'S ISPF PROFILE NAMING CONVENTION. * 00682400 //* * 00682500 //* 5. CLIST TSCMDTB WILL DISPLAY THE CONTENTS OF THE * 00682600 //* CURRENT SYSTEM COMMAND TABLE. THIS MAY BE USED BY * 00682700 //* END-USERS, SINCE THE "DESCRIPTION," NOT THE * 00682800 //* "ACTION," IS DISPLAYED. IF THIS CLIST IS TO BE * 00682900 //* USED, IT IS RECOMMENDED THAT A COPY OF THE SYSTEM * 00683000 //* COMMAND TABLE (ISPCMDS) BE MADE UNDER A DIFFERENT * 00683100 //* NAME (SYSCMDS IS USED IN THE CLIST). STRANGE * 00683200 //* THINGS WILL HAPPEN IF YOU ATTEMPT TO OPEN AND CLOSE * 00683300 //* A COMMAND TABLE THAT ISPF HAS ALREADY OPENED. * 00683400 //* TSCMDTB MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA * 00683500 //* THE ISPF TSO COMMAND, OR FROM A SELECTION PANEL. * 00683600 //* * 00683700 //* 6. CLIST JH#YCTBL DRIVES THE TABLE RECONSTRUCTION * 00683800 //* UTILITY. THIS ALLOWS FIELDS TO BE ADDED TO/REMOVED * 00683900 //* FROM TABLES WITHOUT LOSING THE TABLE DATA. IT MAY * 00684000 //* BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A * 00684100 //* SELECTION PANEL (E.G., ISRYXD1). * 00684200 //* * 00684300 //* 7. PANEL JHAYP14^ PROVIDES ENTRY TO A FOREGROUND * 00684400 //* INTERFACE TO THE IBM-SUPPLIED SELECTION PANEL * 00684500 //* UPDATE UTILITY (ISPPUP). THIS MAY BE ENTERED FROM * 00684600 //* A HIGHER-LEVEL SELECTION PANEL (XX,'PANEL(ZYPUP^)') * 00684700 //* OR FROM TSO READY (ISPSTART PANEL(ZYPUP^)). * 00684800 //* * 00684900 //* 8. CLIST ISRALTK ALLOWS A USER TO DEFINE AND ACTIVATE * 00685000 //* A SECOND SET OF PROGRAM FUNCTION KEY DEFINITIONS. * 00685100 //* READ HELP PANEL XALTK BEFORE USING. IT MAY BE * 00685200 //* INVOKED FROM A SELECTION PANEL (E.G.,ISPOPTA) BY * 00685300 //* "'XX,CMD(%ISRALTK)'." AN ENTRY IN A COMMAND TABLE * 00685400 //* IS ALSO A GOOD IDEA: * 00685500 //* VERB ACTION * 00685600 //* K2 SELECT CMD(%ISRALTK PARM('&ZPARM')) * 00685700 //* * 00685800 //* 9. PANEL PANELID IS A EXAMPLE OF HOW "PANELID ON" MAY * 00685900 //* BE SET WITHOUT THE USER HAVING TO ENTER THE ISPF * 00686000 //* COMMAND. THE CODE IN THIS PANEL COULD BE USED IN * 00686100 //* ANY SELECTION PANEL, INCLUDING ISR^PRIM AND * 00686200 //* ISP^MSTR. * 00686300 //* * 00686400 //* 10. CLIST JH#TEDRT ALLOWS THE DISPLAYING AND * 00686500 //* MODIFICATION OF A USER'S EDIT RECOVERY TABLE. IT * 00686600 //* MAY BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A * 00686700 //* SELECTION PANEL. THE CLIST MUST BE MODIFIED FOR * 00686800 //* YOUR INSTALLATION'S ISPF PROFILE NAMING CONVENTION. * 00686900 //* * 00687000 //* 11. CLIST ISRUOLJH IS JOHN HANCOCK'S MODIFIED ISRUOL, * 00687100 //* THE CLIST THAT DRIVES PDF OPTION 3.8. IT HAS BEEN * 00687200 //* MODIFIED TO RUN FASTER BY USING TEMPORARY DATA * 00687300 //* SETS, BYPASSING CATALOGING AND DELETION. IT USES * 00687400 //* PROVIDED DIALOG PROGRAM JH#GTDSN (WHICH CAN BE IN * 00687500 //* LPA IF HEAVILY USED). (THIS CLIST HAS ALSO BEEN * 00687600 //* MODIFIED TO USE THE SAME JOB CARDS AS OPTION 3.6.) * 00687700 //* * 00687800 //* 12. CLIST JH#TPRGM PROVIDES A PANEL TO RUN IEHPROGM * 00687900 //* FOREGROUND. TO USE IT ADD THE FOLLOWING ENTRY TO A * 00688000 //* SELECTION PANEL: * 00688100 //* NN,'CMD(%JH#TPRGM PANEL(JHTEP0M) * 00688200 //* PANEL2(JHTEP0M2) SKEL(JHTES0M))' * 00688300 //* * 00688400 //* 13. PROGRAM JH#EDTMP PUTS THE USER INTO EDIT OF AN ISPF * 00688500 //* TEMPORARY CONTROL DATA SET (ISPCTLN). IT SUPPORTS * 00688600 //* VIO AS WELL AS DASD DATA SETS. IF NO PARM IS * 00688700 //* SUPPLIED, THE DATA SET ASSOCIATED WITH THE CURRENT * 00688800 //* LOGICAL SCREEN IS USED. TO ACCESS THE DATA SET * 00688900 //* USED BY THE PDF SUBMIT COMMAND, USE A PARM OF 0 * 00689000 //* (ZERO). THIS PROGRAM MAY BE INVOKED VIA THE ISPF * 00689100 //* SELECT SERVICE FROM ANOTHER DIALOG FUNCTION. AN * 00689200 //* ENTRY MAY ALSO BE PLACED IN A COMMAND TABLE: * 00689300 //* * 00689400 //* VERB T ACTION * 00689500 //* EDTEMP 3 SELECT PGM(JH#EDTMP) PARM(&ZPARM) * 00689600 //* NEWAPPL(ISR) * 00689700 //* * 00689800 //* THEN A USER CAN ENTER THE EDTEMP COMMAND ON ANY * 00689900 //* SCREEN AND EDIT THE DATA SET. * 00690000 //* * 00690100 //* CONTENTS OF THIS PDS: * 00690200 //* * 00690300 //* SOURCE: JH#EDTMP * 00690400 //* JH#GTDSN * 00690500 //* JH#PDF8 * 00690600 //* * 00690700 //* MACROS: ENTER * 00690800 //* ISPCALL * 00690900 //* LEAVE * 00691000 //* REQUS * 00691100 //* SCANLINE * 00691200 //* * 00691300 //* JCL: $INSTALL (COPY ISPF COMPONENTS AND * 00691400 //* ASSEMBLE PROGRAMS) * 00691500 //* * 00691600 //* $LOAD (SAMPLE JCL TO LOAD * 00691700 //* DISTRIBUTION LIB FROM TAPE) * 00691800 //* * 00691900 //* CLISTS: SEE IEBCOPY STATEMENTS IN $INSTALL * 00692000 //* MEMBER * 00692100 //* * 00692200 //* PANELS: SEE IEBCOPY STATEMENTS IN $INSTALL * 00692300 //* MEMBER PLUS MODIFIED ISR^PRIM * 00692400 //* * 00692500 //* SKELETONS: SEE IEBCOPY STATEMENTS IN $INSTALL * 00692600 //* MEMBER * 00692700 //* * 00692800 //* MESSAGES: SEE IEBCOPY STATEMENTS IN $INSTALL * 00692900 //* MEMBER * 00693000 //* * 00693100 //***FILE 013 CONTAINS A PROGRAM DEVELOPED AT GRUMMAN WHICH PRINTS * 00693200 //* THE CURRENT SYSTEM CONFIGURATION . MEMBER ' CONFJCL ' * 00693300 //* IS SAMPLE JCL . * 00693400 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00693500 //* * 00693600 //***FILE 014 CONTAINS SOME UTILITIES FROM GRUMMAN DATA SYSTEMS * 00693700 //* 1 MCOREZAP IS A PROGRAM TO ZAP COMMON AREAS OF * 00693800 //* VIRTUAL MEMORY . IT HAS ONLY BEEN USED ON THE * 00693900 //* NUCLUES * 00694000 //* 2 PSLSTBLD IS THE ZAP DEVELOPED TO REDUCE THE * 00694100 //* EXCESSIVE CPU TIME CONSUMED IN NON-SPECIFIC * 00694200 //* DEVICE ALLOCATION * 00694300 //* 3 PLSAB436 CONTAINS ONLY THE PL/S CODE FOR THE * 00694400 //* ABOVE ZAP * 00694500 //* 4 UICMON IS A PROGRAM TO MONITOR THE UIC VALUE * 00694600 //* RECEIVED BY AN ONLINE SYSTEM . IT IS INTENDED AS * 00694700 //* A TOOL TO TUNE THE VARIABLE STORAGE FENCE MOD * 00694800 //* 5 VARFENCE IS GRUMMAN DATA SYSTEMS VERSION OF THE * 00694900 //* VARIABLE STORAGE FENCE MOD . IT USES A TABLE TO * 00695000 //* DEFINE ANY NUMBER OF FENCED ADDRESS SPACES * 00695100 //* * 00695200 //***FILE 015 IS THE TSO COMMAND PROCESSOR CALLED STATE THIS TSO * 00695300 //* COMMAND PROCESSOR WILL ISSUE A MESSAGE INDICATING * 00695400 //* THE STATE ( STATUS ) A NAMED DATASET AND PASS A RETURN 00695500 //* CODE INDICATING SAME ( SIMILAR TO THE LISTDS COMMAND ) 00695600 //* THIS COMMAND HOWEVER, WILL PASS A REURN CODE ALLOWING * 00695700 //* A CLIST TO QUERY A DATASET'S STATE ( STATUS 0 PRIOR TO 00695800 //* ISSUING DELETE OR ALLOCATE COMMANDS * 00695900 //* * 00696000 //* AN OPTIONAL PARAMETER (RETCODE) ALLOWS THE USE OF THE * 00696100 //* RETURN CODE FEATURE WITHOUT ANY MESSAGES BEING ISSUED * 00696200 //* * 00696300 //* STATE AS USED HERE IMPLIES STATUS OF A DATASET . * 00696400 //* THE STATUS (EXISTS OR DOES NOT EXIST) MAY BE PASSED * 00696500 //* TO A CLIST VIA RETURN CODES AS FOLLOWS : * 00696600 //* * 00696700 //* RETURN CODE 0 = THE DATASET IS CATALOGED AND EXISTS * 00696800 //* 4 = THE DATASET IS CATALOGED , * 00696900 //* BUT DOES NOT EXIST * 00697000 //* 8 = THE DATASET IS NOT CATALOGED * 00697100 //* * 00697200 //***FILE 016 IS THE PGM TO GENERATE A PTF TAPE XREF REPORT . THIS * 00697300 //* PROGRAM WILL GENERATE FOUR REPORTS : * 00697400 //* * 00697500 //* REPORT 01 WILL BE A LIST OF ALL THE PTF'S ON THE TAPE * 00697600 //* * 00697700 //* REPORT 02 WILL CONTAIN A LIST OFF ALL ELEMENTS (MODULE , * 00697800 //* MACROS , ETC . ) ON THE TAPE AND THE PTF ' S * 00697900 //* THAT REFERENCE THEM * 00698000 //* * 00698100 //* REPORT 03 WILL LIST ALL THE COVER LETTERS ON THE TAPE * 00698200 //* * 00698300 //* REPORT 04 WILL LIST ALL THE FMID ' S ON THE TAPE AND THE * 00698400 //* PTF ' S THAT REFERENCE THOSE FMIDS * 00698500 //* * 00698600 //***FILE 017 CONTAINS SEVERAL UTILITIES FROM RAINIER BANK * 00698700 //* CDSLIST - A MODIFIED VERSION OF THE CDSLIST * 00698800 //* PROGRAM , ORIGINALLY FROM FILE 132 OF THE * 00698900 //* CBT TAPE . MODIFIED FOR SYSPRINT LRECL OF * 00699000 //* 150 . ALSO , A CONTROL CARD IN SYSIN OF THE * 00699100 //* FORM FMID=XXXXXXX WILL RESTRICT THE * 00699200 //* LISTING TO THOSE ELEMENTS OWNED BY THE * 00699300 //* SPECIFIED FMID . THIS WAS A COPY OF CDSLIST * 00699400 //* BEFORE IT WAS UPDATED ON 1-28-80 ( VERSION * 00699500 //* 134 OF THE CBT TAPE ) . * 00699600 //* DISKMAPA - A PROGRAM TO ALLOCATE ALL ONLINE DASD * 00699700 //* VOLUMES AND THEN LINK TO THE DISK MAPPING * 00699800 //* PROGRAM DISKMAP ( FROM CBT FILE 260 ). MUST * 00699900 //* BE LINKED AC=1 . REQUIRES DYNAM FROM CBT * 00700000 //* FILE 89 OR THE SLIGHTLY MODIFIED VERSION * 00700100 //* FROM THIS FILE . * 00700200 //* DYNAM - A SLIGHTLY MODIFIED VERSION OF THE DYNAMIC * 00700300 //* ALLOCATION INTERFACE FROM CBT FILE 89 . * 00700400 //* HANDLES MORE OF THE ALLOWABLE ALLOCATION * 00700500 //* KEYWORD UNITS THAN THE VERSION ON THE * 00700600 //* TAPE . * 00700700 //* RGROUP - FOR SHOPS THAT RUN RACF , ALLOWS THE USER * 00700800 //* TO SWITCH TO A DIFFERENT CONNECT GROUP * 00700900 //* WITHOUT HAVING TO LOGOFF AND LOG BACK ON * 00701000 //* SPECIFYING THE DIFFERENT GROUP ON THE * 00701100 //* LOGON COMMAND . BASICALLY , IT PERFORMS A * 00701200 //* RACINIT "CHANGE" FUNCTION . MUST BE LINKED * 00701300 //* AND EXECUTED AC=1 . CAN BE RUN IN BATCH OR * 00701400 //* AS A TSO CP . * 00701500 //* SPFCOPY - A PROGRAM TO COPY A " CARD-IMAGE " DATASET * 00701600 //* OR PDS MEMBER INTO A PDS MEMBER WITH * 00701700 //* DISP=SHR . PRESERVES DATASET INTEGRITY BY * 00701800 //* USING AN SPF ENQUEUE/RESERVE TO LOCK OUT * 00701900 //* OTHER RUNNING SPFCOPY PROGRAMS OR TSO * 00702000 //* USERS WHILE THE COPY TAKES PLACE . * 00702100 //* VTOC - A TSO CP FOR LOOKING AT VTOCS AND * 00702200 //* OPTIONALLY SCRATCHING AND UNCATALOGING * 00702300 //* DATA SETS . CONTAINS SOME INSTALLATION * 00702400 //* SENSITIVE CODE , BUT SHOULD WORK WITHOUT * 00702500 //* MODIFICATION . THE VTOC COMMAND CAN INVOKE * 00702600 //* THE PDS COMMAND (VIA ' ALIAS ' LPDS) OR THE * 00702700 //* RLSE COMMAND , BUT IT REQUIRES THE PCF X * 00702800 //* FACILITY TO DO SO * 00702900 //* MACROS - NEEDED BY VTOC * 00703000 //* LOCUCB * 00703100 //* REGEQU * 00703200 //* RSAVE * 00703300 //* RTURN * 00703400 //* * 00703500 //***FILE 018 IS THE DOCUMENTATION FROM CONRAIL FOR THEIR PROGRAM * 00703600 //* CALLED TSUPDATE WHICH IS CONTAINED IN LOAD MODULE * 00703700 //* FORM IN FILE 035 OF THIS TAPE . THIS IS A PROGRAM * 00703800 //* WHICH IS A VERY FLEXIBLE , DYNAMIC MASS CHANGE PDS * 00703900 //* TO MANIPULATE PDS ' S . UNFORTUNATELY THERE IS NO * 00704000 //* SOURCE AVAILABLE . YOU WILL FIND IF YOU EXECUTE THE * 00704100 //* CODE THAT IT IS A PROPRIETARY PROGRAM FROM CONRAIL * 00704200 //* BUT THEY HAVE GIVEN PERMISSION THAT IT BE PUT * 00704300 //* ON THIS TAPE . THIS FILE IS 133 X 32718 FBA * 00704400 //* * 00704500 //***FILE 019 IS A SERIES OF PROGRAMS FROM THE BRITISH COLUMBIA * 00704600 //* SYSTEMS CORPORATION , CANADA . THIS SOFTWARE CONSISTS * 00704700 //* OF : * 00704800 //* A NETSOL - A VTAM RECORD MODE NETWORK SOLICITOR * 00704900 //* B NESTOP - A VTAM PROGRAMMED OPERATOR * 00705000 //* C NETINIT - A VTAM APPLICATION USED TO START VTAM * 00705100 //* APPLICATIONS ONCE VTAM IS UP * 00705200 //* THIS SOFTWARE IS CURRENTLY RUNNING AT BCSC AT MVS 3.8 * 00705300 //* AS ON 5/83 ACF/VTAM 2 ACF/NCP 2 . * 00705400 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND THE MEMBER * 00705500 //* CALLED $DOC HAS ADDTIONAL INFORMATION * 00705600 //* * 00705700 //* MEMBER DESCRIPTION * 00705800 //* * 00705900 //* $DOC THIS MEMBER * 00706000 //* @NETINIT VTAM APPLICATION DEFINITION FOR ' NETINIT ' * 00706100 //* @NETSOL VTAM APPLICATION DEFINITION FOR ' NETSOL ' * 00706200 //* @NETSTOP VTAM APPLICATION DEFINITION FOR ' NETSTOP ' * 00706300 //* LOGTAB VTAM INTERPRET TABLE USED BY ' NETSOL ' * 00706400 //* LOGTABA JCL TO ASSEMBLE ' LOGTAB ' . NOTE THAT * 00706500 //* ACF/VTAM 2 ALLOWS THE INTERPRET TABLE TO GO * 00706600 //* IN ' SYS1.VTAMLIB '. * 00706700 //* MACROS MACROS USED BY NETSOL * 00706800 //* NETINIT VTAM APPLICATION TO HANDLE STARTUP OF VTAM * 00706900 //* APPLICATIONS * 00707000 //* NETINIT$ INSTALLATION INSTRUCTIONS FOR 'NETINIT' AND * 00707100 //* ' NETSTOP ' * 00707200 //* NETINITA JCL TO ASSEMBLE ' NETINIT ' . * 00707300 //* NETINITI SAMPLE INPUT TO ' NETINIT ' . * 00707400 //* NETINITP SAMPLE JCL TO RUN ' NETINIT ' * 00707500 //* NETSOL VTAM RECORD-MODE NETWORK SOLICITOR * 00707600 //* ' NETSOL ' * 00707700 //* NETSOL$ INSTALLATION INSTRUCTIONS FOR 'NETSOL' * 00707800 //* NETSOLA JCL TO ASSEMBLE ' NETSOL ' * 00707900 //* NETSOLP SAMPLE JCL TO RUN ' NETSOL ' * 00708000 //* NETSTOPI SAMPLE INPUT TO ' NETSTOP ' * 00708100 //* NETSTOPP SAMPLE JCL TO RUN ' NETSTOP ' * 00708200 //* * 00708300 //***FILE 020 WAS SUBMITTED FROM MEMOREX AND CONTAINS A TSO * 00708400 //* COMMAND PROCESSOR TO INVOKE THE WATERLOO SCRIPT PGM . * 00708500 //* THIS FILE DOES NOT CONTAIN THE WATERLOO SCRIPT * 00708600 //* PGM . A HELP MEMBER IS ALSO INCLUDED AND THIS FILE * 00708700 //* IS IN IEBUPDTE SYSIN FORMAT * 00708800 //* * 00708900 //***FILE 021 CONTAINS THE JCL AND ZAPS FOR DMS . * 00709000 //* THE DYNAMIC MONITOR SYSTEM MONITORS THE INTER-ACTIONS * 00709100 //* BETWEEN THE OS/VS SYSTEM EVENTS AND THE CORRESPONDING * 00709200 //* DYNAMICALLY ACTIVATED EVENT HANDLING ROUTINES . A * 00709300 //* STANDARD SET OF EVENT HANDLING ROUTINES IS AVAILABLE . * 00709400 //* THIS ROUTINE PERFORMS AN EVENT TRACE FUNCTION . DMS * 00709500 //* WAS DEVELOPED SPECIFICALLY TO ANALYSE THE I/O * 00709600 //* ACTIVITIES OF AN IBM/OS 370 MVS-MP SYSTEM . * 00709700 //* A PRINCIPAL DESIGN GOAL FOR DMS IS TO KEEP THE CPU * 00709800 //* OVERHEAD AND STORAGE REQUIREMENTS BELOW AN ACCEPTABLE * 00709900 //* THERSHOLD , SO IT WILL BE POSSIBLE TO MONITOR AN ENTIRE 00710000 //* TP NETWORK DURING THE ENTIRE ONLINE OPERATION . * 00710100 //* IN ADDITION , DMS GIVES THE SYSTEM PROGRAMMER A * 00710200 //* CONVENIENT MEANS OF WRITING SIMPLE PROGRAMS CONTAINING * 00710300 //* BOTH SELECTION AND DECISION LOGIC WHICH CAN BE BASED * 00710400 //* ON A SELECTED GROUP OF SYSTEM EVENTS . THE TIME STAMP * 00710500 //* FROM THE TIME OF DAY CLOCK GIVES THE POSSIBILITY TO * 00710600 //* CREATE REPRODUCABLE TIME MEASUREMENTS . * 00710700 //* DMS IS A HELPFULL TOOL FOR PROBLEM DETERMINATION * 00710800 //* * 00710900 //***FILE 022 CONTAINS THE DOCUMENTATION FOR DMS * 00711000 //* * 00711100 //***FILE 023 CONTAINS THE NON-MVS/SE SOURCE FOR DMS . FILE IS * 00711200 //* IN IEBUPDTE FORMAT * 00711300 //* * 00711400 //***FILE 024 CONTAINS THE NON-MVS/SE LOAD MODULES FOR DMS * 00711500 //* * 00711600 //***FILE 025 CONTAINS THE MVS/SE RELEASE 1 SOURCE FOR DMS . THIS * 00711700 //* FILE IS IN IEBUPDTE FORMAT * 00711800 //* * 00711900 //***FILE 026 CONTAINS THE MVS/SE RELEASE 1 LOAD MODULES FOR DMS * 00712000 //* * 00712100 //***FILE 027 IS THE MTRACE EXIT TO PRINTDUMP . ITS FUNCTION IS TO * 00712200 //* FORMAT THE MASTER TRACE TABLE FOR AN SVC OR STANDALONE * 00712300 //* DUMP . IT WILL 1ST CHECK TO MAKE SURE THAT THE SYSTEM * 00712400 //* HAS SU64 INSTALLED AND THE MASTER TRACE IS ACTIVE . THE 00712500 //* OUTPUT WILL BE IN ' REVERSE ' ORDER DUE TO THE FACT * 00712600 //* THAT THE MASTER TRACE IS A BACKWARD WRAP-AROUND TABLE * 00712700 //* * 00712800 //***FILE 028 IS CBT224 WITH FILE 29 PRODUCES CSECTS WITHIN MODULES * 00712900 //* FOR SMP FROM A SET OF DLIBS * 00713000 //* * 00713100 //***FILE 029 IS CBT225 WITH FILE 28 PRODUCES CSECTS WITHIN MODULES * 00713200 //* FOR SMP FROM A SET OF DLIBS * 00713300 //* * 00713400 //***FILE 030 IS MVS FREEALL WHICH WILL SHOW THE NAMES OF THE FILES * 00713500 //* THAT ARE FREED * 00713600 //* * 00713700 //***FILE 031 IS MVS FREEALL WHICH IS THE SAME AS FILE 30 EXCEPT * 00713800 //* THAT IS WILL NOT SHOW THE NAMES OF THE FREED FILES * 00713900 //* * 00714000 //***FILE 032 CONTAINS AN ACF2 SECURITY EXIT FOR NCCF FROM ROHM AND * 00714100 //* HAAS COMPANY , PA . THIS FILE IS IN IEBUPDTE * 00714200 //* SYSIN FORMAT AND THE MEMBER CALLED $DOC CONTAINS * 00714300 //* ADDITION INFORMATION * 00714400 //* * 00714500 /* THIS MODIFICATION PLACES CONTROL OF IBM ' S NETWORK * 00714600 /* COMMUNICATIONS CONTROL FACILITY ( NCCF ) LOGON SECURITY * 00714700 /* UNDER ACF2 AND PROVIDES A BASE ON WHICH FURTHER ACF2 * 00714800 /* CONTROL OF NCCF FUNCTIONS MAY BE IMPLEMENTED . IT WAS * 00714900 /* DEVELOPED USING NCCF RELEASE 2 BUT SHOULD BE APPLICABLE * 00715000 /* TO EARLIER RELEASES AS WELL . * 00715100 /* * 00715200 /* THE FOLLOWING MEMBERS OF THIS LIBRARY ARE PARTS OF THE * 00715300 /* NCCF LOGON SECURITY MODIFICATION : * 00715400 /* DSIEX14 THE NCCF NORMAL LOGOFF EXIT * 00715500 /* LIDREC SMP FORMAT CHANGES TO USERLID AND * 00715600 /* ACFFDR MEMBERS OF ACFMAC * 00715700 /* M99A0N THE NCCF LOGON SECURITY FRONTEND MODULE * 00715800 /* RH00026 SMP FORMAT UPDATE TO NCCF MACRO DSIPSS * 00715900 /* RH00027 SMP FORMAT ADDITION OF M99A0N AND JCLIN * 00716000 /* FOR DSILAN * 00716100 /* ALL OTHER MEMBERS ARE MACROS REQUIRED TO ASSEMBLE * 00716200 /* DSIEX14 AND/OR M99A0N . ASSEMBLY OF M99A0N AND DSIEX14 * 00716300 /* REQUIRES ACFMAC AND THIS LIBRARY IN THE ASSEMBLER * 00716400 /* SYSLIB CONCATENATION . * 00716500 /* * 00716600 /* LIDREC * 00716700 /* * 00716800 /* THE LIDREC SMP CHANGES ADD THREE FIELDS TO THE USERLID * 00716900 /* PORTION OF THE LIDREC AND DEFINITIONS OF THESE FIELDS * 00717000 /* TO THE ACF2 FIELD DEFINITION RECORD ( FDR >) . THESE * 00717100 /* FIELDS ARE USED TO CONTROL WHO MAY LOGON TO NCCF AND * 00717200 /* WHAT LOGON OPTIONS ARE AVAILABLE . * 00717300 /* * 00717400 /* M99A0N * 00717500 /* * 00717600 /* M99A0N IS THE FRONTEND CODE FOR THE NCCF NORMAL LOGON * 00717700 /* VALIDATION MODULE , DSILAN . WHEN IT RECEIVES CONTROL , * 00717800 /* IT ALLOCATES A PRIVATE DATA AREA WHICH IS CHAINED FROM * 00717900 /* THE NCCF TASK VECTOR BLOCK ( TVB ) USER FIELD , TVBUFLD , * 00718000 /* AND CONTAINS THE ACF2 REQUEST PARAMETER LIST , MESSAGE * 00718100 /* BUFFER , AND POINTERS TO THE ACMCB AND LIDREC FOR THE * 00718200 /* LOGGED ON USER . M99A0N THEN PROCEEDS TO PRE-VALIDATE * 00718300 /* THE LOGONID AND PASSWORD ENTERED ON THE NCCF LOGON * 00718400 /* SCREEN AND CALLS ACF2 TO VALIDATE THE LOGONID/PASSWORD * 00718500 /* COMBINATION AND RETURN THE APPROPRIATE LIDREC . IF THE * 00718600 /* COMBINATION IS VALID , THE PASSWORD ENTERED BY THE USER * 00718700 /* IS CHANGED TO A CONSTANT ' A ' SO THAT THE NCCF DSIOPF * 00718800 /* MEMBER NEED NOT BE MAINTAINED FOR PASSWORD CHANGES AND * 00718900 /* THE NCCF LOGON CONTROL BIT IN THE LIDREC IS CHECKED TO * 00719000 /* ASSURE THAT THE LOGONID IS APPROVED TO USE NCCF . * 00719100 /* * 00719200 /* WITH THE LIDREC AVAILABLE, M99A0N CHECKS FOR ENTRY OF * 00719300 /* AN NCCF PROFILE NAME ON THE LOGON SCREEN . IF ONE IS * 00719400 /* ENTERED , A BIT IN THE LIDREC IS TESTED FOR AUTHORITY TO * 00719500 /* ENTER A PROFILE NAME . IF NO PROFILE NAME IS ENTERED, * 00719600 /* THE PARSE DESCRIPTOR BLOCK ( PDB ) FOR THE LOGON COMMAND * 00719700 /* AND THE LOGON COMMAND BUFFER ARE ALTERED TO CONTAIN THE * 00719800 /* DEFAULT PROFILE NAME FROM THE LIDREC . * 00719900 /* * 00720000 /* M99A0N ALSO VALIDATES THE HARDCOPY DEVICE NAME FROM THE * 00720100 /* LOGON COMMAND. IF THE DEVICE NAME IS ' NO ' , IT IS * 00720200 /* ELIMINATED FROM THE PDB. IF THE DEVICE NAME IS ' YES ' , * 00720300 /* THE LIDREC HARDCOPY DEVICE FIELD IS TESTED FOR AN * 00720400 /* ENTRY ; IF THE LIDREC HARDCOPY DEVICE FIELD CONTAINS A * 00720500 /* DEVICE NAME , IT IS SUBSTITUTED IN THE PDB AND COMMAND * 00720600 /* BUFFER FOR THE WORD ' YES ' ; IF THE LIDREC HARDCOPY * 00720700 /* DEVICE FIELD CONTAINS NO ENTRY , THE REQUEST FOR * 00720800 /* HARDCOPY LOGGING IS REJECTED . IF THE DEVICE NAME * 00720900 /* ENTERED IN THE LOGON COMMAND IS NEITHER ' YES ' NOR ' NO ' , * 00721000 /* IT IS ASSUMED TO BE A DEVICE NAME AND A BIT IN THE * 00721100 /* LIDREC IS TESTED FOR AUTHORITY TO ENTER A HARDCOPY * 00721200 /* DEVICE NAME . * 00721300 /* * 00721400 /* IF ALL LOGON VALIDATION CHECKS ARE PASSED SUCCESSFULLY, * 00721500 /* CONTROL IS PASSED TO DSILAN WITH NO EVIDENCE OF * 00721600 /* M99A0N ' S EXISTENCE EXCEPT THE PRIVATE DATA AREA CHAINED * 00721700 /* FROM TVBUFLD . THIS DATA AREA IS AVAILABLE TO ALL OTHER * 00721800 /* NCCF FUNCTIONS FOR THE USER AND ITS POINTERS TO ACF2 * 00721900 /* DATA AREAS MAY THEREFORE BE USED TO IMPLEMENT * 00722000 /* ADDITIONAL ACF2 CONTROL OF NCCF FUNCTIONS . IF THE * 00722100 /* LOGON ATTEMPT FAILS VALIDATION, CONTROL IS RETURNED TO * 00722200 /* M99A0N ' S CALLER AFTER RELEASING ALL RESOURCES ACQUIRED . * 00722300 /* * 00722400 /* A CONSEQUENCE OF THIS APPROACH IS THAT ALL POSSIBLE * 00722500 /* VALID COMBINATIONS OF LOGON PARAMETERS MUST BE DEFINED * 00722600 /* IN NCCF ' S PARAMETER MEMBERS SO THAT A LOGON ATTEMPT * 00722700 /* WHICH PASSES M99A0N VALIDATION IS GUARANTEED TO PASS * 00722800 /* DSILAN ' S VALIDATION . THE EASIEST WAY TO PROVIDE THIS * 00722900 /* GUARANTEE IS TO DEFINE ALL OPERATORS WITH ALL POSSIBLE * 00723000 /* PROFILE NAMES AND LET M99A0N CONTROL THE SITUATION . * 00723100 /* THE SAME IS TRUE FOR HARDCOPY DEVICES ; NCCF SHOULD KNOW * 00723200 /* ALL POSSIBLE HARDCOPY DEVICE NAMES . * 00723300 /* * 00723400 /* NOTE THAT THE LOGONID USED BY THE NCCF STARTED TASK * 00723500 /* MUST HAVE THE MUSASS AND NO-SMC ATTRIBUTES . * 00723600 /* * 00723700 /* DSIEX14 * 00723800 /* * 00723900 /* DSIEX14 IS THE NCCF NORMAL LOGOFF EXIT . ITS FUNCTION * 00724000 /* IN THE MODIFICATION IS TO RELEASE THE PRIVATE DATA AREA * 00724100 /* AND ACF2 RESOURCES ACQUIRED BY M99A0N WHEN THE USER * 00724200 /* LOGGED ON . IT SHOULD BE PLACED IN A LINKLIST LIBRARY * 00724300 /* FOR LOADING BY NCCF . * 00724400 /* * 00724500 /* RH00026 * 00724600 /* * 00724700 /* RH00026 IS A MODIFICATION TO NCCF MACRO DSIPSS ( THIS IS * 00724800 /* THE ONLY ACTUAL MODIFICATION OF NCCF DISTRIBUTED CODE * 00724900 /* CONTAINED IN THIS MOD ) TO SUPPORT THE RESTORE PARAMETER * 00725000 /* OF THE OPTIONS KEYWORD . THIS PARAMETER IS USED * 00725100 /* INTERNALLY BY DSILAN AND IS SUPPORTED BY THE PL/S * 00725200 /* VERSION OF THE DSIPSS MACRO BUT NOT BY THE DISTRIBUTED * 00725300 /* ASSEMBLER VERSION OF THE MACRO . THIS USERMOD SHOULD BE * 00725400 /* INSTALLED BEFORE M99A0N IS ASSEMBLED OR AN MNOTE WILL * 00725500 /* BE ISSUED FOR THE DSIPSS MACRO INSTRUCTION IT CONTAINS . * 00725600 /* * 00725700 /* RH00027 * 00725800 /* * 00725900 /* RH00027 IS THE SMP INSTALLATION OF MODULE M99A0N AS A * 00726000 /* FRONTEND TO DSILAN . IT CONTAINS JCLIN TO INFORM SMP OF * 00726100 /* THE NEW LINKAGE EDIT REQUIREMENTS FOR DSILAN . * 00726200 /* * 00726300 //***FILE 033 IS FROM THE LIBRARY OF CONGRESS AND CONTAINS A COPY * 00726400 //* OF THEIR IEECVXIT . SEE THE CODE FOR ADDITIONAL * 00726500 //* INFORMATION * 00726600 //* * 00726700 //* FUNCTION : THIS PROGRAM IS USED USED AS AN MCS * 00726800 //* EXIT . IT CAN MINIPULATE CONSOLE * 00726900 //* MESSAGES OR TRIGER AN EVENT BECAUSE OF A * 00727000 //* CONSOLE MESSAGE BEING ISSUED . * 00727100 //* * 00727200 //* THIS ROUTINE HAS TWO INTERNAL SUBROUTINES : * 00727300 //* IEECR2D2 IS A SUBROUTINE THAT OPERATES * 00727400 //* UNDER SRB MODE . IRBROUT IS A SUBROUTINE * 00727500 //* THAT REQUESTS SVC 34 FUNCTIONS UNDER AN IRB * 00727600 //* THAT BELONGS TO ' CMD1 ' . ' CMD1 ' IS A TASK * 00727700 //* THAT IS ALWAYS RUNNING . ( IN OUR SHOP ' CMD1 ' * 00727800 //* IS STARTED AT IPL , AND PERFORMS A WAIT THAT * 00727900 //* IS NEVER POSTED ) . * 00728000 //* * 00728100 //* NOTES ON OPERATION : THIS ROUTINE OPERATES AS * 00728200 //* AN MCS EXIT . IT IS CAPABLE OF PERFORMING * 00728300 //* THE FOLLOWING FUNCTIONS : * 00728400 //* * 00728500 //* . CHANGING ROUTING CODES ON MESSAGES SO * 00728600 //* THAT MESSAGES CAN BE SENT TO DIFFERENT * 00728700 //* CONSOLES THAN THOSE ORIGINALLY * 00728800 //* REQUESTED . * 00728900 //* * 00729000 //* . CHANGING DESCRIPTOR CODES ON MESSAGES * 00729100 //* INORDER TO CHANGE MESSAGES TO * 00729200 //* ROLLABLE / NON-ROLLABLE . * 00729300 //* * 00729400 //* . DELETEING MESSAGE COMPLETELY BY CHANGING * 00729500 //* THE ROUTING CODE TO ZERO . * 00729600 //* * 00729700 //* . TRIGERING AN ACTIVITY ( IE . START A TASK * 00729800 //* IF A SPECIFIC MESSAGE IS ISSUED . * 00729900 //* * 00730000 //* . REPLY TO 'WTORS' AUTOMATICALLY * 00730100 //* * 00730200 //* MODULE - IEECVXIT ( MCS EXIT ) REL 2.0 15 JUNE 82 00730300 //* * 00730400 //* THIS MCS EXIT IS BASED ON THE SOURCE FROM * 00730500 //* ' SYS1.SAMPLIB ' FROM THE IPO SYSTEM . THIS CODE * 00730600 //* CAME BY WAY OF FAIRCHILD CAMERA CORPORATION * 00730700 //* THROUGH THE SHARE SPLA MVSMODS TAPE . * 00730800 //* * 00730900 //* THAT IS WHERE THE SIMILIARITY ENDS . WE NOT ONLY * 00731000 //* WANT TO DO THE CHANGING OF ROUTCDE ' S , DESC CODES * 00731100 //* ETC , BUT ALSO WE WANT TO DO SOME AUTOMATIC * 00731200 //* REPLIES . WHY WAKE UP THE OPER- ATOR ??? SO FOR * 00731300 //* THINGS LIKE WHEN VTAM IS INITIALIZED , THEN WE * 00731400 //* ALWAYS ' S TSO '. THUS ' R2D2 ' ( ROUTINE * 00731500 //* IEECR2D2 ) IS NOW ALIVE AND DOING GOOD THINGS . * 00731600 //* EVER GET AN OPERATOR TO REPLY ' HOLD ' TO THAT * 00731700 //* NASTY ALLOCATION MESSAGE AND MAKES YOU 3033 LOOK * 00731800 //* LIKE IT IS RUNNING OS/MVT ( Q4 IS LOCKED ) . SO * 00731900 //* THERE ARE ALL KINDS OF POSSIBILITIES. HOPEFULLY * 00732000 //* THE DIRTY WORK IS DONE . GOOD LUCK ALL * 00732100 //* * 00732200 //* NOTE : MODULE IS REENTRANT AND SHOULD STAY THAT * 00732300 //* WAY * 00732400 //* * 00732500 //* ----- IMPORTANT INSTALLATION NOTE ----- ( JTS-CDC ) * 00732600 //* * 00732700 //* THERE ONCE WAS AN APAR DESCRIBING A DISTRIBUTION * 00732800 //* ERROR FOR THE BASE MVS 3.7 SYSTEM . APAR OZ45469 * 00732900 //* DESCRIBES IT . MODULE IEECVXIT ( DUMMY BR14 MCS * 00733000 //* EXIT ) WAS DISTRIBUTED ON SYS1.AOSC5 WITH THE LKED * 00733100 //* ATTRIBUTES OF ' NONE ' INSTEAD OF ' RENT ' AND ' REFR '* 00733200 //* AS IT SHOULD HAVE BEEN . DURING STAGE 2 OF THE * 00733300 //* SYSGEN PROCESS , THIS MODULE ALONG WITH THREE * 00733400 //* OTHERS ( IEAVVWTO & IEAVMWTO ON AOSC5 AND IGC0203E * 00733500 //* ON AOSB3 ) WERE INCLUDED TOGETHER TO PRODUCE * 00733600 //* MODULE IGC0003E ON LPALIB . ALTHOUGH THE OTHER * 00733700 //* THREE MODULES WERE SHIPPED WITH ' RENT ' AND ' REFR ' * 00733800 //* AS THEY SHOULD HAVE BEEN , THE IEECVXIT MODULE * 00733900 //* ATTRIBUTE OF ' NONE ' CAUSE THE FINAL IGC0003E * 00734000 //* MODULE TO BE GENERATED AS ' NOT RENT ' AND ' NOT * 00734100 //* REFR ' . IGC0003E RUNNING SERIAL MODE DOES LITTLE * 00734200 //* FOR SYSTEM PERFORMANCE SINCE IT IS IN CONTROL FOR * 00734300 //* EVERY CONSOLE MESSAGE ISSUED . APAR OZ45469 WAS * 00734400 //* CLOSED AS ' SUGGESTED SYSTEM IMPROVEMENT ' AND * 00734500 //* EVENTUALLY , MVS 3.8 WAS SHIPPED CORRECTLY , * 00734600 //* HOWEVER , THE IPO FOLKS MANAGED TO MAKE THE SAME * 00734700 //* MISTAKE WITH IEECVXIT AND AS FAR AS WAS KNOWN BY * 00734800 //* TAMPA BAY AS OF 5/27/82 ( SEE PROBLEM 5X333 ), THE * 00734900 //* IPO ERROR HAD NOT BEEN OFFICIALLY APARED , BUT * 00735000 //* LEVEL 2 INDICATED AWARENESS OF THE ERROR AND * 00735100 //* PROMISED TO CORRECT THE DISTRIBUTED CODE ON * 00735200 //* FUTURE SHIPS . THE CIRCUMVENTION , OF COURSE , IS * 00735300 //* TO ZAP THE ATTRIBUTE OF IEECVXIT ON AOSC5 AND * 00735400 //* IGC0003E ON LPALIB TO ' RENT ' & ' REFR ' . WE HAVE * 00735500 //* DONE THIS WITHOUT INCIDENT AT CDC . * 00735600 //* * 00735700 //***FILE 034 IS THE SOURCE FOR THE DUMMY GHOST ROUTINES FOR APEMAN * 00735800 //* * 00735900 //***FILE 035 IS A LOAD MOUDLE LIBRARY WITH SEVERAL PROGRAMS WITHIN * 00736000 //* SOURCE FILE LOAD MODULE NAME * 00736100 //* 018 DOCUMENTATION TSUPDATE * 00736200 //* 038 SOURCE BPAGE STARTREK * 00736300 //* 038 SOURCE CPAGE STARTREK * 00736400 //* 038 SOURCE QTIME STARTREK * 00736500 //* 038 SOURCE QDATE STARTREK * 00736600 //* 038 SOURCE DEDUCT STARTREK * 00736700 //* 038 SOURCE RANKING STARTREK * 00736800 //* 038 SOURCE ST79INIT STARTREK * 00736900 //* 038 SOURCE SUPRTREK STARTREK * 00737000 //* 112 SOURCE $VTOC * 00737100 //* 128 SOURCE ADVENT * 00737200 //* 145 SOURCE CPU FROM HOBART * 00737300 //* 182 SOURCE PDSXXX * 00737400 //* 255 SOURCE RMFPP * 00737500 //* 294 SOURCE VSAMADTL VSAMANAL * 00737600 //* 294 SOURCE VSAMAGET VSAMANAL * 00737700 //* 294 SOURCE VSAMAHLP VSAMANAL * 00737800 //* 294 SOURCE VSAMANAL VSAMANAL * 00737900 //* 294 SOURCE VSAMANDX VSAMANAL * 00738000 //* 294 SOURCE VSAMSIZE VSAMANAL * 00738100 //* 299 SOURCE TAPEMAP * 00738200 //* 317 SOURCE ADL STATDIE SYSTEM * 00738300 //* 317 SOURCE AMDPRSEG STATDIE SYSTEM * 00738400 //* 317 SOURCE ASMTOZAP STATDIE SYSTEM * 00738500 //* 317 SOURCE COMWAIT STATDIE SYSTEM * 00738600 //* 317 SOURCE LINKER STATDIE SYSTEM * 00738700 //* 317 SOURCE LOADPTR STATDIE SYSTEM * 00738800 //* 317 SOURCE PLIMISC STATDIE SYSTEM * 00738900 //* 317 SOURCE PTRIN STATDIE SYSTEM * 00739000 //* 317 SOURCE PTROUT STATDIE SYSTEM * 00739100 //* 317 SOURCE SDL STATDIE SYSTEM * 00739200 //* 317 SOURCE STATDIE STATDIE SYSTEM * 00739300 //* 317 SOURCE STATPOST STATDIE SYSTEM * 00739400 //* 317 SOURCE STATSTDE STATDIE SYSTEM * 00739500 //* 317 SOURCE STATUTL STATDIE SYSTEM * 00739600 //* 317 SOURCE STCK STATDIE SYSTEM * 00739700 //* 317 SOURCE SVC STATDIE SYSTEM * 00739800 //* 317 SOURCE TCAPTR STATDIE SYSTEM * 00739900 //* 317 SOURCE TODCNVRT STATDIE SYSTEM * 00740000 //* 317 SOURCE TODCNVT STATDIE SYSTEM * 00740100 //* 318 SOURCE ANALYSIS PACKER SYSTEM * 00740200 //* 318 SOURCE DIRECT PACKER SYSTEM * 00740300 //* 318 SOURCE GENCNTS PACKER SYSTEM * 00740400 //* 318 SOURCE LPAMAP PACKER SYSTEM * 00740500 //* 318 SOURCE MODMAP PACKER SYSTEM * 00740600 //* * 00740700 //***FILE 036 IS A COLLECTION OF AMDPRDMP EXITS AND ZAPS REQUIRED * 00740800 //* FOR PUT8004 LEVEL . THIS FILE IS FROM SHERING-PLOUGH * 00740900 //* AND IS IN IEBUPDTE SYSIN FORMAT * 00741000 //* * 00741100 //***FILE 037 IS AN MVS VERSION OF COPYCAT TO MOVE , SPLIT , AND/OR * 00741200 //* REORGANIZE CVOLS CATALOGS . THIS VERSION RUNS UNDER * 00741300 //* MVS AND THE RESULTANT CVOL MAY BE LISTED WITH IEHLIST * 00741400 //* THIS VERSION HAS 3380 AND 3375 SUPPORT ADDED FROM * 00741500 //* UCLA . THIS FILE IS IN IEBUPDTE SYSIN FORMAT SEE THE * 00741600 //* MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION . * 00741700 //* * 00741800 //* $CBTJCL .. THE JCL USED AT CBT TO INSTALL * 00741900 //* $MANUAL .. THE COPYCAT MANUAL * 00742000 //* $UCLAJCL . THE JCL USED AT UCLA TO INSTALL * 00742100 //* COPYCAT .. COPYCAT CODE ITSELF * 00742200 //* FIX1 .. FIX ESATE01 - CONVERTS COPYCAT FROM STAE TO * 00742300 //* ESTAE USE AND CORRECTS AN S30A ABEND THAT * 00742400 //* OCCURS FOLLOWING AN X37 ABEND * 00742500 //* FIX2 ..... FIX XCP200 - CORRECTS AN S200 ABEND THAT * 00742600 //* INTERMITTENTLY OCCU IN COPYCAT AFTER AN * 00742700 //* 'X37' ABEND DUE TO ALL OF THE I/O NOT HAVING * 00742800 //* COMPLETED BEFORE SVC55 IS ISSUED FOR AN * 00742900 //* END-OF-VOLUME INDICATION . * 00743000 //* OAC1 ..... FIX DEV3380 - ADDS 3380 SUPPORT TO COPYCAT * 00743100 //* OAC2 ..... FIX HASH001 - UCLA LOCAL MODE . SEE MEMBER * 00743200 //* FOR ADDITIONAL INFORMATION * 00743300 //* * 00743400 //***FILE 038 IS A SERIES OF THREE PROGRAM FROM FEDERAL EXPRESS * 00743500 //* 01 SMPSEL - A PROGRAM THAT ' S BEEN FOUND TO BE * 00743600 //* VERY USEFUL IN APPLYING MAINTENANCE TO MVS , * 00743700 //* EXPECIALLY WITH PUT . YOU CAN SELECT EVERY * 00743800 //* SYSMOD IN THE PTS THAT IS APPLICABLE TO A * 00743900 //* PARTICULAR FMID . THIS CAN THEN BE USED TO * 00744000 //* AUGMENT THE EXCLUDE LIST * 00744100 //* 02 PROGDQUE - A PROGRAM THAT WILL BUILD THE PRINT * 00744200 //* QUEUE DATASET FOR THE TSO/VTAM VERSION OF DSPRINT * 00744300 //* IT REPLACES THE USE OF IEBDG TO INITIALIZE THE * 00744400 //* DATASET . IT IS MUCH FASTER AND EASIER TO USE , * 00744500 //* EXPECIALLY FOR LARGE NUMBER OF PRINTERS * 00744600 //* 03 SUPRTREK - AN ADVANCED VERSION OF STARTRE * 00744700 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00744800 //* BPAGE CPAGE DEDUCT QDATE QTIME RANKING * 00744900 //* ST79INIT SUPRTREK . YOU NEED FORTRAN H TO COMPILE * 00745000 //* THIS CODE , IT APPEARS THAT FORTRAN G1 WORKS BUT * 00745100 //* IT DOES NOT PROPERLY RUN AFTER A G1 COMPILE * 00745200 //* * 00745300 //***FILE 039 CONTAINS SEVERAL PROGRAMS , TSO COMMAND PROCESSORS , * 00745400 //* MACROS , ETC ., FROM A MIDWESTERN INSTALLATION . THIS * 00745500 //* FILE IS IN IEBUPDTE SYSIN FROMAT . SEE THE MEMBER * 00745600 //* CALLED $$$DOC FOR ADDITIONAL INFORMATION * 00745700 //* * 00745800 //***FILE 040 IS A SP1.3 VER OF DIDOCS FROM DANIEL INTERNATIONAL * 00745900 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00746000 //* * 00746100 //***FILE 041 IS THE CHIMP MVS MONITOR * 00746200 //* TO INSTALL THIS MONITOR ASSEMBLE AND LINKEDIT IT INTO * 00746300 //* A LINK-LIST LIBRARY . THEN FROM TSO JUST CALL IT * 00746400 //* FROM A 3270 TUBE * 00746500 //* SEE THE ACTUAL CODE FOR HOW TO CHANGE DISPLAYS . * 00746600 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS AN * 00746700 //* MVS/SE VERSION AND A NON-MVS/SE VERSION * 00746800 //* * 00746900 //***FILE 042 IS AN IEBUPDTE STREAM FROM KAISER PERMANENTE OF THE * 00747000 //* USER MODIFICATIONS THAT THEY HAVE APPLIED TO THEIR * 00747100 //* SYSTEM * 00747200 //* * 00747300 //***FILE 043 IS THE SAMPLE OUTPUT FROM KAISER'S IEFACTRT SMF EXIT * 00747400 //* THE SOURCE IS IN FILE 42 . LRECL=133,BLKSIZE=32718 * 00747500 //* * 00747600 //***FILE 044 IS FROM KAISER AND CONTAINS CLISTS FOR THE PGMS IN * 00747700 //* FILE 42 . IT IS IN IEBCOPY FORMAT * 00747800 //* * 00747900 //***FILE 045 IS AN ENHANCEMENT TO THE YALE COMPARE PROGRAM THAT IS * 00748000 //* IN FILE 226 OF THIS TAPE . THE PUPOSE OF THIS CODE IT TO * 00748100 //* ALLOW THE COMPARE PGM TO PROCESS TWO PDS FILES RATHER * 00748200 //* THAN TWO SEQUENTIAL FILES THE PROGRAM IS SELF CONTAINED * 00748300 //* SIMPLY ASSEMBLE AND LINK AND IT ' S READY TO USE . * 00748400 //* ADDITIONAL INFORMATION ON HOW TO USE THE PROGRAM IS * 00748500 //* CONTAINED AS COMMENTS AT THE BEGINNING OF THE CODE * 00748600 //* ITSELF . ALSO INCLUDED IS THE JES2 SOURCE COMPARE SYSTEM * 00748700 //* COMPONENTS OF THIS FILE : * 00748800 //* $$DOC - DOCUMENTATION OF THE JES2 COMPARE SYSTEM * 00748900 //* PDSCMPR - ORIGINAL PDS COMPARE PROGRAM * 00749000 //* JES2 SOURCE COMPARE SYSTEM * 00749100 //* JES2CMPR - AN ASSEMBLY LANGUAGE PROGRAM THAT * 00749200 //* IS A MODIFICATION OF THE PDSCMPR * 00749300 //* PROGRAM . THIS PROGRAM CREATES A * 00749400 //* PDS THAT CONTAINS ALL OF THE * 00749500 //* CHANGES BETWEEN TWO RELEASES . * 00749600 //* JES2LIST - AN ASSEMBLY LANGUAGE PROGRAM THAT * 00749700 //* READS THE ABOVE PDS , THE SYSPRINT * 00749800 //* OUTPUT FROM THE ASSEMBLER AND * 00749900 //* PRINTS A NEW ASSEMBLY LISTING * 00750000 //* SHOWING WERE CHANGES HAVE * 00750100 //* OCCURRED * 00750200 //* CMPRPDS - A JCL STREAM THAT EXECUTES JES2CMPR * 00750300 //* JES2ASM2 - A PROC THAT EXECUTES * 00750400 //* THE ASSEMBLER AND THEN JES2LIST TO * 00750500 //* CREATE THE POST ASSEMBLY LISTING * 00750600 //* ASM88888 - A JCL STREAM THAT ASSEMBLES ALL OF * 00750700 //* THE JES2 MODULES * 00750800 //* THIS FILE IN IS IEBUPDTE SYSIN FORMAT * 00750900 //* * 00751000 //***FILE 046 IS THE MASS MUTUAL DISK PACK MAINTENANCE * 00751100 //* PROGRAM IT ' S ONLY FUNCTION IS TO EXAMINE THE * 00751200 //* VTOC OF A PARTICULAR VOLUME AND SCRATCH THE * 00751300 //* DATASETS SPECIFIED . THE UNCATALOG ONLY OCCURS * 00751400 //* IF THE DATA SET IS CATALOGUED ON THE VOLUME * 00751500 //* CURRENTLY BEING EXAMINED . IF IT IS A MULTI * 00751600 //* VOLUME DATA SET IT IS NOT SCRATCHED OR * 00751700 //* UNCATALOGUED . THIS PROGRAM HAS BEEN USED ON * 00751800 //* 3330 AND 3350 DEVICES . IT HAS BEEN RUN UNDER * 00751900 //* MVS 3.8 VANILLA AND MVS 3.8 SP1 . IT MUST RUN * 00752000 //* AUTHORIZED AND THE USER MUST HAVE OPERATOR * 00752100 //* AUTHORIZATION . THE PROMPT SCREEN ALLOWS YOU * 00752200 //* TO ENTER THE VOLSER YOU WISH TO EXAMINE AND * 00752300 //* THE SCAN DATE . A FULL SCREEN OF DATA SETS CAN * 00752400 //* BE SCRATCHED AT A TIME . HITTING THE ENTER KEY * 00752500 //* PAGES YOU FORWARD THROUGH THE VTOC . * 00752600 //* ADDITIONAL INFORMATION MAY BE FOUND IN THE COMMENTS * 00752700 //* OF THE CODE ITSELF * 00752800 //* * 00752900 //***FILE 047 IS A COPY OF IEAIPS00 FROM STANDARD OIL ' S * 00753000 //* MVS/SE ' S SYSTEM * 00753100 //* * 00753200 //***FILE 048 IS THE LISTVOL CP FOR TSO FOR MVS * 00753300 //* * 00753400 //***FILE 049 IS THE LISTSPC CP FOR TSO FROM MVS * 00753500 //* * 00753600 //***FILE 050 IS LOCINDEX SUBROUTINE NEEDED FOR FILES 048 & 049 * 00753700 //* * 00753800 //***FILE 051 IS THE HELP DATA SET FOR LISTVOL AND LISTSPC * 00753900 //* ( CONTAINED IN FILES 48 AND 49 ) * 00754000 //* * 00754100 //***FILE 052 IS THE MACHINE-READABLE SOURCE FOR 'MVS IS BREAKING * 00754200 //* MY HEART' SINCE ITS ORIGINAL RELEASE IN 1975 , THE * 00754300 //* PRODUCT HAS HAD ONLY ONE SERVICE UPDATE AND THAT WAS * 00754400 //* AN RPQ RATHER THAN A BUG ( IDENTIFIED IN THE TEXT * 00754500 //* AS BWM78311 ) * 00754600 //* * 00754700 //***FILE 053 CHKDUMPS SOURCE . THIS PROGRAM DISPLAYS THE TITLE OF * 00754800 //* EACH FULL SYS1.DUMP DATA SET , ALONG WITH THE TIME * 00754900 //* AND DATE WHEN THE DUMP OCCURED . ALL OUTPUT IS * 00755000 //* DIRECTED TO THE OPERATOR ' S CONSOLE . * 00755100 //* A MODULE OF THE AMDPRDMP UTILITY IS NEEDED TO CONVERT * 00755200 //* THE TIME-OF-DAY CLOCK FORMAT TIME STAMP INTO JULIAN * 00755300 //* DATE AND 24 HOUR TIME . * 00755400 //* TO DO THIS THE PROGRAM MUST BE LINKED TOGETHER WITH * 00755500 //* THE AMDPRDMP MODULE NAMED AMDPRESEQ . * 00755600 //* SOURCE FOR AMDPRSEG CAN BE FOUND IN COMP * 00755700 //* LIBRARY 5752-SC113 ON THE SOURCE TAPES DISTRIBUTED * 00755800 //* BY IBM . TO COMPENSATE FOR THE TIME ZONE VARIANCES * 00755900 //* ONE INSTRUCTION MUST BE NOP-ED . IN REL 3 THIS IS * 00756000 //* WITH THE SEQ NUMBER 01322000 . * 00756100 //* THE JCL TO EXECUTE THIS PROG IS AS FOLLOWS , * 00756200 //* //S1 EXEC PGM=CHKDUMPS * 00756300 //* //IN01 DD DSN=SYS1.DUMP01,DISP=SHR,FREE=CLOSE * 00756400 //* //IN02 DD DSN=SYS1.DUMP02,DISP=SHR,FREE=CLOSE * 00756500 //* //IN03 DD DSN=SYS1.DUMP03,DISP=SHR,FREE=CLOSE * 00756600 //* //IN04 DD DSN=SYS1.DUMP04,DISP=SHR,FREE=CLOSE * 00756700 //* //IN05 DD DSN=SYS1.DUMP05,DISP=SHR,FREE=CLOSE * 00756800 //* //IN06 DD DSN=SYS1.DUMP06,DISP=SHR,FREE=CLOSE * 00756900 //* //IN07 DD DSN=SYS1.DUMP07,DISP=SHR,FREE=CLOSE * 00757000 //* //IN08 DD DSN=SYS1.DUMP08,DISP=SHR,FREE=CLOSE * 00757100 //* //IN09 DD DSN=SYS1.DUMP09,DISP=SHR,FREE=CLOSE * 00757200 //* * 00757300 //***FILE 054 IS THE ZAP FOR CHKDUMPS * 00757400 //* * 00757500 //***FILE 055 LPAREA SOURCE CODE . THIS MODULE IS STARTED FROM THE * 00757600 //* CONSOLE AND TAKES A LOAD MODULE NAME AND GIVES THE * 00757700 //* ENTRY POINT ADDRESS OF THE MODULE . IT ALSO TELLS * 00757800 //* THE ADDRESS OF THE START OF THE MLPA ADDRESS * 00757900 //* * 00758000 //***FILE 056 VCOREZAP SOURCE . THIS MODULE PERMITS THE ALTERATION * 00758100 //* OR DISPLAY OF STORAGE LOCATIONS IN THE NUCLEUS , THE * 00758200 //* CSA, OR THE PLPA/MLPA . FOR INFORMATION ON HOW THE * 00758300 //* PROGRAM WORKS ISSUE A START COMMAND FOR THE JOB AND * 00758400 //* REPLY ' EXP ' TO THE WTOR * 00758500 //* * 00758600 //***FILE 057 CONTAINS PANSPOOL WHICH IS A JES2 SYSMSG SPOOLING * 00758700 //* SYSTEM . LARGE COMPUTING SYSTEMS ENCOUNTER PROBLEMS * 00758800 //* IN PRINTING , REVIEWING AND STORING LARGE QUANTITIES * 00758900 //* OF PRODUCTION JCL LISTINGS . PANSPOOL IS A JES2 * 00759000 //* EXTERNAL WRITER THAT INTERCEPTS ALL PRODUCTION JCL * 00759100 //* LISTINGS AND ROUTES THEM TO A PANVALET LIBRARY . THE * 00759200 //* LISTINGS ARE KEPT ONLINE FOR A SPECIFIED NUMBER OF * 00759300 //* DAYS AND THEN ARCHIEVED TO TAPE FOR AN ADDITIONAL * 00759400 //* PERIOD . FAILED JOBS ARE IDENTIFIED TO ELIMINATE THE * 00759500 //* POSSIBILITY OF UNDETECTED FAILURES . JCL LISTINGS CAN * 00759600 //* BE DISPLAYED OR PRINTED VIA A CLIST FROM TSO . FOR * 00759700 //* FURTHER INFORMATION SEE THE MEMBERS CALLED $DOC AND * 00759800 //* #INDEX . * 00759900 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00760000 //* SEE ALSO FILE 067 FOR AN UPDATED VERSION * 00760100 //* * 00760200 //***FILE 058 CONTAINS SEVERAL PROGRAMS , TSO COMMAND PROCESSORS , * 00760300 //* MACROS , ETC ., FROM THE FLORIDA POWER & LIGHT CO . * 00760400 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT . SEE THE * 00760500 //* MEMBER CALLED $$$DOC FOR MORE INFORMATION * 00760600 //* * 00760700 //* SYSTEMS WHICH SUPPORT EXECUTION OF THE TMP IN THE * 00760800 //* BACKGROUND WILL SUPPORT DVOL , DSN , DENQ , AND DSAT * 00760900 //* ( EXCEPT PDS OPTION ) UNDER THE TMP AS BATCH JOBS . * 00761000 //* * 00761100 //* MVS SYSTEMS WHICH ALSO SUPPORT BACKGROUND DYNAMIC * 00761200 //* ALLOCATION WILL SUPPORT ALL OF THE TSO COMMANDS UNDER * 00761300 //* THE TMP AS BATCH JOBS . * 00761400 //* * 00761500 //* THE SOURCE FOR DSAT , DVOL , DSN / DENQ , AND FREEALL IS * 00761600 //* OPERATING SYSTEM DEPENDENT . THE PROPER OPERATING * 00761700 //* SYSTEM MUST BE SPECIFIED AS THE VALUE FOR &OPSYSTM * 00761800 //* BEFORE ASSEMBLING . THE REMAINING PROGRAMS ARE * 00761900 //* OPERATING SYSTEM INDEPENDENT ( MVT SVS MVS ). * 00762000 //* * 00762100 //* THE MVT ASSEMBLER F WILL NOT ASSEMBLE SOME OF THE * 00762200 //* MACROS PROPERLY . THE SVS AND MVS ASSEMBLER XF , THE H * 00762300 //* ASSEMBLER , AND SOME VERSIONS OF THE G ASSEMBLER WILL * 00762400 //* ASSEMBLE THE MACROS WITHOUT ERROR . THE F ASSEMBLER * 00762500 //* DOES NOT RECOGNIZE THE &SYSDATE AND &SYSTIME SYSTEM * 00762600 //* VARIABLE SYMBOLS IN THE $ENTER MACRO AND DOES NOT * 00762700 //* ALLOW THE MNOTE STATEMENT BEFORE THE LOCAL AND GLOBAL * 00762800 //* SYMBOL DEFINITIONS IN SEVERAL OF THE MACROS . * 00762900 //* * 00763000 //* THE FOLLOWING IS A BRIEF DESCRIPTION OF THE MEMBERS IN * 00763100 //* THIS PDS . * 00763200 //* * 00763300 //* MORE DETAILED DOCUMENTATION IS INCLUDED IN COMMENT * 00763400 //* STATEMENTS IN EACH SOURCE PROGRAM AND MACRO . * 00763500 //* * 00763600 //* MACROS REQUIRED TO ASSEMBLE PROGRAMS * 00763700 //* * 00763800 //* $ENTER ENTRY LINKAGE * 00763900 //* $CALL INVOKE A SUBROUTINE * 00764000 //* $RTRN RETURN LINKAGE * 00764100 //* #CTGPL MAP A VSAM CATALOG PARAMETER LIST * 00764200 //* #SORT SORT A TABLE * 00764300 //* #TSOBLKS CONSTRUCT TSO CONTROL BLOCKS * 00764400 //* #TSOMSG CONSTRUCT TSO PUTLINE MESSAGE * 00764500 //* #VTCFMT1 DESCRIBE A FORMAT 1 DSCB * 00764600 //* #VTCFMT3 DESCRIBE A FORMAT 3 DSCB * 00764700 //* #VTCFMT4 DESCRIBE A FORMAT 4 DSCB * 00764800 //* #VTCFMT5 DESCRIBE A FORMAT 5 DSCB * 00764900 //* IKJATRCB IBM MACRO TO MAP ATTRIBUTE CONTROL * 00765000 //* BLOCK ( NOT DISTRIBUTED WITH MVT ) * 00765100 //* * 00765200 //* THE FOLLOWING MACROS MAY BE HELPFUL , BUT ARE * 00765300 //* NOT REQUIRED TO ASSEMBLE THE OTHER PROGRAMS * 00765400 //* * 00765500 //* #UCS GENERATE UCS CHARACTER IMAGES * 00765600 //* IKJEBEST IBM PRIVATE MACRO TO GENERATE TSO * 00765700 //* EDIT SUBCOMMAND TABLE * 00765800 //* TESTMACS IBM PRIVATE MACROS USED TO INSTALL * 00765900 //* AND ASSEMBLE TEST SUBCOMMANDS * 00766000 //* ( AVAILABLE FROM OPTIONAL MATERIAL ) * 00766100 //* BRKELEM BREAK ELEMENT DESCRIPTION * 00766200 //* IKJEGDBE * 00766300 //* IKJEGDME * 00766400 //* IKJEGSIO SET OF I/O MACROS * 00766500 //* IKJEGSPL * 00766600 //* IKJEGSUB GENERATE SUBCOMMAND TABLE * 00766700 //* IKJEGSVB * 00766800 //* IKJEGSVQ * 00766900 //* IKJEGS6A * 00767000 //* IKJEGS9G * 00767100 //* IKJPARMA DESCRIBE AN ADDRESS PDE * 00767200 //* TCOMTAB DESCRIBE TEST COMMUNICATIONS TABLE * 00767300 //* * 00767400 //* PROGRAMS * 00767500 //* * 00767600 //* DSAT TSO COMMAND TO DISPLAY DATA SET * 00767700 //* ALLOCATION * 00767800 //* DSATHELP HELP MEMBER FOR DSAT * 00767900 //* DVOL TSO COMMAND TO DISPLAY FREE SPACE * 00768000 //* ON DIRECT ACCESS VOLUMES * 00768100 //* DVOLHELP HELP MEMBER FOR DVOL * 00768200 //* DSN/DENQ TSO COMMANDS TO DISPLAY * 00768300 //* ALLOCATIONS ON DATA SETS OR ANY * 00768400 //* QNAME/RNAME COMBINATION * 00768500 //* DSNHELP HELP MEMBER FOR DSN * 00768600 //* DENQHELP HELP MEMBER FOR DENQ * 00768700 //* FREEALL TSO COMMAND TO FREE ALL ALLOCATED * 00768800 //* DATA SETS * 00768900 //* FALLHELP HELP MEMBER FOR FREEALL * 00769000 //* RLSE TSO COMMAND TO RELEASE UNUSED * 00769100 //* SPACE FOR DISK DATA SETS * 00769200 //* RLSEHELP HELP MEMBER FOR RLSE * 00769300 //* MMDEL TSO COMMAND TO DELETE MULTIPLE * 00769400 //* MEMBERS FROM A PDS * 00769500 //* MMDLHELP HELP MEMBER FOR MMDEL * 00769600 //* DQ ENHANCED STATUS COMMAND SHOWING * 00769700 //* QUEUE NAME AND POSITION OR * 00769800 //* STEPNAME IF EXECUTING ( FOR JES2 * 00769900 //* VERSION 4.0 OR 4.1 ) * 00770000 //* DQHELP HELP MEMBER FOR DQ * 00770100 //* SS0812 FIND SUBCOMMAND OF TEST * 00770200 //* HELP0812 HELP DATA FOR SS0812 * 00770300 //* SS0813 LISTBKPT SUBCOMMAND OF TEST * 00770400 //* HELP0813 HELP DATA FOR SS0813 * 00770500 //* SS0104 TAPE MAPPING PROGRAM * 00770600 //* SS0278 TAPE DUPLICATION PROGRAM * 00770700 //* SS0108 PROGRAM TO GENERATE CARDS WITH PDS * 00770800 //* MEMBER NAMES SUBSTITUTED FOR * 00770900 //* CONTROL CHARACTERS * 00771000 //* SS0127 PROGRAM TO IDENTIFY UNCATALOGED * 00771100 //* DATA SETS * 00771200 //* SS0300 PROGRAM TO PRINT OR PUNCH MEMBERS * 00771300 //* OF A PDS IN ALPHABETICAL OR * 00771400 //* SELECTED ORDER * 00771500 //* SS0136 PROGRAM TO LIST THE CHANNELS * 00771600 //* SPECIFIED BY FCB IMAGES FOR 3211 * 00771700 //* PRINTERS * 00771800 //* SS0272 PROGRAM TO READ A LINK MAP AND * 00771900 //* LIST UNREFERENCED CONROL SECTIONS * 00772000 //* DMPSPOOL PROGRAM TO DUMP INPUT JOBS FROM * 00772100 //* JES2 RELEASE 4.0 SPOOL * 00772200 //* UNITNAME PROGRAM TO LIST DEVICES SPECIFIED * 00772300 //* BY EACH GENERIC AND ESOTERIC UNIT * 00772400 //* NAME * 00772500 //* * 00772600 //***FILE 059 IS THE MVS/SE DCMS USER ' S GUIDE FOR VERSION 2 * 00772700 // 2 RELEASE 3 , FEB 1979 . THIS FILE IS IN IEBGENER * 00772800 //* FORMAT . RECFM=VBA,LRECL=137,BLKSIZE=32747 * 00772900 //* * 00773000 //***FILE 060 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE MVS/SE * 00773100 //* DCMS SOURCE LIBRARY VERSION 2 RELEASE 3 , FEB 79 * 00773200 //* * 00773300 //***FILE 061 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE MVS/SE * 00773400 //* DCMS MACRO LIBRARY VERSION 2 RELEASE 3 , FEB 79 * 00773500 //* * 00773600 //***FILE 062 IS A STATEMENT SAYING THAT THIS FILE SHOULD CONTAIN * 00773700 //* THE MVS/SRM MACROS FOR MVS/SE DCMS BUT BECAUSE * 00773800 //* OF THE COPYRIGHT LAWS IT DOES NOT . IF YOU NEED THESE * 00773900 //* YOU MUST GET THE OPTIONAL MATERIAL FOR MVS/SE FROM * 00774000 //* IBM . YOU HAVE TO HAVE A LICENSE FOR MVS/SE * 00774100 //* ( 5740-XE1 ) TO OBTAIN IT * 00774200 //* * 00774300 //***FILE 063 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE MVS/SE * 00774400 //* DCMS OBJECT LIBRARY VERSION 2 RELEASE 3 , FEB 79 * 00774500 //* * 00774600 //***FILE 064 IS IN IEBCOPY FORMAT WHICH CONTAINS THE MVS/SE * 00774700 //* DCMS LOAD MODULE LIBRARY VERSION 2 RELEASE 3 , FEB 79 * 00774800 //* * 00774900 //***FILE 065 CONTAINS A SERIES OF PGMS FROM B.F. GOODIRCH THEY ARE * 00775000 //* * 00775100 //* #JC - CMD SUBSYSTEM #J REPLACEMENT . THIS #J * 00775200 //* ALLOWS THE OPTION #JC WHICH WAITS FIVE * 00775300 //* SECONDS AND DISPLAYS EACH JOB AND THEIR * 00775400 //* CPU PERCENTAGE IN A FORMAT SIMILAR TO * 00775500 //* THE NORMAL #J . * 00775600 //* CLOKSYNC - THIS JOB ISSUES THE OPERATOR COMMAND T * 00775700 //* TIME= TO SYNCHRONIZE THE TIMES ON TWO * 00775800 //* LOOSELY COUPLED MACHINES . THIS JOB * 00775900 //* NEEDS TO BE KICKED OFF ON BOTH MACHINES * 00776000 //* AND IT COMMUNICATES THROUGH A BDAM * 00776100 //* DATASET . ONE OF THE MACHINES WILL HAVE * 00776200 //* ITS TIME SET TO THE OTHER MACHINES . * 00776300 //* CMDEXEC - A PROGRAM WHICH TAKES OPERATOR COMMANDS * 00776400 //* AS EXECUTE PARMS ISSUES THEM VIA SVC34 . * 00776500 //* IEFUJV - SMF JOB VERIFY EXIT . THIS EXIT SCANS * 00776600 //* EXEC JCL STATEMENTS LOOKING FOR PROC * 00776700 //* NAMES . WHEN PROC NAMES ARE FOUND , THEY * 00776800 //* ARE RECORDED BY WRITING AN SMF RECORD . * 00776900 //* THIS EXIT WAS USED TO CLEAN UP OUR * 00777000 //* PROCLIBS . WE INSTALLED THIS EXIT FOR * 00777100 //* ABOUT SIX MONTHS , PROCESSED THE SMF * 00777200 //* DATA , AND FOUND THAT WE COULD DELETE * 00777300 //* ABOUT 1/3 OF OUR PROCS . * 00777400 //* KEYVAL - A KEYWORD VALIDATION ROUTINE USED TO * 00777500 //* PARSE KEYWORDS AND VALUES RECEIVED AS * 00777600 //* INPUT INTO A PROGRAM . THIS PROGRAM IS * 00777700 //* INVOKED USING TWO MACROS . THE FIRST -- * 00777800 //* KEYVAL -- IS USED TO INVOKE THE ROUTINE * 00777900 //* AND GENERATES AN INLINE CSECT WHEN * 00778000 //* FIRST USED . OTHER USES IN A PROGRAM * 00778100 //* USE THE FIRST COPY . THE SECOND MACRO * 00778200 //* -- KEYT -- IS USED TO BUILD A KEYWORD * 00778300 //* VALIDATION TABLE THAT TELLS WHAT TO DO * 00778400 //* WHEN A KEYWORD MATCH IS FOUND . THIS * 00778500 //* ROUTINE IS REENTRANT . THE TWO MACROS * 00778600 //* GIVEN HERE MAY BE USED INLINE OR PLACED * 00778700 //* INTO A MACLIB . * 00778800 //* SMART - SMART IS A MANUAL FORMATING PROGRAM . * 00778900 //* SMART WILL AUTOMATICALLY PRODUCE A * 00779000 //* TABLE OF CONTENTS , INDEX , AND CHECK THE * 00779100 //* SPELLING OF WORDS . * 00779200 //* WHICH - APPLICABLE TO LOOSELY COUPLED * 00779300 //* MULTI-PROCESSING SYSTEMS . THIS PROGRAM * 00779400 //* MAY BE EXECUTED AS A JOB STEP AND GIVES * 00779500 //* A RETURN CODE DEPENDING ON WHICH SYSTEM * 00779600 //* IT IS RUNNING ON . THIS RETURN CODE MAY * 00779700 //* BE INTERROGATED BY THE COND JCL * 00779800 //* PARAMETER ON SUBSEQUENT STEPS TO * 00779900 //* DETERMINE IF THAT STEP IS THE RUN ON * 00780000 //* THAT SYSTEM . USEFUL FOR DAILY * 00780100 //* MAINTENCE JOBS , SUCH AS SMFDUMPS ETC . * 00780200 //* THE SAME JOBNAME MAY BE EXECUTED ON * 00780300 //* EACH SYSTEM AND ONLY THE CORRECT STEPS * 00780400 //* WILL BE RUN DEPENDING ON THE SYSTEM . * 00780500 //* WORDS - SPELLING WORDS DATABASE USED IN * 00780600 //* CONJUNCTION WITH SMART . * 00780700 //* * 00780800 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00780900 //* * 00781000 //***FILE 066 CONTAINS AN UPDATED QUE FROM B.F. GOODRICH * 00781100 //* * 00781200 //* BELOW IS A LIST OF THE MODS THAT WERE MADE * 00781300 //* * 00781400 //* 1 ADDED THE $ COMMAND TO ENTER JES2 COMMANDS * 00781500 //* 2 ADDED THE XC COMMAND TO SCAN THE INCORE WQE'S * 00781600 //* 3 REPLACED BSAM WITH EXCP AS ACCESS METHOD TO * 00781700 //* JES2 CKPT . MAKES Q RUN NOTICABLY FASTER . RUN * 00781800 //* NOTICABLY FASTER * 00781900 //* 4 ADDED THE RM COMMAND TO INVOKE RMF * 00782000 //* 5 ADDED EXECUTING JOB CLASS TO THE XI COMMAND * 00782100 //* 6 MODIFIED FIND COMMAND TO NOT REQUIRE * 00782200 //* DELIMITERS * 00782300 //* 7 ADDED THE CPU % AND DEMAND PAGING RATE TO THE * 00782400 //* UPPER LEFT HAND CORNER OF THE DISPLAY * 00782500 //* 8 AUTOMATICALLY AUTHORIZE CERTAIN USERS BY * 00782600 //* THERE LOGON ID * 00782700 //* 9 DISABLED THE XP COMMAND * 00782800 //* 10 ENABLE MESSAGES TO INTERRUPT THE SCREEN SO * 00782900 //* THEY ARE NOTICABLE * 00783000 //* 11 CHANGE SLOG COMMAND TO ACCEPT SYSTEM SMF ID * 00783100 //* NAMES . EX : SLOG IPO1 ( THIS WILL NEED TO BE * 00783200 //* TAILORED TO YOUR SYSTEM AS THE NAMES ARE * 00783300 //* HARDCODED ) * 00783400 //* * 00783500 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00783600 //* * 00783700 //***FILE 067 CONTAINS A MODIFIED PANSPOOL FROM B.F. GOODRICH * 00783800 //* THAT ALLOWS IT TO INTER-FACE WITH A KODAK KOMSTAR * 00783900 //* MICROFILMER . THIS FILE IS IN IEBUPDTE SYSIN * 00784000 //* FORMAT . THIS IS THE CODE THAT WAS WRITTEN UP IN * 00784100 //* COMPUTER WORLD . * 00784200 //* SEE FILE 057 FOR THE ORIGINAL PANSPOOL * 00784300 //* * 00784400 //***FILE 068 CONTAINS MODS FROM B.F. GOODRICH TO ALLOW THE IBM * 00784500 //* INFO SYSTEM TO ALLOW IT TO RUN IN BATCH . THIS FILE * 00784600 //* IS IN IEBUPDTE SYSIN FORMAT * 00784700 //* INFO/MVS INFO MVS * 00784800 //* * 00784900 //***FILE 069 IS IN IEBUPDTE SYSIN FORMAT WHICH IS FROM GTE . THIS * 00785000 //* FILE CONTAINS DOCUMENTATION AND MODIFICATIONS TO * 00785100 //* INSTALL 43 LINE SUPPORT FOR 3278'S UNDER TCAM10 . * 00785200 //* IT ALSO CONTAINS TSO HELP MEMBERS FOR ABEND CODES , * 00785300 //* DAIR CODES AND OTHER TSO ERROR CODES * 00785400 //* * 00785500 //***FILE 070 SEVERAL MVS MODIFICATIONS IN SMP FORMAT THAT * 00785600 //* HAVE BEEN RECEIVED FROM GENERAL DYNAMICS , * 00785700 //* SAN DIEGO, CALIFORNIA 92138 . AS WITH EVERYTHING * 00785800 //* ON THIS TAPE USE AT YOUR OWN RISK . * 00785900 //* * 00786000 //* THE FOLLOWING IS A LIST OF THE MODIFICATIONS FROM * 00786100 //* GENERAL DYNAMICS THAT ARE INCLUDED IN THIS FILE . * 00786200 //* NOTE ! . CODE THAT IS PROPRIETARY OR COPYRIGHTED IS * 00786300 //* NOT INCLUDED EVEN THOUGH THE FOLLOWING LIST MAY IMPLY * 00786400 //* THAT IT IS . * 00786500 //* * 00786600 //* ALLOW DF/DSS TO RESTORE TO ALLOC/SYS VOL * 00786700 //* DF/DSS ENQ EXIT - SKIP ENQ FOR ALL VOLS * 00786800 //* FORCE DF/DSS TO RESTORE DSN LIKE FDRDSF * 00786900 //* UPDATE GDG BASE LEVEL AT STEP END * 00787000 //* MAKE '#' TAB CHARACTER FOR TSO EDIT * 00787100 //* CAUSE CONDITIONAL DISP TO OCCUR IF JOBFAIL * 00787200 //* LINE NUMBER ALONE WILL NOT DELETE LINE * 00787300 //* CHANGE TSO EDIT DEFAULTS: V ON + TAB OFF * 00787400 //* CHANGE ILRSLOTC/V TO 8/16 * 00787500 //* CHANGES TO PROGRAM PROPERTIES TABLE * 00787600 //* DO NOT ALLOW VIO FOR LARGE DATASETS, ETC. * 00787700 //* IMS/VS AND NETEX RESOURCE CLEANUP MOD * 00787800 //* IEFU83 TO NOT WRITE CERTAIN RECORDS * 00787900 //* MAKE DEFAULT TSO ALLOC DISP=SHR * 00788000 //* BYPASS 'DATA SET NOT FREED MESSAGE' * 00788100 //* ADD ADDITIONAL AMDPRDMP EXITS * 00788200 //* CHANGE D U DEFAULT TO 1 UNIT * 00788300 //* MAKE DUMP LINE COUNT 80 LINES/PAGE * 00788400 //* OLD TSO LOGON PREPROMPT EXIT * 00788500 //* DUMP FORMATING EXIT FROM IMS/VS * 00788600 //* AUTOMATIC ROLL MODE MODIFICATION * 00788700 //* FIX FOR 0C4 IN LOGDATA AMDPRDMP EXIT * 00788800 //* MAKE PROF WTP EFFECTIVE FOR ALL TSO USERS * 00788900 //* INSTALL STEP END STATISTICS MODULE * 00789000 //* REMOVE BLDLS FROM EDIT AND TEST * 00789100 //* ALLOW MVS COMMANDS UNDER TSO OPER (PART 1) * 00789200 //* MAKE REAL DASD NOT IN VATLST PRIV/RSVD * 00789300 //* ALLOW MVS COMMANDS UNDER TSO OPER (PART 2) * 00789400 //* CHANGE IEALIMIT TO 128K * 00789500 //* GRS RESOURCE NAME LIST * 00789600 //* ALLOW TSO OUTPUT COMMAND FOR ANY JOBNAME * 00789700 //* INSTALL TSOMON MODULE * 00789800 //* FORCE IEECVXIT FOR ALL MESSAGES. * 00789900 //* SUPPRESS 13E ABEND IF ATTN OUT OF OUTPUT * 00790000 //* ALLOW BATCH 2X WAIT TIME OF TSO (JWT) * 00790100 //* MAKE 'RETAIN' DEFAULT VOL SPECIFICATION * 00790200 //* USE IEASYSXX AS DEFAULT (XX=F(CPU SERIAL)) * 00790300 //* ALLOW ALL TSO USERS TO ALLOCATE 3330V * 00790400 //* ADD ABBREVIATION FOR 'QUIESCE' COMMAND * 00790500 //* TSO SUBMIT EXIT - KILL BAD JOBNAMES * 00790600 //* USE IEAPAKXX AS DEFAULT (XX=F(CPU SERIAL)) * 00790700 //* CHANGES TO HOT IO DETECTION CONSTANTS * 00790800 //* SUPPLY OUR IEECVXIT (CHANGE ROUTE CODES) * 00790900 //* ZAP TO INCREASE NUMBER OF PCCWS CREATED * 00791000 //* ALLOW AUTHORIZED COMMANDS AND PROGRAMS * 00791100 //* ADD X AS SUBCOMMAND OF EDIT * 00791200 //* AUTOMATIC ROLL MODE MODIFICATION * 00791300 //* SMF JOB INITIATION EXIT * 00791400 //* DECREASE GVTOLINT AND GVTMEINT * 00791500 //* INCREASE NIP SQA ALLOCATION * 00791600 //* ACF2 PRE-VALIDATION EXIT * 00791700 //* ACF2 VIOLATION EXIT * 00791800 //* ACF2 LOGON POST VALIDATION EXIT * 00791900 //* GIVE SOURCE OF PROD FOR CERTAIN LOGONIDS * 00792000 //* COMMAND LIMITING LIST FOR ACF2 * 00792100 //* ACF2/IMS INSTALLATION OPTIONS PROD & TEST * 00792200 //* ACF2 FDR RECORD DEFINITION * 00792300 //* SKIP SECURITY CHECK FOR TAPES OUTSIDE TMS * 00792400 //* PUT ACCT NUMBER IN ACF2 ACCT FIELD * 00792500 //* ALLOW PROGRAM PATHING IN ISPF/PDF * 00792600 //* UCC ONE (TMS) * 00792700 //* ALLOW ISAM UPDATES WITH DISP=SHR * 00792800 //* AUTOMATIC CVOL POINTER MODIFICATION * 00792900 //* IF DATASET IS VIO THEN BUFNO=1 * 00793000 //* BYPASS ALLOCATION OF CVOL CATALOGS * 00793100 //* DF/DS DASD ALLOCATION PREPROCESSING EXIT * 00793200 //* USE UNCATDX FORM FOR UNCATALOGING * 00793300 //* CHANGES TO SYSGEN JOBCARD MACRO * 00793400 //* CHANGE FETCH BUFFER SIZE TO 64K * 00793500 //* PRINT DSN AND VOLSER OF SYSLMOD * 00793600 //* BYPASS RESERVE IF TO TEMP OR NEW DATASET * 00793700 //* MAKE HSM MIGRATE 'LIST' DATASETS ALSO * 00793800 //* RECALL EXIT TO FORCE DSN TO CERTAIN VOLS * 00793900 //* PUT ACF2 SUPPORT IN FOR HSM * 00794000 //* CHANGE JES3 DELAY MIGRATION DATE TO 2 * 00794100 //* ALLOW RECALL TO AUTOBACKUP VOLS * 00794200 //* ALLOW JES3 TO RUN AS OTHER THAN JES3 * 00794300 //* ACF2,RINGCHK,EXPDTCHK,STARS FOR IMS,CICS * 00794400 //* DPAP + MAKE LINES FOR STC + TSO = OUTLIM * 00794500 //* NSL VERIFY ROUTINE * 00794600 //* ALLOW GENERAL INQUIRY CMDS FROM RJP TERMS * 00794700 //* UPDATE GDG BASE LEVEL AT STEP END * 00794800 //* JOB HEADER PAGE INFORMATION * 00794900 //* DPAP (ACCT #) VALIDATION + DSP DICT. * 00795000 //* DO NOT ALLOW PRTY=0 TO BE RELEASED * 00795100 //* ALLOW JES3 CMDS VIA WTO + DEST CHANGES * 00795200 //* REROUTE MSGIAT7005 + IAT6285 TO MLOG(8I R) * 00795300 //* MAKE ANYLOCAL SYN WITH PRT3800 + PRT3211 * 00795400 //* COMPUTE OSE PRIORITIES & CANCEL JUNK * 00795500 //* FIX FOR ALLOC PROBLEM CAUSED BY AZ46037 * 00795600 //* COMPUTE JOB PRIORITY + CHANGE CLASS * 00795700 //* TEMP MOD TO "DRY UP" JOB NUMBERS > 2500 * 00795800 //* JOB TRAILER PAGE INFORMATION * 00795900 //* DON'T MLOG VERIFY MESSAGES DURING CONNECT * 00796000 //* ALLOWS HOLD CLASS FOR NJE JOBS * 00796100 //* ALLOWS GENERIC STATUS AND CHECKS OWNERSHIP * 00796200 //* SMF RECORDING FOR NJE SYSOUT DATASETS * 00796300 //* CHANGE MULTILEAVING DELAY TO .50 SECS * 00796400 //* RETURN NEW SECOND LEVEL MESSAGE TO STATUS * 00796500 //* PUT JULIAN DATE IN MLG MESSAGES(FROM EDSC) * 00796600 //* DELETE TIME STAMP FROM 3277 MESSAGES * 00796700 //* ONLY LOOK AT JOBS IN OUTSERV FOR OUTPUT * 00796800 //* USE RQNETID IF NET = *NET-ID* FOR DJC WTO * 00796900 //* ADD TIME STAMP TO OSE * 00797000 //* BYPASS DESTINATION VALIDATION FOR XWTRS * 00797100 //* PUT DATASET LINECOUNT IN SSOB FOR XWTR * 00797200 //* ACF2 CODE FOR JCL PROCESSING * 00797300 //* INSTALL FLASHER DSP * 00797400 //* ADD INFO TO TYPE 26 SMF RECORD * 00797500 //* CHANGE NJE DISPATCH PRTY TO 3 + NJESND TO 2 * 00797600 //* 3767 USER OUTPUT EXIT ROUTINE * 00797700 //* * 00797800 //***FILE 071 SEVERAL MVS MODIFICATIONS IN SMP FORMAT THAT * 00797900 //* HAVE BEEN RECEIVED FROM CONNECTICUT NATIONAL BANK IN * 00798000 //* CONNECTICUT * 00798100 //* * 00798200 //***FILE 072 SEVERAL MVS MODIFICATIONS IN SMP FORMAT THAT * 00798300 //* HAVE BEEN RECEIVED FROM C.B.T. HARTFORD , * 00798400 //* CONNECTICUT * 00798500 //* * 00798600 //***FILE 073 IS IN IEBUPDTE SYSIN FORMAT WHICH CONTAINS A CHANNEL * 00798700 //* ACTIVITY ANALYSIS PROGRAM AND A DISK ACTIVITY * 00798800 //* ANALYSIS PROGRAM AND THEIR ASSOCIATED DOCUMENTATION * 00798900 //* FROM THE NATIONAL WESTMINISTER BANK IN ENGLAND * 00799000 //* * 00799100 //***FILE 074 CONTAINS 2 OUTPUT SAMPLES OF THE PROGRAMS CONTAINED * 00799200 //* IN FILE 073 . ( RECFM=FBA LRECL=133 BLKSIZE=32718 ) * 00799300 //* * 00799400 //***FILE 075 IS A TSO COMMAND PROCESSOR WHICH ALLOWS THE USER TO * 00799500 //* ACCESS AND MANIPULATE DISK DATA SETS AND DISK VOLUME * 00799600 //* TABLE OF CONTENTS. TO MODIFY THE VTOC OF A VOLUME * 00799700 //* THE CP MUST BE MARKED AC=1 . THE FILE IS IN IEBUPDTE * 00799800 //* SYSIN FORMAT AND CONTAINS A HELP MEMBER AS WELL AS * 00799900 //* THE SOURCE ITSELF * 00800000 //* * 00800100 //***FILE 076 AN SQA MONITOR * 00800200 //* SQAMON SEARCHES SQA DQE CHAIN CALCULATING SPACE * 00800300 //* ALLOCATED AND ISSUES A MESSAGE TO THE OPERATOR * 00800400 //* NOTIFYING HIM EACH TIME THE ALLOCATED SPACE CHANGES . * 00800500 //* NOTE THAT CHANGES ARE NORMALLY 4K INCREMENTS AND * 00800600 //* TIME FOR SQAMON IS 10 SECONDS . * 00800700 //* WE RUN WITH ADDRSPC=REAL , REGION=12K AND * 00800800 //* DISPATCHING PRIORITY OF 253 * 00800900 //* * 00801000 //***FILE 077 IS DOCUMENTATION FOR FILE 78 WHICH IS AN INCORE ZAP * 00801100 //* PROGRAM . ( THIS FILE IS IN FBA FORMAT ) * 00801200 //* * 00801300 //***FILE 078 IS THE INCORE ZAP PROGRAM ( OBJECT DECK ONLY ) * 00801400 //* INCOREZAP IS A SERVICE AID PROGRAM AVAILABLE TO RUN * 00801500 //* UNDER MVS . INCORZAP INSPECTS OR MODIFIES PROGRAMS IN * 00801600 //* MAIN STORAGE WITHOUT MODIFYING THE ORIGINAL COPY OF * 00801700 //* THE PROGRAM THAT RESIDES ON DIRECT ACCESS STORAGE IN * 00801800 //* A PROGRAM LIBRARY . INCORZAP ALLOWS ZAPS TO BE APPLIED * 00801900 //* DIRECTLY TO NUCLEUS OR LINK PACK AREA ( LPA ) MODULES * 00802000 //* WITHOUT THE REQUIREMENT TO RE-IPL AFTER THE ZAP HAS * 00802100 //* BEEN APPLIED * 00802200 //* * 00802300 //***FILE 079 IS A SET OF JCL TO RUN APEMAN AND GET A COPY OF EACH * 00802400 //* OF THE REPORTS. THIS JCL RAN FOR 3.61 CLOCK MINUTES * 00802500 //* ON A 370/158 MODEL 3 , 2 MEG WITH 15 ADDRESS SPACES * 00802600 //* ACTIVE . * 00802700 //* THE MONITOR( APEMAN1 ) RAN FOR 1 MINUTE * 00802800 //* 41 SECONDS CLOCK ( 3.06 CPU SECONDS ) . * 00802900 //* AND SAMPLED ONCE EVERY 15 SECONDS FOR 1 MINUTE WERE : * 00803000 //* MONA MONZ MONP MONS * 00803100 //* THE ANALYZER ( APEMAN2 ) RAN FOR 1 MINUTE 28 SECONDS * 00803200 //* CLOCK ( 52.27 CPU SECONDS ) . * 00803300 //* AND PRODUCED OVER 5400 LINES OF OUTPUT * 00803400 //* * 00803500 //* A LITTLE BIT WITH THIS MONITOR GOES A LONG-LONG WAY * 00803600 //* * 00803700 //***FILE 080 IS AN IEBUPDTE FILE WITH 8 MEMBERS FOR AN MVS * 00803800 //* SPOOL DUMP/RESTORE SYSTEM * 00803900 //* THE MEMBERS ARE : * 00804000 //* 1 DOC DOCUMENTATION * 00804100 //* 2 JCL SAMPLE JCL * 00804200 //* 3 ZAP SUPERZAP FOR IASXSD82 * 00804300 //* 4 EWTR1 ASSEMBLER SOURCE CODE * 00804400 //* 5 EWTR2 ASSEMBLER SOURCE CODE * 00804500 //* 6 EWTR2SVS ASSEMBLER SOURCE CODE * 00804600 //* 7 EWTR3SVS ASSEMBLER SOURCE CODE * 00804700 //* 8 SYMGR REGISTER EQUATE MACRO * 00804800 //* * 00804900 //* LAST UPDATED OCTOBER 16, 1976 * 00805000 //* TALKED TO AUTHOR ON MARCH 31, 1982 AND HE SAID * 00805100 //* WHILE THEY DO NOT RUN THE CODE ANY MORE HE FELT * 00805200 //* IT SHOULD STILL WORK EVEN THOUGH THE ZAP FOR * 00805300 //* IASXSD82 PROBABLY HAS A NEW OFFSET * 00805400 //* * 00805500 //***FILE 081 IS OS DEBE THAT HAS BEEN MODIFIED TO RUN UNDER MVS * 00805600 //* THERE IS A PROBLEM WITH THIS VERSION OF THE PROGRAM * 00805700 //* IN THAT IT WILL NOT DUPLICATE A 32K BLOCK OF DATA * 00805800 //* ON A TAPE TO TAPE OPERATION . IT DOES NOT TELL YOU * 00805900 //* THIS EITHER . SNEAKY FELLOW , YOU JUST GET A LOT OF * 00806000 //* SHORT BLOCKS * 00806100 //* * 00806200 //***FILE 082 IS THE REFERENCE MANUAL FOR IEHMAP , MAPLPA , PTXREF * 00806300 //* AND SUPERZAP ( RECFM=FBA , LRECL=80 ) * 00806400 //* * 00806500 //***FILE 083 IS THE OBJECT DECK FOR IEHMAP ( SORRY NO SOURCE ) * 00806600 //* THE FOLLOWING ZAP WHICH IS IN FILE 117 IS NEEDED * 00806700 //* SO IEHMAP WILL CORRECTLY HANDLE A 3350 IN NATIVE MODE * 00806800 //* * 00806900 //* NAME IEHMAP MAPDEV * 00807000 //* VER 0128 000C,000C,0001,0001,000C,20A0 * 00807100 //* REP 0128 001E,001E,0001,0001,001E,410A * 00807200 //* * 00807300 //* THE FOLLOWING ZAP WHICH IS IN FILE 117 IS NEEDED FOR * 00807400 //* 3380 SUPPORT * 00807500 //* * 00807600 //* NAME IEHMAP MAPDEV * 00807700 //* VER 001C 08 DEVICE TYPE * 00807800 //* VER 001D F2F3F1F440 DEVICE DESCRIPTION * 00807900 //* VER 002C 0000001400000001 SCAL FACTORS FOR CCHH OF DEV * 00808000 //* VER 0034 0014 NUMBER OF TRACKS/PER CYL * 00808100 //* VER 0036 0FA0 MAX RELATIVE TRACK FOR DEVICE * 00808200 //* REP 001C 0E DEVICE TYPE * 00808300 //* REP 001D F3F3F8F040 DEVICE DESCRIPTION * 00808400 //* REP 002C 000F000F00010001 SCAL FACTORS FOR CCHH OF DEV * 00808500 //* REP 0034 000F 2UMBER OF TRACKS/PER CYL * 00808600 //* REP 0036 33DB MAX RELATIVE TRACK FOR DEVICE * 00808700 //* DUMPT IEHMAP MAPDEV * 00808800 //* * 00808900 //* THE FOLLOWING ZAP WHICH IS IN FILE 117 IS NEEDED * 00809000 //* SO IEHMAP WILL CORRECTLY HANDLE A 3375 IN NATIVE MODE * 00809100 //* NAME IEHMAP MAPDEV 3375 SUPPORT FROM ROYAL * 00809200 //* VER 0134 FFFFFFFF * 00809300 //* REP 0134 0CF3F3F7,F540C4C9,E2D240D7,C1C3D240 * 00809400 //* REP 0144 000C000C,00010001 * 00809500 //* REP 014C 000C2CF4,FFFFFFFF * 00809600 //* * 00809700 //* FILE 176 * 00809800 //* CONTAINS THREE ZAPS TO IEHMAP TO WORK CORRECTLY * 00809900 //* WHEN YOU HAVE DATASETS AND/OR OS CATALOG SPREAD OVER * 00810000 //* MORE THAN ONE VOLUME . WE HERE AT CBT DO NOT HAVE THIS * 00810100 //* PROBLEM SO WE HAVE NOT IMPLETEMENTED THESE ZAPS . * 00810200 //* HOWEVER A USER OF IEHMAP WHO DID HAVE THIS PROBLEM * 00810300 //* CREATED THE ZAPS AND THEY WORK FINE IN HIS * 00810400 //* INSTALLATION * 00810500 //* * 00810600 //* * SPACE FOR MULTIPLE VOLUMES * 00810700 //* NAME IEHMAP MAPINIT * 00810800 //* VER 08D0 47F0,C198,0700,0700 * 00810900 //* REP 08D0 4400,C9B4,47F0,C198 * 00811000 //* * 00811100 //* * CAT DSN - MULTIPLE VOLUMES 1 MORE THAN CAT * 00811200 //* NAME IEHMAP MAPCAT3 * 00811300 //* VER 0398 5820,9098,1222 * 00811400 //* REP 0398 58E0,9098,12EE * 00811500 //* VER 03A2 1892 * 00811600 //* REP 03A2 189E * 00811700 //* * 00811800 //***FILE 084 IS THE OBJECT DECK FOR MAPLPA ( SORRY NO SOURCE ) * 00811900 //* * 00812000 //***FILE 085 IS THE OBJECT DECK FOR PTXREF ( SORRY NO SOURCE ) * 00812100 //* * 00812200 //***FILE 086 IS THE OBJECT DECK FOR SUPERZAP ( SORRY NO SOURCE ) * 00812300 //* * 00812400 //***FILE 087 IS AN IMS COMPRESSION EXIT IN IEBUPDTE SYSIN FORMAT * 00812500 //* COMPRISING INSTALLATION DOCUMENTATION AND SOURCE FOR * 00812600 //* SEVERAL ASSEMBLER MODULES FORM THE UNIVERSITY OF * 00812700 //* MANITOBA * 00812800 //* * 00812900 //***FILE 088 IS PART OF THE IMS COMPRESSION EXIT CONTAINED IN FILE * 00813000 //* 087 . IT IS IN IEBCOPY FORMAT AND CONTAINS SOURCE FOR * 00813100 //* 2 PLI PROGRAMS . DOCUMENTATION FOR THE COMPRESSION * 00813200 //* ALGORITHM IS NOT INCLUDED BUT WILL BE SUPPLIED TO * 00813300 //* ANYONE ON REQUEST TO : * 00813400 //* MR P.A. MACDONALD * 00813500 //* SYSTEMS PROGRAMMING * 00813600 //* THE UNIVERSITY OF MANITOBA * 00813700 //* COMPUTER SERVICES , ENGINEERING BLDG * 00813800 //* WINNIPEG , MANITOBA * 00813900 //* CANADA R36 2N2 * 00814000 //* (204) 474-9870 * 00814100 //* * 00814200 //***FILE 089 IS THE SOURCE FOR A DNYAMIC ALLOCATION INTERFACE * 00814300 //* FOR HIGH LEVEL LANGUAGES FROM THE UNIVERSITY OF * 00814400 //* MANITOBA * 00814500 //* * 00814600 //***FILE 090 IS THE DOCUMENTATION FOR THE DYNAMIC ALLOCATION * 00814700 //* INTERFACE CONTAINED IN FILE 089 OF THIS TAPE . THE * 00814800 //* DCB RECFM=FBA * 00814900 //* * 00815000 //***FILE 091 IS A JOB STREAM TO INSTALL A VSAM EDITOR TO EDIT * 00815100 //* VSAM DATASETS . * 00815200 //* THE JOB STREAM CONSISTS OF ASSEMBLER SOURCE IN * 00815300 //* IEBUPDTE SYSIN FORMAT FOLLOWED BY JCL TO PERFORM * 00815400 //* ASSEMBLIES , LINK-EDITS AND ZAPS . THE ZAPS GO AGAINST 00815500 //* COPIES OF TSO EDIT MODULES AND MAY HAVE TO ADJUSTED * 00815600 //* FOR MAINTENANCE . THE FINAL STEP INSTALLS THE HELP * 00815700 //* DOCUMENTATION . THIS IS FROM THE UNIVERSITY OF * 00815800 //* MANITOBA * 00815900 //* * 00816000 //***FILE 092 IS APEMAN FROM GRUMMAN IN IEBUPDTE SYSIN FORMAT AND * 00816100 //* CONTAINS ALL ASSEMBLER PROGRAMS FOR APEMAN , INCLUDING 00816200 //* SOME ROUTINES USED IN THE ANALYSIS OF DATA RECORDED * 00816300 //* BY THE APEMAN MONITOR * 00816400 //* * 00816500 //***FILE 093 IS APEMAN FROM GRUMMAN IN IEBUPDTE SYSIN FORMAT AND * 00816600 //* CONTAINS ALL THE FORTRAN PROGRAMS FOR APEMAN * 00816700 //* * 00816800 //***FILE 094 IS APEMAN FROM GRUMMAN IN IEBUPDTE SYSIN FORMAT AND * 00816900 //* CONTAINS THE JCL TO LINKEDIT AND RUN THE APEMAN * 00817000 //* MONITOR AND ANALYZER * 00817100 //* * 00817200 //***FILE 095 IS APEMAN FROM GRUMMAN AND CONTAINS THE DOCUMENTATION * 00817300 //* FOR APEMAN . THE FILE IS RECFM=FBA * 00817400 //* * 00817500 //***FILE 096 IS APEMAN FROM GRUMMAN AND IS A SAMPLE OUTPUT FROM * 00817600 //* THE APEMAN MONITOR AND ANALYZER * 00817700 //* ( RECFM = FBA LRECL=133, BLKSIZE=32718 ) * 00817800 //* * 00817900 //***FILE 097 IS APEMAN FROM GRUMMAN AND IS A SAMPLE OUTPUT FROM * 00818000 //* THE PAGE FRAM TABLE ANALYZER * 00818100 //* ( RECFM = FBA LRECL=133 BLKSIZE=32718 ) * 00818200 //* * 00818300 //***FILE 098 IS A MOD TO ALLOW LINKLIST LIBRARIES IN THE MASTER * 00818400 //* CATALOG FROM REVLON * 00818500 //* * 00818600 //***FILE 099 IS A ZAP TO INCREASE SAS PERFORMANCE FROM REVLON * 00818700 //* * 00818800 //***FILE 100 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF * 00818900 //* MENUS , PANELS AND MESSAGES FOR THE NEW ISPF/PDF . * 00819000 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT , SEE THE * 00819100 //* MEMBER CALLED $$$DOC FOR ADDITIONAL INFORMATION . * 00819200 //* FILE 101 OF THIS TAPE CONTAINS THE CLISTS REQUIRED BY * 00819300 //* THESE SPF MENUS . THE FOLLOWING IS A CONDENSED * 00819400 //* VERSION OF WHAT IS IN THE $$$DOC MEMBER : * 00819500 //* * 00819600 //* ALL PANELS AND OR MENUS AND OR MESSAGES AND OR * 00819700 //* SKELETONS HAVE BEEN CONVERTED TO THE NEWEST ISPF * 00819800 //* AND ISPF/PDF FORMATS 5668-960 AND 5665-268 I THINK * 00819900 //* * 00820000 //* $$$$DISC DISCLAIMER ON CONTENTS * 00820100 //* * 00820200 //* SPF MENUS * 00820300 //* * 00820400 //* ABR***** ABR UTILITY SELECTION AND FUNCTIONS PANELS * 00820500 //* COBOL2 FOREGROUND COBOL COMPILE PANEL * 00820600 //* COBOL2B BACKGROUND COBOL COMPILE PANEL * 00820700 //* GENER1 FOREGROUND IEBGENER PANEL * 00820800 //* INFOMGT1 INFO MANAGEMENT PANEL * 00820900 //* INFOSEL INFO MANAGEMENT DATABASE SELECTION PANEL * 00821000 //* ISR PRIM REPLACEMENT FOR PRIMARY OPTION MENU * 00821100 //* LINK3 FOREGROUND LINKAGE EDIT PANEL * 00821200 //* LINK3B BACKGROUND LINKAGE EDIT PANEL * 00821300 //* PLTCMPR1 COMPARE UTILITY PANEL * 00821400 //* PSWDSEL PASSWORD ( OS ) MAINTENANCE SELECTION PANEL * 00821500 //* PWADD PASSWORD ( OS ) ADDITION PANEL * 00821600 //* PWCHNG PASSWORD ( OS ) CHANGE PANEL * 00821700 //* PWDEL PASSWORD ( OS ) DELETION PANEL * 00821800 //* S1ASM1 FOREGROUND SERIES 1 HOST ASSEMBLER PANEL * 00821900 //* S1ASM1B BACKGROUND SERIES 1 HOST ASSEMBLER PANEL * 00822000 //* S1OBJ1 FOREGROUND SERIES 1 OBJECT SHIPPING PANEL * 00822100 //* USERSEL USER UTILITY SELECTION MENU * 00822200 //* USERSELB USER BACKGROUND SELECTION MENU * 00822300 //* USERVTOC VTOC UTILITY PANEL * 00822400 //* * 00822500 //* SPF TUTORIAL MENUS * 00822600 //* * 00822700 //* TABR**** ABR UTILITY FUNCTIONS TUTORIAL PANELS * 00822800 //* TPLTCMP* COMPARE UTILITY TUTORIAL PANELS * 00822900 //* TS1ASM1 SERIES1 OBJECT SHIPPING TUTORIAL PANEL * 00823000 //* TVTOC** VTOC UTILITY TUTORIAL PANELS * 00823100 //* * 00823200 //* CLISTS * 00823300 //* * 00823400 //* ABR***** ABR CLISTS * 00823500 //* ****PASS PASSWORD ( OS ) MAINTENANCE CLISTS * 00823600 //* GENER1 IEBGENER CLIST * 00823700 //* INFOMGT1 INFO MANAGEMENT CLIST * 00823800 //* PLTCMPR FOREGROUND COMPARE UTILITY CLIST * 00823900 //* ( REQUIRED SYNCSORT ) * 00824000 //* S1ASM1 FOREGROUND SERIES 1 HOST ASSEMBLER CLIST * 00824100 //* S1ASM1B BACKGROUND SERIES 1 HOST ASSEMBLER CLIST * 00824200 //* S1OBJ1 FOREGROUND SERIES 1 OBJECT SHIPPING CLIST * 00824300 //* USERCOB FOREGROUND COBOL COMPILER CLIST * 00824400 //* USERCOBB BACKGROUND COBOL COMPILER CLIST * 00824500 //* USERLNK FOREGROUND LINK EDIT CLIST * 00824600 //* USERLNKB BACKGROUND LINK EDIT CLIST * 00824700 //* USERSELB BACKGROUND SELECTION PROCESSING CLIST * 00824800 //* VTOCCMD1 VTOC UTILITY - REQUIRES VTOC COMMAND FROM CBT TAPE * 00824900 //* * 00825000 //* SPF MESSAGES * 00825100 //* * 00825200 //* ABR00 ABR UTILITY FUNCTIONS MESSAGES * 00825300 //* PLTCM00 COMPARE MESSAGES * 00825400 //* SASM00 SERIES 1 MESSAGES * 00825500 //* VTOC00 VTOC UTILITY MESSAGES * 00825600 //* * 00825700 //***FILE 101 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF * 00825800 //* CLISTS FOR THE NEW ISPF/PDF . THIS FILE IS IN * 00825900 //* IEBUPDTE SYSIN FORMAT , SEE THE MEMBER CALLED $$$DOC * 00826000 //* IN FILE 100 ABOVE FOR ADDITIONAL INFORMATION * 00826100 //* * 00826200 //***FILE 102 IS DSPACE AND VTOCLIST THAT HAVE BEEN MODIFIED TO * 00826300 //* WORK WITH INDEXED VTOCS . THIS FILE WAS RECEIVED FROM * 00826400 //* GTE LABS IN WALTHAM , MASS . AND IS IN IEBUPDTE SYSIN * 00826500 //* FORMAT . IT CONTAINS : * 00826600 //* * 00826700 //* A DSPACE DISPLAYS THE FREE SPACE AVAILABLE ON ALL * 00826800 //* ONLINE DISK VOLUMES * 00826900 //* B VTOCLIST PROGRAM TO PRINTOUT AVAILABLE SPACE ON A * 00827000 //* DISK DRIVE * 00827100 //* * 00827200 //***FILE 103 IS APEMAN VERSION 2 GRAPHICAL ANALYSIS ROUTINES * 00827300 //* THIS IS WRITTEN IN PLI * 00827400 //* * 00827500 //***FILE 104 IS SUBMAN OPERATING INSTRUCTIONS * 00827600 //* ( RECFM=FBM LRECL=133 BLKSIZE=32718 ) * 00827700 //* * 00827800 //***FILE 105 IS SUBMAN COMMON ROUTINES ( BAL ) * 00827900 //* * 00828000 //***FILE 106 IS SUBMAN BTAM MAIN ROUTINES ( BAL ) * 00828100 //* * 00828200 //***FILE 107 IS SUBMAN TSO 3270 MAIN ROUTINE ( BAL ) * 00828300 //* * 00828400 //***FILE 108 IS SUBMAN TSO MAIN ROUTINE ( BAL ) * 00828500 //* * 00828600 //***FILE 109 IS AN MVS SYSGEN CROSS - REFERENCE PROGRAM * 00828700 //* * 00828800 //***FILE 110 IS THE 3.7/3.8 VABDUMP * 00828900 //* * 00829000 //* IF YOU USE THE ABEND TABLE TO SURPRESS CERTAIN ABEND * 00829100 //* CODES THE FOLLOWING MESSAGE WILL APPEAR ON THE * 00829200 //* OPERATOR ' S CONSOLE * 00829300 //* * 00829400 //* IEA912I RECOVERY/TERMINATION DUMP FAILED * 00829500 //* * 00829600 //* THIS MESSAGE WILL BE PREFIXED WITH JOB ' S JES ID . * 00829700 //* * 00829800 //* ALSO THE FOLLOWING LINES WILL APPEAR AS THE LAST FOUR * 00829900 //* LINES ON THE DUMP * 00830000 //* * 00830100 //* DUMP NOT REQUIRED FOR THIS COMPLETION CODE , * 00830200 //* REMAINDER OF DUMP SUPPRESSED BY ABEND/SNAP USER EXIT * 00830300 //* * 00830400 //* USER/PP CONTROL BLOCK UNAVAILABLE * 00830500 //* DUMP TRUNCATED FOR INSUFFICIENT STORAGE * 00830600 //* * 00830700 //***FILE 111 IS A SAMPLE OUTPUT OF THE 3.7/3.8 VABDUMP * 00830800 //* ( RECFM=FBM LRECL=133 BLKSIZE=32718 ) * 00830900 //* * 00831000 //***FILE 112 IS THE SOURCE FOR THE TSO COMMAND PROMPTER CALLED * 00831100 //* VTOC . THIS FILE IS IN IEBUPDTE FORM . THIS COMMAND * 00831200 //* ALLOWS YOU TO SEARCH THE VOLUME TABLE OF CONTENTS OF * 00831300 //* ONE OR MORE DISK VOLUMES AND OBTAIN LISTINGS OR TOTALS * 00831400 //* OF DATA SETS MEETING SOME CRITERIA . THE SPECIFICATION * 00831500 //* IS QUITE FLEXIBLE . THIS FILE ALSO CONTAINS THE HELP * 00831600 //* DATA SET FOR THIS COMMAND . IT ALSO CONTAINS * 00831700 //* INSTALLATION NOTES , SOME COMMENTS ON DEFAULTS THAT MAY 00831800 //* NOT BE TYPICAL ELSEWHERE , A LIST OF THE KNOWN ERRORS * 00831900 //* IN THE COMMAND , AND IDEAS FOR FUTURE EXPANSION . * 00832000 //* THIS VERSION SUPPORTS SU60 , CATALOG DATASETS AND THE * 00832100 //* ABILITY TO SORT THE OUTPUT ON ANYTHING . FOR ADDITIONAL 00832200 //* CHANGES SEE THE HELP MEMBER OF THE PDS . * 00832300 //* THIS VERSION WILL RUN ON A SYSTEM THAT DOES NOT HAVE * 00832400 //* SU60 INSTALLED , HOWEVER IF YOU TRY TO ASSEMBLE * 00832500 //* ON A SYSTEMS THAT DOES NOT HAVE SU60 MACROS YOU WILL * 00832600 //* GET ASSEMBLE ERRORS . YOU CAN GO IN AND JUST NO OP * 00832700 //* THOSE INSTRUCTIONS . ITS LOAD MODULE IS IN FILE 035 * 00832800 //* AND IS CALLED $VTOC * 00832900 //* * 00833000 //* **************************************************** * 00833100 //* * IT APPEARS THAT THERE ARE ADDITIONAL MACROS * * 00833200 //* * THAT ARE MISSING FROM THIS FILE THIS IS IN FACT * * 00833300 //* * NOT TRUE. WHAT APPEARS TO BE OTHER MACROS WERE * * 00833400 //* * JUST AN IDEA AND THOSE MACROS WERE NEVER * * 00833500 //* * WRITTEN . I KNOW ! I SPENT WEEKS TRYING TO TRACK * * 00833600 //* * THEM DOWN . * * 00833700 //* * ARNIE * * 00833800 //* **************************************************** * 00833900 //* * 00834000 //***FILE 113 IS A UCB MAP PROGRAM FROM CONN NATIONAL BANK * 00834100 //* IT IS WRITTEN IN PL/I OPTIMIZER . THIS PGM READS YOUR * 00834200 //* STAGE I SYSGEN . IT USES THE INFORMATION FROM EACH * 00834300 //* IODEVICE MACRO TO SET THE DEVICE TYPE FIELD IN A * 00834400 //* TABLE FOR EACH ADDRESS , A RANGE OF ADDRESS IN AN * 00834500 //* IODEVICE MACRO WILL CREATE A RANGE OF TABLE ENTRIES * 00834600 //* IT WILL ALSO HANDLE OPTCHAN AND CONSOLE MACROS . * 00834700 //* THE PROGRAM WILL THEN PRINT A REPORT OF ALL THE * 00834800 //* ADDRESSES IN THE SYSTEM , SHOWING THE DEVICE TYPE * 00834900 //* ASSIGNED TO EACH ADDRESS . MSS VIRTUAL VOLUMES ARE * 00835000 //* ALSO HANDLED * 00835100 //* * 00835200 //***FILE 114 A SAMPLE OUTPUT FROM THE PROGRAM IN FILE 113 * 00835300 //* ( RECFM=FBA LRECL=133 BLKSIZE=32718 ) * 00835400 //* * 00835500 //***FILE 115 IS FROM L.L. BEAN AND CONTAINS A THEIR EXITS AND * 00835600 //* MODIFICATIONS THAT ALLOW SPECIFYING PASSWORDS FOR * 00835700 //* DATASETS WITHIN THE JCL . * 00835800 //* THIS FILE WHICH IS IEBUPDTE SYSIN FORMAT CONTAINS * 00835900 //* A JES2 EXIT 4 * 00836000 //* B JES2 EXIT 7 * 00836100 //* C JES2 EXIT 8 * 00836200 //* D JES2 SOURCE UPDATE TO HASPSSM * 00836300 //* E ZAP TO LMOD READPSWD CSECT READPSWD * 00836400 //* F WTO EXIT IEECVXIT * 00836500 //* FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED * 00836600 //* $$DOC * 00836700 //* * 00836800 //***FILE 116 IS THE SOURCE FOR A DISK SEEK ANALYSIS PROGRAM * 00836900 //* WRITTEN IN ASSEMBLER . USE A PARM OF SMAP AND CHECK * 00837000 //* THE CODE FOR ADDITIONAL INFORMATION . THIS PGM WILL * 00837100 //* SHOW WHERE YOU ARE SPENDING YOUR TIME VIA THE * 00837200 //* DATA SET NAME RATHER THAN BY A TRACK ADDRESS * 00837300 //* THIS CODE WILL SUPPORT 3380'S . THIS VERSION WILL * 00837400 //* RUN UNDER MVS / XA * 00837500 //* * 00837600 //***FILE 117 A SUPERZAP AGAINST IEHMAP ( FILE 83 ) SO IEHMAP WILL * 00837700 //* CORRECTLY HANDLE A 3350 AND 3380 ' S * 00837800 //* * 00837900 //***FILE 118 IS FROM COMBUSTION ENGINEERING THAT TAKES A PUT PTF * 00838000 //* FILE ( FILE 1 FROM A STANDARD IBM PUT TAPE ) , AND * 00838100 //* PRODUCES A CROSS REFERENCE OF THE PTF ' S INCLUDED , * 00838200 //* SORTED BY FMID . THE PROGRAM SHOULD BE USEFUL TO * 00838300 //* QUICKLY IDENTIFY WHAT PTF ' S ARE ON A GIVEN TAPE WHAT 00838400 //* FMID ' S HAVE MAINTENANCE ON A TAPE , AND TO DOUBLE * 00838500 //* CHECK THE STERLING FOREST CROSS REFERENCE ( IT LIES * 00838600 //* ONCE IN A WHILE ) * 00838700 //* * 00838800 //***FILE 119 SEVERAL MVS MODIFICATIONS IN SMP FORMAT THAT * 00838900 //* HAVE BEEN RECEIVED FROM THE FIRST NATIONAL BANK * 00839000 //* OF CHICAGO * 00839100 //* * 00839200 //***FILE 120 CONTAINS A COPY OF THE DOCUMENTATION FILE FROM THE * 00839300 //* NON-SP 1.3 VERSION OF THE JES2 MODIFICATION TAPE VER * 00839400 //* 24 , DATED NOVEMBER 1981 . THERE IS NO CODE CONTAINED * 00839500 //* IN THIS FILE . SEE FILE 314 FOR THE MVS/SP1.3 VERSION * 00839600 //* OF THE JES2 MODIFICATION TAPE * 00839700 //* * 00839800 //***FILE 121 CONTAINS A COPY OF THE DOCUMENATION FILE FROM * 00839900 //* THE LATEST SPLA MODIFICATION TAPE . THERE IS NO CODE * 00840000 //* CONTAINED IN THIS FILE * 00840100 //* * 00840200 //***FILE 122 CONTAINS 3 TSO CP'S FROM ARAMCO AND THEIR ASSOCIATED * 00840300 //* HELP MEMBERS AND MACROS * 00840400 //* PRINTOFF - MODIFIED TSO PRINTOFF TO SUPPORT 3800 * 00840500 //* PARAMETER , IE FLASH , CHARS AND BURST * 00840600 //* PRINTODD - MODIFIED PRINTOFF WHICH ACCEPTS DDNAMES * 00840700 //* RATHER THAN DSNAME * 00840800 //* LOGALLOC - TSO CP TO MARK ALL OR SELECTED DDNAMES * 00840900 //* AS ALLOCATED AT LOGON TIME . * 00841000 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT SEE THE MEMBER * 00841100 //* CALLED $INDEX FOR ADDITIONAL INFORMATION * 00841200 //* * 00841300 //***FILE 123 CONTAINS INSTRUCTIONS ON HOW TO SUBMIT YOUR * 00841400 //* MODIFICATIONS TO THE TSO-GUIDE TAPE THIS FILE IS * 00841500 //* FBA FORMAT * 00841600 //* * 00841700 //***FILE 124 IS FOR THE ANALYSIS OF GTF DATA FROM GPU SERVICE * 00841800 //* CORPORATION IN PENNSYLVANIA . THIS FILE CONTAINS * 00841900 //* SEVERAL PROGRAMS FOR GTF ANALYSIS . * 00842000 //* A P0493900 FOR GTF SIO ANALYSIS * 00842100 //* B P0494000 FOR GTF SIO ANALYSIS * 00842200 //* C P0494100 FOR GTF SIO ANALYSIS * 00842300 //* D P0256000 FOR USE WITH ABOVE GTF SIO PGMS * 00842400 //* D P1000300 FOR USE WITH ABOVE GTF SIO PGMS * 00842500 //* E SAS PROGRAM GTFMIS FOR THE ANALYSIS OF SVC * 00842600 //* 6 , 7 , 8 , 18 ,42 . THIS SAS PROGRAM IS GEARED * 00842700 //* TOWARD THE ANALYSIS OF IMS ON GPU 'S SYSTEM * 00842800 //* F SAS PROGRAM GTFSIO WHICH WILL ANALYZE THE * 00842900 //* MEMBERS OF A PDS BASED ON GTF DATA * 00843000 //* G LOCAL MAROCS NEEDED FOR THE ABOVE * 00843100 //* H $$DOC MEMBER WHICH CONTAINS DOCUMENTATION * 00843200 //* * 00843300 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00843400 //* * 00843500 //* G P U D I S C L A I M E R * 00843600 //* * 00843700 //* THE INFORMATION OR MATERIAL BEING PROVIDED TO YOU BY GPU * 00843800 //* SERVICE CORPORATION ( GPUSC ) , WHETHER IN HARD COPY OR * 00843900 //* MACHINE READABLE FORM , HAS BEEN DEVELOPED BY GPUSC FOR ITS * 00844000 //* OWN PRUPOSES AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN * 00844100 //* ITS OWN DATA PROCESSING SYSTEM . ACCORDINGLY , GPUSC DOES * 00844200 //* NOT WARRANT , AND MAKES NO REPRESENTATIONS , WHETHER * 00844300 //* EXPRESSED OR IMPLIED , CONCERNING SUCH INFORMATION OR * 00844400 //* MATERIAL AND ASSUMES NO RESPONSIBLITY FOR ITS QUALITY OR * 00844500 //* FITNESS FOR ANY OTHER PURPOSE OR FOR USE WITH OTHER THAN * 00844600 //* GPUSC ' S OWN EQUIPMENT . YOU ARE , THEREFORE , * 00844700 //* ACCEPTING THIS INFORMATION ON AN ' AS IS ' BASIS AND WILL * 00844800 //* BE USING IT AT YOUR OWN RISK . FURTHERMORE , GPUSC HAS NOT * 00844900 //* UNDERTAKEN TO CORRECT , MAINTAIN OR UPDATE THIS INFORMATION * 00845000 //* IN THE FUTURE AND WILL NOT BE RESPONSIBLE FOR ANY FAILURE * 00845100 //* TO DO SO . * 00845200 //* * 00845300 //***FILE 125 CONTAINS A VERY VERY VERY CONDENSED SAMPLE OUTPUT * 00845400 //* FROM THE PROGRAMS CONTAINED IN FILE 124 OF THIS TAPE * 00845500 //* FROM GPU SERVICE CORPORATION IN PENNSYLVANIA . THIS * 00845600 //* FILE IS RECFM=FBA LRECL=133 BLKSIZE=32718 * 00845700 //* * 00845800 //***FILE 126 IS AN ASSEMBLER PROGRAM TO GIVE INFORMATION ON THE * 00845900 //* SMF DATA SETS IN AN SMF VSAM FILE ENVIRONMENT ONLY * 00846000 //* * 00846100 //***FILE 127 IS IN IEBUPDTE FORMAT FROM * 00846200 //* **FILE 127 REPLACEMENT FROM: CLARK HUNTER * 00846300 //* ** COMPUWARE CORPORATION * 00846400 //* ** SOUTHFIELD, MICHIGAN * 00846500 //* ** 313-540-0900 * 00846600 //* ** * 00846700 //* **COMMENTS FROM V232 VERSION OF CBT TAPE WITH MY UPDATES: * 00846800 //* * 00846900 //* **FILE 127 IS IN IEBUPDTE FORMAT FROM CHRYSLER AND * 00847000 //* CONTAINS : * 00847100 //* * 00847200 //* 1. DASD SEEK ANALYSIS PROGRAM . THIS * 00847300 //* PROGRAM READS IN GTF DATA AND SUMMARIZED * 00847400 //* DASD SIO/IO RECORDS . THIS PROGRAM IS IN * 00847500 //* IEBUPDTE SYSIN FORMAT AND REQUIRES THE * 00847600 //* VTOC MACROS THAT ARE CONTAINED IN EITHER * 00847700 //* FILE 112 OR FILE 198 * 00847800 //* * 00847900 //* BY DEVICE CALCULATE NUMBER SIO CC = 0-3 * 00848000 //* TOTAL CYLINDERS SEEKED * 00848100 //* AVERAGE CYLINDERS SEEKED * 00848200 //* AVERAGE IO TIME * 00848300 //* MAX. IO TIME OVER RUN * 00848400 //* **10JAN85 FIXED FOR XA, MISC PROGRAM BUGS * 00848500 //* FIXED * 00848600 //* 2. A SAMPLE IEECVXIT PROGRAM * 00848700 //* **10JAN85 REMOVED DUE TO LACK OF * 00848800 //* INTEREST * 00848900 //* 3. SUBROUTINE TO PRODUCE A NICE PRINTABLE * 00849000 //* HEADER DATE * 00849100 //* 4 TSO CP FOR STANDALONE DIDOCS (DCMS) * 00849200 //* AUTO UPDATE * 00849300 //* **10JAN85 REMOVED DUE TO LACK OF * 00849400 //* INTEREST * 00849500 //* 5 PROGRAM TO LOCATE, ALLOC, DUMP THE * 00849600 //* MVS/SE2 SMF D.S. * 00849700 //* **10JAN85 REMOVED DUE TO LACK OF * 00849800 //* INTEREST * 00849900 //* 6 COMPANY USER MODS IN SMP4 FORMAT * 00850000 //* **10JAN85 REMOVED DUE TO LACK OF * 00850100 //* INTEREST * 00850200 //* 7 SEE NEW STUFF BELOW: * 00850300 //* * 00850400 //* PDS CONTAINS: * 00850500 //* * 00850600 //* MACROS: - @ENT @RET @STCK CLEAR CONV ENTER ENTERX * 00850700 //* LEAVE MSG PDEDSNAM REGS SYSGET SYSPUT * 00850800 //* TSCVDATE VTCALL VTEXCP VTFMT VTOC VTOCMSG * 00850900 //* VTOCOM VTOCPARS * 00851000 //* * 00851100 //* $DOC - DOCUMENTATION FILE * 00851200 //* * 00851300 //* JCL - SAMPLE JCL USED TO DUMP PDS. * 00851400 //* AND TRY TO CHECK THAT I DIDNT FORGET ANY * 00851500 //* MACROS * 00851600 //* * 00851700 //* TSGTFMAP - PGM TO REDUCE GTF SIO/IO TRACE RECORDS. * 00851800 //* SEE COMMENTS AT BEGINNING OF PROGRAM FOR * 00851900 //* HOW TO RUN. USES SUBR: TSCVDATE, VTOCEXCP * 00852000 //* NOW SUPPORTS XA FORMAT OF GTF RECORDS * 00852100 //* * 00852200 //* TSCALL - TSOCP TO CALL PROGRAMS FROM * 00852300 //* "TASKLIB"/STEPLIB/ LNKLST/LPALIB. IDEA IS * 00852400 //* TO NOT USE TSO "CALL" WITH HARDCODED * 00852500 //* LOADLIBS THAT HAVE TO BE OPENED. * 00852600 //* * 00852700 //* TSCVDAT - SUBROUTINE TO MAKE NICE PRINTABLE DATE FOR * 00852800 //* HEADINGS. * 00852900 //* * 00853000 //* TSDYNLXA - PGM XA DYNALIST TO LIST ESOTERIC UNITNAMES * 00853100 //* (NOTE: USES ESTAES TO EXECUTE * 00853200 //* UNAUTHORIZED!!) * 00853300 //* * 00853400 //* TSENQSP3 - TSOCP (AKA $DENQ) SCAN FOR GENERIC SYSDSN * 00853500 //* ENQS, LOOK FOR ENQ LOCKOUTS, LOOK FOR * 00853600 //* RESERVE ENQS. (NOTE USES GQSCAN) * 00853700 //* * 00853800 //* TSSPACE - TSOCP TO LIST SPACE, IXVTOC STATUS, * 00853900 //* PATH(CHAN/CHPID), LSPACE(FREE) SPACE, * 00854000 //* #USERS, DEVTYPE, AND ADDRESS FOR DASD. CAN * 00854100 //* ASK FOR ALL DASD WITH LESS THAN N PATHS TO * 00854200 //* SEE IF ANY DASD PATHS ARE MISSING. * 00854300 //* * 00854400 //* TSSYSTEM - TSOCP SHOW RELEASE, CPUTYPE, CPUSERIAL#, * 00854500 //* SYSRES, REAL STORAGE, HOW LONG SINCE * 00854600 //* (IPL/SET IPS). * 00854700 //* * 00854800 //* VTOC - TSOCP VTOC - FIXED TO SP3/XA UCBSCAN, * 00854900 //* HANDLES 123 EXTENTS WITH DF/EF. (NOTE I * 00855000 //* USE ENTRY VTOCEXCP FOR VTOC READING IN * 00855100 //* TSGTFMAP) * 00855200 //* * 00855300 //* ** EVERYTHING HAS BEEN USED ON SP3 AND XA2.1.1. * 00855400 //* * 00855500 //***FILE 128 CONTAINS THE SOURCE FOR THE TSO GAME CALLED * 00855600 //* ADVENTURE IN IEBUPDTE SYSIN FORMAT . THE LOAD MODULE * 00855700 //* IS CONTAINED IN FILE 035 . YOU WILL NEED THE PL/I * 00855800 //* OPTIMIZING COMPILER TO RECOMPILE THIS CODE * 00855900 //* * 00856000 //***FILE 129 IS A SUPERZAP TO INSTALL CHANNEL ROTATE AND I/O * 00856100 //* PRIORITY ON A 3.8 NON-MVSSE SYSTEM . THIS LEVEL * 00856200 //* OF THE ZAP IS AT A 8002 LEVEL SYSTEM * 00856300 //* * 00856400 //***FILE 130 IS THE DOCUMENTATION FOR USE OF THE PROGRAM * 00856500 //* WHICH IS CONTAINED IN FILE 131 . ( RECFM=FBA ) * 00856600 //* * 00856700 //***FILE 131 IS A TSO CATALOG/DASDM INTERFACE CP FOR USE * 00856800 //* WITH MVS . CUTLOCUS IS A COMMAND PROCESSOR ( CP ) * 00856900 //* WHICH PROVICES MANY OF THE IEHPROGM FUNCTIONS * 00857000 //* TO THE TSO USERS . UNFORTUNATELY NO SOURCE ONLY OBJECT 00857100 //* THERE IS NO WAY AT ALL TO GET SOURCE EITHER , WE HAVE * 00857200 //* TRIED SEVERAL TIMES . * 00857300 //* THE FUNCTIONS ARE : * 00857400 //* * 00857500 //* BLDG ... BUILD GDG INDEX LEVELS * 00857600 //* BLDX ... BUILD INDEX LEVELS * 00857700 //* CATLG ... CATALOG DATASETS * 00857800 //* CONNECT ... CONNECT CATALOGS * 00857900 //* DLTX ... DELETE INDEX LEVELS * 00858000 //* FIND ... LOCATE AND DESCRIBE DATASETS * 00858100 //* PURGE ... SCRATCH AND OPTIONALLY , UNCATALOG * 00858200 //* RELEASE ... RELEASE CATALOGS * 00858300 //* UNCATLG ... UNCATLG DATASETS * 00858400 //* * 00858500 //***FILE 132 IS AN ASSEMBLER PROGRAM FROM THE AETNA LIFE INSURANCE * 00858600 //* COMPANY TO GIVE A CONDENSED LIST CDS . THIS PROGRAM * 00858700 //* RUNS AGAINST SMP REL4 AND WILL CONDENSE ON THE * 00858800 //* ORDER OF 6 TO 1 OVER IBM'S LIST CDS SEE THE CODE FOR * 00858900 //* ADDITIONAL INFORMATION * 00859000 //* * 00859100 //***FILE 133 IS A SYSTEM MOD TO CHANGE MCS CONSOLES TO COME UP * 00859200 //* IN ROLL DELETE MODE . THERE IS ALSO AN SP1.3 VERSION * 00859300 //* IN THIS FILE * 00859400 //* * 00859500 //***FILE 134 IS A SYSTEM MOD TO DO I/O PRIORITY QUEUEING ON A * 00859600 //* NON MVS/SE SYSTEM * 00859700 //* * 00859800 //***FILE 135 IS A MODIFICATION TO KEEP VIO PAGES OFF THE DRUMS * 00859900 //* ALSO WILL QUEUE ANY VIO PAGES OFF THE PART DUPLEX * 00860000 //* QUEUE INSTEAD OF THE PART LOCAL QUEUE . SEE THE * 00860100 //* MODIFICATION FOR ADDITIONAL INFORMATION * 00860200 //* * 00860300 //***FILE 136 IS FROM CONNECTICUT BANK AND TRUST COMPANY AND * 00860400 //* SEVERAL OF THEIR COMMAND PROCESSORS . THIS FILE IS * 00860500 //* IN IEBUPDTE SYSIN FORMAT SEE THE MEMBER CALLED $$DOC * 00860600 //* FOR ADDITIONAL INFORMATION * 00860700 //* * 00860800 //* LETTERS ... TSO CP TO CHANGE SCREEN SIZE UNDER TSO TCAM * 00860900 //* SUPPORTS MODELS 2, 3, 4, AND 5 * 00861000 //* LETTERS# ... HELP FOR LETTERS * 00861100 //* DELALL ... TSO CP TO DELETE ALL OF A TSO USERS DATASETS * 00861200 //* SOME OF THIS CODE IS INSTALLATION DEPENDENT * 00861300 //* DELALL# ... HELP FOR DELALL * 00861400 //* DSNAME ... TSO CP TO SHOW ENQUES FOR MVS/SP1.3 * 00861500 //* DSNAME# ... HELP FOR DSNAME * 00861600 //* PROFLIST ... TSO CP TO SHOW TSOUSERS PROFILE - NEED TO HAVE * 00861700 //* ACCOUNT AUTHORITY * 00861800 //* TERMLIST ... TSO CP TO SHOW TERMINAL CHARACTERISTICS FOR * 00861900 //* YOUR TSO SESSION * 00862000 //* HAS TO RUN AUTHORIZED ( USES OUR SVC 254 ) * 00862100 //* TERMLST# ... HELP FOR TERMLIST * 00862200 //* TSOUSER ... TSO CP TO SHOW CURRENTLY RUNNING TSO USERS * 00862300 //* HAS TO RUN AUTHORIZED (USES OUR SVC 254) * 00862400 //* TSOUSER# ... HELP FOR TSOUSER * 00862500 //* * 00862600 //***FILE 137 IS AN IEBUPDTE STREAM THAT CONTAINS A PROGRAM AND * 00862700 //* JCL THAT WILL DYNAMICALLY TURN THE SYSTEM TRACE * 00862800 //* FACILITY ON OR OFF VIA OPERATOR COMMAND * 00862900 //* * 00863000 //***FILE 138 SEVERAL MVS MODIFICATIONS IN SMP FORMAT * 00863100 //* THAT HAVE BEEN RECEIVED FOR A SHARE INSTALLATION * 00863200 //* * 00863300 //***FILE 139 IS IN IEBUPDTE FORMAT FROM STANDARD OIL WHICH * 00863400 //* CONTAINS SEVERAL UTILITY SOURCE PROGRAMS * 00863500 //* 1 PRINTOFF ( FIXED SOME BUGS ) * 00863600 //* * 00863700 //***FILE 140 IS A PROGRAM TO PROCESS THE OUTPUT OF FILES 28 AND * 00863800 //* FILE 29 ON THIS TAPE . * 00863900 //* WILL PROCESS THE FILE TO PRODUCE A REPORT TO SHOW * 00864000 //* CSECTS IN ORDER BY LIBRARY DATASET , OR BY MODULE * 00864100 //* SEQUENCE OR CSCET SEQUENCE. HELPFUL WHEN DOING MODS * 00864200 //* WITH SMP . THE JCL TO RUN IS INCLUDED AS COMMENTS * 00864300 //* WITHIN THE PROGRAM ITSELF * 00864400 //* * 00864500 //***FILE 141 IS FROM THE DEPARTMENT OF TRANSPORTATION , STATE OF * 00864600 //* WASHINGTON . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 00864700 //* AND CONTAINS THE FOLLOWING * 00864800 //* * 00864900 //* BRODSCAN PROGRAM TO SCAN SYS1.BRODCAST DATASET AND * 00865000 //* REPORT STRUCTURE * 00865100 //* BRODSCN$ SUMMARY OF BRODSCAN AND SAMPLE JCL * 00865200 //* DSN COMMAND PROCESSOR TO SHOW DATASET ENQS * 00865300 //* DSN$ TSO HELP DOCUMENT FOR DSN * 00865400 //* DSN13 MVS/SP1.3 VERSION OF DSN * 00865500 //* ENTER MACRO USED DURING ASSEMBLY * 00865600 //* ENTER$ EXPLANATION OF ENTER MACRO * 00865700 //* FORMATPG A PROGRAM TO PREFORMAT A DATASET * 00865800 //* FORMATP$ EXPLANATION OF THE FORMATPG PROGRAM * 00865900 //* LEAVE MACRO USED DURING ASSEMBLY * 00866000 //* LEAVE$ EXPLANATION OF LEAVE MACRO * 00866100 //* LISTENQ COMMAND PROCESSOR WHICH SHOWS ALL DATASET * 00866200 //* ALLOCATIONS BY JOB * 00866300 //* LISTENQ$ TSO HELP DOCUMENT FOR LISTENQ * 00866400 //* MODCOPY PROGRAM TO COPY MOD DATASETS THAT WERE OPEN * 00866500 //* DURING SYSTEM FAILURES ( USED IN CONJUNCTION * 00866600 //* WITH FORMATPG ) * 00866700 //* MODCOPY$ EXPLANATION OR MODCOPY * 00866800 //* SETR MACRO USED DURING ASSEMBLY * 00866900 //* SETR$ EXPLANATION OF SETR MACRO * 00867000 //* VSAMHST$ DESCRIBES USE OF VSAMHIST PROGRAM * 00867100 //* VSAMHIST PROGRAM TO ANALYZE VSAM DATASET UTILIZATIONS * 00867200 //* WAITR COMMAND PROCESSOR TO SHOW ALL ENQ CONFLICTS * 00867300 //* FOR A GIVEN JOB * 00867400 //* WAITR$ TSO HELP DOCUMENT FOR WAITR * 00867500 //* WAITR13 MVS/SP1.3 VERSION OF WAITR * 00867600 //* * 00867700 //***FILE 142 IS AN RMF POST PROCESSOR PROGRAM * 00867800 //* * 00867900 //* THIS PROGRAM WILL NOT WORK WITH MF/1 RECORDS . * 00868000 //* * 00868100 //* THIS PROGRAM WILL READ SMF RECORDS THAT CONTAIN RMF RECORDED * 00868200 //* RECORDS AND SELECT THE RMF RECORDS FOR ANALYSIS . THIS INPUT * 00868300 //* SHOULD BE IN THE SEQUENCE AS RECORDED BY RMF EITHER IN THE * 00868400 //* SYS1.MANX/Y DATA SETS OR ON TAPE . THIS PROGRAM WILL PRINT * 00868500 //* 6 LINES OF OUTPUT FOR EACH RMF RECORDING PERIOD AND BREAK FOR * 00868600 //* A NEW PAGE FOR EACH DAY AND SHIFT . THIS PROGRAM IS SET TO * 00868700 //* PRINT AT 8 LPI . CHANGE CONSTANT " NUMSETS " TO ADJUST THE * 00868800 //* NUMBER OF SETS TO PRINT ON A PAGE . THIS PROGRAM WILL REPORT * 00868900 //* FOR AN MP / AP / UP ENVIRONMENT . THIS PROGRAM WILL NOT REPORT 00869000 //* SERVICE FOR DOMAIN 0 OR FOR DOMAINS HIGHER THAN 12 AND ON * 00869100 //* CHANNEL UTILIZATION FOR CHANNEL 0 OR FOR CHANNELS HIGHER THAN * 00869200 //* 12 . * 00869300 //* * 00869400 //* REPORT CONTENTS . * 00869500 //* * 00869600 //* COLUMN LINE # MEANING * 00869700 //* HEADING IN PERIOD * 00869800 //* * 00869900 //* TIME 1 START TIME OF RMF PERIOD * 00870000 //* * 00870100 //* CPU % 1 CPU UTILIZATION IN PERCENT FOR CPU 0 * 00870200 //* 2 CPU UTILIZATION IN PERCENT FOR CPU 1 * 00870300 //* * 00870400 //* 4 CPU PERFORMANCE INDEX - THE * 00870500 //* RELATIONSHIP OF CPU UTILIZATION TO * 00870600 //* TOTAL CPU SERVICE PROVIDED * 00870700 //* * 00870800 //* TP/DP/PF 1 TOTAL PAGING RATE - # OF PAGES PER * 00870900 //* F/SP/PP SECOND INCLUDES PAGING, SWAPING AND VIO * 00871000 //* 2 DEMAND PAGING RATE - * 00871100 //* ( NON-SWAP PAGE RATE ) * 00871200 //* 3 PAGE FAULT RATE - * 00871300 //* PAGE INS + PAGE RECLAIMS * 00871400 //* 4 TOTAL NUMBER OF FIXED PAGES * 00871500 //* 5 NUMBER OF PAGEABLE SYSTEM PAGES * 00871600 //* 6 NUMBER OF PAGEABLE PRIVATE PAGES * 00871700 //* * 00871800 //* SERVICE 1 TOTAL SERVICE UNITS ( SERVICE IS SHOWN * 00871900 //* BY 2 CPU SERVICE IN THOUSANDS OF * 00872000 //* DOMAIN 3 IOC SERVICE SERVICE UNITS ) * 00872100 //* AND 4 MSO SERVICE * 00872200 //* TOTAL 5 NUMBER OF ENDED TRANSACTIONS IN PERIOD * 00872300 //* 6 AVERAGE TRANSACTION TIME * 00872400 //* - SHOWN IN SECONDS UP TO 99.9 - OR - * 00872500 //* - IN MINUTES SHOWN AS N.N"M" - OR - * 00872600 //* - NNN"M" * 00872700 //* * 00872800 //* CHANNELS 1 CHANNEL ACTIVITY IN PERCENT FOR CPU 0 * 00872900 //* 1 - 6 2 CHANNEL ACTIVITY IN PERCENT FOR CPU 1 * 00873000 //* * 00873100 //* DEVICE 1 - 6 WORSE 6 DASD DEVICES FOR QUEUE LENGTH * 00873200 //* VOLSER Q SHOWN WITH VOLSER AND QUEUE LENGTH IN * 00873300 //* DECENDING ORDER * 00873400 //* * 00873500 //* JCL REQUIRED: * 00873600 //* * 00873700 //* //S1 EXEC PGM=RMFR002 ( NEEDS LESS THAN 192K REGION ) * 00873800 //* //INPUT DD DSN=SYS1.MANX,DISP=SHR * 00873900 //* //OUTPUT DD SYSOUT=1 ( 8 LPI ) * 00874000 //* * 00874100 //***FILE 143 THIS FILE IS FROM UNION OIL COMPANY OF CALIFORNIA . IT 00874200 //* IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS THE * 00874300 //* THE FOLLOWING : * 00874400 //* 1 SP1.3 SPY THAT USES XM * 00874500 //* 2 GTEDS Q WITH PROTECTION AGAINST DELETING OTHER * 00874600 //* USERS OUTPUT ( NOT AN SP1.3 VERSION ) * 00874700 //* 3 SP1.3 ENQ * 00874800 //* 4 DSPRINT BANNER PAGE MOD * 00874900 //* 5 DSPRINT Q DISPLAY * 00875000 //* 6 OTHER MISC CODE * 00875100 //* * 00875200 //***FILE 144 IS THE SOURCE IN IEBUPDTE FORMAT FOR THE LSPACE TSO * 00875300 //* COMMAND PROCESSOR FROM SCHERING-PLOUGH . THIS CP * 00875400 //* ACCEPTS A COMMAND THAT MAY CONTAIN UCBS , VOLSERS , * 00875500 //* PARTIAL VOLSERS , ESOTERIC OR GENERIC DEVICE NAMES , * 00875600 //* OR SEVERAL KEYWORDS AND RETURNS THE SPACE AVAILABLE * 00875700 //* ON THOSE VOLUMES * 00875800 //* * 00875900 //***FILE 145 IS IN IEBUPDTE FORMAT FROM HOBART AND CONTAINS * 00876000 //* 1 FLOATING STORAGE FENCE ( NON-MVSSE ) * 00876100 //* 2 RMF TRACE EXIT * 00876200 //* 3 SAMPLE OF AN IEFUJV EXIT * 00876300 //* 4 IEFUJV TABLE * 00876400 //* 5 CPU COMMAND ( ASSEMBLER VERSION OF YALE'S PLI CPU * 00876500 //* COMMAND ) * 00876600 //* ++++ * 00876700 //***FILE 146 IS THE SOURCE CODE FOR SQUISH THAT WILL RUN UNDER * 00876800 //* MVS. THIS PROGRAM NEEDS AN SVC APPENDAGE WHICH IS * 00876900 //* IN FILE 147 ON THIS TAPE. CHECK THE CODE FOR ADDITION-* 00877000 //* INFORMATION ON THIS PROGRAM. MUST BE MARKED AC=1 * 00877100 //* * 00877200 //***FILE 147 IS THE SVC APPENDAGE NEEDED BY THE SQUISH PROGRAM * 00877300 //* WHICH IS IN FILE 146 ON THIS TAPE * 00877400 //* * 00877500 //***FILE 148 IS AN MVS/SP1.3 VERSION OF THE TSO CP CALLED QUE FROM * 00877600 //* ANR PRODUCTION COMPANY ( FORMERLY CALLED THE * 00877700 //* MICHIGAN WISCONSIN PIPE LINE COMPANY ) OF HOUTSON * 00877800 //* TEXAS * 00877900 //* * 00878000 //***FILE 149 CONTAINS SEVERAL UTILITES FROM UCLA . THIS FILE IS IN * 00878100 //* IEBUPDTE SYSIN FORMAT - SEE THE MEMBER CALLED $$DOC * 00878200 //* FOR ADDITON INFORMATION. THE FOLLOWING IS A BRIEF * 00878300 //* DESCRIPTION OF UTILITIES IN THIS FILE : * 00878400 //* * 00878500 //* CCNEDFSE/CCNEDFSH - FULL SCREEN TSO EDIT SUBCOMMAND * 00878600 //* FOR 3270'S. THIS INCLUDES MOVE/COPY/DELETE * 00878700 //* COMMANDS WHICH ALLOW LINE NUMBERS ON UNNUMBERED * 00878800 //* FILES. REQUIRES ZAP TO IKJEBEMA TO ADD TO EDIT * 00878900 //* COMMAND TABLE. (SEE INFO CNEDFSE) * 00879000 //* * 00879100 //* CMSLOAD - LOAD "DISK DUMP" FILE FROM VM. * 00879200 //* * 00879300 //* COMPARE - LOAD MODULE / CSECT COMPARE PROGRAM. * 00879400 //* *** REQUIRED *** * 00879500 //* * 00879600 //* DUMPINFO - TSO CP TO DISPLAY SYS1.DUMP DATASET * 00879700 //* STATUS. INCLUDES TITLE, DATE AND TIMES. * 00879800 //* * 00879900 //* ENQ - SP1.3 ENQ DISPLAY TSO CP * 00880000 //* * 00880100 //* ESDXREF - LOAD MODULE / CSECT XREF PGM * 00880200 //* * 00880300 //* IEAVNP99 - SAMPLE USER NIP EXIT ROUTINE. * 00880400 //* SEE EAVNP99 FOR SAMPLE SMP INSTALL. * 00880500 //* * 00880600 //* IEFU83 - SMF 83 EXIT WITH CODE TO WTO OLD IEC209I * 00880700 //* TAPE STATISTICS MESSAGE. (THE REST OF THE * 00880800 //* LOCAL CODE SHOULD BE DELETED). * 00880900 //* * 00881000 //* IXTOFMT5 - SUBROUTINE USED TO UPGRADE PGMS TO WORK * 00881100 //* ON INDEXED VTOC'S. RETURNS "FAKE" FMT5'S * 00881200 //* FOR INDEXED PACKS. (USED BY LISTSPC AND * 00881300 //* VTOCLIST) * 00881400 //* * 00881500 //* JOIN - VERY SIMPLE & POWERFUL GENERAL MATCH MERGE * 00881600 //* PGM. * 00881700 //* * 00881800 //* LISTGRP - LISTS UNITS IN GENERIC'S, OR GENERICS. * 00881900 //* * 00882000 //* LISTSPC - OLD LISTSPC CP FROM CBT TAPE UPDATED FOR * 00882100 //* INDEXED VTOCS. (USES IXTOFMT5 * 00882200 //* SUBROUTINE). * 00882300 //* * 00882400 //* MOVEZAP - ZAP'S TO (COPY) OF IEHMOVE TO ALLOW * 00882500 //* RUNNING FASTER & NON-AUTHORIZED. * 00882600 //* * 00882700 //* OACFSORT - ASM SUBROUTINE TO DO FIXED LEN * 00882800 //* QUICKSORTS. (FINAL ORDER CHECK COULD BE * 00882900 //* REMOVED FOR HIGH USAGE CASES) * 00883000 //* * 00883100 //* OACMOVE - IEHMOVE PRELOAD PGM. (SEE ALSO MOVEZAP) * 00883200 //* * 00883300 //* OACNSWAP - PGM TO RUN PROBLEM PROGRAMS NON-SWAPPABLE * 00883400 //* WITH ONLY ONE PPT ENTRY. PGM IS NOT APF * 00883500 //* AUTHORIZED. (SEE ACNSWAP FOR PPT ENTRY * 00883600 //* INFO). * 00883700 //* * 00883800 //* PTFXREF - PE CHAIN RUNNER (PLIX). * 00883900 //* * 00884000 //* QUEUESP - JES QUEUE LOOKER PGM (SP1.3 ONLY) * 00884100 //* * 00884200 //* SALVAGE - HDA / PACK CLEAN UP PGM (& CP). * 00884300 //* * 00884400 //* SMPULCMP - SMP LMOD ENTRY (FROM SMP UNLOAD) COMPARE. * 00884500 //* USED IN SP1.0 TO SP1.3 CONVERSION (AND * 00884600 //* OTHER TIMES). (PLIX) * 00884700 //* * 00884800 //* UNIQUE - VERY SIMPLE PGM TO SELECT ONE OF THINGS. * 00884900 //* (SEE ALSO JOIN) * 00885000 //* * 00885100 //* USERS - TSO USERS CP (SELECTS USERS WITH WILDCARDS). * 00885200 //* * 00885300 //* VTOCLIST - OLD VTOCLIST PGM UPDATE TO WORK ON * 00885400 //* INDEXED VTOCS. (USES IXTOFMT5 SUBROUTINE) * 00885500 //* * 00885600 //***FILE 150 IS THE SOURCE FOR LISTCTLG. THIS VERSION ALLOWS NODE * 00885700 //* LISTINGS. INDEX LEVELS AND GDG BASES ARE ALSO * 00885800 //* DISPLAYED. * 00885900 //* JCL TO RUN LISTCTLG * 00886000 //* //STEP01 EXEC PGM=LISTCTLG * 00886100 //* //SYSPRINT DD SYSOUT=A * 00886200 //* //DISK DD DSN=SYSCTLG,DISP=SHR,UNIT=DASD, * 00886300 //* // VOL=SER=XXXXXX * 00886400 //* //SYSIN DD * * 00886500 //* PRINT YYYYYY * 00886600 //* ***** NOTE NODE BEGINS IN CC 16 IF YOU WANT A NODE LIST * 00886700 //* * 00886800 //***FILE 151 IS SVC 243 TYPE 2 SVC FOR TECHNICAL SUPPORT PEOPLE * 00886900 //* WHO WANT SVC SERVICES. THIS SVC DOES MULTIPLE * 00887000 //* SERVICES AND SHOULD BE LOOKED AT CAREFULLY * 00887100 //* BEFORE YOU INSTALL IT INTO YOUR SYSTEM * 00887200 //* * 00887300 //***FILE 152 IS A PCCW MONTIOR FROM MC DONNELL DOUGLAS AUTOMATION * 00887400 //* COMPANY OF LONG BEACH , CALIFORNIA . THE FOLLOWING * 00887500 //* IS A DESCRIPTION OF THE CODE IN THIS FILE * 00887600 //* * 00887700 //* THIS PROGRAM IS USED TO MONITOR THE * 00887800 //* USAGE OF PCCW CONTROL BLOCKS IN MVS. ASM USES * 00887900 //* THESE PACKETS OF CCWS TO BUILD CHANNEL PROGRAMS FOR * 00888000 //* PAGING. IT WAS DISCOVERED THAT USERS WHO PAGEADD * 00888100 //* THEIR HIGH SPEED DEVICES (IE, DRUM AND 3380) CAN * 00888200 //* RUN SHORT OF PCCWS RESULTING IN PAGING DELAYS. ASM * 00888300 //* WILL BUILD MUCH LONGER CHANNEL PROGRAMS FOR THE * 00888400 //* HIGH SPEED DEVICES BECAUSE THEY CAN DO A LOT MORE * 00888500 //* I/O IN THE BURST. THE INITIAL ALLOCATION OF PCCWS * 00888600 //* IS BASED ON THE PAGING DEVICES ONLINE AT IPL TIME. * 00888700 //* THIS PROGRAM WILL SHOW IF YOUR SYSTEM IS BEING * 00888800 //* DEGRADED DUE TO A LACK OF PCCWS. * 00888900 //* * 00889000 //***FILE 153 IS FROM DIEBOLD AND IS IN IEBUPDTE SYSIN FORMAT AND * 00889100 //* CONTAINS THE FOLLOWING : * 00889200 //* * 00889300 //* (SEE MEMBERS CALLED $$CHANGE AND $DOC) * 00889400 //* * 00889500 //* QUEUE - SP 1.3.0 VERSION OF QUEUE * 00889600 //* WITH MODIFICATIONS, SUCH AS : * 00889700 //* 1. REMOTE QUEUES ARE SEARCHED * 00889800 //* 2. MODULES WILL ASSEMBLE CORRECTLY WITH ASMF * 00889900 //* 3. JQE/JOE DUMPS ARE NOW READABLE * 00890000 //* 4. ALIASES ADDED FOR COMMON COMMANDS * 00890100 //* 5. HEX DUMP SHOWS TTR AND MBBCCHHR IN HEADER * 00890200 //* 6. HELP SCREENS CHANGED * 00890300 //* SEE MEMBER $QMODS FOR CURRENT UPDATES AND * 00890400 //* MEMBERS $QDOCSP1-4 FOR PAST UPDATES. (THIS * 00890500 //* VERSION OF QUEUE WAS OBTAINED FROM CBT TAPE * 00890600 //* VERSION 04-04-82 #190 FILE 322.) * 00890700 //* SPY - SP 1.3.0 VERSION OF SPY, SWAP, AND COMMAND WITH * 00890800 //* MODS : * 00890900 //* 1. CONVERSATIONAL PF KEY SUPPORT * 00891000 //* 2. FORCE NON-SWAPPABLE WHILE IN TIMER UPDATE * 00891100 //* MODE * 00891200 //* 3. "RESHOW" KEY FOR PREVIOUS COMMAND * 00891300 //* 4. # COMMAND SUBSYSTEM SUPPORT * 00891400 //* 5. ALARM SUPPORT FOR ERROR MESSAGES * 00891500 //* 6. DISPLAY OF TERMID FOR TSO USERS IN SWAP * 00891600 //* 7. VARIOUS EDITS - SEE LABELS RGR, AND SP3 * 00891700 //* (THIS VERSION OF SPY WAS OBTAINED FROM CBT * 00891800 //* TAPE VERSION 04-04-82 #190 FILE 338.) * 00891900 //* IGC250 - TECH SUPPORT SVC FOR ABOVE PROGRAMS, FROM CBT * 00892000 //* TAPE FILE 151 * 00892100 //* 1. AUTH FLAG BIT MOVED FROM TCBID TO TCBUSER * 00892200 //* FIELD DUE TO ABENDS UNDER MVS SP 1.3.0 * 00892300 //* STATJES - SP 1.3.0 VERSION OF STATJES (STATUS1-5) WHICH * 00892400 //* IS A REPLACEMENT FOR THE TSO STATUS COMMAND * 00892500 //* * 00892600 //***FILE 154 THIS IS THE SOURCE FOR A SHARED DASD ANALYSIS PROGRAM * 00892700 //* IT USES GTF SIO AND IO INTERRUPTS AS INPUT AND * 00892800 //* PRODUCES A REPORT SHOWING ACTIVITY AND CONTENTION * 00892900 //* ON EACH SPINDLE AND ON EACH CHANNEL IF OPTCHAN IS * 00893000 //* AVAILABLE ON A DEVICE. * 00893100 //* JCL ............... * 00893200 //* //STEP 01 EXEC PGM=DASDMVS,PARM='XXXXX' * 00893300 //* //* XXXXX IS NUMBER OF MINUTES IN EACH REPORT * 00893400 //* //SYSPRINT DD SYSOUT=A * 00893500 //* //SNAP DD DUMMY * 00893600 //* //DDGTF DD DSN=GTF.TAPE * 00893700 //* //SYSIN DD * * 00893800 //* 4A0 INPUT CARD INPUT 1 CHANNEL * 00893900 //* 4B0,5B0 INPUT CARD INPUT 2 CHANNEL * 00894000 //* ETC.... * 00894100 //* * 00894200 //***FILE 155 IS VERSION 5 OF THE MVS TUNING REPORT NOVEMBER 1979 * 00894300 //* FROM THE SHARE MVS TUNING PROJECT . THIS FILE * 00894400 //* CONTAINS UPPER AND LOWER CASE CHARACTERS AND IS FBM * 00894500 //* FORMAT, THIS IS THE LATEST VERSION OF THIS REPORT * 00894600 //* SEE FILE 183 FOR FOR VER 4 . * 00894700 //* * 00894800 //***FILE 156 IS THE TSO COMMAND PROCESSOR 'PRINTOFF' FROM THE IBM * 00894900 //* MVS IPO SYSTEM. THIS WILL BE VERY HANDY IN PRINTING * 00895000 //* OFF FILES 155, AND 240 ON THE MODS TAPE, * 00895100 //* ESPECIALLY IF YOU DON'T HAVE A PRINTER WITH UPPER AND * 00895200 //* LOWER CASE CHARACTERS. (FROM IPO RELEASE 1.2) * 00895300 //* * 00895400 //***FILE 157 IS THE HELP DATA SET FOR THE TSO COMMAND PROCESSOR * 00895500 //* 'PRINTOFF' CONTAINED IN FILE 156 OF THE MVSMODS TAPE * 00895600 //* * 00895700 //***FILE 158 IS FROM CONNECTICUT MUTUAL LIFE INSURANCE COMPANY * 00895800 //* AND CONTAINS A COPY OF THEIR DSPRINT REPLACEMENT * 00895900 //* * 00896000 //* J R P (JES2 REMOTE PRINTERS) * 00896100 //* * 00896200 //* THIS PRODUCT WAS DESIGNED AND WRITTEN WITH THE * 00896300 //* INTENT OF INCREASING USER AS WELL AS PROGRAMMER * 00896400 //* PRODUCTIVITY. IT("JRP") MAKES USE OF 3270 PRINTER * 00896500 //* DEVICES TO PRINT SPOOLED JES2 OUTPUT. OUTPUT * 00896600 //* DEVICES ARE DEFINED TO "JRP" VIA A SEQUENTIAL DATA * 00896700 //* SET. EACH CONTROL CARD IN THIS DATA SET DESCRIBES * 00896800 //* THE ATTRIBUTES OF ONE PRINTER. * 00896900 //* * 00897000 //* AFTER "JRP" INITIALIZATION,A SUBSYSTEM REQUEST * 00897100 //* IS ISSUED TO JES2 BASED ON EACH PRINTERS * 00897200 //* DESCRIPTION. IF JES2 CONFIRMS THAT OUTPUT IS * 00897300 //* AVAILABLE FOR THE PRINTER DESCRIBED,A SUBTASK IS * 00897400 //* CREATED, USING THE ATTRIBUTES DEFINED FOR THAT * 00897500 //* PARTICULAR DEVICE. THE SPOOL DATASET IS READ, * 00897600 //* BUFFERED, THEN WRITTEN TO THE PRINTER VIA "VTAM". * 00897700 //* * 00897800 //* "JRP" SUPPORTS VTAM SNA AND NONSNA TERMINALS AS * 00897900 //* "JRP" CONTROL TERMINALS. A MAXIMUM OF 25(TWENTY * 00898000 //* FIVE) TERMINALS ARE SUPPORT SIMULTANIOUSLY. ALL * 00898100 //* FUNCTIONS REQUIRED TO SUPPORT "JRPS" PRINTER * 00898200 //* DEVICES ARE AVAILIBLE FROM A "JRP" CONTROL * 00898300 //* TERMINAL. * 00898400 //* * 00898500 //***FILE 159 IS FROM CBT AND CONTAINS A COPY OF THEIR UCBFIND * 00898600 //* ROUTINE FOR MVS/SP AND MVS/SP XA . THIS SUBROUTINE * 00898700 //* HAS TO RUN AUTHORIZED . THIS IS ACCOMPLISHED BY * 00898800 //* A USER WRITTEN SVC . SEE THE CODE FOR COMPLETE * 00898900 //* DOCUMENTATION . * 00899000 //* * 00899100 //* UCBFIND IS A SUBROUTINE FOR USE IN SP3 OR X-A * 00899200 //* SYSTEM FOR UCB LOOK UP FUNCTIONS. THE CHARTS BELOW * 00899300 //* DESCRIBES THE FUNCTIONS * 00899400 //* * 00899500 //* |-------------------------------------------------------| * 00899600 //* |FUNC| INPUT DATA | RETURNED OUTPUT DATA | * 00899700 //* |CODE| | | * 00899800 //* |----|------------------------|-------------------------| * 00899900 //* | 00 |GENERIC OR ESOTERIC | ALL MATCHING UCBS | * 00900000 //* | |NAME | | * 00900100 //* | 01 |DEV CLASS+TYPE FOR | ALL MATCHING UCBS | * 00900200 //* | |GENERIC DEVICE | | * 00900300 //* | 01 |DEV CLASS+TYPE FOR | CURRENTLY NOT SUPPORTED| * 00900400 //* | |ESOTERIC DEVICE | | * 00900500 //* | 02 |1 COMPLETE VOL-SER | CURRENTLY NOT SUPPORTED| * 00900600 //* | 03 |FIRST 3 CHARS OF | CURRENTLY NOT SUPPORTED| * 00900700 //* | |VOL-SER | * 00900800 //* |-------------------------------------------------------| * 00900900 //* 00 DEVICE SEARCH VIA GENERIC NAME: * 00901000 //* THE EDT IS SEARCHED FOR GENERIC NAME. IF * 00901100 //* MATCH FOUND, THE COMPLETE MASK (DEVICE CLASS AND * 00901200 //* DEVICE TYPE) IS RETRIEVED FROM THE EDT. THE NAME * 00901300 //* IS GENERIC IF THE DEVICE TYPE NOT 00. ALL UCBS OF * 00901400 //* 'THAT DEVICE CLASS' ARE REQUESTED FROM THE SCAN * 00901500 //* SERVICE ROUTINE. EACH RETRIEVED UCB IS COMPARED * 00901600 //* WITH THE HELD DEVICE TYPE. UCB ADDRESSES OF ALL * 00901700 //* MATCHES ARE STORED IN THE CALLERS STORAGE AREA WITH * 00901800 //* A COUNT OF THE NUMBER FOUND. * 00901900 //* * 00902000 //* 00 DEVICE SEARCH VIA ESOTERIC NAME: * 00902100 //* THE EDT IS SEARCHED FOR ESOTERIC NAME. IF * 00902200 //* MATCH FOUND, THE COMPLETE MASK (DEVICE CLASS AND * 00902300 //* DEVICE TYPE) IS RETRIEVED FROM THE EDT. THE NAME * 00902400 //* IS ESOTERIC IF THE DEVICE TYPE = 00. THE SCAN * 00902500 //* SERVICE ROUTINE CAN NOT BE USED, IEFAB4UV IS * 00902600 //* UTILIZED (PROTECT KEY 1) * 00902700 //* * 00902800 //* 01 DEVICE SEARCH VIA DEVICE CLASS + TYPE * 00902900 //* FOR GENERIC NAME: * 00903000 //* THE DEVICE IS GENERIC IF THE DEVICE TYPE NOT 00. * 00903100 //* ALL UCBS OF 'THAT DEVICE CLASS' ARE REQUESTED FROM * 00903200 //* THE SCAN SERVICE ROUTINE EACH RETRIEVED UCB IS * 00903300 //* COMPARED WITH THE HELD DEVICE TYPE. ALL MATCHES ARE * 00903400 //* STORED IN THE CALLER'S STORAGE AREA WITH A COUNT. * 00903500 //* * 00903600 //* 01 DEVICE SEARCH VIA DEVICE CLASS + TYPE * 00903700 //* FOR ESOTERIC NAME: * 00903800 //* SUPPORTED ONLY UNDER X-A: * 00903900 //* THE DEVICE IS ESOTERIC IF THE DEVICE TYPE = 00. * 00904000 //* IEFAB4UV IS INVOKED WITH THE UCBTYP AS INPUT * 00904100 //* REQUESTING A UNIT NAME AS OUTPUT (THIS FUNCTION * 00904200 //* ONLY WORKS UNDER X-A). IEFAB4UV IS THEN REINVOKED * 00904300 //* WITH THE UNIT NAME AS INPUT. OUTPUT CONSISTS OF THE * 00904400 //* UCBS AND A COUNT OF THEM * 00904500 //* * 00904600 //* IF ALL THE UCB ADDRESSES DO NOT FIT INTO THE OUTPUT * 00904700 //* AREA, THE CALLER MUST RE-INVOKE THE SUBROUTINE WITH * 00904800 //* THE SAME REQUEST, ''WITHOUT'' CLEARING OUT THE 100 * 00904900 //* BYTE WORK AREA (INFO IN THAT AREA TELLS THE * 00905000 //* SUBROUTINE WHERE TO CONTINUE PROCESSING UCBS. * 00905100 //* THIS CODE IS NOT COMPLETED * 00905200 //* * 00905300 //* CMD BUFFER (INPUT) POINTED TO BY CPPL: * 00905400 //* * 00905500 //* ____________________________________________ * 00905600 //* | XX |XXXXXX|CCCCCCCC| XXXXXXXX | * 00905700 //* |________________|________|________________| * 00905800 //* |FUNCTION |(NOT | NAME/ | ADDRESS OF A | * 00905900 //* | CODE | USED)| DEVICE | 2K OUTPUT AREA | * 00906000 //* | | | TYPE | | * 00906100 //* |_________|______|________|________________| * 00906200 //* * 00906300 //* F - XX FUNCTION BITS - * 00906400 //* 00: GENERIC/ESOTERIC NAME BEING PASSED FOR UCBS * 00906500 //* 01: UNITTYP (3010200E) IS BEING PASSED FOR MATCHING * 00906600 //* UCBS * 00906700 //* (00012000) ESOTERIC DEVICES WORKS * 00906800 //* ONLY FOR X-A * 00906900 //* THE FOLLOWING FUNCTIONS ARE NOT SUPPORTED: * 00907000 //* 02: 1 COMPLETE VOL-SER IS BEING PASSED FOR MATCHING * 00907100 //* UCB * 00907200 //* 03: FIRST 3 CHARS OF VOL-SER BEING PASSED FOR * 00907300 //* MATCHING UCBS * 00907400 //* - XXXXXX NOT UTILIZED CURRENTLY * 00907500 //* CL8-GENERIC/ESOTERIC/VOL-SER NAME * 00907600 //* OR: * 00907700 //* - XX DEVICE CLASS * 00907800 //* - XXXXXX NOT UTILIZED FOR FUNCTION=01 * 00907900 //* F - AN ADDRESS OF A 2K STORAGE AREA WHICH THE CALLER * 00908000 //* IS RESPONSIBLE TO GET/FREEMAIN . IT WILL CONTAIN * 00908100 //* ALL THE OUTPUT FROM THE SUBROUTINE .THE * 00908200 //* BREAKDOWN OF ITS CONTENTS IS : * 00908300 //* - 100 BYTE WORK AREA WHICH MUST BE INITIALIZED TO * 00908400 //* BINARY ZEROS 'ONLY' ON THE FIRST CALL TO * 00908500 //* THIS SUBROUTINE FOR A SPECIFIC FUNCTION. FOR * 00908600 //* SUBSEQUENT ACCESSES 'OF SAME' FUNCTION, DO * 00908700 //* 'NOT' TOUCH THE CONTENTS OF THIS WORK AREA * 00908800 //* - 4 BYTES ( 1 FULLWORD ) FOR RETURNED COUNT OF # OF * 00908900 //* UCBS BEING RETURNED. THIS SHOULD BE * 00909000 //* INITIALIZED TO ZEROS * 00909100 //* - 1944 BYTES ( 486 FULLWORDS ) FOR RETURNED UCB * 00909200 //* ADDRESSES . THIS SHOULD BE INITIALIZED TO * 00909300 //* ZEROS * 00909400 //* * 00909500 //* RETURN CODE SETTINGS: * 00909600 //* R15 = 00 - ALL UCBS RETURNED * 00909700 //* R15 = 04 - NOT ALL UCBS RETURNED, MUST RETURN FOR * 00909800 //* THE REST * 00909900 //* R15 = 08 - NO UCBS FOUND * 00910000 //* R15 = 16 - FUNCTION NOT SUPPORTED * 00910100 //* R15 = 20 - STORAGE NOT AVAIL TO IEFAB4UV FOR UCB * 00910200 //* LIST * 00910300 //* R15 = 24 - DEVICE TYPE NOT DEFINED TO SYSTEM * 00910400 //* R15 = 28 - NOT ALL UCBS RETURNED, RECODE FOR MORE * 00910500 //* THAT 486 UCBS * 00910600 //* R15 = 99 - PROBLEM - ABEND PROGRAM * 00910700 //* * 00910800 //***FILE 160 IS FROM THE COMMONWEALTH OF MASSACHUSETTS AND * 00910900 //* CONTAINS SEVERAL TSO COMMANDS. * 00911000 //* ALL THE COMMAND PROCESSORS ARE REENTERABLE, REUSABLE, * 00911100 //* AND REFRESHABLE. THEY MAY BE PLACED INTO SYS1.LPALIB, * 00911200 //* SYS1.LINKLIB, OR ANY OF THE LIBRARIES ON THE LNKLST, * 00911300 //* SUCH AS SYS1.CMDLIB. * 00911400 //* * 00911500 //* THE CONTENTS OF THIS FILE ARE: * 00911600 //* * 00911700 //* A. COMMAND PROCESSORS: * 00911800 //* DSNCHECK - CHECKS FOR A CATALOG ENTRY FOR A DATASET * 00911900 //* NAME. OPTIONALLY CHECKS FOR A MEMBER * 00912000 //* NAME IN A PDS. GREAT FOR CLISTS. USES * 00912100 //* IKJEHCIR AND THE BLDL SVC. * 00912200 //* FREEALL - NOT THE SAME OLD FREEALL. THIS IS A NEW * 00912300 //* ONE WHICH USES SVC-99, SO THIS FREEALL * 00912400 //* CAN BE MAINTAINED BY A MORE JUNIOR * 00912500 //* PROGRAMMER. HAS NICE OPERANDS, * 00912600 //* INCLUDING 'EXCEPT' FOR PROVIDING A LIST * 00912700 //* OF FILE NAMES (OR MASKS) WHICH YOU DO * 00912800 //* NOT WANT TO FREE. * 00912900 //* INSTREAM - CREATES A TEMPORARY FILE ON SYSDA FROM * 00913000 //* KEYED IN DATA, OR FROM INSTREAM DATA IN * 00913100 //* A CLIST. IS THE EQUIVALENT OF JCL 'DD * 00913200 //* *'. SYMBOLIC SUBSTITUTION CAN BE USED. * 00913300 //* EXCELLENT FOR CLISTS EXECUTING UTILITIES * 00913400 //* WHICH REQUIRE CONTROL CARDS. BETTER * 00913500 //* THAN OTHER METHODS, SUCH AS USING EDIT * 00913600 //* DURING CLIST EXECUTION, BECAUSE OF USING * 00913700 //* SYSTEM-ASSIGNED NAMES, VIO (IF AVAILABLE * 00913800 //* ON SYSDA), AND NOT HAVING TO USE * 00913900 //* CATALOGING. USES SVC-99 AND QSAM. * 00914000 //* LIBCALL - EXECUTES PROGRAMS IN THE SYSTEM AREAS, * 00914100 //* OR IN PRIVATE LIBRARIES, OR BOTH. THE * 00914200 //* USER DOES NOT NEED TO KNOW EXACTLY WHICH * 00914300 //* LIBRARY THE PROGRAM IS IN. SIMILAR TO * 00914400 //* 'CALL' AND 'XCTL', BUT HAS AN OPTIONAL * 00914500 //* 'STEPLIB' OPERAND. THE 'STEPLIB' * 00914600 //* CONCATENATION WILL BE SEARCHED AHEAD OF * 00914700 //* SYSTEM AREAS FOR THE MAIN PROGRAM, AND * 00914800 //* OTHER PROGRAMS WHICH MAY BE DYNAMICALLY * 00914900 //* LOADED AT EXECUTION TIME (SUCH AS * 00915000 //* GRAPHICS ROUTINES). LIBCALL ALSO CAN * 00915100 //* ACCEPT PROGRAM PARMS IN LOWER CASE VIA * 00915200 //* THE 'ASIS' OPERAND. USES ATTACH SVC. * 00915300 //* ESPECIALLY GOOD FOR GROUP OR SYSTEM * 00915400 //* CLISTS. * 00915500 //* SYSDSN - CREATES A LIST OF JOB/TSU/STC NAMES * 00915600 //* WHICH HAVE A DATASET ALLOCATED, OR ARE * 00915700 //* WAITING FOR ALLOCATION. USES THE GQSCAN * 00915800 //* SVC. * 00915900 //* * 00916000 //* B. MACROS: * 00916100 //* OUR VERSION OF THE GTE LABORATORIES MACROS FOR * 00916200 //* LINKAGE CONVENTIONS AND DYNAMIC ALLOCATION VIA * 00916300 //* SVC-99 (AVAILABLE IN ANOTHER FILE ON THE MODS * 00916400 //* TAPE). LINKSAVE AND LINKBACK NOW HAVE A 'GETAMT' * 00916500 //* OPERAND FOR THE GETMAIN. * 00916600 //* LINKSAVE GTEDADAT * 00916700 //* LINKBACK GTEDASET * 00916800 //* EQ$R GTEDAALC * 00916900 //* GTEDADOC * 00917000 //* * 00917100 //* C. HELP MEMBERS: * 00917200 //* HELP MEMBERS FOR THE TSO COMMANDS. (HELP FOR THE * 00917300 //* GTE DYNAMIC ALLOCATION MACROS IS OBTAINED BY * 00917400 //* ASSEMBLING MACRO GTEDADOC.) * 00917500 //* #DSNC #LCALL * 00917600 //* #FA #SYSD * 00917700 //* #IN * 00917800 //* * 00917900 //* D. JCL: * 00918000 //* THE JOBSTREAMS WE RAN FOR INSTALLATION. SMP WAS * 00918100 //* NOT USED FOR THESE COMMANDS. ACCESS TO THE CVT * 00918200 //* MACRO IN SYS1.AMODGEN IS REQUIRED FOR ALL * 00918300 //* ASSEMBLIES. * 00918400 //* DSNC LCALL * 00918500 //* FA SYSD * 00918600 //* IN * 00918700 //* * 00918800 //***FILE 161 IS FROM THE AIRFORCE IN TEXAS AND CONTAINS A COPY OF * 00918900 //* THEIR ISPF/PDF SOURCE . THIS FILE IS IN IEBUPDTE * 00919000 //* SYSIN FORMAT . SEE THE MEMBER CALLED $$PROSE FOR * 00919100 //* ADDITIONAL INFORMATION . * 00919200 //* * 00919300 //* MY GOAL IS TO WRITE ISPF/PDF MENUS, ECT AND * 00919400 //* MODIFY AS LITTLE IBM LIBRARIES AS POSSIBLE. * 00919500 //* SO TO UNDERSTAND HOW TO DO THIS DO THIS YOU * 00919600 //* MUST COMPREHEND THE FILES YOU CAN ALLOCATE * 00919700 //* IN LOGON PROCEDURE OF A TSO USER THAT HAVE * 00919800 //* TO DO WITH ISPF/PDF PANELS, ETC. * 00919900 //* * 00920000 //* //USERPROC EXEC PGM=IKJEFT01,DYNAMNBR=40,TIME=1439* 00920100 //* .............. * 00920200 //* //*------- PANEL LIBRARIES * 00920300 //* //ISPPLIB DD DISP=SHR,DSN=USER.PANEL.LIB * 00920400 //* // DD DISP=SHR,DSN=ISR.V1R1M0.ISRPLIB * 00920500 //* // DD DISP=SHR,DSN=ISP.V1R1M0.ISPPLIB * 00920600 //* //*------- MSG LIBRARIES * 00920700 //* //ISPMLIB DD DISP=SHR,DSN=ISR.V1R1M0.ISRMLIB * 00920800 //* // DD DISP=SHR,DSN=ISP.V1R1M0.ISPMLIB * 00920900 //* // DD DISP=SHR,DSN=USER.MSG.LIB * 00921000 //* //*------- SKELETON LIBRARIES * 00921100 //* //ISPSLIB DD DISP=SHR,DSN=ISR.V1R1M0.ISRSLIB * 00921200 //* // DD DISP=SHR,DSN=ISP.V1R1M0.ISPSLIB * 00921300 //* // DD DISP=SHR,DSN=USER.SKELETON.LIB * 00921400 //* //*------- TUTORIAL LIBRARIES * 00921500 //* //ISPTLIB DD DISP=SHR,DSN=ISR.V1R1M0.ISRTLIB * 00921600 //* // DD DISP=SHR,DSN=ISP.V1R1M0.ISPTLIB * 00921700 //* // DD DISP=SHR,DSN=USER.TUTORIAL.LIB * 00921800 //* .............. * 00921900 //* //*------- CLIST LIBRARIES * 00922000 //* //SYSPROC DD DISP=SHR,DSN=ISR.V1R1M0.ISRCLIB * 00922100 //* // DD DISP=SHR,DSN=USER.CLIST.LIB * 00922200 //* * 00922300 //* THERE ARE MORE DD CARDS IN THE LOGON PROC * 00922400 //* BUT THESE ARE THE ONES HAVE BEARING HERE. * 00922500 //* THE ONLY MODIFICATION WE WILL MAKE IS TO * 00922600 //* 'ISR@PRIM' IN IBM'S PANEL LIBRARY. SO WE * 00922700 //* COPY THIS ONE TO OUR PANEL LIBRARY WHICH IS * 00922800 //* CONCATENATED AHEAD OF IBM'S. ALL OTHER * 00922900 //* LIBRARIES ARE CONCATENTATED BEHIND IBM'S. * 00923000 //* SINCE MY GOAL IS NOT TO CHANGE IBM SCREENS * 00923100 //* ETC, WE WILL HAVE NO PROBLEM. NOW ALL WE DO * 00923200 //* IS PLACE PANELS IN 'PANEL' LIBRARIES, MSGS * 00923300 //* IN 'MSG' LIBRARIES, ETC. * 00923400 //* * 00923500 //* FOR EXAMPLE: CMD#P - PANEL FOR THE COMMAND * 00923600 //* CMD#S - SKELETON FOR THE COMMAND * 00923700 //* CMD#C - CLIST FOR THE COMMAND * 00923800 //* CMDNN - MSGS FOR THE COMMAND * 00923900 //* * 00924000 //* * 00924100 //* SUMMARY OF THE MODULES CONTAINED. HINT: MEMB. * 00924200 //* MEANS ALL MEMBERS NEEDED FOR PANELS, SKELS, * 00924300 //* ETC TO USE A PARTICULAR FUNCTION. * 00924400 //* * 00924500 //* MEMBER DESCRIPTION * 00924600 //* PREFIX * 00924700 //* * 00924800 //* ACCT# MEMBERS FOR USING THE TSO ACCOUNT * 00924900 //* CMD. * 00925000 //* * 00925100 //* ASMH# MEMBERS FOR USING THE TSO ASMH CMD. * 00925200 //* ASMH IS TO INTERACTIVE COMPILES. * 00925300 //* THESE SERIES OF SCREENS, ETC, * 00925400 //* ACTUALLY LIMITS THE USER TO ONLY * 00925500 //* RECEIVE THEIR ERRORS TO A SYSTERM * 00925600 //* DD CARD. SINCE NO LISTINGS, OBJ * 00925700 //* MODULES, ETC CAN BE GENERATED, I * 00925800 //* CALL IT A 'CHEAP CHECKER'. * 00925900 //* * 00926000 //* CALC# MEMBERS FOR USING CALC CMD. CALC * 00926100 //* IS A TSO CALCULATOR. * 00926200 //* * 00926300 //* COBOL# MEMBERS FOR USING COBOLCHK CMD. * 00926400 //* COBOLCHK IS TO INTERACTIVE * 00926500 //* COMPILES. THESE SERIES OF SCREENS, * 00926600 //* ETC, ACTUALLY LIMITS THE USER TO * 00926700 //* ONLY RECEIVE THEIR ERRORS TO A * 00926800 //* SYSTERM DD CARD. SINCE NO LISTINGS, * 00926900 //* OBJ MODULES, ETC CAN BE GENERATED, * 00927000 //* I CALL IT A 'CHEAP CHECKER'. * 00927100 //* * 00927200 //* COMPR# MEMBERS FOR USING THE TSO COMPARE * 00927300 //* CMD. * 00927400 //* * 00927500 //* COPYS# MEMBERS FOR USING THE TSO COPYSDS * 00927600 //* CMD. COPYSDS IS A SEQUENTIAL * 00927700 //* DATASET COPY. * 00927800 //* * 00927900 //* COUNT# MEMBERS FOR USING THE TSO COUNT * 00928000 //* COMMAND. COUNT THE NUMBER OF * 00928100 //* RECORDS IN A FILE. * 00928200 //* * 00928300 //* DA# MEMBERS FOR USING DA CMD. DA IS * 00928400 //* 'DISPLAY ACTIVE'. * 00928500 //* * 00928600 //* DATE# MEMBERS FOR USING DATE CMD. DATE * 00928700 //* GETS TODAYS DATE. * 00928800 //* * 00928900 //* DEFA# MEMBERS FOR USING DEFINING AN ALIAS * 00929000 //* IN YOUR MASTER CATALOG. * 00929100 //* * 00929200 //* DELA# MEMBERS FOR USING DELETING AN ALIAS * 00929300 //* FROM THE MASTER CATALOG. * 00929400 //* * 00929500 //* DUSER# MEMBERS FOR USING DUSER CMD. DUSER * 00929600 //* DISPLAYS THE NUMBER AND USERIDS OF * 00929700 //* THOSE ON TSO. * 00929800 //* * 00929900 //* FORT# MEMBERS FOR USING THE FORT CMD. * 00930000 //* FORT IS TO INTERACTIVE COMPILES. * 00930100 //* THESE SERIES OF SCREENS, ETC, * 00930200 //* ACTUALLY LIMITS THE USER TO ONLY * 00930300 //* RECEIVE THEIR ERRORS TO A SYSTERM * 00930400 //* DD CARD. SINCE NO LISTINGS, OBJ * 00930500 //* MODULES, ETC CAN BE GENERATED, I * 00930600 //* CALL IT A 'CHEAP CHECKER'. * 00930700 //* * 00930800 //* FORTX# MEMBERS FOR USING THE FORTX CMD. * 00930900 //* FORTX IS TO INTERACTIVE COMPILES. * 00931000 //* THESE SERIES OF SCREENS, ETC, * 00931100 //* ACTUALLY LIMITS THE USER TO ONLY * 00931200 //* RECEIVE THEIR ERRORS TO A SYSTERM * 00931300 //* DD CARD. SINCE NO LISTINGS, OBJ * 00931400 //* MODULES, ETC CAN BE GENERATED, I * 00931500 //* CALL IT A 'CHEAP CHECKER'. * 00931600 //* * 00931700 //* FREEA# MEMBERS FOR USING FREEALL CMD. * 00931800 //* * 00931900 //* HELP# MEMBERS FOR USING HELP COMMANDS. * 00932000 //* ISSUES HELP COMMANDS. * 00932100 //* * 00932200 //* INFOS# MEMBERS FOR USING INFOSYS TSO CMD. * 00932300 //* * 00932400 //* ISR PRIM THIS IS THE PRIMARY PANEL THAT * 00932500 //* YOU GET WITH YOU GET INTO ISPF/PDF. * 00932600 //* PANEL LIBRARY YOU USE SHOULD BE * 00932700 //* CONCATENATED AHEAD OF IBM'S * 00932800 //* (ISPPLIB). * 00932900 //* * 00933000 //* JUL# MEMBERS FOR USING JULIAN TSO CMD. * 00933100 //* * 00933200 //* LASTI# MEMBERS FOR USING LASTIPL TSO CMD. * 00933300 //* * 00933400 //* LISTA# MEMBERS FOR USING LISTAX TSO CMD. * 00933500 //* * 00933600 //* LISTC# MEMBERS FOR USING LISTCAT CMD. * 00933700 //* * 00933800 //* NEWS# MEMBERS FOR USING SADSC NEWS * 00933900 //* FACILITY. NOT TOO APPLICABLE TO * 00934000 //* OTHER INSTALLATIONS BUT IT SHOWS * 00934100 //* ONE HOW TO SELECTIVELY INVOKE * 00934200 //* 'BROWSE' SERVICE FROM YOUR OWN * 00934300 //* PANELS, ETC. * 00934400 //* * 00934500 //* OBSL# MEMBER FOR INVOKING 'OBS' WYLBUR PROGRAM * 00934600 //* TO DECOMPRESS A WYLBUR FILE, THEN INVOKE * 00934700 //* ISPF/PDS BROWSE SERVICE TO BROWSE IT * 00934800 //* * 00934900 //* PRINT# MEMBERS FOR USING PRINTOFF CMD. * 00935000 //* THIS IS THE FAMOUS 'PRINTOFF' FROM * 00935100 //* MY TSO FILE. * 00935200 //* * 00935300 //* QUEUE# MEMBERS FOR USING QUEUE TSO CMD. * 00935400 //* * 00935500 //* RMFMON# MEMBERS FOR USING RMFMON TSO CMD. * 00935600 //* * 00935700 //* SADTSOP THIS IS THE 'SADSC' PANEL MEMBER * 00935800 //* THAT GOES IN YOUR PANEL LIBRARY FOR * 00935900 //* TSO COMMANDS. LOOK AT ISR * 00936000 //* PRIM AND THIS MEMBER AND IT IT * 00936100 //* WILL MAKE MORE SENSE. * 00936200 //* * 00936300 //* SADUTLP THIS IS THE 'SADSC' PANEL MEMBER * 00936400 //* THAT GOES IN YOUR PANEL LIBRARY FOR * 00936500 //* UTILITY FUNCTIONS AND 'CHEAP * 00936600 //* CHECKERS'. LOOK AT ISR PRIM * 00936700 //* AND THIS MEMBER AND IT WILL MAKE * 00936800 //* MORE SENSE. * 00936900 //* * 00937000 //* SEND# MEMBERS FOR USING SEND TSO CMD. * 00937100 //* 'SEND' A MSG TO ANOTHER USER. * 00937200 //* * 00937300 //* ST# MEMBERS FOR USING STATUS CMD. * 00937400 //* * 00937500 //* SYSLG# MEMBERS FOR USING BROWSING THE * 00937600 //* SPOOLED TO DISK, OPERATOR CONSOLE * 00937700 //* LOGS. WE PUT IT INTO DISK FILES FOR * 00937800 //* THE PAST 3 WEEKS FOR BROWSING. * 00937900 //* * 00938000 //* SYSPR#P SECONDAY PANEL FOR GETTING INTO * 00938100 //* SADSC SYSTEM PROG FUNCTIONS. LOOK * 00938200 //* AT CLIST THAT IS INVOKED OUT OF ISR * 00938300 //* PRIM WHEN YOU ENTER 'S'. CLIST * 00938400 //* INVOKED CHECKS TO SEE IF 1ST * 00938500 //* CHARACTER OF USERID BEGINS WITH * 00938600 //* 'S'. IF SO YOU ARE ONE OF SYSTEMS, * 00938700 //* IF NOT, YOU ARE A BAD GUY AND * 00938800 //* RETURNED TO ISR PRIM. * 00938900 //* * 00939000 //* TIME# MEMBERS FOR USING TIME CMD. * 00939100 //* * 00939200 //* TMS# MEMBERS FOR USING TMS CMD ( INVOKE UCC1 * 00939300 //* PGM FOR INTERACTIVE TMS ACCESS ) * 00939400 //* * 00939500 //* VTOC# MEMBERS FOR USING VTOC CMD. * 00939600 //* * 00939700 //***FILE 162 IS FROM DAVE COLE AT COMNET AND CONTAINS A COPY OF * 00939800 //* THEIR GLOBAL CROSS-REFERENCE LISTING GENERATOR CALLED * 00939900 //* XREFASM . THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 00940000 //* THE MACROS NEEDED FOR THIS CODE ARE CONTAINED IN * 00940100 //* FILE 408 OF THIS TAPE . PLEASE SEE BELOW FOR * 00940200 //* ADDITIONAL INFORMATION ON XREFASM . * 00940300 //* * 00940400 //* MANY LARGE PROGRAMMING SYSTEMS ARE CONSTRUCTED * 00940500 //* FROM A LARGE NUMBER OF SEPARATELY ASSEMBLED OR * 00940600 //* COMPILED SECTIONS. SUCH SYSTEMS MUST MANAGE * 00940700 //* INTERNAL COMMUNICATIONS BY MEANS OF A SET OF VECTOR * 00940800 //* TABLES AND OTHER CONTROL BLOCKS THAT ARE KNOWN TO * 00940900 //* EACH OF THE SEPARATE SECTIONS; WHICH IS TO SAY, SUCH * 00941000 //* CONTROL BLOCKS MUST CONTAIN FIELDS THAT MAY BE * 00941100 //* REFERENCED AND/OR CHANGED BY ANY OR ALL OF THE * 00941200 //* SECTIONS. ACCORDINGLY, A GLOBAL CROSS-REFERENCE * 00941300 //* LISTING, REPORTING WHICH SECTIONS REFERENCE WHICH * 00941400 //* FIELDS, IS A VERY USEFUL TOOL FOR A LARGE-SYSTEMS * 00941500 //* DEVELOPER TO HAVE. * 00941600 //* * 00941700 //* XREFASM IS A RELATIVELY SIMPLE SYSTEM THAT * 00941800 //* GENERATES SUCH GLOBAL CROSS-REFERENCE LISTINGS. * 00941900 //* SPECIFICALLY, XREFASM GENERATES A REPORT SHOWING A * 00942000 //* SORTED LIST OF ALL LABELS USED IN A GIVEN SET OF * 00942100 //* SEPARATE ASSEMBLIES OR COMPILATIONS. THE ENTRIES * 00942200 //* FOR EACH LABEL SHOW BOTH WHICH ASSEMBLIES (OR * 00942300 //* COMPILATIONS) REFERENCE THAT LABEL AND HOW MANY * 00942400 //* REFERENCES EACH ASSEMBLY HAS TO THAT LABEL. * 00942500 //* * 00942600 //* * 00942700 //***FILE 163 IS VIO PAGE QUEUEING ZAP * 00942800 //* * 00942900 //* A TRAP IS PLACED AT THE END OF THE 'GETWRTQ' ROUTINE IN ILRPTM * 00943000 //* (ASM PART MONITOR MODULE). THE AVAILABLE COUNT OF SLOTS ON THIS * 00943100 //* DATASET IS CHECKED AGAINST A THRESHOLD VALUE.(IN THIS ZAP A * 00943200 //* F'WORD AT X'0BE0' ABSOLUTE ADDRESS IN CORE). IF THE COUNT OF * 00943300 //* SLOTS IS ABOVE THE THRESHOLD VALUE THE FIX RETURNS TO THE NORMAL* 00943400 //* CODE. IF THE COUNT OF SLOTS IS BELOW THE THRESHOLD VALUE * 00943500 //* THE WRITE QUEUE JUST OBTAINED IS SCANNED FOR ANY VIO REQUESTS * 00943600 //* IF ANY ARE FOUND THEY ARE DECHAINED AND CHAINED TO A * 00943700 //* LOCAL QUEUE. WHEN ALL REQUESTS HAVE BEEN PROCESSED THE * 00943800 //* LOCAL QUEUE IS RECHAINED AT THE BEGINNING OF THE WRITE * 00943900 //* QUEUE READY FOR PROCESSING THE NEXT DATASET. * 00944000 //* CARE SHOULD BE TAKE IF THE VIO THRESHOLD VALUE IS SET TOO HIGH * 00944100 //* OR ABOVE THE AVAILABLE SLOTS AS THIS HAS THE EFFECT OF * 00944200 //* LOCKING OUT THE ADDRESS SPACE, BUT NOT LOCKING OUT THE * 00944300 //* SYSTEM (MAKES IT GO BIT SLOW !!!!) * 00944400 //* THE ZAP OBTAINS THE ASM PART WRITE QUEUE LOCK BEFORE ANY * 00944500 //* MANIPULATION OF THE WRITE QUEUES * 00944600 //* * 00944700 //***FILE 164 IS CSECT PUSE PAGEING UTILIZATION PROGRAM. * 00944800 //* * 00944900 //* THIS PROGRAM IS FOR USE ON TSO AND USES FULLSCREEN SUPPORT. * 00945000 //* IT HAS BEEN TESTED OK UNDER TCAM AND VTAM. * 00945100 //* IT IS DEPENDANT ON RUNNING ON 3270'S ONLY. * 00945200 //* THE PROGRAM PRODUCES A PICTURE OF THE SLOTS USED ON EACH PAGE * 00945300 //* DATASET, ITS NAME AND DEVICE AND VOLUME, ALSO PRODUCED ARE * 00945400 //* THE SWAP DATASETS AND NUMBER OF SWAP SETS ALLOCATED. * 00945500 //* A NEW PICTURE IS PRODUCED EACH TIME THE ENTER KEY IS USED. * 00945600 //* THE PROGRAM CAN BE TERMINATED BY ENTERING 'E' * 00945700 //* * 00945800 //***FILE 165 IS CSECT XXNAMEVS PROGRAM TO GIVE A SET NAME TO * 00945900 //* A PAGE/SWAP DATASET * 00946000 //* * 00946100 //* THIS PROGRAM IS USED TO GIVE A SET NAME TO A VSAM DATASPACE * 00946200 //* FOR A SWAP OR PAGE DATASET. THIS ALLOWS MUTIPLE SYSTEMS TO * 00946300 //* HAVE ENTRIES IN THEIR MCATS POINTING TO ONE DATASPACE. A SPECIAL* 00946400 //* FIXLIST MUST BE PUT UP(IE IEAVFIXZZ) TO MAKE THE IDCAMS MODULE * 00946500 //* IGG0CLA1 FIXED IN LPA. THIS PROGRAM ACCEPTS AS A PARM FIELD THE * 00946600 //* NAME YOU WISH TO GIVE TO THE DATASPACE * 00946700 //* (IE PARM='DFD77001.T8AEEBF4.T6E081D0' AND AFTER FINDING MODULE * 00946800 //* IGG0CLAL WHICH IS PART OF IGG0CLA1 CHANGES IT IN CORE. A NORMAL * 00946900 //* * 00947000 //* IDCAMS DEFINE IS THEN DONE FOR THE DATASPACE AND WHAT DO YOU * 00947100 //* KNOW IT GENERATES OUR NAME. TO ADD THIS DATASPACE TO * 00947200 //* MULTI SYSTEMS * 00947300 //* THE DATASPACE MUST BE REMOVED FROM THE VOLUME BUT THE MCAT MUST * 00947400 //* NOT BE ALTERED, THIS IS DONE USING SUPERZAP VIA A PROGRAM * 00947500 //* XXVSAMSC WHICH IS FILE 166 OF THIS TAPE. * 00947600 //* WHEN THE DEFINE HAS BEEN COMPLETED FOR THE LAST SYSTEM THE * 00947700 //* DATASPACE * 00947800 //* IS NOT REMOVED AND WE HAVE MULTI SYSTEMS POINTING TO ONE * 00947900 //* DATASPACE * 00948000 //* * 00948100 //***FILE 166 IS CSECT XXVSAMSC PROGRAM TO REMOVE DATASPACES. * 00948200 //* * 00948300 //* THIS PROGRAM REMOVES A DATASPACE FROM THE VTOC OF ANY DISK. THE * 00948400 //* PROGRAM ACCEPTS THE SAME PARM FIELD AS XXNAMEVS(SEE FILE 165) * 00948500 //* THE PROGRAM LOADS SUPERZAP AND MODIFIES SOME OF ITS CODE * 00948600 //* TO STOP THE ISSUE OF THE OVERWRITE VTOC WTOR AS IN OUR SHOP * 00948700 //* WHEN WE RECREATED ALL OUR PAGE/SWAP DATASET THIS WOULD HAVE * 00948800 //* MEANT OVER 100 REPLY XX,U BEING DONE. CARE THIS PROGRAM IS * 00948900 //* SET UP FOR 3350'S AND WILL NEED SMALL MOD FOR OTHER DISKS * 00949000 //* * 00949100 //***FILE 167 IS A LOGON PRE-PROMPT EXIT FROM SCHERING-PLOUGH THIS * 00949200 //* EXIT SUPPORTS PASSWORD CHANGING AT LOGON . IT SUPPL - * 00949300 //* IES THE LOGON JCL AND SUPPORTS MOST JOB CARD AND JES2 * 00949400 //* /* JOBPARM KEYWORDS . IT ALSO CREATES AND MAINTAINS * 00949500 //* AN INFORMATION MEMBER ON EACH TSO USER CONTAINING * 00949600 //* NAME , ADDRESS , PHONE NUMBER , DATE OF LAST LOGON , * 00949700 //* ETC * 00949800 //* * 00949900 //***FILE 168 IS A DYNAMIC ALLOCATION EXIT, IEFDB401 FROM SCHERING- * 00950000 //* PLOUGH. THIS EXIT WILL FRONT-END PCF II OR COULD BE * 00950100 //* SLIGHTLY MODIFIED TO RUN WITHOUT PCF 11. IT WILL * 00950200 //* ALLOW MOUNT AUTHORITY TSO USERS TO CREATE NEW TAPE * 00950300 //* DATA SETS. IT ALSO WILL SUPPORT IMS MESSAGE REGION * 00950400 //* DUMP ROUTING * 00950500 //* * 00950600 //***FILE 169 IS A VTAM SECONDARY PROGRAM OPERATOR. IT RUNS AS A * 00950700 //* TSO COMMAND. IT SUBMITS COMMANDS TO VTAM AND RETURNS * 00950800 //* THE RESPONSES TO THE TSO TERMINAL. ALL INPUT AND * 00950900 //* OUTPUT IS LOGGED TO SYSLOG * 00951000 //* * 00951100 //***FILE 170 IS FROM THE COLLEGE OF WILLIAM AND MARY . THIS FILE * 00951200 //* IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS THE * 00951300 //* FOLLOWING: (SEE THE MEMBER CALLED $$DOC) * 00951400 //* * 00951500 //* $$DOC ...THIS MEMBER * 00951600 //* TSFDOC ...DOCUMENTATION ON THE TSO GLOBAL SYMBOLIC * 00951700 //* FACILITY (TSF) THIS MEMBER IS IN FBA FORMAT * 00951800 //* TSFOBJ ...OBJECT CODE OF THE TSO GLOBAL SYMBOLIC * 00951900 //* FACILITY (TSF) * 00952000 //* TSFSRC ...SOURCE CODE OF THE TSO GLOBAL SYMBOLIC * 00952100 //* FACILITY (TSF) * 00952200 //* WMCJOB ...SOURCE CODE FOR WMCJOB * 00952300 //* WMCOBJ ...OBJECT CODE FOR WMCJOB * 00952400 //* WMCJOBDC .DOCUMENTATION FOR WMCJOB (THIS MEMBER IS IN * 00952500 //* FBA FORMAT) THE WMCJOB TSO COMMAND MAY BE * 00952600 //* USED IN A TSO CLIST TO SUBMIT A BATCH JOB * 00952700 //* TAKING ADVANTAGE OF THE CLIST SYMBOLIC * 00952800 //* REPLACING SYSTEM. THE JCL IS CONTAINED WITHIN * 00952900 //* THE CLIST AND MAY HAVE PARAMETERS FOR THE * 00953000 //* CLIST INCLUDED AS PART OF THE JCL OR DATA * 00953100 //* STATEMENTS. THE CLIST MAY ALSO BUILD STRING * 00953200 //* VARIABLES TO BE USED AS JCL OR DATA LINES IN * 00953300 //* THE JOB. * 00953400 //* * 00953500 //* FS .......INFORMATION ON HOW TO OBTAIN A COPY OF THE * 00953600 //* WILLIAM AND MARY FULL SCREEN EDITOR OF THE * 00953700 //* IBM TSO EDIT COMMAND * 00953800 //* * 00953900 //* FULL SCREEN SUBCOMMAND OF EDIT * 00954000 //* * 00954100 //* THE COLLEGE OF WILLIAM AND MARY IS OFFERING A FULL * 00954200 //* SCREEN EDIT SUBCOMMAND OF THE TSO EDIT COMMAND TO * 00954300 //* ANY SHARE/GUIDE MEMBER WHO REQUESTS IT. THE * 00954400 //* SUBCOMMAND OF EDIT IS CALLED FS. INSTALLATIONS WHO * 00954500 //* WOULD LIKE TO OBTAIN A COPY (OBJECT CODE ONLY) MAY * 00954600 //* SEND A 300 FOOT TAPE (SL PREFERED) TO THE ADDRESS * 00954700 //* BELOW. PLEASE INCLUDE AN ENVELOPE WITH RETURN * 00954800 //* ADDRESS AND POSTAGE ATTACHED. THIS ENVELOPE WILL BE * 00954900 //* ATTACHED TO THE PACKAGE TO BE RETURNED. THE PACKAGE * 00955000 //* WILL INCLUDE YOUR TAPE AND ONE PRINTED COPY OF THE * 00955100 //* USER MANUAL AND INSTALLATION INSTRUCTIONS. THE TAPE * 00955200 //* WILL ALSO CONTAIN THE USER MANUAL. * 00955300 //* * 00955400 //* TAPES MAY BE WRITTEN AT EITHER 1600 OR 6250 BPI. WE * 00955500 //* CAN NOT PROVIDE 800 BPI TAPES. IF THE DENSITY IS NOT * 00955600 //* SPECIFIED IN THE REQUEST, 6250 WILL BE USED. * 00955700 //* * 00955800 //* MAIL REQUESTS, TAPE AND ENVELOPE WITH RETURN * 00955900 //* ADDRESS AND POSTAGE TO: * 00956000 //* * 00956100 //* DAN EWART * 00956200 //* COMPUTER CENTER * 00956300 //* THE COLLEGE OF WILLIAM AND MARY * 00956400 //* WILLIAMSBURG, VA. 23185 * 00956500 //* * 00956600 //* ATTN: FS SUPPORT * 00956700 //* * 00956800 //* * 00956900 //* FS IS A COPYRIGHTED PROGRAM WHICH MAY BE USED ON * 00957000 //* ANY CPU AT THE REQUESTING INSTALLATION. IT SHOULD * 00957100 //* NOT BE REDISTRIBUTED. THE USER MANUAL MAY BE * 00957200 //* COPIED/PRINTED WITHOUT MODIFICATION FOR USE BY * 00957300 //* MEMBERS OF THE REQUESTING INSTALLATION. * 00957400 //* * 00957500 //* SEE THE MEMBER CALLED FS FOR ADDITIONAL * 00957600 //* INFORMATION. THIS MEMBER ALSO LISTS ADVANTAGES, * 00957700 //* DISADVANTAGES, DESIGN, SCREEN FORMAT AND DISCLAIMER * 00957800 //* !!! * 00957900 //* * 00958000 //***FILE 171 IS FROM THE COLLEGE OF WILLIAM AND MARY AND CONTAINS * 00958100 //* THE FOLLOWING LOAD MODULES FROM THE SOURCE CODE IN * 00958200 //* FILE 170: * 00958300 //* * 00958400 //* TSF ALIAS(WMDROP,WMSET,WMUSE) * 00958500 //* WMCJOB * 00958600 //* * 00958700 //***FILE 172 IS THE USERS GUIDE AND DOCUMENATION FOR OURMF AND * 00958800 //* SERVERAL MONITOR TOOLS FROM YALE UNIVERSITY * 00958900 //* THIS FILE IS RECFM=FBA * 00959000 //* * 00959100 //******************************************************************* 00959200 //* * 00959300 //* THE PRIMARY CHANGE IN THIS RELEASE IS SUPPORT FOR AP AND * 00959400 //* MP CONFIGURATIONS. THERE ARE TWO KNOWN PROBLEMS WITH THIS * 00959500 //* RELEASE WHICH SHOULD BE NOTED IF YOU HAVE IT OR INTEND TO * 00959600 //* INSTALL IT. * 00959700 //* * 00959800 //* 1. THE CPU COMMAND GENERATES A ZERODIVIDE IN A MP ENVIRON- * 00959900 //* MENT. SUGGESTED CIRCUMVENTION IS TO USE THE UP VERSION * 00960000 //* OF THE CPU COMMAND WHICH WAS DISTRIBUTED WITH THE REST OF * 00960100 //* OMF IN SOURCE IN MEMBER CPUUP AND IN OBJECT IN CPUUPO. THE * 00960200 //* PROBLEM WILL BE CORRECTED AS SOON AS POSSIBLE. * 00960300 //* * 00960400 //* 2.THERE IS A BUG IN IBM CODE FOR RPSIGNL SUPPORT WHICH WILL* 00960500 //* CAUSE THE CPU TO GO INTO A LOOP DURING VARY CPU(X), ONLINE * 00960600 //* PROCESSING IF ANOTHER CPU REQUESTS TIMER SERVICES FROM THE * 00960700 //* CPU COMING ONLINE. THIS WOULD AFFECT IBM CODE ONLY UNDER * 00960800 //* VERY VERY UNLIKELY CIRCUMSTANCES, BUT IF YOU INSTALL THE * 00960900 //* SUPPLIED OMF CHANGE TO TIMER MANAGEMENT TO STABILIZE * 00961000 //* SAMPLING ON BOTH CPU'S, THIS BUG WILL GET YOU EVERY TIME. * 00961100 //* THE SUGGESTION IS THAT YOU PURGE STATDIE PRIOR TO * 00961200 //* ISSUING THE VARY COMMAND, THEN RESTART IT AFTER THE * 00961300 //* CPU IS ONLINE. THE SUGGESTED SEQUENCE IS: * 00961400 //* * 00961500 //* P OURMF * 00961600 //* S DIEPURG * 00961700 //* V CPU(0),ONLINE * 00961800 //* R XX,U * 00961900 //* (ONCE THE CPU IS ONLINE) * 00962000 //* S STATDIE * 00962100 //* S OURMF * 00962200 //* * 00962300 //* THE LATTER PROBLEM IS VERY NASTY, AND IF YOU HAVE ANY * 00962400 //* DIFFICULTY IN IMPLEMENTING THIS CHANGE OPERATIONALLY * 00962500 //* THEN I SUGGEST THAT YOU DO NOT INSTALL THE TIME * 00962600 //* MANAGEMENT ZAP. THERE IS NO FEASIBLE CORRECTION TO THE * 00962700 //* PROBLEM FROM WITHIN OMF AT THIS TIME, AND A FIX FROM IBM * 00962800 //* IN ANY REASONABLE PERIOD OF TIME SEEMS UNLIKELY * 00962900 //* * 00963000 //******************************************************************* 00963100 //* * 00963200 //***FILE 173 IS THE SOURCE FOR OURMF AND SEVERAL MONITORING TOOLS * 00963300 //* FROM YALE UNIVERSITY IN IEBUPDTE FORMAT * 00963400 //* THE FOLLOWING ARE EXAMPLES OF THE OUTPUT OF SOME OF * 00963500 //* THE MONITORING TOOLS IN THIS FILE * 00963600 //* * 00963700 //* PAGES * 00963800 //* PAGE DATASETS: * 00963900 //* TYPE SER SLOTS % USED ERRORS NAME * 00964000 //* PLPA USER05 2030 55 0 PAGE3 * 00964100 //* COMMON MVTRES 754 3 0 MVTRES * 00964200 //* DUPLEX JESPK1 4350 26 0 PAGEZ * 00964300 //* LOCAL USER04 3654 0 0 PAGE1 * 00964400 //* LOCAL USER02 1624 0 0 PAGE2 * 00964500 //* LOCAL DRUMVS 1820 33 0 DRUM1 * 00964600 //* PAGE SLOTS ARE 25 % RESERVED * 00964700 //* SWAP DATASETS: * 00964800 //* SER SETS % USED ERRORS NAME * 00964900 //* USER03 64 0 0 SWAP1 * 00965000 //* DRUMVS 50 24 0 SWAP2 * 00965100 //* * 00965200 //* RCT * 00965300 //* SRM VARIABLES: * 00965400 //* CPU UTILIZATION 44 * 00965500 //* AVG ASM QUEUE 2 * 00965600 //* PAGE RATE 2 * 00965700 //* AVG UIC 47 * 00965800 //* * 00965900 //* DMN * 00966000 //* # MIN MAX WT MPLT RUA GOOU CMPL OUTQ INCU * 00966100 //* 0 255 255 1 255 1 0 1 0 1 * 00966200 //* 1 1 5 1 2 1 0 2 2 2 * 00966300 //* 2 1 5 4 3 2 0 2 0 1 * 00966400 //* 3 1 3 1 1 0 0 0 0 0 * 00966500 //* * 00966600 //* IN WKLOAD, THE FIELDS REPORTED: * 00966700 //* PG PERFORMANCE GROUP * 00966800 //* PGP PERFORMANCE GROUP PERIOD * 00966900 //* OBJ SERVICE OBJECTIVE * 00967000 //* DMN DOMAIN * 00967100 //* SRV SERVICE UNITS PER SECOND CONSUMED BY PGP * 00967200 //* CPU CPU COMPONENT OF SRV * 00967300 //* IO IO COMPONENT OF SRV * 00967400 //* MSO STORAGE COMPONENT OF SRV * 00967500 //* ABS ABSORPTION RATE (SERVICE/TRANS-ACTIVE TIME) * 00967600 //* TSR TRANS SERVICE RATE (SERVICE/TRANS-RESIDENT TIME)* 00967700 //* WLL WORKLOAD LEVEL * 00967800 //* SWP SWAPS PER SECOND * 00967900 //* ACT ACTIVITY (TRANS-RESIDENT/ELAPSED TIME) * 00968000 //* EFFECTIVE AVERAGE NO OF TRANS INCORE * 00968100 //* TRLEN AVERAGE TRANSACTION ELAPSED TIME * 00968200 //* RESPONSE TIME * 00968300 //* * 00968400 //* * 00968500 //* WKLOAD * 00968600 //* DURATION= 77 SEC IPS=01 CPU=10.0 IOC= 5.0 MSO= 3.0 * 00968700 //* PG PGP OBJ DMN SRV CPU IO MSO ABS TSR WLL SWP ACT TRLEN * 00968800 //* 0 1 0 0 7 7 0 0 7 7 0 0.00 1.03 0.00 * 00968900 //* 1 1 1 1 37 22 9 5 22 22 97 0.00 1.70 0.00 * 00969000 //* 1 2 2 1 ZEROS * 00969100 //* 1 3 3 1 89 42 25 21 145 145 46 0.00 0.61 507.99 * 00969200 //* 2 1 1 2 74 61 5 7 66 77 90 0.92 1.11 0.66 * 00969300 //* 2 2 1 2 24 12 9 2 94 97 86 0.05 0.26 12.44 * 00969400 //* 2 3 1 3 32 17 12 2 81 81 88 0.01 0.39 0.00 * 00969500 //* 3 1 4 1 39 38 0 1 19 19 95 0.00 2.07 0.00 * 00969600 //* 4 1 5 1 ZEROS * 00969700 //* 5 1 7 2 25 25 0 0 107 200 81 0.52 0.24 0.38 * 00969800 //* 5 2 7 2 5 3 0 2 782 782 1 0.01 0.01 3.84 * 00969900 //* 5 3 7 3 ZEROS * 00970000 //* 6 1 4 1 ZEROS * 00970100 //* * 00970200 //***FILE 174 IS THE UICC PACKER IN IEBUPDTE FORM FROM THE * 00970300 //* UNIVERSITY OF ILLINOIS AT CHICAGO CIRCLE VIA * 00970400 //* YALE. THIS COPY OF PACKER IS VERSION 2 - 7/13/77 * 00970500 //* * 00970600 //***FILE 175 IS AN SQA OVERFLOW TO CSA TRAP FROM LONDON LIFE IN * 00970700 //* CANADA IN IEBUPDTE SYSIN FORMAT. THIS TRAP IS USED TO * 00970800 //* TO IDENTIFY WHO IS USING SQA. FOR COMPLETE DOCUMENTA- * 00970900 //* TION SEE THE MEMBER CALLED $DOC * 00971000 //* * 00971100 //* SQA OVERFLOW TO CSA TRACKING. * 00971200 //* * 00971300 //* 1. TO BE ABLE TO IDENTIFY WHO IS USING SQA A TRAP HAS * 00971400 //* TO BE ADDED TO THE SYSTEM IN AN ALTERNATE NUCLEUS * 00971500 //* TO ADD IDEN- TIFICATION TO EACH GETMAIN. IN * 00971600 //* MEMBER SQATRAP THIS DATA SET IS A COPY OF THE TRAP * 00971700 //* AS USED AT LONDON LIFE. * 00971800 //* 2. AFTER IPLING THE ALTERNATE NUCLEUS A SYSDUMP WITH * 00971900 //* SQA SHOULD BE TAKEN TO GIVE A STARTING PICTURE. * 00972000 //* THE FOLLOWING IS HOW WE DO IT. * 00972100 //* * 00972200 //* O IPL ALTERNATE NUCLEUS 2 * 00972300 //* * 00972400 //* O RUN A SPQESCAN TO GET A PICTURE OF SQA/CSA * 00972500 //* USAGE. A COPY OF THIS PROGRAM IS IN MEMBER * 00972600 //* SPQESCAN OF THIS DATA SET. AN EXAMPLE OF THE * 00972700 //* JCL TO RUN THIS PROGRAM IS IN MEMBER SPQEJCL. * 00972800 //* AN EXAMPLE OF THE OUTPUT OF THIS PROGRAM IS IN * 00972900 //* MEMBER SPQESPLE. * 00973000 //* * 00973100 //* O TAKE A CONSOLE DUMP OF SQA FOR STARTING * 00973200 //* PICTURE. * 00973300 //* * 00973400 //* O AT THIS POINT WE LET THE SYSTEM RUN FOR AT * 00973500 //* LEAST 24 HR IF NOT 48 HR. * 00973600 //* * 00973700 //* 3. YOU MAN WANT TO TAKE A SNAP SHOT AT THE TIME OF * 00973800 //* THE EXPANSION TO SEE WHO IS CAUSING THE PROBLEM BY * 00973900 //* DO THE FOLLOWING: * 00974000 //* * 00974100 //* O RUN THE SPQESCAN TO GET A PICTURE OF SQA/CSA * 00974200 //* USAGE. * 00974300 //* * 00974400 //* O TAKE A CONSOLE DUMP OF SQA FOR A PICTURE AT * 00974500 //* THE TIME OF THE EXPANSION. * 00974600 //* * 00974700 //* 4. AFTER THE TRAP HAS BEEN RUNNING FOR THE 24 TO 48 * 00974800 //* HOURS WE DO THE FOLLOWING: * 00974900 //* * 00975000 //* O STOP ALL TASKS EXCEPT JES2, ACF2, AND HSM. * 00975100 //* * 00975200 //* O RUN THE SPQESCAN TO GET A PICTURE OF SQA/CSA * 00975300 //* USAGE. * 00975400 //* * 00975500 //* O TAKE A CONSOLE DUMP OF SQA FOR AN ENDING * 00975600 //* PICTURE. * 00975700 //* * 00975800 //* O STOP HSM. * 00975900 //* * 00976000 //* O RUN A SPQESCAN TO GIVE A PICTURE OF SQA/CSA * 00976100 //* USAGE. * 00976200 //* * 00976300 //* O TAKE A CONSOLE DUMP OF SQA FOR AN ENDING * 00976400 //* PICTURE. * 00976500 //* * 00976600 //* 5. AT THIS TIME WE RUN A JOB TO PRINT THE SQA THAT * 00976700 //* WAS DUMPED ABOVE TO A DISK DATA SET. THIS IS INPUT * 00976800 //* TO AN ANALYZE PROGRAM WHICH EXTRACTS THE TRAP * 00976900 //* RECORDS AND PASSES THEM TO A SAS PROGRAM FOR * 00977000 //* SORTING AND PRINTING. A COPY OF THE ANALYZE * 00977100 //* PROGRAM IS IN MEMBER SQAPRT, A COPY OF THE JCL * 00977200 //* USED TO PUT THE DUMP ON DISK, ANALYZE THE DUMP AND * 00977300 //* THE SAS PROGRAM USED TO PRINT THE OUTPUT IS IN * 00977400 //* MEMBER SQAJCL. A SAMPLE OF THE OUTPUT IS IN * 00977500 //* MEMBER SQASMPLE. * 00977600 //* * 00977700 //***FILE 176 CONTAINS THREE ZAPS TO IEHMAP TO WORK CORRECTLY * 00977800 //* WHEN YOU HAVE DATASETS AND/OR OS CATALOG SPREAD OVER * 00977900 //* MORE THAN ONE VOLUME. WE HERE AT CBT DO NOT HAVE THIS * 00978000 //* PROBLEM SO WE HAVE NOT IMPLETEMENTED THESE ZAPS. * 00978100 //* HOWEVER A USER OF IEHMAP WHO DID HAVE THIS PROBLEM * 00978200 //* CREATED THE ZAPS AND THEY WORK FINE IN HIS * 00978300 //* INSTALLATION * 00978400 //* * 00978500 //***FILE 177 CONTAINS ZAPS TO THE SRM TO HANDLE THE FOLLOWING * 00978600 //* PROPERLY * 00978700 //* * 00978800 //* RUA IS A ROUNDED-UP AVERAGE OVER 30 SECONDS THAT IS * 00978900 //* THEN AVERAGED AND ROUNDED-UP WITH THE LAST 30 SECOND * 00979000 //* VALUE. THIS WAS DESIGNED TO PROVIDE A RAPID GROWTH AND* 00979100 //* SLOW DECAY (RELATIVELY) BUT MEANS THAT A NON-ZERO * 00979200 //* VALUE CAN NEVER DROP TO ZERO. * 00979300 //* * 00979400 //* SRM CAN - AND WILL - INCREMENT ONE TARGET TO RUA+1 * 00979500 //* WHEN THE TARGET IS BELOW RUA IN ANOTHER DOMAIN. THIS * 00979600 //* IS REALLY BAD IF THE FIRST IS A RESIDUAL RUA OF 1 FOR * 00979700 //* A (CURRENTLY) UNUSED DOMAIN AND THE SECOND DOMAIN IS * 00979800 //* THE ONLY ONE WITH ANY WORK. * 00979900 //* * 00980000 //* SRM DOES NOT COUNT NS ADDRESS SPACES. A SPACE CAN COME* 00980100 //* OUT OF NS, CAUSE A DOMAIN TO EXCEED TARGET MPL AND * 00980200 //* START A SWAP WHEN THE REAL WORKLOAD ON THE SYSTEM HAS * 00980300 //* NOT CHANGED. PARTICULARILY A PROBLEM WITH SYNC-SORT * 00980400 //* * 00980500 //***FILE 178 IS AN SVC99 EXIT TO MOVE TEMPORARY DATASETS OFF THE * 00980600 //* PRIMARY TSO VOLUME. THIS EXIT IS FROM COCA-COLA * 00980700 //* COMPANY IN ATLANTA * 00980800 //* * 00980900 //* SVC99 EXIT TO ALLOCATE TSO TEMPORARY DATASETS TO * 00981000 //* A TSO ONLY SCRATCH PACK AND TO PROTECT A SECURED * 00981100 //* DIVISIONS DATA FROM UNAUTHORIZED ACCESS(PRE-ACF2 * 00981200 //* OR PRE-RACF IMPLEMENTATION). * 00981300 //* * 00981400 //* TSO IS VERY DEPENDENT ON TEMPORARY DATASETS TO * 00981500 //* PERFORM SOME OF ITS FUNCTIONS (COMPILE, ETC.). * 00981600 //* PERFORMANCE IMPROVEMENTS ARE AVAILABLE BY * 00981700 //* SEPARATING TEMPORARY, WORK DATASETS FROM THE * 00981800 //* PERMANENT DATASETS THAT ALL TSO USERS KEEP ON * 00981900 //* THEIR PRIMARY PACKS. SINCE THE UNITNAME FOR ALL * 00982000 //* NEW TSO DATASETS MUST BE SPECIFIED IN SYS1.UADS, * 00982100 //* IT IS DIFFICULT TO SEPARATE THESE DATASETS. * 00982200 //* THIS EXIT WILL CHANGE THE UNITNAME FOR TEMPORARY * 00982300 //* DATASETS FROM THAT SPECIFIED IN SYS1.UADS TO A * 00982400 //* UNITNAME OF YOUR CHOICE. THIS ALLOWS MOVING * 00982500 //* TEMPORARIES TO ANY WORK PACKS YOU LIKE OR * 00982600 //* DEDICATING WORK PACKS TO TSO USERS. * 00982700 //* * 00982800 //***FILE 179 IS AN RMF POST PROCESSOR PROGRAM. THIS PROGRAM WILL * 00982900 //* GENERATE MANY VARIED AND INTERESTING RMF REPORTS * 00983000 //* IN AN EXCEEDINGLY SHORT PERIOD OF TIME (ELAPSED AND * 00983100 //* CPU). EXECUTE THIS PROGRAM AGAINST YOUR OWN RMF * 00983200 //* DATA TO GET A SAMPLE. THE FOLLOWING DOCUMENTATION IS * 00983300 //* FROM THE COMMENTS IN THE CODE ITSELF. THIS PROGRAM * 00983400 //* WILL PROCESS DATA FROM RMF VERSION 1 & VERSION 2 * 00983500 //* * 00983600 //* RMFMAP - RMF REDUCTION PROGRAM (EXECUTION DOCUMENTATION) * 00983700 //* * 00983800 //* THE FOLLOWING IS SAMPLE JCL WHICH RUNS TO PRODUCE DAILY REPORTS * 00983900 //* FOR A 168MP SYSTEM. EACH DD CARD DESCRIBES ITS GENERAL REPORT * 00984000 //* CONTENTS. FOR MORE DETAIL YOU WILL HAVE TO ATTACK THE CODE * 00984100 //* ITSELF IF ANYTHING IS NOT CLEAR. * 00984200 //* FOR THOSE OF YOU WITH FAITH, TRY IT YOU'LL LIKE IT. * 00984300 //* * 00984400 //* MAPMP PROC SYS='B168', SYSTEM ID * 00984500 //* INTVL='15', RMF REPORTING INTERVAL (MINUTES) * 00984600 //* SELLO='0800', SELECTED AVERAGE PERIOD START TIME * 00984700 //* SELHI='1659', SELECTED AVERAGE PERIOD STOP TIME * 00984800 //* TIMELO='0000', AVERAGE PERIOD START TIME * 00984900 //* TIMEHI='2359', AVERAGE PERIOD STOP TIME * 00985000 //* DATELO='77001', RECORD DATE RANGE START DATE * 00985100 //* DATEHI='99350', RECORD DATE RANGE STOP DATE * 00985200 //* RMFDSN=, THE RMF RECORD INPUT DATA SET * 00985300 //* MIP=302 SERVICE UNITS PER SECOND OF TASK * 00985400 //* EXECUTION TIME. CPU SECONDS * 00985500 //* CALCULATION IS AFFECTED BY * 00985600 //* THIS NUMBER. * 00985700 //* SEE MVS INIT AND TUNING GUIDE, * 00985800 //* SELECTING CPU SERVICE DEFINITION * 00985900 //* COEFFICIENT FOR TABLE OF VALUES. * 00986000 //* * 00986100 //* MAPMP EXEC PGM=RMFMAP, * 00986200 //* PARM='&SYS&INTVL&SELLO&SELHI&TIMELO&TIMEHI&DATELO&DATEHI&MIP'* 00986300 //* * 00986400 //* SMF DD DSN=&RMFDSN., RMF RECORD INPUT (70,71,72,73,74,76) * 00986500 //* DISP=SHR,DCB=BFTEK=A * 00986600 //* * 00986700 //* SUMMARY REPORTS FOR CHANNELS, PERFORMANCE GROUPS, AND * 00986800 //* DEVICES ARE CONSTRAINED BY THE DD CARDS SPECIFIED FOR * 00986900 //* THE RESPECTIVE DETAIL REPORTS. * 00987000 //* IF YOU SPECIFY 10 PERFORMANCE GROUPS FOR DETAIL * 00987100 //* REPORTS YOU WILL GET SUMMARY DATA FOR THOSE SAME 10 * 00987200 //* PERFORMANCE GROUPS. * 00987300 //* IF YOU SPECIFY 2 CONTROL UNITS OF DEVICES FOR DETAIL * 00987400 //* REPORTS, YOU WILL GET SUMMARY DATA ONLY FOR THE DEVICES * 00987500 //* ON THOSE CONTROL UNITS. DEVICE SUMMARY IS ALSO LIMITED TO * 00987600 //* THE FIRST 50 UNIQUE ENTRIES. * 00987700 //* TRACE SUMMARY DATA IS PRODUCED FOR ALL TRACE ENTRIES * 00987800 //* SPECIFIED IN THE RMF PARAMETERS UP TO A MAXIMUM OF 50 * 00987900 //* UNIQUE ENTRIES. * 00988000 //* * 00988100 //* MAP1 DD SYSOUT=A SUMMARY RPT - CPU AND PAGING * 00988200 //* MAP2 DD SYSOUT=A SUMMARY RPT - FRAMES, SWAPS, AND * 00988300 //* CHANNELS * 00988400 //* TODMAP DD DUMMY TOD OUTPUT - FOR FUTURE USE * 00988500 //* PCTMAP DD SYSOUT=A SUMMARY RPT - CUMULATIVE CPU/PAGING/ * 00988600 //* CHANNEL * 00988700 //* MAP3 DD SYSOUT=A SUMMARY RPT - PERF. GRPS, TRACE AND * 00988800 //* DEVICES * 00988900 //* * 00989000 //* CPU DD SYSOUT=A BAR GRAPH - CPU BUSY * 00989100 //* PAG1 DD SYSOUT=A BAR GRAPH - TOTAL PAGING * 00989200 //* PAG2 DD SYSOUT=A BAR GRAPH - PAGE RECLAIMS * 00989300 //* PAG3 DD SYSOUT=A BAR GRAPH - ADDRESS SPACE PAGING * 00989400 //* PAG4 DD SYSOUT=A BAR GRAPH - COMMON AREA PAGING * 00989500 //* PAG5 DD SYSOUT=A BAR GRAPH - VIO PAGING * 00989600 //* PAG6 DD SYSOUT=A BAR GRAPH - SWAP PAGING AND PAGE * 00989700 //* FAULTS * 00989800 //* FRAME DD SYSOUT=A DETAIL RPT - PAGE FRAME UTILIZATION * 00989900 //* SWAP DD SYSOUT=A DETAIL RPT - SWAP COUNTS * 00990000 //* * 00990100 //* CLIST DD SYSOUT=A LIST RPT - CHANNEL DESCRIPTIONS * 00990200 //* * 00990300 //* CHACBC IS THE DDNAME FORMAT OF THE CHANNEL BAR GRAPH DDNAMES* 00990400 //* WHERE 'A' AND 'B' ARE CPU IDS (0 OR 1) IN ANY COMBINATION * 00990500 //* AND 'C' IS ANY CHANNEL ID (0 - F). TO PRODUCE ACCURATE * 00990600 //* SUMMARY REPORTS FOR CHANNELS, THE CHANNELS MUST BE MAPPED * 00990700 //* AGAINST THE DD CARDS IN ASCENDING ORDER PRIOR TO ANY CROSS* 00990800 //* MAPPING SUCH AS MAPPING PRIMARY AND ALTERNATE CHANNELS * 00990900 //* TOGETHER. THE EXAMPLE PROVIDED BELOW FOR THE CHANNEL DD * 00991000 //* CARDS IS FOR A 168MP WITH 8 CHANNELS ON EACH SIDE. * 00991100 //* NOTE THAT A MAXIMUM OF 20 CHANNEL DD CARDS IS ALLOWED * 00991200 //* * 00991300 //* CH0010 DD SYSOUT=A BAR GRAPH - CPU0 CHAN0 CPU1 CHAN0 * 00991400 //* CH0111 DD SYSOUT=A BAR GRAPH - CPU0 CHAN1 CPU1 CHAN1 * 00991500 //* CH0212 DD SYSOUT=A BAR GRAPH - CPU0 CHAN2 CPU1 CHAN2 * 00991600 //* CH0313 DD SYSOUT=A BAR GRAPH - CPU0 CHAN3 CPU1 CHAN3 * 00991700 //* CH0414 DD SYSOUT=A BAR GRAPH - CPU0 CHAN4 CPU1 CHAN4 * 00991800 //* CH0515 DD SYSOUT=A BAR GRAPH - CPU0 CHAN5 CPU1 CHAN5 * 00991900 //* CH0616 DD SYSOUT=A BAR GRAPH - CPU0 CHAN6 CPU1 CHAN6 * 00992000 //* CH0717 DD SYSOUT=A BAR GRAPH - CPU0 CHAN7 CPU1 CHAN7 * 00992100 //* CH0102 DD SYSOUT=A BAR GRAPH - CPU0 CHAN1 CPU0 CHAN2 * 00992200 //* CH0103 DD SYSOUT=A BAR GRAPH - CPU0 CHAN1 CPU0 CHAN3 * 00992300 //* CH0203 DD SYSOUT=A BAR GRAPH - CPU0 CHAN2 CPU0 CHAN3 * 00992400 //* CH0307 DD SYSOUT=A BAR GRAPH - CPU0 CHAN3 CPU0 CHAN7 * 00992500 //* CH1112 DD SYSOUT=A BAR GRAPH - CPU1 CHAN1 CPU1 CHAN2 * 00992600 //* CH1113 DD SYSOUT=A BAR GRAPH - CPU1 CHAN1 CPU1 CHAN3 * 00992700 //* CH1213 DD SYSOUT=A BAR GRAPH - CPU1 CHAN2 CPU1 CHAN3 * 00992800 //* CH1317 DD SYSOUT=A BAR GRAPH - CPU1 CHAN3 CPU1 CHAN7 * 00992900 //* * 00993000 //* DEVNAME DD DUMMY FOR FUTURE USE * 00993100 //* * 00993200 //* DLIST DD SYSOUT=A LIST RPT - VOLSER LIST (1ST RMF * 00993300 //* RMF INTERVAL * 00993400 //* * 00993500 //* DVXX IS THE DDNAME FORMAT OF THE DEVICE DETAIL REPORT * 00993600 //* DDNAMES WHERE 'XX' IS THE CONTROL UNIT ID OF THE DEVICES * 00993700 //* TO BE REPORTED. * 00993800 //* * 00993900 //* NOTE THAT A MAXIMUM OF 20 DEVICE DD CARDS IS ALLOWED * 00994000 //* * 00994100 //* DV11 DD SYSOUT=A DETAIL RPT - DEVICES (110-11F) * 00994200 //* DV14 DD SYSOUT=A DETAIL RPT - DEVICES (140-14F) * 00994300 //* DV15 DD SYSOUT=A DETAIL RPT - DEVICES (150-15F) * 00994400 //* DV17 DD SYSOUT=A DETAIL RPT - DEVICES (170-17F) * 00994500 //* DV28 DD SYSOUT=A DETAIL RPT - DEVICES (280-28F) * 00994600 //* DV29 DD SYSOUT=A DETAIL RPT - DEVICES (290-29F) * 00994700 //* DV3C DD SYSOUT=A DETAIL RPT - DEVICES (3C0-3CF) * 00994800 //* DV3D DD SYSOUT=A DETAIL RPT - DEVICES (3D0-3DF) * 00994900 //* * 00995000 //* PGNNN IS THE DDNAME FORMAT OF THE PERFORMANCE GROUP DETAIL * 00995100 //* REPORTS WHERE NNN IS ANY NUMBER (001 - 999). * 00995200 //* * 00995300 //* NOTE THAT A MAXIMUM OF 30 PERFORMANCE GROUPS ARE ALLOWED * 00995400 //* * 00995500 //* PG001 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 1 * 00995600 //* PG002 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 2 * 00995700 //* PG003 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 3 * 00995800 //* PG004 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 4 * 00995900 //* PG005 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 5 * 00996000 //* PG006 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 6 * 00996100 //* PG007 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 7 * 00996200 //* PG008 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 8 * 00996300 //* PG009 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 9 * 00996400 //* PG010 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 10 * 00996500 //* PG011 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 11 * 00996600 //* PG012 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 12 * 00996700 //* PG013 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 13 * 00996800 //* PG014 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 14 * 00996900 //* PG015 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 15 * 00997000 //* PG016 DD SYSOUT=A DETAIL RPT - PERFORMANCE GROUP 16 * 00997100 //* * 00997200 //***FILE 180 IS THE JCL NECESSARY TO RUN THE RMF POST PROCESSORS * 00997300 //* CONTAINED IN FILE 179 AND FILE 190 * 00997400 //* * 00997500 //***FILE 181 IS A REPLACEMENT FOR IKJEBEMV (THE JCL TO INSTALL * 00997600 //* IS CONTAINED IN THE CODE ITSELF) * 00997700 //* THE IBM SUPPLIED ROUTINE ASSUMES THAT MORE THAN 256 * 00997800 //* BYTES WILL BE MOVED AND THEREFORE GOES THROUGH SEVERAL* 00997900 //* INSTRUCTIONS TO SET UP FOR A LOOP AND TESTS FOR ITS * 00998000 //* COMPLETION, WHICH IS VIRTUALLY NEVER NEEDED. * 00998100 //* THIS ROUTINE CHECKS THE LENGTH OF THE DATA TO BE MOVED* 00998200 //* AND IF IT 256 BYTES OR LESS, A SINGLE MOVE INSTRUCTION* 00998300 //* IS USED AVOIDING ALL THE INITIALIZATION. * 00998400 //* IKJEBEMV IS USED BY ALL EDIT SUBCOMMANDS THAT MOVE OR * 00998500 //* ALTER DATA. EXPAMPLES ARE: SAVE, RENUM, CHANGE, LIST * 00998600 //* EACH LINE IS ALSO MOVED BY THIS ROUTINE WHEN EDIT IS * 00998700 //* INVOKED. * 00998800 //* THIS ROUTINE, THEREFORE, IS USED QUITE EXTENSIVELY. * 00998900 //* ANY REDUCTION IN THE NUMBER OF INSTRUCTIONS EXECUTED * 00999000 //* IS MAGNIFIED MANY TIMES. * 00999100 //* THE CODE IN THIS CSECT SHOULD BE VALID FROM OS/MVT * 00999200 //* TO MVS LEVEL CODE . THIS CODE RAN AT CBT UNDER SVS * 00999300 //* AND IS CURRENTLY RUNNING UNDER MVS/XA SP2.1.1 AT AN * 00999400 //* 8401 LEVEL . GOOD CODE GOES A LONG WAY * 00999500 //* * 00999600 //***FILE 182 IS THE TSO PDS COMMAND PROCESSOR * 00999700 //* THE PDS COMMAND ALLOWS THE TSO USER TO ACCESS AND * 00999800 //* MANIPULATE THE DIRECTORY AND SELECTED MEMBERS OF A * 00999900 //* PARTITIONED DATA SET. * 01000000 //* WITH ITS DIRECTORY OPTIONS. THE PDS COMMAND CAN * 01000100 //* PRODUCE STATISTICS ON DIRECTORY AND DATA SET USAGE, * 01000200 //* DISPLAY PORTIONS OF THE DIRECTORY, AND SCRATCH, * 01000300 //* RENAME OR CREATE ALIASES FOR SELECTED MEMBERS. * 01000400 //* FOR ALL PDS'S MEMBERS THAT HAVE PREVIOUSLY BEEN * 01000500 //* DELETED AND BEFORE THE LIBRARY HAS BEEN COMPRESSED * 01000600 //* PDS WILL ALLOW YOU TO GO IN AND RESTORE THOSE MEMBERS.* 01000700 //* FOR LOAD DATA SETS, OPTIONS ARE AVAILABLE TO LIST LOAD* 01000800 //* MODULE HISTORY DATA, DISPLAY AND MODIFY LOAD MOD- * 01000900 //* ULE LINKAGE, ATTRIBUTES, AND PRODUCE LOAD MODULE * 01001000 //* CSECTS MAPS IN TWO DIFFERENT LENGTHS. * 01001100 //* FOR OTHER PARTITIONED DATA SETS, OPTIONS ARE AVAILABLE 01001200 //* TO SUBMIT A MEMBER (JCL) FOR BACKGROUND PROCESSING, * 01001300 //* LIST A MEMBER, EDIT A MEMBER OR LIST LINES FROM * 01001400 //* A MEMBER CONTAINING A SPECIFIED SEARCH STRING. * 01001500 //* THIS FILE IS IN IEBUPDTE FORMAT AND CONTAINS * 01001600 //* THE SOURCE AND HELP MEMBER FOR THIS COMMAND * 01001700 //* THE RESTORE OPTION WILL ALSO ALLOW THE RECOVERY OF * 01001800 //* LOAD MODULE MEMBERS. * 01001900 //* AN OPTION OF X WILL ALLOW TSO COMMANDS TO BE EXECUTED * 01002000 //* FROM WITHIN PDS ITSELF. EXAMPLE: 'X DELETE TEST.DATA' * 01002100 //* * 01002200 //* * 01002300 //***FILE 183 CONTAINS A MODIFIED COPY OF THE MVS TUNING REPORT * 01002400 //* VERSION 4 . THIS COPY FROM LOMA * 01002500 //* LINDA UNIVERSITY HAS BEEN MODIFIED IN SUCH A WAY * 01002600 //* THAT: * 01002700 //* 1. THERE ARE NO MORE THAN 60 LINES PER PAGE * 01002800 //* (BY REMOVING A TRIPLE SPACE AT THE TOP OF * 01002900 //* EACH PAGE) SO THAT 3800 USERS CAN PRINT IT. * 01003000 //* 2. FIXED THE PAGE NUMBERS (PUT THE LAST DIGIT * 01003100 //* BACK INTO THE REPORT) * 01003200 //* * 01003300 //***FILE 184 IS A PROGRAM THAT SEARCHS UCBS FROM A SUPERZAP DUMP * 01003400 //* OF IEANUC01 AND WILL GIVE THE FOLLOWING INFORMATION: * 01003500 //* * 01003600 //* DEVICE ADDRESS * 01003700 //* OFFLINE OR ONLINE * 01003800 //* SHARED OR NOT SHARED * 01003900 //* PATHS * 01004000 //* DEVICE TYPE * 01004100 //* * 01004200 //***FILE 185 IS A SUBROUTINE THAT IS NEEDED BY THE PROGRAM IN FILE * 01004300 //* 184. THIS IS AN ALL PURPOSE SCAN MODULE. IT WILL SCAN * 01004400 //* FOR A CONSTANT THAT IS PASSED BY THE CALLER * 01004500 //* IT CAN RETURN EITHER: * 01004600 //* 1). THE DISPLACEMENT OF THE CONSTANT * 01004700 //* FROM THE START SEARCH ADDRESS,OR * 01004800 //* 2). THE ADDRESS OF THE CONSTANT. * 01004900 //* IF THERE IS NO MATCH A WORD OF BINARY ONE IS * 01005000 //* RETURNED. THE CALLER MUST PASS THE FOLLOWING * 01005100 //* PARAMETERS: * 01005200 //* A) ADDRESS OF THE CONSTANT * 01005300 //* B) LENGTH OF THE CONSTANT (IN BINARY) * 01005400 //* C) ADDRESS AT WHICH THE SEARCH IS TO BEGIN * 01005500 //* D) LENGTH OF SEARCH (IN BINARY) - DEFAULT IS 80 * 01005600 //* E) FULL WORD THAT WILL CONTAIN THE ADDRESS OF THE * 01005700 //* FIRST BYTE OF AN EQUAL MATCH** IT WILL CONTAIN * 01005800 //* ALL BINARY ONES IF NO MATCH IS FOUND OR THE * 01005900 //* CONTSTAND ADDR IS THIS WORD CONTAINS THE EBCDIC * 01006000 //* LETTERS 'ADDR'. * 01006100 //* ALL PARAMETER MUST BE A FULLWORD * 01006200 //* * 01006300 //***FILE 186 IS IN IEBUPDTE SYSIN FORMAT COMPRISING DOCUMENTATION, * 01006400 //* EXAMPLES, MACROS AND ASSEMBLER SOURCE FOR A GENERAL * 01006500 //* PURPOSE TSO PROMPTER. THIS IS A MODIFIED VERSION OF * 01006600 //* A GPP WRITTEN ORIGINALLY BY G.A. SHRIFRIN AT OHIO * 01006700 //* STATE UNIVERSITY/COMSAT LABS. THIS VERSION IS FROM * 01006800 //* THE UNIVERSITY OF MANITOBA * 01006900 //* * 01007000 //***FILE 187 IS AN ASSEMBLER PROGRAM FROM THE FIRST NATIONAL BANK * 01007100 //* OF CHICAGO TO CONVERT CLISTS FROM 255 LRECL VB TO * 01007200 //* 80 LRECL FB OR VICE VERSA * 01007300 //* * 01007400 //***FILE 188 IS DOCUMENTATION FROM MELLON BANK CONCERNING MELLON * 01007500 //* BANK SHARED SPOOL FOR JES2 4.1 (SU25) PTF TAPE 7905 * 01007600 //* WITH DUAL CHECKPOINT * 01007700 //* * 01007800 //***FILE 189 ARE THE MODIFICIATIONS TO INSTALL THE MELLON BANK * 01007900 //* SHARE SPOOL FOR JES2 4.1 (SU25) PTF TAPE 7905 * 01008000 //* WITH DUAL CHECKPOINT * 01008100 //* * 01008200 //***FILE 190 IS AN RMF POST PROCESSOR PROGRAM. THIS PROGRAM WILL * 01008300 //* GENERATE MANY VARIED AND INTERESTING RMF REPORTS * 01008400 //* IN AN EXCEEDINGLY SHORT PERIOD OF TIME (ELAPSED AND * 01008500 //* CPU). EXECUTE THIS PROGRAM AGAINST YOUR OWN RMF * 01008600 //* DATA TO GET A SAMPLE. FOR ADDITIONAL DOCUMENTATION ON * 01008700 //* THIS PROGRAM SEE THE WRITE-UP IN THIS FILE UNDER * 01008800 //* FILE 179. THIS PROGRAM WILL ONLY WORK WITH RECORDS * 01008900 //* GENERATED FROM RMF VERSION 2. THIS POST PROCESSOR WILL* 01009000 //* PUT OUT INFORMATION IN THE CHANNEL REPORT THAT THE * 01009100 //* PROGRAM IN FILE 179 DOES NOT. FILE 180 CONTAINS THE * 01009200 //* THE JCL NECESSARY TO RUN THIS PROGRAM * 01009300 //* * 01009400 //***FILE 191 IS A COMMAND PROCESSOR THAT ALLOWS A TEMPORARY * 01009500 //* JOBLIB/STEPLIB FUNCTION. * 01009600 //* FOR THE TESTING OF DYNAMIC LINKAGE MODULAR STRUCTURES. THIS * 01009700 //* FUNCTION IS ESTABLISHED BY USING THE 'ATTACH' MACRO WITH * 01009800 //* THE 'TASKLIB' OPERAND. * 01009900 //* * 01010000 //* TWO DISTINCT TYPES OF PROCESSING ARE ACCOMPLISHED BY THIS * 01010100 //* MODULE: * 01010200 //* * 01010300 //* 1) PASSING CONTROL TO A USER PROGRAM * 01010400 //* 2) PASSING CONTROL TO A COMMAND PROCESSOR * 01010500 //* * 01010600 //* - USER PROGRAM * 01010700 //* THE USER MUST FIRST PREALLOCATE AND CONCATENATE * 01010800 //* ALL LIBRARIES THAT HE WISHES TO ESTABLISH AS A JOBLIB * 01010900 //* FUNCTION. HE WOULD THEN ENTER THE COMMAND 'HIGLOBAL' * 01011000 //* THE COMMAND PROCESSOR PROMPTS THE USER FOR TERMINAL INPUT.* 01011100 //* THE USER WOULD THEN ENTER THE FOLLOWING: * 01011200 //* FI(FILENAME) PGM(PGMNAME) PARM'PARAMETER' * 01011300 //* WHERE: * 01011400 //* -FILENAME IS THE FILE NAME OF THE PREALLOCATED LIBRARY * 01011500 //* OR CONCATENATED LIBRARIES TO SERVE AS JOBLIB. * 01011600 //* - PGMNAME IS THE PROGRAM DESIRED FOR EXECUTION FROM THE * 01011700 //* ASSOCIATED FILE. * 01011800 //* - PARAMETER IS PARM INFO TO BE PASSED TO THE PROBLEM * 01011900 //* PROGRAM USING IBM STANDARD LINKAGE. * 01012000 //* THE USER PROGRAM IS ATTACHED WITH THE 'TASKLIB' OPERAND * 01012100 //* POINTING TO THE SPECIFIED LIBRARY. * 01012200 //* ON RETURN, THE USER TCB IS DETACHED. * 01012300 //* * 01012400 //* - COMMAND PROCESSOR * 01012500 //* THE USER MUST PREALLOCATE AND CONCATENATE ALL LIBRARIES * 01012600 //* THAT HE WISHES TO ESTABLISH AS A JOBLIB FUNCTION. * 01012700 //* HE WOULD THEN ENTER: * 01012800 //* HIGLOBAL 'COMMAND NAME' 'COMMAND OPERANDS' * 01012900 //* THE COMMAND PROCESSOR PROMPTS THE USER FOR TERMINAL INPUT.* 01013000 //* THE USER WOULD THEN ENTER THE FOLLOWING: * 01013100 //* FI(FILENAME) CP(COMMAND NAME) * 01013200 //* WHERE: * 01013300 //* - FILENAME IS THE FILE NAME OF THE PREALLOCATED LIBRARY * 01013400 //* OR CONCATENATED LIBRARIES TO SERVE AS JOBLIB. * 01013500 //* - COMMAND NAME IS THE COMMAND DESIRED FOR EXECUTION. * 01013600 //* THE COMMAND IS ATTACHED WITH THE 'TASKLIB' OPERAND. * 01013700 //* BEFORE ATTACHING, THE CPPL PASSED TO HIGLOBAL IS REBUILT * 01013800 //* FOR THE COMMAND BEING ATTACHED. * 01013900 //* THE COMMAND BUFFER AND THE ENVIRONMENT CONTROL TABLE ARE * 01014000 //* MODIFIED. * 01014100 //* * 01014200 //***FILE 192 IS THE SOURCE CODE FOR A SQUISH PROGRAM THAT WILL RUN * 01014300 //* UNDER MVS AND HAS 3350 SUPPORT. THIS PROGRAM NEEDS * 01014400 //* AN SVC APPENDAGE WHICH IS IN FILE 193 ON THIS TAPE * 01014500 //* THE FOLLOWING IS SOME DOCUMENTATION CONCERNING THIS * 01014600 //* COPY OF SQUISH (THIS PROGRAM MUST BE MARKED AC=1) * 01014700 //* * 01014800 //* BEFORE YOU RUN THIS BE SURE YOU DASDR THE OUTPUT * 01014900 //* VOLUME WITH A NEW VTOC, ELSE YOU MAY (WILL) HAVE * 01015000 //* TROUBLE WITH IT. * 01015100 //* * 01015200 //* 3350'S CAN HAVE 47 DSCB'S PER TRACK, IF YOU HAVE * 01015300 //* NOTICED THAT YOUR PACKS HAVE ONLY 46 DSCB'S PER TRACK * 01015400 //* YOU ARE MISSING PTF UZ14352. SQUISH MAY VERY WELL BLOW * 01015500 //* WHEN YOU TRY TO WRITE THE 47TH DSCB IF THE PTF IS NOT * 01015600 //* ON YOUR SYSTEM * 01015700 //* * 01015800 //* YOU MAY RUN INTO PROBLEMS IF YOU HAVE MORE THAN 26 * 01015900 //* EXTENTS IN THE FORMAT 5 DSCB * 01016000 //* * 01016100 //* 128K FOR 3350 SQUISH * 01016200 //* * 01016300 //* DDNAMES * 01016400 //* SYSIN - INPUT FOR DSNAMES TO BE PUT NEXT TO THE * 01016500 //* VTOC * 01016600 //* SYSPRINT - OUTPUT FOR STATISTICS * 01016700 //* SYSUT1 - INPUT VOLUME TO BE COPIED * 01016800 //* SYSUT2 - TARGET VOLUME * 01016900 //* * 01017000 //* FORMAT OF PREFERED DSNAMES OF SYSIN DATA SET * 01017100 //* CC 1 - PRIORITY - 1 - 7 WHERE: * 01017200 //* 7 - IS THE HIGHEST PRIORITY * 01017300 //* 1 - IS THE LOWEST PRIORITY * 01017400 //* BLANK DEFAULTS TO PRIORITY 1 * 01017500 //* * 01017600 //* CC 2 - 45 - DSNAME OF PRIORITY DATA SET * 01017700 //* * 01017800 //* NOTE: 45 CARDS MAX WITH 1 DSN PER CARD * 01017900 //* * 01018000 //* DEVICE SUPPORT * 01018100 //* 3350 * 01018200 //* 3330,3330-1 * 01018300 //* 2314 * 01018400 //* 2305-1,2305-2 * 01018500 //* * 01018600 //* DATASET SUPPORT * 01018700 //* VSAM * 01018800 //* ISAM * 01018900 //* UNMOVEABLE DATASETS * 01019000 //* * 01019100 //* ORDER OF COPY * 01019200 //* VSAM, ISAM, UNMOVEABLE DATASETS * 01019300 //* SYSCATLG * 01019400 //* PRIORITY DATASETS - PRIORITY 7 THROUGH PRIORITY 1 * 01019500 //* CYLINDER ALLOCATED DATASETS * 01019600 //* TRACK ALLOCATED DATASETS * 01019700 //* * 01019800 //* ORDER OF OUTPUT DISK * 01019900 //* UNMOVEABLE DATASETS WILL BE PLACED WHERE THEY WERE * 01020000 //* SYSCATLG DATASET WILL BE PLACED BELOW THE VTOC * 01020100 //* PRIORITY DATASETS WILL BE PLACED IN ORDER BELOW SYSCTLG * 01020200 //* NON-PRIORITY DATASETS WILL BE ALLOCATED FROM THE TOP OF * 01020300 //* THE OUTPUT VOLUME * 01020400 //* NOTE: THERE MUST BE ENOUGH SPACE BELOW THE VTOC FOR THE * 01020500 //* SYSCTLG AND PRIORITY DATASETS OR SQUISH WILL ABEND * 01020600 //* NOTE: THE POSITION AND SIZE OF THE OUTPUT VTOC IS * 01020700 //* DETERMINED BY THE OUTPUT VOLUME. I.E. THE OUTPUT * 01020800 //* VTOC IS IN THE SAME PLACE AND THE SAME SIZE AS IT * 01020900 //* WAS ON THE OUTPUT VOLUME BEFORE THE MOVE. * 01021000 //* * 01021100 //***FILE 193 IS THE SVC APPENDAGE NEEDED BY THE SQUISH PROGRAM * 01021200 //* WHICH IS IN FILE 192 ON THIS TAPE * 01021300 //* * 01021400 //***FILE 194 IS A PROGRAM THAT WILL DETERMINE THE ACTIVE * 01021500 //* NON-VSAM SMF DATASET * 01021600 //* * 01021700 //***FILE 195 IS A PROGRAM THAT WILL PROCESS SMF DATA (USUALLY * 01021800 //* THE ACTIVE SMF DATA SET) AND GIVE YOU A SHORT * 01021900 //* SUMMARY OF WHAT HAS HAPPENED EITHER ON A JOB/TSO USER * 01022000 //* BASIS OR SYSTEM WIDE. VERY HANDY TO USE UNDER TSO. * 01022100 //* IT CAN NOT PROCESS A VSAM-SMF FILE DIRECTLY * 01022200 //* * 01022300 //***FILE 196 SAMPLE OUTPUT FROM THE PROGRAM IN FILE 195 * 01022400 //* * 01022500 //***FILE 197 IS A PROGRAM THAT WILL EXTRACT RMF RECORDS FROM * 01022600 //* AN SMF FILE * 01022700 //* * 01022800 //***FILE 198 IS THE PREVIOUS VERSION OF THE TSO PDS COMMAND * 01022900 //* THAT LIVES IN FILE 182 OF THIS TAPE . SEE THE * 01023000 //* WRITE UP UNDER FILE 182 OF THIS TAPE FOR ADDITIONAL * 01023100 //* INFORMATION * 01023200 //* * 01023300 //***FILE 199 IS FROM DAVE COLE AT COMNET IN WASHINGTON D.C. THIS * 01023400 //* FILE CONTAINS SEVERAL TSO COMMAND PROCESSORS THEY * 01023500 //* ARE : * 01023600 //* * 01023700 //* THE BLKSPTRK COMMAND CAN BE USED TO DISPLAY TRACK * 01023800 //* CAPACITIES FOR ANY DASD DEVICE FOR ANY COMBINATION OF * 01023900 //* KEY LENGTHS , BLOCK SIZES , AND / OR BLOCK COUNTS . * 01024000 //* * 01024100 //* THE CMDPGM COMMAND PROVIDES AN EASY TO USE MEANS OF * 01024200 //* INVOKING ( FROM TSO ) ARBITRARY TSO COMMANDS OR * 01024300 //* "BATCH" PROGRAMS OUT OF ARBITRARY LIBRARIES IN EITHER A * 01024400 //* NON-AUTHORIZED MODE OR AN AUTHORIZED MODE . * 01024500 //* * 01024600 //* ALL OF THE CMDPGM FUNCTIONS ARE CAPABLE OF ESTABLISHING * 01024700 //* ANY DESIRED LOAD LIBRARY AS A " TASK-LIBRARY " DURING * 01024800 //* THE EXECUTION OF YOUR CHOSEN COMMAND OR PROGRAM . * 01024900 //* TASK-LIBRARIES FUNCTION EXACTLY LIKE JOB-LIBRARIES OR * 01025000 //* STEP-LIBRARIES , SO THIS CAPABILITY RELIEVES THE NEED * 01025100 //* OF A " STEPLIB " MOD FOR TSO . * 01025200 //* * 01025300 //***FILE 200 IS FROM TWA IN IEBUPDTE SYSIN FORMAT AND CONTAINS * 01025400 //* THE FOLLOWING PROGRAMS: * 01025500 //* * 01025600 //* WHATSNEW THIS PROGRAM ANALYZES A PDS AND LISTS * 01025700 //* THE MEMBERS IN MOST RECENTLY CHANGED ORDER * 01025800 //* A CHANGE IS CONSTITUTED TO MEAN A RE-LINKEDIT, * 01025900 //* OR A CHANGE BY SUPERZAP. IT IS DRIVEN BY THE * 01026000 //* IDR DATA RECORDS WITHIN THE PDS. * 01026100 //* WHEREUSD THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS * 01026200 //* WHICH CONTAIN A REFERENCE TO A GIVEN EXTERNAL * 01026300 //* SYMBOL. * 01026400 //* COMPARE THIS PROGRAM ANALYZES GIVEN MEMBERS WHICH EXIST IN * 01026500 //* A PAIR OF PDS'S. THE MEMBERS ARE CHECKED FOR * 01026600 //* DIFFERENCES AND FOR ADHERANCE TO INSTALLATION * 01026700 //* STANDARDS AS A PRE-IMPLEMENTATION Q/C MEASURE. * 01026800 //* COBREAD THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS * 01026900 //* ALONG WITH THE COBOL ATTRIBUTES ASSOCIATED WITH * 01027000 //* THE MAIN CSECT WITHIN THE MODULE. SUCH ITEMS AS * 01027100 //* COBOL / STATE / / FLOW / / OPTIMIZATION / /TEST/ , * 01027200 //* / ENDJOB / , AND / DYNAM / ARE LISTED. 01027300 //* THE ABILITY TO SELECTIVELY ANALYZE A SINGLE * 01027400 //* MEMBER IS ALSO SUPPORTED. * 01027500 //* XREF1 THIS PROGRAM SCANS A PDS AND PRODUCES INTERMEDIATE * 01027600 //* RECORDS TO ALLOW XREF2 TO CREATE A GLOBAL CROSS- * 01027700 //* REFERENCE OF EXTERNAL SYMBOLS IN THE PDS . THIS * 01027800 //* REPORT PROVIDES INFORMATION OF THE FORM CSECT IS * 01027900 //* CONTAINED IN THE FOLLOWING LOAD MODULES ... * 01028000 //* XREF2 THIS IS THE REPORT PROGRAM TO PROCESS THE OUTPUT * 01028100 //* OF XREF1 . IT MAY HAVE MULTIPLE XREF1 FILES AS * 01028200 //* INPUT ALL INPUTS WILL BE MERGED WITHIN THE REPORT * 01028300 //* GENERATION PROCESS * 01028400 //* * 01028500 //***FILE 201 IS CODE THAT MAY BE ADDED TO FILES 179 AND/OR 190 * 01028600 //* SO THAT THOSE TWO RMF PROGRAMS CAN HANDLE MULTIPLE * 01028700 //* DAY'S OF INPUT AND PUT OUT A DATE LINE EACH TIME * 01028800 //* THE DAY CHANGES. THE CODE ITSELF TELLS WHERE TO PUT * 01028900 //* THIS CODE IN THE PROGRAMS * 01029000 //* * 01029100 //***FILE 202 IS THE SOURCE, JCL AND DOCUMENTATION FOR THE * 01029200 //* EXTENDED JES2 AUTOMATIC COMMAND PROCESSING SYSTEM IN * 01029300 //* IEBUPDTE FORMAT. THIS SYSTEM WILL EXTEND THE * 01029400 //* TIME-OF-DAY PROCESSING SUPPORTED BY JES2 AND ADD THE * 01029500 //* FEATURES OF DAY-OF-WEEK, WEEK-OF-MONTH, AND * 01029600 //* MONTH-OF-YEAR PROCESSING * 01029700 //* * 01029800 //***FILE 203 IS A SUPERZAP TO REDUCE THE POLLING OF REMOTE 3270 * 01029900 //* DEVICES THAT ARE NOT LOGGED ON. THIS IS ACCOMPLISHED * 01030000 //* BY INCREASING THE POLLING INTERVAL BY A FACTOR OF 15 * 01030100 //* IF NO ONE IS LOGGED ON. ONCE LOGON OCCURS, THE NORMAL * 01030200 //* POLLING INTERVAL IS UTILIZED. FOR TERMINALS NOT LOGGED * 01030300 //* ON, THE ACCOUNT FROM WHICH THIS ZAP WAS RECEIVED SAID * 01030400 //* 'I HAVE FOUND THAT THIS MODE DECREASES LINE ACTIVITY * 01030500 //* BY APPROXIMATELY 93 PERCENT. BECAUSE OF THE HIGH * 01030600 //* CORRELATION BETWEEN LINE ACTIVITY AND CPU UTILIZATION * 01030700 //* BY TCAM, CPU UTILIZATION IS REDUCED BY THE SAME ORDER * 01030800 //* OF MAGNITUDE. * 01030900 //* IN A PRODUCTION ENVIROMENT, WHERE THE AVERAGE TERMINAL * 01031000 //* WAS LOGGED ON APPROXIMATELY 40% OF THE TIME, TOTAL LINE* 01031100 //* ACTIVITY WAS REDUCED BY 48%. ADDITIONALLY TCAM CPU * 01031200 //* UTILIZATION WAS REDUCED BY 47%.' * 01031300 //* * 01031400 //***FILE 204 IS A PROGRAM THAT REWRITES THE VTOC ON THE TSO VOLUMES* 01031500 //* BASED ON MOST RECENTLY USED DATA SETS. WE RUN IT EVERY * 01031600 //* NIGHT WHEN WE DO OUR TSO PACK BACK-UPS. IT EFFECTIVELY * 01031700 //* CUTS THE VTOC SEARCH TIME IN HALF, GIVING US AT LEAST * 01031800 //* A 30% IMPROVEMENT ON OUR TSO CHANNEL. (WE HAVE 4 * 01031900 //* 3350'S FOR TSO AND 2 TSO CVOL CATALOGS ON ONE CHANNEL/ * 01032000 //* CONTROL UNIT). OUR VTOC'S ARE UNDER THE FIXED HEAD. * 01032100 //* THE PROGRAM ALSO PUTS THE FREE SPACE DSCBS AT THE FRONT* 01032200 //* OF THE VTOC. THIS PROGRAM IS DEPENEDENT UP THE 'DATE * 01032300 //* LAST USED' MOD IN THE MVS TUNING REPORT. HOWEVER ONLY A* 01032400 //* SLIGHT CHANGE WOULD MAKE IT COMPATIBLE WITH THE DATA * 01032500 //* MANAGEMENT SU 60 WHICH DOES THE SAME THING BUT PUTS THE* 01032600 //* DATE IN A DIFFERENT FIELD IN THE DSCB. IF YOU LOOK AT * 01032700 //* THE CODE IT IS QUITE OBVIOUS THAT THE AUTHOR 'BORROWED * 01032800 //* ' HEAVILY FROM SQUISH FOR WHICH WE ARE VERY GRATEFUL. * 01032900 //* THE PROGRAM GREATLY SPEEDS UP ALLOCATION AND GREATLY * 01033000 //* IMPROVES THE SERVICE TIME ON OUR TSO CHANNEL. WE NOW * 01033100 //* HAVE A 'LOGICAL' ONE CYLINDER VTOC WITH THE MOST * 01033200 //* ACTIVE STUFF AT THE FRONT. THE WE IN THIS WRITE-UP * 01033300 //* DOES NOT REFER TO US AT CBT * 01033400 //* * 01033500 //***FILE 205 IS A TSO COMMAND PROCESSOR TO PRINT DATA SETS FROM * 01033600 //* SOUTHERN CALIFORNIA EDISON COMPANY. THIS COMMAND * 01033700 //* COMMAND DYNAMICALLY PRINTS OR PUNCHES: A SEQUENTIAL * 01033800 //* DATASET, SPECIFIED MEMBERS OF A PARTITIONED DATASET, * 01033900 //* OR ALL MEMBERS OF A PARTITIONED DATASET. THIS FILE IS * 01034000 //* IN IEBUPDTE SYSIN FORMAT AND CONTAINES A HELP * 01034100 //* DATASET. THE PDS CONTAINS 3 ROUTINES: PRINTDS, * 01034200 //* PRINTDSX, PRINTDSY. LINK AS 'RENT' WITH EP=PRINTDS * 01034300 //* PRINTDS COMMENTS: * 01034400 //* 1. IT IS A COMMAND PROCESSOR (E.G. MUST BE ATTACHED * 01034500 //* BY TMP) * 01034600 //* 2. IT IS NOT AUTHORIZED * 01034700 //* 3. IT IS RE-ENTRANT AND MAY BE PLACED IN LPALIB * 01034800 //* 4 IT HAS A HELP ENTRY IN THE PDS * 01034900 //* 5 IT MAY BE LINK EDITED AS RE-ENTRANT WITH ENTRY * 01035000 //* AT MODULE PRINTDS. THE THREE MODULES THAT COMPRISE * 01035100 //* THE PROGRAM ARE: PRINTDS, PRINTDSX, PRINTDSY * 01035200 //* 6 IT SHOULD NEVER GIVE THE USER AN ABEND . IF IT DOES * 01035300 //* CONTACT THE AUTHOR * 01035400 //* 7 IT IS WRITTEN TOTALLY IN ASSEMBLER * 01035500 //* 8 THIS IS NOT A REPLACEMENT FOR THE IBM FDP CALLED * 01035600 //* DSPRINT (SEE FILE 277 FOR THAT) * 01035700 //* * 01035800 //***FILE 206 IS SPY WHICH IS A TSO COMMAND PROCESSOR FROM * 01035900 //* SOUTHERN CALIFORNIA EDISON COMPANY. THIS CP DISPLAYS * 01036000 //* ALL ACTIVE OPERATORS CONSOLES ON A 3270 TSO TERMINAL . * 01036100 //* ADDITIONAL DOCUMENTATION IS GIVEN WITH IN THE CODE . * 01036200 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT ON THIS TAPE . * 01036300 //* SPY COMMENTS : * 01036400 //* 1. IT IS A PROGRAM THAT SHOULD BE CALLED OR ATTAHCED * 01036500 //* AS A COMMAND PROCESSOR (NOTE: IT DOES NOT USE R1 * 01036600 //* UPON ENTRY) * 01036700 //* 2. IT IS NOT AUTHORIZED * 01036800 //* 3. IT IS NOT RE-ENTRANT * 01036900 //* 4 IT HAS A HELP FACILITY - ENTER A '?' ANYTIME * 01037000 //* AFTER CALLING IT * 01037100 //* 5 IT WILL LINK TO PROGRAM 'SWAP' (MUST BE CONTAINED * 01037200 //* IN SAME LIBRARY AS 'SPY'). 'SWAP' IS AN ENHANCED * 01037300 //* VERSION OF 'MIPS'. BOTH PROGRAMS ARE IN SOURCE * 01037400 //* FORMAT ON THIS TAPE * 01037500 //* 6 IT IS WRITTEN TOTALLY IN ASSEMBLER * 01037600 //* * 01037700 //* IF YOU USE SPY UNDER TSO BE ALERTED TO THE FACT * 01037800 //* THAT IF YOU APPLY PTF UZ26385 (APAR OZ39506) ON 7907 * 01037900 //* YOU WILL NO LONGER BE ABLE TO RUN THIS SPY. IBM HAS * 01038000 //* MOVED THE CONSOLE BUFFERS TO FETCH PROTECTED * 01038100 //* STORAGE. IN THE FUTURE SPY WILL HAVE TO BE MODIFIED * 01038200 //* TO RUN KEY 0 SUPERVISOR STATE. (WHEN IN KEY 0, IT * 01038300 //* RUNS FINE WITH PTF UZ26385). SEE SPY IN FILES * 01038400 //* 276 AND 338 FOR USE AFTER THE CONSOLE BUFFERS HAVE * 01038500 //* BEEN MOVED TO PROTECTED STORAGE * 01038600 //* * 01038700 //***FILE 207 IS A FULL SCREEN EDITOR FROM CITIBANK OF NEW YORK, * 01038800 //* NEW YORK. THIS DATA SET IS IN IEBUPDTE * 01038900 //* SYSIN FORMAT AND CONTAINS THE SOURCE MODULES AND * 01039000 //* DOCUMENTATION FOR THEIR 3270 FULL SCREEN EDITOR, * 01039100 //* WHICH IS ALSO AN INCORE EDITOR. THIS IS A TSO FULL * 01039200 //* SCREEN EDITOR TO BE USED SOLELY FOR REMOTE AND LOCAL * 01039300 //* 3270 UNITS. IT ALLOWS THE SIMULTANEOUS UPDATE AND * 01039400 //* BROWSE OF UP TO 21 LINES OF A DATA SET, AND THE * 01039500 //* EXECUTION OF AN FSE/TSO COMMAND AT THE SAME TIME * 01039600 //* * 01039700 //***FILE 208 IS IN IEBGENER FORMAT WHICH CONTAINS THE DOCUMENTATION* 01039800 //* FOR THE MVS SYSEVENT ANALYSIS PACKAGE FROM STANDARD * 01039900 //* OIL, CONTAINED IN FILES 209 AND 210 ON THIS TAPE . * 01040000 //* THIS FILE IS RECFM=FBA * 01040100 //* * 01040200 //***FILE 209 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE MACROS NEEDED* 01040300 //* FOR THE MVS SYSEVENT ANALYSIS PACKAGE FROM STANDARD * 01040400 //* OIL * 01040500 //* * 01040600 //***FILE 210 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE SOURCE * 01040700 //* PROGRAMS AND SAMPLE JCL NEEDED FOR THE MVS SYSEVENT * 01040800 //* ANALYSIS PACKAGE FROM STANDARD OIL. THIS PACKAGE NEEDS * 01040900 //* 'TODCNVRT' WHICH IS AN ALIAS OF AMDPRSEG WHICH IS * 01041000 //* IN SYS1.AOS12 ON THE DLIB'S. AN OBJECT DECK OF * 01041100 //* AMDPRSEG ALSO RESIDES IN IEBUPDTE FORMAT IN FILE 173 * 01041200 //* ON THIS TAPE * 01041300 //* * 01041400 //***FILE 211 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE SOURCE FOR * 01041500 //* THE NEW POUND COMMANDS FORM STANDARD OIL FOR USE WITH * 01041600 //* DCMS VERSION 2.0 . * 01041700 //* * 01041800 //* T H E C O M M A N D S U B S Y S T E M * 01041900 //* * 01042000 //* THE VERSION OF THE COMMAND SUBSYSTEM ( CMDSBSYS ) ON * 01042100 //* THIS TAPE INCLUDES THE COMMON I/O DRIVER FROM * 01042200 //* STANDARD OIL. * 01042300 //* * 01042400 //* NOTE - THIS VERSION HAS THE FOLLOWING KNOWN BUGS : * 01042500 //* * 01042600 //* A. COMMAND RESPONSE TO A TSO TERMINAL NOT * 01042700 //* WORKING * 01042800 //* B. L= OPERAND INEFFECTIVE TO JES3 SUBSYSTEM * 01042900 //* CONSOLES * 01043000 //* C. #V GROUP DEVICE LIST FAILS SOC4 * 01043100 //* * 01043200 //* THIS VERSION OF THE COMMAND SUBSYSTEM USES A SUBSYSTEM * 01043300 //* NAME OF ' ALT1 ' * 01043400 //* * 01043500 //* DCMS USERS WISHING TO INSTALL THE DCMS ' POUND ' COMMAND * 01043600 //* TO ALLOW DCMS TO EXECUTE ' #CMD ' SUBSYSTEM COMMANDS MUST * 01043700 //* ( I SAY MUST ) USE THE COMMON I/O DRIVER VERSION OF THE * 01043800 //* SUBSYSTEM * 01043900 //* * 01044000 //***FILE 212 IS IN IEBUPDTE FORMAT WHICH CONTAINS 6 SAS PROGRAMS * 01044100 //* TO PROCESS REDUCTION OF SMF AND RMF DATA RECORDS. * 01044200 //* FROM UNION CARBIDE CORPORATION. FOR ADDITIONAL * 01044300 //* INFORMATION OF THESE PROGRAMS SEE THE MEMBER CALLED * 01044400 //* $DOC * 01044500 //* * 01044600 //* SMF DATA REDUCTION IN AN MVS/RMF II ENVIRONMENT * 01044700 //* (SAS#SAMP) * 01044800 //* * 01044900 //* THIS PDS CONTAINS SEVEN MEMBERS AS DEFINED BELOW: * 01045000 //* 1. $DOC * 01045100 //* DOCUMENTATION MEMBER * 01045200 //* 2. MVS#COL1 * 01045300 //* THIS JOB IS USED TO PERFORM THE REDUCTION OF * 01045400 //* DATA FOR THE FOLLOWING SMF RECORD TYPES: * 01045500 //* 5,34,35,70,71,72,73,74 * 01045600 //* 3. MVS#ANL0 * 01045700 //* THIS JOB IS USED TO PERFORM THE ANALYSIS AND * 01045800 //* REPORT WRITING FOR THE DATA COLLECTED BY * 01045900 //* MVS#COL1. IT USED THE FOLLOWING RECORD TYPES: * 01046000 //* 5,70,71,72,73,74. * 01046100 //* 4. TSORPT9 * 01046200 //* THIS JOB IS USED TO CONSTRUCT 21 DETAILED * 01046300 //* REPORTS RELATING TO TSO ACTIVITY AND RESOURCE * 01046400 //* UTILIZATION. DATA IS EXTRACTED FROM SMF RECORD * 01046500 //* TYPES 34,35,40,72. IT SHOULD BE NOTED THAT THIS * 01046600 //* REPORT HAS BEEN TAILORED TO THE SPECIFIC * 01046700 //* REQUIREMENTS OF OUR OWN INSTALLATION. AS A * 01046800 //* RESULT, A FEW CHANGES WOULD BE NECESSARY PRIOR * 01046900 //* TO ITS USE BY ANOTHER INSTALLATION. * 01047000 //* 5. SAS#T72 * 01047100 //* THIS JOB IS UTILIZED TO PERFORM BASIS * 01047200 //* PERFORMANCE GROUP ANALYSIS BY PERFORMANCE GROUP * 01047300 //* AND CPU. DATA IS BASED UPON RMF TYPE 72 * 01047400 //* RECORDS. * 01047500 //* 6. DASD * 01047600 //* THIS JOB IS UTILIZED TO PROVIDE A DASD I/O * 01047700 //* SUMMARY BY CPU. DATA IS BASED UPON RMF TYPE 74 * 01047800 //* RECORDS. * 01047900 //* 7. MVS#PLT2 * 01048000 //* THIS JOB IS USED TO CONSTRUCT A SERIES OF PLOTS * 01048100 //* RELATING TO DATA COLLECTED FROM THE FOLLOWING * 01048200 //* SMF RECORD TYPES; 5,70,71,72,73,74. THE DATA * 01048300 //* UTILIZED IS COLLECTED BY MVS#COL1. IT SHOULD * 01048400 //* BE NOTED THAT THIS REPORT HAS BEEN TAILORED TO * 01048500 //* THE SPECIFIC REQUIREMENTS OF OUR OWN * 01048600 //* INSTALLATION. AS A RESULT, A FEW CHANGES WOULD * 01048700 //* BE NECESSARY PRIOR TO ITS USE BY ANOTHER * 01048800 //* INSTALLATION. * 01048900 //* * 01049000 //* THE PURPOSE OF THE JOBS IN THIS PDS IS TO PRESENT * 01049100 //* EXAMPLES AS TO HOW SAS MAY BE UTILIZED TO * 01049200 //* ACCOMPLISH THE REDUCTION OF SMF DATA AND PERFORM * 01049300 //* SOME ELEMENTARY ANALYSIS ON THAT DATA. ALTHOUGH * 01049400 //* THE JOBS WILL PERFORM CORRECTLY IN THEIR CURRENT * 01049500 //* FORMAT, IT IS SUGGESTED THAT THEY BE UTILIZED ONLY * 01049600 //* AS A GUIDELINE. THE FLEXIBILITY OF SAS IS SUCH THAT * 01049700 //* IT WOULD BE EASY TO TAILOR REPORTS IN ORDER TO SUIT * 01049800 //* THE NEEDS OF THE INDIVIDUAL INSTALLATIION. * 01049900 //* * 01050000 //* THESE PROGRAMS ARE CURRENTLY RUNNING IN AN RMF II, * 01050100 //* MVS-MP ENVIRONMENT. ONLY THE FOLLOWING PROGRAMS * 01050200 //* CONTAIN NO CPU-DEPENDENT CODE: * 01050300 //* MVS#COL1 * 01050400 //* MVS#ANL0 * 01050500 //* SAS#T74B * 01050600 //* MVS#PLT2 * 01050700 //* IT IS STRONGLY SUGGESTED THAT ONE HAVE A THOROUGH * 01050800 //* UNDERSTANDING OF THE PROGRAMS BEFORE UTILIZATION. * 01050900 //* BECAUSE EACH INSTALLATION POSSESSES ITS OWN UNIQUE * 01051000 //* REQUIREMENTS, THESE PROGRAMS ARE INTENDED TO * 01051100 //* DEMONSTRATE THE FLEXIBILITY AND CAPABILITY OF SAS * 01051200 //* IN THE ANALYSIS OF SMF DATA. RATHER THAN BEING * 01051300 //* UTILIZED IN ITS CURRENT FORM, THEY SERVE AS A * 01051400 //* STARTING POINT FOR THE DEVELOPMENT OF FACILITIES * 01051500 //* THAT BEST SUIT THE INDIVIDUAL INSTALLATION * 01051600 //* * 01051700 //***FILE 213 THIS PROGRAM WILL GIVE STATS ON ANY DISK DATA SET * 01051800 //* * 01051900 //* DESCRIPTION: THIS PROGRAM FORMATS INFORMATION ON ANY * 01052000 //* DISK DATA SET. IT READS THROUGH THE ENTIRE DATA * 01052100 //* SET AND OUTPUTS DISK TRACK USAGE, RECORD SIZES, * 01052200 //* COUNTS AND OTHER STATISTICS. * 01052300 //* * 01052400 //* IN ADDITION, SEVERAL DATA SET VALIDITY CHECKS ARE * 01052500 //* PERFORMED DURING INPUT PROCESSING TO INSURE THAT * 01052600 //* THE DATA SET WILL BE USABLE BY THE SYSTEM FOR * 01052700 //* NON-EXCP PROCESSING. * 01052800 //* * 01052900 //* IF ANY ERRORS ARE ENCOUNTERED, THE RETURN CODE IS * 01053000 //* SET TO 4095 (OR THE PROGRAM ABENDS); OTHERWISE, * 01053100 //* THE RETURN CODE IS SET TO THE MINIMUM OF 4094 AND * 01053200 //* THE NUMBER OF TRACKS WHICH SHOULD COMPRESS OUT * 01053300 //* FOR PARTITIONED DATA SETS. * 01053400 //* * 01053500 //* DEFINITIONS (FOR PARTITIONED DATA SETS): * 01053600 //* * 01053700 //* A. REAL MEMBER - A NON-ALIAS MEMBER NAME WHICH * 01053800 //* IS PRESENT IN THE DIRECTORY. * 01053900 //* B. GAS MEMBER - A MEMBER OF A PARTITIONED DATA * 01054000 //* SET WHICH HAS BEEN REPLACED OR DELETED FROM * 01054100 //* THE DATA SET. A GAS MEMBER DOES NOT HAVE AN * 01054200 //* ENTRY IN THE DIRECTORY POINTING TO IT; DISK * 01054300 //* STORAGE OCCUPIED BY GAS MEMBERS IS MADE * 01054400 //* USABLE FOR OTHER MEMBERS BY AN IEBCOPY * 01054500 //* COMPRESS OPERATION. * 01054600 //* * 01054700 //* NOTE: GAS MEMBERS CAN BE RESURRECTED BY THE * 01054800 //* TSO PDS COMMAND IF IT IS GIVEN THE BEGINNING * 01054900 //* TTR ADDRESS AND A MEMBER NAME. * 01055000 //* * 01055100 //* PROGRAM PARM (ONLY THE FIRST PARM CHARACTER IS * 01055200 //* SIGNIFICANT; AT MOST ONE OF THE * 01055300 //* FOLLOWING MAY BE SPECIFIED): * 01055400 //* * 01055500 //* A. LABELONLY - LABEL INFORMATION IS TO BE * 01055600 //* FORMATTED BUT NO DATA SET READS * 01055700 //* ARE TO BE PERFORMED (EXCEPT THE * 01055800 //* READ FOR ANY ISAM FORMAT 2 * 01055900 //* DSCB). * 01056000 //* B. NOGAS - NO GAS MEMBER REPORT IS TO BE * 01056100 //* PROVIDED FOR PARTITIONED DATA * 01056200 //* SETS. * 01056300 //* C. ERRORSONLY - ONLY ERROR MESSAGES ARE TO BE * 01056400 //* OUTPUT. * 01056500 //* D. ALLEXTENTS - ALL EXTENTS OF THE DATA SET ARE * 01056600 //* TO BE READ REGARDLESS OF THE * 01056700 //* DS1LSTAR SETTING. * 01056800 //* OPERATION: * 01056900 //* * 01057000 //* A. THE PROGRAM PERFORMS A RDJFCB TO GET THE * 01057100 //* DSNAME AND VOLUME NAME; AN OBTAIN TO GET THE * 01057200 //* FORMAT 1 DSCB; A DEVTYPE TO GET THE DEVICE * 01057300 //* CHARACTERISTICS; AND AN OPEN TO INITIALIZE * 01057400 //* THE DATA SET'S DATA EXTENT BLOCK (DEB) * 01057500 //* INFORMATION. * 01057600 //* B. THE PROGRAM FORMATS AND OUTPUTS DEB AND DSCB * 01057700 //* INFORMATION. * 01057800 //* C. THE PROGRAM THEN READS THROUGH THE DATA SET * 01057900 //* AND OUTPUTS DISK TRACK USAGE, RECORD SIZES, * 01058000 //* COUNTS AND OTHER STATISTICS. * 01058100 //* D. ADDITIONAL PROCESSING: * 01058200 //* 1. FOR PHYSICAL SEQUENTIAL, DIRECT OR VSAM * 01058300 //* DATA SETS, NO ADDITIONAL PROCESSING IS * 01058400 //* PERFORMED. * 01058500 //* 2. FOR ISAM DATA SETS, THE PROGRAM READS * 01058600 //* THROUGH THE ENTIRE DATA SET (THERE MAY BE * 01058700 //* SEVERAL FILES OF DATA) AND REPORTS ON EACH * 01058800 //* FILE. ALSO, THE PROGRAM INPUTS THE ISAM * 01058900 //* LABEL (FORMAT TWO DSCB) RECORD AND * 01059000 //* PROVIDES A DATA SET PROFILE WHICH INCLUDES * 01059100 //* DATA SET REORGANIZATION DATA AND DATA SET * 01059200 //* CHARACTERISTICS. * 01059300 //* 3. FOR PARTITIONED DATA SETS, IF THE DATA SET * 01059400 //* NAME AND A MEMBER NAME IS ALLOCATED TO THE * 01059500 //* INPUT DATA SET, THE MEMBER IS PROCESSED * 01059600 //* LIKE A SEQUENTIAL DATA SET. * 01059700 //* 4. FOR OTHER PARTITIONED DATA SETS, THE * 01059800 //* PROGRAM COMPARES DIRECTORY TTR'S AGAINST * 01059900 //* ACTUAL DISK ADDRESSES TO PROVIDE A REPORT * 01060000 //* BY GAS MEMBER: * 01060100 //* A. FOR LOAD LIBRARIES, THE LINKAGE-EDIT * 01060200 //* DATE AND THE NAMES OF THE FIRST FEW * 01060300 //* CSECTS ARE PROVIDED. * 01060400 //* B. FOR OTHER LIBRARIES, THE FIRST 79 * 01060500 //* CHARACTERS OF EACH GAS MEMBER IS * 01060600 //* OUTPUT. * 01060700 //* STATISTICS ARE MAINTAINED ON THE SIZE OF * 01060800 //* GAS AND REAL MEMBERS AND THE NUMBER OF * 01060900 //* ALIAS MEMBERS. STATS CHECKS FOR ALIASES * 01061000 //* WHICH HAVE NO REAL ENTRIES AND APPARENT * 01061100 //* ALIASES (TWO REAL MEMBERS WITH THE SAME * 01061200 //* TTR). * 01061300 //* * 01061400 //***FILE 214 IS THE DOCUMENTATION FOR THE LISTPDS PROGRAM WHICH IS * 01061500 //* CONTAINED IN FILE 215 OF THIS TAPE * 01061600 //* RECFM=FBA AND CONTAINS UPPER & LOWER CASE CHARACTERS * 01061700 //* * 01061800 //***FILE 215 IS THE LISTPDS PROGRAM WHICH IS A PRINT PROGRAM FOR * 01061900 //* SEQUENTIAL AND PARTITIONED DATA SETS. LISTPDS CAN * 01062000 //* LIST ANY NUMBER OF SEQUENTIAL AND PARTITIONED DATA * 01062100 //* SETS IN A SINGLE EXECUTION STEP. LISTPDS PROVIDES PAGE * 01062200 //* INDEXES, MEMBER SELECTION FACILITIES, MEMBER LOCATIONS * 01062300 //* (TTR) REPORTS, DATA SET (AND MEMBER) INDENTIFICATION * 01062400 //* HEADERS LINES, AND SEVEN DIFFERENT OUTPUT FORMATING * 01062500 //* OPTIONS * 01062600 //* * 01062700 //***FILE 216 IS IN IEBUPDTE FORMAT WHICH CONTAINS TWO TSO CP (WITH * 01062800 //* THEIR HELP DATA SETS). THEY ARE: * 01062900 //* * 01063000 //* 1. LOCD--DISPLAYS WHERE A DATA SET IS CATALOGED AND * 01063100 //* LISTS ALL MOUNTED DIRECT ACCESS VOLUMES ON * 01063200 //* WHICH THE DATA SET RESIDES * 01063300 //* * 01063400 //* 2. CHGDATE--CHANGE THE EXPIRATION DATE OF A DATA SET * 01063500 //* * 01063600 //***FILE 217 IS IN IEBUPDTE FORMAT WHICH CONTAINS A DISSASMBLER. * 01063700 //* COMPLETE DOCUMENTATION FOR THIS PROGRAM IS CONTAINED * 01063800 //* IN THE MEMBER CALLED $DOC. BELOW IS A VERY BRIEF * 01063900 //* DESCRIPTION OF THIS PROGRAM. * 01064000 //* * 01064100 //* DISASM IS A ONE-PASS DISASSEMBLER WHICH PRODUCES AN ASSEMBLER * 01064200 //* LANGUAGE SOURCE PROGRAM FROM A CSECT WITHIN A LOAD MODULE. * 01064300 //* CONTROL CARDS PERMIT SPECIFICATION OF AREAS CONTAINING NO * 01064400 //* INSTRUCTIONS, ALLOW BASE REGISTERS TO BE PROVIDED SO THAT * 01064500 //* SYMBOLIC LABELS MAY BE CREATED DURING DISASSEMBLY, AND * 01064600 //* DEFINITION OF DSECTS TO BE USED DURING DISASSEMBLY. CONDITIONAL* 01064700 //* BRANCH INSTRUCTIONS USE THE EXTENDED MNEMONICS, WHERE POSSIBLE,* 01064800 //* AND EXPLICIT REGISTERS ARE DENOTED BY R0, R1, ... R15. * 01064900 //* COMMENTS ARE GIVEN ON SVC'S, AND VARIOUS BAL INSTRUCTIONS TO * 01065000 //* AID IN CREATING A DOCUMENTED SOURCE PROGRAM * 01065100 //* * 01065200 //***FILE 218 CONTAINS AN MPL AND ASM MONITOR UNDER RMFMON FROM * 01065300 //* COCA COLA IN ATLANTA. THIS FILE IS IN IEBUPDTE SYSIN * 01065400 //* FORMAT AND THE MEMBER CALLED $DOCERB CONTAINS * 01065500 //* ADDITIONAL INFORMATION. THE MEMBER CALLED SAMPLE * 01065600 //* SHOWS SOME ACTUAL OUTPUT. THIS FILE ALSO CONTAINS A * 01065700 //* PL/1 (OPTIMIZER) PROGRAM TO PROVIDE A VSAM VOLUME MAP * 01065800 //* OF ALL VOLUMES IN A PARTICULAR VSAM CATALOG. IT MAPS * 01065900 //* EACH DATA SPACE AND EACH DATA AND INDEX COMPONENT * 01066000 //* WITHIN THE DATA SPACE BY STARTING AND ENDING CCHH . * 01066100 //* THERE IS ALSO A ZAP TO CORRECT A MINOR PROBLEM * 01066200 //* * 01066300 //* K VSAM PLI PL1 VOLMAP VTOC CATALOG ERBRUS99 RMF RMFMON MPL ASM * 01066400 //* * 01066500 //***FILE 219 IS A PROGRAM TO SET SHARED BITS ON OR OFF IN THE UCB * 01066600 //* OF DASD DEVICES FOR A MULTIPLE CPU INSTALLATION WITH SHARED * 01066700 //* DASD IT CAN ALSO DISPLAY THE CURRENT STATUS OF THE DEVICE(S) * 01066800 //* SPECIFIED. * 01066900 //* * 01067000 //* PARM INPUT * 01067100 //* PARM = 'XXXYYYYYY' * 01067200 //* XXX = ON - SET SHARED BIT(S) ON * 01067300 //* XXX = OFF - SET SHARED BIT(S) OFF * 01067400 //* XXX = DIS - DISPLAY STATUS OF VOLUME(S) SPECIFIED * 01067500 //* YYYYYY = VOLSER - VOLUME SER OF DEVICE TO BE SET OR DISPLAYED * 01067600 //* YYYYYY = NOT SPECIFIED - IF YYYYYY NOT SPECIFIED READ VOLUMES * 01067700 //* FROM SYSIN FILE. * 01067800 //* SYSIN INPUT * 01067900 //* 80 CHARECTER INPUT RECORDS * 01068000 //* COL'S 1-6 = VOLUME SERIAL OF DEVICE TO BE SET OR DISPLAYED * 01068100 //* COL 10 NON BLANK CHARECTER SPECIFIES TO VARY DEVICE * 01068200 //* CONTAINING VOLUME SPECIFIED OFFLINE. * 01068300 //* * 01068400 //* NOTE THIS PROGRAM MUST BE AUTHORIZED AC=1 * 01068500 //* * 01068600 //***FILE 220 IS A PROGRAM TO SET SHARED BITS ON OR OFF * 01068700 //* * 01068800 //* THIS PROGRAM IS RUN AT IPL TIME TO ACCOMPLISH THE FOLLOWING * 01068900 //* FUNCTIONS: * 01069000 //* * 01069100 //* 1 MARK OFFLINE ALL DASD DEVICES THAT ARE NOT RESERVED OR * 01069200 //* PERMANENTLY RESIDENT. THIS INCLUDES ALL DEVICES ON WHICH * 01069300 //* A VOLUME IS NOT MOUNTED. * 01069400 //* * 01069500 //* 2 MARK CERTAIN DASD DEVICES EITHER NON-SHARED OR SHARED, * 01069600 //* ACCORDING TO VATLST SPECIFICATIONS. THIS IS CONTROLLED BY * 01069700 //* PLACING AN 'S' IN COLUMN 23 OF THE VATLST ENTRY FOR 'SHARED', * 01069800 //* OR AN 'N' IN COLUMN 23 FOR 'NON-SHARED'. THIS PERMITS THE * 01069900 //* SHARED/NON-SHARED ATTRIBUTES TO BE SET BY VOLUME RATHER * 01070000 //* THAN BY DEVICE. SINCE CERTAIN VOLUMES ARE NOT SHARED, THIS * 01070100 //* ALLOWS ONE TO EASILY OBTAIN THE PERFORMANCE GAIN RESULTING * 01070200 //* FROM THE ELIMINATION OF RESERVE/RELEASE FOR THESE VOLUMES. * 01070300 //* * 01070400 //* 3 MARK CERTAIN DASD DEVICES OFFLINE ACCORDING TO VATLST * 01070500 //* SPECIFICATIONS. THIS IS CONTROLLED BY PLACING A 'V' IN * 01070600 //* COLUMN 24 OF THE VATLST ENTRY. ALTHOUGH THIS PARTICULAR * 01070700 //* FACILITY IS SELDOM UTILIZED, IT ALLOWS ONE TO LEAVE ENTRIES * 01070800 //* IN THE VATLST AND HAVE THEM EFFECTIVELY IGNORED BY THE * 01070900 //* OPERATING SYSTEM. * 01071000 //* * 01071100 //* 4 OPTIONALLY, THIS PROGRAM MAY BE UTILIZED TO MARK OFFLINE * 01071200 //* ANY DASD DEVICE WHOSE VOLUME IS NOT IN THE VATLST SPECIFIED. * 01071300 //* IF THIS PARTICULAR FEATURE IS OF INTEREST, SET THE LCLC * 01071400 //* SPECIFICATION FOR &OPTA TO '1'. REMEMBER THAT AN INVOCATION * 01071500 //* OF THIS PROGRAM FOLLOWING THE MOUNTING OF ANY DASD VOLUMES * 01071600 //* WILL TAKE THESE VOLUMES OFFLINE IF THIS FEATURE IS UTILIZED * 01071700 //* AND THE VOLUMES MOUNTED ARE NOT IN THE VATLST. * 01071800 //* * 01071900 //* PLEASE NOTE THAT THIS PROGRAM WILL ALTER DEVICE STATUS WITHOUT * 01072000 //* CHECKING TO DETERMINE WHETHER THE DEVICE IS ALLOCATED OR IN USE.* 01072100 //* IT IS NOT RECOMMENDED THAT THE PROGRAM BE UTILIZED FOR THE ABOVE* 01072200 //* FUNCTIONS AT OTHER THAN IPL TIME. IN AN MVS ENVIRONMENT THE BEST* 01072300 //* WAY TO CONTROL THIS IS TO UTILIZE A START COMMAND IN COMMNDXX. * 01072400 //* THIS PARTICULAR APPROACH HAS BEEN IN USE IN A UP/MP SHARED DASD * 01072500 //* ENVIRONMENT FOR TWO YEARS, AND HAS NEVER BEEN KNOWN TO CAUSE A * 01072600 //* PROBLEM. * 01072700 //* * 01072800 //* THIS PROGRAM MUST BE MARKED AC=1 * 01072900 //* * 01073000 //* ADDITIONALLY, AS AN EMERGENCY FACILITY, THE PROGRAM MAY * 01073100 //* BE UTILIZED TO ALTER THE SHARED/NON-SHARED STATUS OF A SPECIFIC * 01073200 //* DEVICE. THIS PARTICULAR FACILITY MUST BE USED JUDICIOUSLY IN * 01073300 //* ORDER TO PREVENT THE OCCURANCE OF RESERVE/RELEASE COMPLICATIONS.* 01073400 //* IT IS RECOMMENDED THAT SUCH USE BE RESTRICTED TO OFFLINE DEVICES* 01073500 //* STATUS MAY BE RESET IN THE FOLLOWING WAYS BY PASSING PARAMETER * 01073600 //* INFORMATION TO THE PROGRAM: * 01073700 //* 1 PARM='XXXS' WILL MARK DEVICE XXX AS SHARED. * 01073800 //* 2 PARM='XXXN' WILL MARK DEVICE XXX AS NON-SHARED. * 01073900 //* 3 PARM='XXX' WILL RESET THE STATUS OF THE DEVICE ACCORDING TO * 01074000 //* THE SPECIFICATIONS IN THE VATLST FOR THAT PARTICULAR VOLUME. * 01074100 //* THE ACTION TAKEN IF NO MATCH IS FOUND IS DEPENDENT UPON OPTION* 01074200 //* 'A', WHICH IS DESCRIBED IN STATEMENT NUMBER 4 ABOVE. IF THIS * 01074300 //* OPTION HAS NOT BEEN CHOSEN, NO ACTION WILL BE TAKEN. IF * 01074400 //* &OPTA IS SET TO '1', THEN THE VOLUME WILL BE TAKEN OFFLINE IN * 01074500 //* THE SAME MANNER AS DESCRIBED * 01074600 //* * 01074700 //***FILE 221 CONTAINS ADDITIONAL DOCUMENTATION FOR THE DCMS * 01074800 //* COMMANDS SPECIFICALLY THE DCMS COMMANDS THAT ARE * 01074900 //* CONTAINED IN FILES 240-245. THE FILE CONTAINS * 01075000 //* UPPER AND LOWER CASE CHARACTERS * 01075100 //* RECFM=FBA * 01075200 //* * 01075300 //***FILE 222 CONTAINS DF/DS AND RMF EXITS FROM AMERICAN * 01075400 //* HOSPITAL SUPPLY CORPORATION OF MCGAW PARK, ILLINOIS . * 01075500 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * 01075600 //* THE FOLLOWING MEMBERS : * 01075700 //* * 01075800 //* ERBTSOCK - RMF MONITOR II AUTHORIZATION EXIT * 01075900 //* ERB3SOCK - RMF MONITOR III AUTHORIZATION EXIT * 01076000 //* IGGPRE00 - DASD PRE-ALLOCATION EXIT * 01076100 //* IFG0EX0B - PRE- OPEN EXIT * 01076200 //* * 01076300 //***FILE 223 IS IN IEBUPDTE SYSIN FORMAT WHICH CONTAINS A TSO * 01076400 //* PERFORMANCE MONITOR PACKAGE FROM PROCTOR AND * 01076500 //* GAMBLE * 01076600 //* * 01076700 //***FILE 224 IS A UTILITY TO MOVE SYS1.DUMP* DATASETS TO ARCHIVE/ * 01076800 //* DUMP TAPE, FORMAT TITLE INFORMATION FROM TAPE/DUMP, * 01076900 //* AND/OR CLEAN SYS1.DUMP* DATASETS. THIS PROGRAM IS * 01077000 //* FROM UNIVERSITY OF ILLINOIS AT CHICAGO CIRCLE. * 01077100 //* TACKED ON TO THE END OF THIS PROGRAM AFTER THE END * 01077200 //* STATEMENT IS THE JCL WE USE TO RUN IT * 01077300 //* * 01077400 //***FILE 225 IS AN OFFLOAD PROGRAM THAT WILL ALLOW THE USER TO * 01077500 //* OFFLOAD A PDS TO IEBUPDTE CONTROL CARD FORMAT. * 01077600 //* IT WILL ALLOW IEBUPDTE CONTROL CARDS TO BE PLACED * 01077700 //* BEFORE EACH MEMBER IN A SEQUENTIAL INPUT STREAM * 01077800 //* THIS PROGRAM WAS RECEIVED FROM YALE UNIVERSITY . * 01077900 //* THIS PROGRAM WAS WRITTEN BY MR DAVID B COLE * 01078000 //* * 01078100 //***FILE 226 IS A COMPARE PROGRAM RECEIVED FROM YALE UNIVERSITY * 01078200 //* THAT WAS WRITTEN BY MR DAVID B COLE. * 01078300 //* THE MACROS NEEDED TO ASSEMBLE THIS VERSION ARE CONTAINED IN * 01078400 //* FILE 408 OF THIS MVSMODS TAPE . FOR ADDITIONAL INFORMATION * 01078500 //* SEE THE COMMENTS IN THE SOURCE CODE ITSELF . * 01078600 //* * 01078700 //* THE CMPRSEQ PROGRAM COMPARES TWO SEQUENTIAL CARD * 01078800 //* IMAGE FILES AND REPORTS PRECISELY THE DIFFERENCES * 01078900 //* BETWEEN THE TWO. SUCH DIFFERENCES CAN CONSIST OF * 01079000 //* INSERTIONS, DELETIONS, AND REPLACEMENTS (OF EITHER * 01079100 //* EQUAL OR UNEQUAL SIZES). * 01079200 //* * 01079300 //* CMPRSEQ ACCOMPLISHES THIS BY READING THE TWO INPUT * 01079400 //* FILES ALTERNATELY AND COMPARING THE CARD IMAGES AS IT * 01079500 //* GOES ALONG. WHEN IT ENCOUNTERS TWO CARDS THAT * 01079600 //* MISMATCH, IT SAVES THEM AND CONTINUES TO READ THE TWO * 01079700 //* FILES ALTERNATELY. EACH TIME IT READS A CARD FROM ONE * 01079800 //* FILE, IT COMPARES IT TO ALL CARDS THAT IT HAS READ * 01079900 //* FROM THE OTHER FILE SINCE THE START OF THE MISMATCH. * 01080000 //* IF NO MATCH IS FOUND, THEN IT SAVES THAT CARD AND * 01080100 //* PROCEEDS TO READ THE NEXT CARD FROM THE OTHER FILE. * 01080200 //* CMPRSEQ CONTINUES ALTERNATING BACK AND FORTH IN THIS * 01080300 //* MANNER UNTIL IT HAS READ A CARD THAT DOES MATCH ONE * 01080400 //* OF THE SAVED CARDS FROM THE OTHER FILE. THE MISMATCH * 01080500 //* THEN CONSISTS OF ALL CARDS IN THE TWO SAVED STACKS * 01080600 //* THAT ARE BELOW THE TWO MATCHING CARDS. * 01080700 //* * 01080800 //* THE MISMATCHED CARDS ARE DUMPED OUT TO LOGGING * 01080900 //* DATASETS, AND THEN CMPRSEQ PROCEEDS TO LOOK FOR THE * 01081000 //* NEXT MISMATCHED BLOCK. * 01081100 //* * 01081200 //* LIMITATIONS * 01081300 //* * 01081400 //* CMPRSEQ WILL COMPARE ONLY CARD IMAGE FILES - I.E., * 01081500 //* FILES HAVING FIXED LENGTH RECORDS THAT ARE 80 BYTES * 01081600 //* LONG. * 01081700 //* * 01081800 //* CMPRSEQ WILL COMPARE ONLY ONE PAIR OF FILES PER * 01081900 //* INVOCATION. IT WILL NOT COMPARE AN ENTIRE PDS * 01082000 //* LIBRARY, ALTHOUGH IT WILL COMPARE A JCL SELECTED PDS * 01082100 //* LIBRARY MEMBER. * 01082200 //* * 01082300 //* IF AN INSERTION BLOCK (FOR EXAMPLE) CONTAINS A CARD * 01082400 //* WHOSE DUPLICATE ALREADY APPEARS COMMONLY THROUGHOUT * 01082500 //* THE FILES BEING COMPARED (E.G., THE "SPACE 1" * 01082600 //* ASSEMBLER LANGUAGE STATEMENT, ETC.), THEN THE * 01082700 //* COMPARISON MAY BECOME, TO A GREATER OR LESSER DEGREE, * 01082800 //* DESYNCHRONIZED DUE TO THE INSERTED CARD FINDING A * 01082900 //* MATCH WITH A PRE-EXISTING COPY OF THAT CARD IN THE * 01083000 //* OTHER FILE. CMPRSEQ PROVIDES MECHANISMS TO HELP DEAL * 01083100 //* WITH SYNCHRONIZATION PROBLEMS. (NOTE, SYNCHRONIZATION * 01083200 //* PROBLEMS CAN OCCUR, NOT JUST WITH INSERTED BLOCKS, * 01083300 //* BUT ALSO WITH DELETED BLOCKS AND WITH REPLACED * 01083400 //* BLOCKS). * 01083500 //* JCL * 01083600 //* * 01083700 //* EXEC CARD KEYWORD: REGION= * 01083800 //* * 01083900 //* CMPRSEQ'S MEMORY REQUIREMENTS VARY ACCORDING TO THE * 01084000 //* AGGREGATE SIZE OF THE LARGEST PAIR OF MISMATCHED * 01084100 //* BLOCKS ENCOUNTERED. IF A MEMORY SHORTAGE OCCURS, THEN * 01084200 //* CMPRSEQ TERMINATES IMMEDIATELY; CONSEQUENTLY, IT IS * 01084300 //* BEST TO PROVIDE A GENEROUS AMOUNT OF AVAILABLE * 01084400 //* MEMORY. USUALLY, REGION=1024K SHOULD BE ENOUGH. * 01084500 //* * 01084600 //* EXEC CARD KEYWORD: PARM=FULL * 01084700 //* * 01084800 //* BY DEFAULT CMPRSEQ WILL COMPARE TWO CARDS ONLY IN * 01084900 //* COLUMNS 1 THROUGH 72, THUS IGNORING THE SEQUENCE * 01085000 //* NUMBER FIELD. SPECIFYING PARM=FULL CAUSES CMPRSEQ TO * 01085100 //* EXAMINE EACH CARD IN ALL 80 COLUMNS. * 01085200 //* * 01085300 //* DDNAMES: OLD AND NEW * 01085400 //* * 01085500 //* ATTRIBUTES * 01085600 //* ACCESS METHOD QSAM * 01085700 //* DSORG PS * 01085800 //* RECFM F OR FB * 01085900 //* LRECL 80 * 01086000 //* BLKSIZE 80*N * 01086100 //* DEFAULTS (PS,F,80,80) * 01086200 //* * 01086300 //* THESE DDNAMES (OLD AND NEW) MUST DESIGNATE THE TWO * 01086400 //* FILES TO BE COMPARED. THEIR EXISTANCE IS REQUIRED. * 01086500 //* USUALLY, ONE FILE IS AN UPDATED (NEWER) VERSION OF * 01086600 //* THE OTHER, HENCE NAMES OLD AND NEW. * 01086700 //* * 01086800 //* DDNAME: SYSPRINT * 01086900 //* * 01087000 //* ATTRIBUTES * 01087100 //* ACCESS METHOD QSAM * 01087200 //* DSORG PS * 01087300 //* RECFM UA, VA, VBA, FA, OR FBA * 01087400 //* LRECL 133 OR LARGER * 01087500 //* BLKSIZE 133 OR LARGER * 01087600 //* DEFAULTS (PS,VBA,137,4096) * 01087700 //* * 01087800 //* THE SYSPRINT FILE IS OPTIONAL. IF IT IS AVAILABLE, * 01087900 //* THEN IT RECEIVES A LOG OF ALL DISCOVERED MISMATCHES. * 01088000 //* FOR EACH MISMATCHED BLOCK, BOTH THE OLD AND NEW * 01088100 //* VERSION OF THAT BLOCK IS SHOWN. * 01088200 //* * 01088300 //* DDNAMES: OLDLIST AND NEWLIST * 01088400 //* * 01088500 //* ATTRIBUTES * 01088600 //* ACCESS METHOD QSAM * 01088700 //* DSORG PS * 01088800 //* RECFM UA, VA, VBA, FA, OR FBA * 01088900 //* LRECL 133 OR LARGER * 01089000 //* BLKSIZE 133 OR LARGER * 01089100 //* DEFAULTS (PS,VBA,137,4096) * 01089200 //* * 01089300 //* BOTH OLDLIST AND NEWLIST ARE OPTIONAL. IF ONE (OR * 01089400 //* BOTH) ARE AVAILABLE, THEN A COPY OF THE OLD (OR NEW) * 01089500 //* FILE IS WRITTEN TO IT WITH THE LOCATIONS OF ALL * 01089600 //* MISMATCHES CLEARLY FLAGGED. * 01089700 //* * 01089800 //* DDNAME: IGNORE * 01089900 //* * 01090000 //* ATTRIBUTES * 01090100 //* ACCESS METHOD QSAM * 01090200 //* DSORG PS * 01090300 //* RECFM F OR FB * 01090400 //* LRECL 80 * 01090500 //* BLKSIZE 80*N * 01090600 //* DEFAULTS (PS,F,80,80) * 01090700 //* * 01090800 //* THE IGNORE FILE IS OPTIONAL. IF IT IS AVAILABLE, THEN * 01090900 //* IT IS USED TO HELP CONTROL THE POSSIBLE * 01091000 //* DESYNCHRONIZATION PROBLEMS DISCUSSED EARLIER. THE * 01091100 //* IGNORE FILE SHOULD CONTAIN COPIES OF CARD IMAGES THAT * 01091200 //* APPEAR REPEATEDLY THROUGHOUT THE FILES BEING * 01091300 //* COMPARED, AND ESPECIALLY APPEARING IN AREAS AFFECTED * 01091400 //* BY INSERTIONS AND DELETIONS. COPIES OF THESE CARDS, * 01091500 //* WHEN ENCOUNTERED DURING A MISMATCH RESOLUTION * 01091600 //* PROCESS, WILL NOT BE USED TO RESOLVE THE MISMATCH. BY * 01091700 //* THIS MEANS THE POSSIBILITY OF DESYNCHRONIZATION CAN * 01091800 //* BE REDUCED. * 01091900 //* * 01092000 //* DDNAME: SYNC * 01092100 //* * 01092200 //* ATTRIBUTES * 01092300 //* ACCESS METHOD QSAM * 01092400 //* DSORG PS * 01092500 //* RECFM F OR FB * 01092600 //* LRECL 80 * 01092700 //* BLKSIZE 80*N * 01092800 //* DEFAULTS (PS,F,80,80) * 01092900 //* * 01093000 //* UNFORTUNATELY, VERY LARGE FILES MAY HAVE TOO MANY * 01093100 //* COMMONLY REOCCURING CARDS FOR THE IGNORE FILE TO BE * 01093200 //* WHOLELY EFFECTIVE IN ELIMINATING DESYNCHRONIZATION * 01093300 //* PROBLEMS. IF THIS IS THE CASE, THEN THE SYNC FILE CAN * 01093400 //* BE PROVIDED TO FORCE RESYNCHRONIZATION AT PARTICULAR * 01093500 //* POINTS IN THE FILES BEING COMPARED. THIS FILE SHOULD * 01093600 //* CONTAIN COPIES OF ONE OR MORE CARDS EACH OF WHICH * 01093700 //* APPEARS EXACTLY ONCE IN BOTH THE OLD AND NEW FILES. * 01093800 //* THE CARDS IN THE SYNC FILE SHOULD APPEAR IN THE SAME * 01093900 //* ORDER BY WHICH THEY APPEAR IN THE OLD AND NEW FILES. * 01094000 //* THEY SHOULD REPRESENT POINTS IN THE OLD AND NEW FILES * 01094100 //* AT WHICH YOU WISH TO FORCE COMPARISON * 01094200 //* SYNCHRONIZATION. GENERALLY, SUCH POINTS WILL BE * 01094300 //* FOLLOWING THOSE AREAS WHERE OTHERWISE UNRECOVERABLE * 01094400 //* DESYNCHRONIZATION HAS OCCURED. * 01094500 //* * 01094600 //* WHEN CMPRSEQ ENCOUNTERS A RESYNCHRONIZATION POINT * 01094700 //* (I.E., WHEN IT HAS READ A CARD FROM ONE OF THE * 01094800 //* COMPARISON FILES THAT EXACTLY MACTHES THE NEXT CARD * 01094900 //* FROM THE SYNC FILE), IT WILL NOT READ ANY FURTHER * 01095000 //* FROM THAT FILE UNTIL IT READS THE IDENTICAL CARD FROM * 01095100 //* THE OTHER FILE. THIS HAS THE EFFECT OF FORCING THE * 01095200 //* RESOLUTION OF A CURRENT MISMATCH (IF ANY) AT THE * 01095300 //* RESINCHRONIZATION POINT. * 01095400 //* * 01095500 //* THE SYNC FILE IS OPTIONAL. IF IT IS AVAILABLE, THEN * 01095600 //* IS MUST BE CORRECTLY FORMED. IF IT IS NOT (I.E., IF * 01095700 //* IT IS OUT OF SEQUENCE, OR IF IT CONTAINS A CARD THAT * 01095800 //* DOES NOT APPEAR IN BOTH THE OLD AND NEW FILES), THEN * 01095900 //* THE CMPRSEQ RUN WILL FAIL. * 01096000 //* * 01096100 //* COMPLETION CODES * 01096200 //* * 01096300 //* 0 - PROCESSING HAS COMPLETED SUCCESSFULLY. NO * 01096400 //* MISMATCHES HAVE BEEN FOUND. * 01096500 //* * 01096600 //* 4 - PROCESSING HAS COMPLETED SUCCESSFULLY. AT LEAST * 01096700 //* ONE MISMATCH HAS BEEN FOUND. * 01096800 //* * 01096900 //* 12 - PROCESSING HAS FAILED. A MEMORY SHORTAGE HAS * 01097000 //* OCCURED. * 01097100 //* * 01097200 //* 16 - PROCESSING HAS ABORTED. ONE OF THE COMPARISON * 01097300 //* FILES (DDNAME OLD OR NEW) IS NOT AVAILABLE. * 01097400 //* * 01097500 //* * 01097600 //***FILE 227 IS IN IEBUPDTE FORMAT WHICH CONTAINS A SERIES OF * 01097700 //* PROGRAMS TO ALLOW CERTAIN TSO USERS TO PERFORM * 01097800 //* AUTHORIZED FUNCTIONS. FOR ADDITIONAL DOCUMENTATION * 01097900 //* SEE THE MEMBER CALLED $DOC * 01098000 //* * 01098100 //* THIS PDS CONTAINS THE FOLLOWING MEMBERS * 01098200 //* * 01098300 //* MEMBER DESCRIPTION * 01098400 //* * 01098500 //* AOFF PROGRAM TO TURN THE AUTHORIZATION BIT OFF * 01098600 //* AON PROGRAM TO TURN THE AUTHORIZATION BIT ON * 01098700 //* BEGIN USER MACRO * 01098800 //* CBT385 PROGRAM TO ATTACH IEBCOPY IN AN AUTHORIZED * 01098900 //* ENVIRONMENT FOR ANYONE * 01099000 //* CBT594 PROGRAM TO ATTACH IKJEFT01 IN AN AUTHORIZED * 01099100 //* ENVIRONMENT FOR ANYONE * 01099200 //* CBT390 VALIDATION OF USER IDS TO DO AN AUTHORIZED * 01099300 //* FUNCTION * 01099400 //* D0 PROGRAM TO ATTACH A LOAD MODULE VIA * 01099500 //* LINKLIST (AUTHORIZED) * 01099600 //* D0D0 SAME AS D0 EXCEPT BEFORE PGM IS ATTACHED * 01099700 //* THIS CODE GOES TO KEY 0 AND SUPERVISOR * 01099800 //* STATE. USED TO GET AROUND PTF UZ26385 * 01099900 //* (APAR OZ39506) FOR DIDOCS AND SPY. THIS * 01100000 //* PTF PUT THE CONSOLE BUFFERS INTO PROTECTED * 01100100 //* STORAGE (NICE PEOPLE) * 01100200 //* ENDALL USER MACRO * 01100300 //* HREADY HELP MEMBER FOR CBT594 (ALIAS READY) * 01100400 //* IGC0025D USER SVC TO TURN AUTHORIZE BIT ON/OFF * 01100500 //* SAVEALL USER MACRO * 01100600 //* XEQ PROGRAM TO ATTACH A LOAD MODULE VIA * 01100700 //* LINKLIST (NOT AUTHORIZED) * 01100800 //* LISTPW TSO CP TO LIST ENTRIES FROM THE PASSWORD * 01100900 //* DATA SET * 01101000 //* UADS TSO CP TO ALLOW AUTHORIZED USERS THE ABILITY * 01101100 //* TO CHANGE THEIR PSCB * 01101200 //* * 01101300 //***FILE 228 IS SOURCE FOR A SYNCSORT EXIT TO CONTROL "VSIO=REAL" * 01101400 //* BY TIME OF DAY * 01101500 //* * 01101600 //* SYNCSORT WILL MAKE HIMSELF NON-SWAPPABLE IF THE PARAMETER OF * 01101700 //* "VSIO=REAL" IS USED, INDICATING THE USE OF EXCPVR. THE PURPOSE * 01101800 //* OF THIS ROUTINE IS TO KEEP SYNCSORT FROM USING EXCPVR DURING * 01101900 //* THE DAYTIME WHEN THE LOAD ON THE SYSTEM IS HEAVY BUT ALLOWING * 01102000 //* THE MORE EFFICIENT EXCPVR USAGE WHEN THE SYSTEM IS NOT HEAVILY * 01102100 //* USED BY TSO AND OTHER ONLINE SYSTEMS. * 01102200 //* * 01102300 //* THIS ROUTINE WILL BE CALLED BY SYNCSORT TO DETERMINE WHETHER TO* 01102400 //* USE "VSIO=REAL" OR "VISO=NONE". IF THE TIME IS BETWEEN THE * 01102500 //* CUTOFFLO AND THE CUTOFFHI TIME, A PARM OF "VSIO=NONE" WILL BE * 01102600 //* PASSED TO SYNCSORT. IF THE TIME IS OUTSIDE OF THE CUTOFFLO AND * 01102700 //* CUTOFFHI TIMES A PARM OF "VSIO=REAL" WILL BE PASSED. * 01102800 //* * 01102900 //* THIS MODULE SHOULD BE LINKEDITED INTO THE LIBRARY THAT * 01103000 //* CONTAINS SYNCSORT WITH THE NAME $ORTPARM AND "EXTRA FEATURE * 01103100 //* #20" SHOULD BE TURNED ON. ALSO, NOTE THE DESCRIPTION OF THE * 01103200 //* "PARMEXIT FACILITY" IN SECTION 3 OF THE SYNCSORT PROGRAMMER'S * 01103300 //* GUIDE. OTHER PERFORMANCE PROBLEMS CAUSED BY SYNCSORT MAY BE * 01103400 //* OVERCOME BY THE USE OF DEFAULT OPTION #7 TO LIMIT THE AMOUNT * 01103500 //* OF MAIN STORAGE USED AND EXTRA FEATURES #'S 14, 22, AND 24 (TO * 01103600 //* TURN OFF STIMER) * 01103700 //* * 01103800 //***FILE 229 IS A TAPE COPY FROM THE AIR FORCE FINANCE CENTER IN * 01103900 //* DENVER. THIS PGM WILL COPY ALL FILES OF AN INPUT * 01104000 //* TAPE TO ONE TO TEN OUTPUT TAPES. THE ORIGINAL * 01104100 //* PURPOSE OF THIS PROGRAM WAS FOR COPYING THE * 01104200 //* SHARE MVS MODS TAPE. THIS PROGRAM IS ALSO RUN AT * 01104300 //* CBT TO GENERATE COPIES OF THIS TAPE * 01104400 //* * 01104500 //***FILE 230 IS A JES2 MOD FROM GTE LABORATORIES TO $DF TO SHOW * 01104600 //* THE NUMBER OF RECORDS TO PRINT * 01104700 //* * 01104800 //***FILE 231 IS A JES2 MOD FROM GTE LABORATORIES TO ALLOW PRINTERS * 01104900 //* TO BE SET TO SELECT JOBS BY THE NUMBER OF LINES * 01105000 //* * 01105100 //***FILE 232 IS A JES2 MOD FROM GTE LABORATORIES TO NOTIFY TSO * 01105200 //* USERS OF THE MAX CONDITION CODE OR ABEND CODE * 01105300 //* * 01105400 /**********************************************************************/01105500 //***FILE 233 IS FROM GTE SYLVANIA IN DANVERS MASS AND SHOULD * 01105600 //* BENEFIT PANSPOOL USERS (FILE 067) THAT EITHER HAVE NO * 01105700 //* ACCESS TO A PL1 COMPILIER OR JUST WANT TO SIMPLIFY * 01105800 //* THE SYSTEM . SEE THE CODE FOR COMPLETE DETAILS * 01105900 //* * 01106000 //***FILE 234 IS AN UPDATED COPY OF THE TSO CP 'PRINTOFF' TO ALLOW * 01106100 //* FOR 3211 CONTROL (IE FCB,UCS,TRAIN,ETC) FROM GTE LABS * 01106200 //* * 01106300 //***FILE 235 IS AN LPA/SVC REAL TIME LOADER AND REPLACEMENT AND * 01106400 //* PERFORMANCE TOOL FROM CHYRSLER PARTS * 01106500 //* MODULE CONCEPTS REAL TIME, MLPA SIMULATION, SVC * 01106600 //* REPLACEMENT AND MODULE FIXING (FOR PERFORMANCE AND * 01106700 //* EASE OF IN-CORE ZAP) * 01106800 //* THIS MODULE IS PAGEABLE * 01106900 //* LOADED MODULES AND SVCS ARE PLACED IN FIXED CSA * 01107000 //* MEMORY * 01107100 //* WHY IN FIXED MEMORY * 01107200 //* 1) TYPE 1 AND 2 SVC'S MUST BE RESIDENT IN THE * 01107300 //* NUCLEUS (OR AT LEAST APPEAR TO BE SO) * 01107400 //* 2) AS THIS IS A TEST TOOL THE ASSUMPTION IS THAT * 01107500 //* IN-CORE ZAPS MAY BECOME NECESSARY AND YOU ARE * 01107600 //* ASSURED THE MODULE WILL BE IN CORE AT ALL TIMES * 01107700 //* (NOT PAGED OUT) * 01107800 //* 3) FOR PERFORMANCE TESTING, A DUPLICATE COPY OF A * 01107900 //* CURRENTLY PAGEABLE MODULE MAY BE RE-LOADED AND * 01108000 //* YOU WILL BE ABLE TO EXAMINE THE PERFORMANCE GAINS * 01108100 //* THAT WOULD RESULT IN THE PERMANENT FIXING OF THE * 01108200 //* MODULE VIA IEAFIXXX * 01108300 //* * 01108400 //* FOR ADDITIONAL DOCUMENTATION ON THIS PROGRAM SEE THE * 01108500 //* SOURCE CODE * 01108600 //* * 01108700 //***FILE 236 IS THE HELP DATA SET FOR THE PRINTOFF COMMAND FROM GTE* 01108800 //* CONTAINED IN FILE 234 OF THIS TAPE * 01108900 //* * 01109000 //***FILE 237 IS A PROGRAM FROM THE FLORIDA POWER COMMISSION THAT * 01109100 //* WILL PRODUCE THE FOLLOWING TWO REPORTS FROM A LOAD * 01109200 //* LIBRARY * 01109300 //* 1. LIST ALL CSECT NAMES WITHIN EACH MEMBER. * 01109400 //* 2. LIST ALL MEMBERS WHICH REFERENCE EACH * 01109500 //* CSECT NAME * 01109600 //* * 01109700 //***FILE 238 IS AN RMF POST PROCESSOR FROM CARRIER CORPORATION * 01109800 //* THIS PROGRAM WILL READ SMF RECORDS THAT CONTAIN RMF RECORDED * 01109900 //* RECORDS AND SELECT THE RMF RECORDS FOR ANALYSIS. THIS INPUT * 01110000 //* SHOULD BE IN THE SEQUENCE AS RECORDED BY RMF EITHER IN THE * 01110100 //* SYS1.MANX/Y DATA SETS OR ON TAPE. * 01110200 //* * 01110300 //* REPORTS: A REPORT IS PRINTED SHOWING THE: * 01110400 //* DEVICE ACTIVITY RATE PER SECOND, * 01110500 //* DEVICE BUSY PERCENT, * 01110600 //* QUEUE LENGTH * 01110700 //* FOR EACH UNIT SPECIFIED AND AN AVERAGE FOR THE * 01110800 //* FIRST 5 DAYS ENCOUNTERED ON THE INPUT DATA SET * 01110900 //* UNLESS A DATE PARM IS USED. * 01111000 //* THE VOLUME SERIAL NUMBER IS PRINTED FOR THE * 01111100 //* UNIT SPECIFIED IF THERE HAS BEEN NO CHANGE IN * 01111200 //* VOLSER. IF THERE WAS A CHANGE IN VOLSER, "***" * 01111300 //* IS SHOWN INSTEAD OF A VOLSER. * 01111400 //* * 01111500 //* IF THE UNITS ARE SPECIFIED IN PAIRS, THERE IS A * 01111600 //* TOTAL SECTION PRINTED DEPICTING THE ACTIVITY * 01111700 //* OF THE LOGICAL PAIR. THE UNITS OF THE PAIR ARE * 01111800 //* SHOWN IN THE VOLSER FIELD AND "TOT" WILL APPEAR * 01111900 //* IN THE UNIT FIELD. * 01112000 //* * 01112100 //* DD'S : DDNAME CONTENTS * 01112200 //* ------ -------- * 01112300 //* INPUT RMF TYPE 74 RECORDS * 01112400 //* * 01112500 //* PRINT PRINTED REPORT * 01112600 //* * 01112700 //* SHIFTS ENDING TIMES FOR PERIOD BREAKDOWNS * 01112800 //* * 01112900 //* SPECIFY ENDING TIMES IN MILITARY * 01113000 //* TIME - ONE PER RECORD STARTING * 01113100 //* IN POSITION 1 . EG. 1300 * 01113200 //* * 01113300 //* UNITS SINGLE AND PAIRED UNITS TO REPORT * 01113400 //* * 01113500 //* SPECIFY SINGLE UNITS STARTING IN * 01113600 //* POSITION 1 - ONE PER RECORD * 01113700 //* EG. 142 * 01113800 //* * 01113900 //* SPECIFY PAIRED UNITS STARTING IN * 01114000 //* POSITION 1 - ONE PAIR PER RECORD - * 01114100 //* ENCLOSED IN PARENTHESIS - SEPARATE * 01114200 //* BY A COMMA. EG. (143,163) * 01114300 //* * 01114400 //* * 01114500 //* PARMS: TIME - LIMIT THE TIMES SELECTED * 01114600 //* EG. TIME(AAAA,BBBB) * 01114700 //* DATE - LIMIT THE DATES SELECTED * 01114800 //* EG. DATE(YYDDD,YYDDD) START/END IN JULIAN * 01114900 //* * 01115000 //* IF BOTH PARMS ARE USED, THEY MUST BE * 01115100 //* SEPARATED BY A COMMA. * 01115200 //* EG. TIME(0730,1200),DATE(78201,78206) * 01115300 //* * 01115400 //* USER ABEND: ABEND 0001 - INVALID PARM VALUE * 01115500 //* * 01115600 //* * 01115700 //* LIMITATIONS: EACH UNIT NUMBER SHOULD BE SPECIFIED ONLY ONCE. * 01115800 //* THERE IS A LIMIT OF 200 UNIT NUMBERS. * 01115900 //* SHIFT ENDING TIMES ARE LIMITED TO 12 ENTRIES. * 01116000 //* A DEFAULT OF 2400 IS ENTERED AS THE LAST SHIFT * 01116100 //* ENDING TIME * 01116200 //* * 01116300 //***FILE 239 IS A DYNAMIC TRACE FACILITY FROM MCDONNELL DOUGLAS * 01116400 //* AUTOMATION COMPANY. * 01116500 //* THE MVS DYNAMIC TRACE FACILITY IS AN AUTHORIZED * 01116600 //* PROGRAM WHICH, WHEN INVOKED, PROVIDES THE CAPABILITY * 01116700 //* OF STARTING AND STOPPING THE MVS INTERNAL TRACE * 01116800 //* FEATURE INDEPENDENT OF THE STATUS OF TRACE AT THE * 01116900 //* TERMINATION OF THE IPL PROCEDURE * 01117000 //* * 01117100 //***FILE 240 IS THE DCMS USER'S GUIDE VERSION 2 RELEASE 2 NOV 1978 * 01117200 //* RECFM=VBA,LRECL=137,BLKSIZE=32747 * 01117300 //* * 01117400 //***FILE 241 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE DCMS SOURCE * 01117500 //* LIBRARY VERSION 2 RELEASE 2 NOV 1978 * 01117600 //* * 01117700 //***FILE 242 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE DCMS MACRO * 01117800 //* LIBRARY VERSION 2 RELEASE 2 NOV 1978 * 01117900 //* * 01118000 //***FILE 243 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE DCMS MVS/SRM * 01118100 //* MACRO LIBRARY VERSION 2 RELEASE 2 NOV 1978 * 01118200 //* * 01118300 //***FILE 244 IS IN IEBUPDTE FORMAT WHICH CONTAINS THE DCMS OBJECT * 01118400 //* LIBRARY VERSION 2 RELEASE 2 NOV 1978 * 01118500 //* * 01118600 //***FILE 245 IS IN IEBCOPY FORMAT WHICH CONTAINS THE DCMS LOAD * 01118700 //* MODULE LIBRARY VERSION 2 RELEASE 2 NOV 1978 * 01118800 //* * 01118900 //***FILE 246 IS A SERIES OF SUPERZAPS TO MVS. THESE ZAPS WERE * 01119000 //* ORIGINALLY SENT TO THE SHARE MVS PERFORMANCE PROJECT * 01119100 //* AND WHILE NOT ALWAYS PERFORMANCE ORIENTED SOME APPEARED* 01119200 //* TOO GOOD TO THROW AWAY - SO HERE THEY ARE * 01119300 //* USE AT YOUR OWN RISK * 01119400 //* * 01119500 //***FILE 247 IS A MODIFIED COPY OF THE RMF POST PROCESSOR CONTAINED* 01119600 //* IN FILE 190 OF THIS TAPE TO PROCESS MVS/SE DATA. SEE * 01119700 //* THE WRITE-UP UNDER FILE 190 FOR ADDITIONAL INFORMATION * 01119800 //* * 01119900 //***FILE 248 IS A PROGRAM TO SPLIT FROM ANY SMF FILE THE FOLLOWING * 01120000 //* RECORDS * 01120100 //* SMF DATA * 01120200 //* MVS RMF DATA * 01120300 //* MVS/SE RMF DATA * 01120400 //* * 01120500 //***FILE 249 IS THE JCL USED TO RUN THE PROGRAM IN FILE 248 * 01120600 //* * 01120700 //***FILE 250 CONTAINS RMF EXITS AND MACROS TO INCLUDE IMS * 01120800 //* TRANSACTION COUNT IN REGULAR RMF WORKLOAD REPORT AND * 01120900 //* SMF RECORD IMS * 01121000 //* * 01121100 //***FILE 251 IS A PROGRAM FROM UNION CARBIDE TO SYNCHRONIZE RMF * 01121200 //* SUCH THAT THE RECORDING STARTS ON THE HOUR RATHER * 01121300 //* THAN BEING DEPENDENT UPON WHEN THE START COMMAND * 01121400 //* IS ISSUED * 01121500 //* THIS PROGRAM IS USED TO SYNCHRONIZE RMF SUCH THAT RECORDING * 01121600 //* STARTS ON THE HOUR(USING ONE HOUR RECORDING INTERVALS), RATHER* 01121700 //* THAN BEING DEPENDENT UPON WHEN THE START COMMAND IS ISSUED. * 01121800 //* IF THE CURRENT TIME IS LESS THAN 15 MINUTES BEFORE THE HOUR, * 01121900 //* THE PROGRAM GOES INTO A TIMER WAIT UNTIL THE TIME HAS ELAPSED.* 01122000 //* IT THEN ISSUES, THROUGH THE SVC 34 FACILITY, A START COMMAND * 01122100 //* FOR RMF AND TERMINATES ITSELF. * 01122200 //* IF THE CURRENT TIME IS IN EXCESS OF 15 MIN. BEFORE THE HOUR, * 01122300 //* A START COMMAND FOR RMF IS IMMEDIATELY ISSUED THROUGH THE * 01122400 //* SVC 34 FACILITY. THE PROGRAM THEN GOES INTO A TIMER WAIT FOR * 01122500 //* THE CALCULATED TIME TO THE NEXT HOUR, MINUS 3 MINUTES. AT THE* 01122600 //* END OF THAT TIME, RMFTIMER THEN ISSUES A STOP COMMAND FOR RMF * 01122700 //* AND GOES INTO A TIMER WAIT FOR THREE MINUTES. THIS INTERVAL * 01122800 //* ALLOWS RMF TO TERMINATE PRIOR TO ISSUING THE NEXT START * 01122900 //* COMMAND. WHEN THE THREE MINUTE TIMER INTERVAL HAS COMPLETED, * 01123000 //* THE PROGRAM THEN ISSUES A START COMMAND FOR RMF AND TERMINATES* 01123100 //* ITSELF * 01123200 //* * 01123300 //***FILE 252 IS DYNLIST FROM STANDARD OIL IT WILL SHOW WHAT DEVICES* 01123400 //* MAKE UP A GENERIC OR ESOTERIC NAME IN YOUR SYSTEM . * 01123500 //* THERE ARE TWO VERSIONS CONTAINED IN THIS FILE , ONE * 01123600 //* VERSION IS FOR XA AND THE OTHER IS NOT . THE XA VER * 01123700 //* HAS TO RUN AC=1 * 01123800 //* * 01123900 //***FILE 253 IS SEVERAL ZAPS FROM STANDARD OIL IN IEBUPDTE FORMAT * 01124000 //* * 01124100 //***FILE 254 IS SEVERAL SAS SOURCE PROGRAMS THAT WILL PROCESS * 01124200 //* RMF DATA FROM STANDARD OIL * 01124300 //* * 01124400 //***FILE 255 IS AN RMF POST PROCESSOR FROM SOUTHERN CALIFORNIA * 01124500 //* EDISON. THIS PROGRAM REQUIRES THE PLI TRANSIENT * 01124600 //* LIBRARY AT EXECUTION TIME AND MUST BE COMPILED * 01124700 //* WITH RELEASE 3 OR LATER OF THE PLI OPTIMIZER. THE * 01124800 //* LOAD MODULE IS IN FILE 035 AND IS CALLED RMFPRT * 01124900 //* * 01125000 //***FILE 256 IS A JES3 MODIFICATION FROM TWA. THIS WILL ALLOW * 01125100 //* 3277 CONSOLES TO BE USED AS A JES3 CONSOLE (I THINK) * 01125200 //* * 01125300 //***FILE 257 IS IN IEBUPDTE FORMAT FROM GTE AND CONTAINS THE DATA * 01125400 //* NECESSARY FOR VTAM TRACING IN THE FORM OF * 01125500 //* 1. AN RMF INTERVAL EXIT * 01125600 //* 2. A MOD TO VTAM TO CLEAR HWM STATS * 01125700 //* 3. A PROGRAM TO PRINT THE STATS RECORD WRITTEN * 01125800 //* BY THE RMF INTERVAL EXIT * 01125900 //* 4 A PROGRAM TO PRINT THE NCP TUNING * 01126000 //* STATISTICS RECORD WRITTEN TO SMF BY VTAM * 01126100 //* * 01126200 //***FILE 258 IS A SQUISH PGM WITH THE FOLLOWING ATTRIBUTES: * 01126300 //* THIS VERSION OF SQUISHVOL SUPPORTS BOTH VSAM AND 3350'S. * 01126400 //* IT DOES NOT USE AN I/O APPENDAGE AND MUST BE IN AN * 01126500 //* AUTHORIZED LIBRARY. SOFT ERROR RECOVERY IS PROVIDED USING * 01126600 //* THE DOS CONTAMINATION BIT IF THE NUMBER OF FREE SPACE * 01126700 //* ELEMENTS EXCEEDS 26 IN EITHER PHASE 1 OR PHASE 2 OF THE * 01126800 //* COPY. THE OS CATALOG DSCB IS MIGRATED TO THE BEGINNING OF * 01126900 //* THE VTOC. MEMBER ASSEM COMTAINS SAMPLE JCL FOR ASSEMBLY * 01127000 //* AND LINKAGE EDIT * 01127100 //* * 01127200 //***FILE 259 IS A PDS THAT CONTAINS TSO.CLISTS FROM KAISER * 01127300 //* THE DCB OF THIS PDS IS LRECL=255,BLKSIZE=19060,RECFM=VB * 01127400 //* AND IS IN IEBCOPY FORMAT * 01127500 //* * 01127600 //***FILE 260 IS A VERY QUICK MAPPING PROGRAM. IT WILL PRODUCE A * 01127700 //* LISTING OF EVERY DATA SET ON A VOLUME PLUS CALCULATE THE * 01127800 //* FREE SPACE, FREE DSCBS, ETC. OPTIONALLY VIA PARM INFORMA- * 01127900 //* TION IT WILL PRODUCE THE FOLLOWING * 01128000 //* * 01128100 //* PARM=MAP PRODUCES A TRACK MAP OF THE VOLUME * 01128200 //* PARM=PDS LIST ALL PDS DIRECTORIES ON THE VOLUME * 01128300 //* PARM=ISAM LIST ISAM REORG INFORMATION FOR DATASETS * 01128400 //* PARM=EXT LIST THE EXTENTS OF THE DATASETS * 01128500 //* PARM=DUMP LIST IN HEX ALL DSCBS ON THE VOLUME * 01128600 //* PARM=EMPTY LIST ONLY DATASETS THAT ARE EMPTY * 01128700 //* PARM=MODEL LIST ONLY MODEL DSCBS * 01128800 //* PARM=SDUMP LIST IN HEX FORMAT 4 AND 5 DSCBS * 01128900 //* PARM=VOLS ONLY USE DDNAMES OF VOLUMEXX * 01129000 //* PARM=JDATE LIST CREATION/EXPIRATION DATES IN JULIAN * 01129100 //* * 01129200 //* THIS CODE WILL SUPPORT 3380'S * 01129300 //* THIS CODE WILL SUPPORT INDEXED VTOCS * 01129400 //* * 01129500 //* ADDITIONAL COMMENTS ARE DOCUMENTED IN THE SOURCE * 01129600 //* THIS PROGRAM MUST BE LINKED AS AC=1 * 01129700 //* * 01129800 //******************************************************************* 01129900 //*** CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT *** 01130000 //*** *** 01130100 //*** A USER OF THIS CODE DECIDED TO USE A PARM OF RESET, WHICH *** 01130200 //*** WILL RESET THE HIGH WATER MARK IN THE VTOC. IT DID ALRIGHT *** 01130300 //*** BUT IT SET IT TO 512 (ON A 3350) AND THE ARM BOUNCED ALL *** 01130400 //*** OVER THE PLACE. BE CAREFUL !!!!!!! *** 01130500 //*** *** 01130600 //*** CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT *** 01130700 //******************************************************************* 01130800 //* * 01130900 //***FILE 261 IS A ZAP TO ALLOW THE SMF BUFFER SIZE TO BE GREATER * 01131000 //* THAN THE CURRENT LIMIT OF 4096 (8192/2) ONLY FOR USE * 01131100 //* WITH NON-VSAM SMF DATA SETS (I.E. BEFORE MVS/SE REL 2) * 01131200 //* * 01131300 //* THE VALUE SUPPLIED AT INITIALIZATION IS MULTIPLIED BY 8 * 01131400 //* BEFORE THE GETMAIN FOR BUFFERS IS DONE, AND BEFORE THIS * 01131500 //* VALUE IS DIVIDED BY 2 TO SET UP THE ACTUAL BUFFERS. * 01131600 //* * 01131700 //* FOR EXAMPLE: TO WRITE FULL TRACK SMF BUFFER RECORDS SPECIFY * 01131800 //* THE BUF= KEYWORD IN THE SMF INITIALIZATION * 01131900 //* MEMBER IN PARMLIB AS FOLLOWS: * 01132000 //* * 01132100 //* 3350 ---- BUF=4750 (4750*8/2) GIVES A 19000 BYTE BUFFER * 01132200 //* 3330 ---- BUF=3250 (3250*8/2) GIVES A 13000 BYTE BUFFER * 01132300 //* * 01132400 //* TO ARRIVE AT A VALUE TO SPECIFY IN THE SMF BUF= PARAMETER * 01132500 //* DECIDE UPON YOUR SMF BUFFER SIZE AND DIVIDE BY 4 * 01132600 //* * 01132700 //* FOR EXAMPLE: TO WRITE A -- * 01132800 //* 19K BUFFER ON A 3350 - 19K/4=4750 * 01132900 //* 13K BUFFER ON A 3330 - 13K/4=3250 * 01133000 //* * 01133100 //***FILE 262 IS A FILE WHICH SHOWS A VERY SHORT (AND I DO MEAN * 01133200 //* SHORT) INDEX OF WHAT IS ON THIS TAPE IN ALPHABETICAL * 01133300 //* ORDER. THIS IS GENERATED FROM THE 'FILE STATUS * 01133400 //* SECTION' OF THIS TAPE (IE FILE 1) * 01133500 //* * 01133600 //***FILE 263 IS A PROGRAM THAT WILL READ A GDG INDEX STRUCTURE AND * 01133700 //* CHANGE THE NUMBER OF ENTRIES DEFINED BY UNCATALOGING * 01133800 //* ALL ENTRIES UNDER THE STRUCTURE, DELETING THE INDEX * 01133900 //* STRUCTURE, REBUILDING THE INDEX STRUCTURE, AND * 01134000 //* RECATALOGING THE NECESSARY NUMBER OF ENTRIES UNDER THE * 01134100 //* REBUILT INDEX. IF THE NEW INDEX CONTAINS LESS ENTRIES * 01134200 //* THAN THE PREVIOUS INDEX AND THERE ARE GENERATIONS LEFT * 01134300 //* OVER AFTER THE RE-CATALOGING, THE REMAINING GENERATIONS* 01134400 //* ARE SCRATCHED IF THEY RESIDE ON A DASD DEVICE . * 01134500 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT - SEE THE SOURCE * 01134600 //* FOR ADDITIONAL INFORMATION * 01134700 //* * 01134800 //***FILE 264 IS A PROGRAM TO PERFORM A HIGH SPEED COPY OF A CVOL * 01134900 //* CATALOG FROM ONE DASD VOLUME TO ANOTHER. THIS PROGRAM * 01135000 //* WAS WRITTEN MAINLY TO MAKE SYSTEM BACKUP A MORE * 01135100 //* REASONABLE PROCESS. * 01135200 //* THE PRESENT DEVICES SUPPORTED ARE THE 2301, 2303, 2311 * 01135300 //* 2314, 2305-I, * 01135400 //* 2305-II,3330, * 01135500 //* 3330-1,3350. * 01135600 //* * 01135700 //***FILE 265 IS THE JES2 PERFORMANCE MONITOR UPDATED FOR SP1.3 AND * 01135800 //* SP1.2 FROM MELLON BANK * 01135900 //* * 01136000 //* THE JES2 PERFORMANCE ANALYSIS SYSTEM PROVIDES A MEANS * 01136100 //* FOR A SYSTEMS PROGRAMMER INVOLVED IN THE MAINTENANCE * 01136200 //* AND EXTENSION OF JES2 RELEASE SP1.2 AND SP1.3 TO * 01136300 //* OBTAIN INFORMATION ABOUT JES2 PERFORMANCE ON A DYNAMIC * 01136400 //* AND USEFUL BASIS IN A REAL WORLD ENVIRONMENT . * 01136500 //* THE FOLLOWING REPORTS ARE PROVIDED : * 01136600 //* 1 JES2 CPU UTILIZATION * 01136700 //* 2 TIME JES2 SPENT PROCESSING A PAGE FAULT * 01136800 //* 3 JES2 ACTIVITY THAT RESULTS IN CREATION OF SVRB ' S * 01136900 //* AND IRB ' S * 01137000 //* 4 JES2 USAGE OF SVC'S THAT CREATE SVRB ' S * 01137100 //* 5 JES2 SPACE UTILIZATION * 01137200 //* 6 HISTOGRAMS OF SPOOL , TP , CONSOLE , AND SMF BUFFER * 01137300 //* UTILIZATION * 01137400 //* 7 A HISTOGRAM OF STIMER INTERVAL VALUES OBTAINED * 01137500 //* WHEN THE PERFORMANCE MONITOR DETECTED THAT JES2 * 01137600 //* WAS EXECUTING THE STIMER MACRO * 01137700 //* 8 AN ANALYSIS OF PSW ADDRESSES TO DETERMINE AREAS * 01137800 //* IN JES2 CODE THAT ARE FREQUENTLY USED * 01137900 //* 9 A SUMMARY OF PROCESSOR TIME SPENT IN EACH JES2 * 01138000 //* MODULE * 01138100 //* 10 AN ANALYSIS OF PAGE FAULT ADDRESSES TO DETERMINE * 01138200 //* AREAS IN JES2 THAT GET FREQUENT PAGE FAULTS * 01138300 //* * 01138400 //***FILE 266 IS THE # COMMAND SUBSYSTEM WITH THE TSO INTERFACE * 01138500 //* AND THE STANDALONE MONITOR IN IEBUPDTE SYSIN FORMAT. * 01138600 //* * 01138700 //* THIS VERSION OF THE # COMMAND SUBSYSTEM WILL RUN ON THE * 01138800 //* FOLLOWING LEVELS OF THE MVS OPERATING SYSTEM * 01138900 //* * 01139000 //* 01. NON MVS/SE | SOME COMMANDS | * 01139100 //* 02. MVS/SE RELEASE 1 | ALL COMMANDS | * 01139200 //* 03. MVS/SE RELEASE 2 | ALL COMMANDS EXCEPT #IC | * 01139300 //* | AND #IR | * 01139400 //* 04. MVS/SP1.0 & SP1.1 | ALL COMMANDS * 01139500 //* 05. MVS/SP1.3 | ALL COMMANDS * 01139600 //* * 01139700 //* * 01139800 //* * 01139900 //******************************************************************* 01140000 //* --------------------------------------------------------------- * 01140100 //* ************************************************************* * 01140200 //* ----------------------------------------------------------- * 01140300 //* ******************************************************** * 01140400 //* ------------------------------------------------------ * 01140500 //* **************************************************** * 01140600 //* ------------------------------------------------- * 01140700 //* *********************************************** * 01140800 //* --------------------------------------------- * 01140900 //* ******************************************* * 01141000 //* ----------------------------------------- * 01141100 //* *************************************** * 01141200 //* ------------------------------------- * 01141300 //* *********************************** * 01141400 //* --------------------------------- * 01141500 //* ******************************* * 01141600 //* ----------------------------- * 01141700 //* *************************** * 01141800 //* ------------------------- * 01141900 //* *********************** * 01142000 //* --------------------- * 01142100 //* ******************* * 01142200 //* ----------------- * 01142300 //* *************** * 01142400 //* ------------- * 01142500 //* *********** * 01142600 //* --------- * 01142700 //* ******* * 01142800 //* ----- * 01142900 //* *** * 01143000 //* - * 01143100 //* * * 01143200 //* * 01143300 //* # # * 01143400 //* # # * 01143500 //* # # * 01143600 //* # # * 01143700 //* # # * 01143800 //* # # * 01143900 //* ####################### * 01144000 //* # # * 01144100 //* # # * 01144200 //* # # * 01144300 //* # # * 01144400 //* # # * 01144500 //* ###################### * 01144600 //* # # * 01144700 //* # # * 01144800 //* # # * 01144900 //* # # * 01145000 //* # # * 01145100 //* # # * 01145200 //* * 01145300 //* * 01145400 //******************************************************************* 01145500 //* * 01145600 //* * 01145700 //* ## ## TTTTTTTTTTTT SSSSSSSSSSS OOOOOOOOOOO * 01145800 //* ## ## TTTTTTTTTTTT SSSSSSSSSSSSS OOOOOOOOOOOOO * 01145900 //* ## ## TT SS SS OO OO * 01146000 //* ############# TT SS OO OO * 01146100 //* ############# TT SS OO OO * 01146200 //* ## ## TT SSSSSSSSSSSS OO OO * 01146300 //* ## ## TT SSSSSSSSSSSS OO OO * 01146400 //* ############# TT SS OO OO * 01146500 //* ############# TT SS OO OO * 01146600 //* ## ## TT SS SS OO OO * 01146700 //* ## ## TT SSSSSSSSSSSSS OOOOOOOOOOOOO * 01146800 //* ## ## TT SSSSSSSSSSS OOOOOOOOOOO * 01146900 //* * 01147000 //* * 01147100 //******************************************************************* 01147200 //* * 01147300 //* OUTPUT - * 01147400 //* * 01147500 //* FOR ALL COMMANDS A HEADER LINE IS PRINTED INDICATING * 01147600 //* THE COMMAND ID, ISSUING CONSOLE ID, SYSTEM ID AND DATE.* 01147700 //* SINCE ALL COMMAND OUTPUT IS ECHOED IN THE SYSTEM LOG, * 01147800 //* THIS PROVIDES AN EASY IDENTIFICATION METHOD FOR * 01147900 //* WHICH SYSTEM AND WHAT DATE THE SYSTEM LOG REPRESENTS. * 01148000 //* * 01148100 //* EXAMPLE - * 01148200 //* * 01148300 //* --- CMD SBSYS (#X) L=10 K168 80.123 --- * 01148400 //* * 01148500 //* THIS VERSION MAY BE RUN IN ANY OF THE FOLLOWING * 01148600 //* MODES OF OPERATION: * 01148700 //* * 01148800 //* A. OPERATOR CONSOLE MODE * 01148900 //* B. CROSS-SYSTEM MODE * 01149000 //* C. TSO LINE MODE * 01149100 //* D. TSO FULL SCREEN MODE * 01149200 //* E. STANDALONE MODE FROM A 3270 DEVICE * 01149300 //* (1) THE FOLLOWING 3 DISPLAYS RUN UNDER THIS MODE * 01149400 //* AND THE TSO FULL SCREEN MODE ONLY. YOU MUST * 01149500 //* ALSO RUN YOUR TSO SESSION AUTHORIZED IF YOU * 01149600 //* WANT TO USE ANY OF THE FOLLOWING COMMANDS * 01149700 //* BECAUSE THEY USE TEST CHANNEL INSTRUCTIONS. * 01149800 //* HOWEVER YOU CAN USE ALL THE OTHER COMMANDS * 01149900 //* IF YOU DON'T WANT TO RUN AUTHORIZED. * 01150000 //* A. CSCGA03D - JOB ACTIVITY MONITOR (A) * 01150100 //* B. CSCGE03D - EXCEPTION DISPLAY MONITOR (E) * 01150200 //* C. CSCGO03D - I/O ACTIVITY MONITOR (O) * 01150300 //* * 01150400 //* (2) IN THE SOURCE AT LABEL 'THRTSOGP' FOR THE * 01150500 //* FOLLOWING COMMANDS: * 01150600 //* A. CSCGA03D - JOB ACTIVITY MONITOR (A) * 01150700 //* B. CSCGE03D - EXCEPTION DISPLAY MONITOR (E) * 01150800 //* C. CSCGO03D - I/O ACTIVITY MONITOR (O) * 01150900 //* IS THE DEFAULT TSO PERFORMANCE GROUP NUMBER * 01151000 //* (DEFAULT IS 13). BE SURE THAT LABEL * 01151100 //* 'THRTSOGP' IS SET TO A VALID TSO PERFOR- * 01151200 //* MANCE GROUP FOR YOUR INSTALLATION, ELSE * 01151300 //* YOU WILL NOT GET ANY OUTPUT, JUST THE * 01151400 //* MESSAGE: ERROR IN CONTROL BLOCKS RETRY * 01151500 //* COMMAND * 01151600 //* * 01151700 //* (3) AT LABEL 'THRIVNTVL' FOR THE EXCEPTION * 01151800 //* DISPLAY MONITOR ARE ALL THE THRESHOLD VALUES * 01151900 //* FOR ALL THE DISPLAY LIMITS. * 01152000 //* * 01152100 //* (4) FOR ADDITONAL INFORMATION ON THE MONITOR * 01152200 //* DISPLAYS SEE BELOW WHERE ALL THE FULL SCREEN * 01152300 //* COMMANDS ARE DOCUMENTATED. * 01152400 //* * 01152500 //* ERROR RECOVERY - * 01152600 //* * 01152700 //* ALL COMMANDS EXECUTE IN AN ESTAE ENVIRONMENT, * 01152800 //* AND ISSUE APPROPRIATE MESSAGES IF AN ABEND OCCURS. * 01152900 //* THE MESSAGE WHICH GENERALLY APPEARS IS AS FOLLOWS - * 01153000 //* * 01153100 //* ERROR ENCOUNTERED IN CONTROL BLOCKS, RETRY COMMAND * 01153200 //* * 01153300 //* * 01153400 //* #A COMMAND (DISPLAY JOB STATUS - EXPANDED D A) * 01153500 //* * 01153600 //* #A ASID 4 LINES OF OUTPUT FOR AN ASID * 01153700 //* * 01153800 //* #A .JOBNAME 4 LINES OF OUTPUT FOR AN JOBNAME * 01153900 //* * 01154000 //* #A 2 LINES OF OUTPUT FOR ALL JOBS * 01154100 //* * 01154200 //* #A 0000 4 LINES OF OUTPUT FOR ALL JOBS * 01154300 //* * 01154400 //* #A XX,L 4 LINES OF OUTPUT FOR SELECTED TYPE * 01154500 //* * 01154600 //* #A XX 2 LINES OF OUTPUT FOR SELECTED TYPE * 01154700 //* * 01154800 //* #A XX,S 1 LINE OF OUTPUT FOR SELECTED TYPE * 01154900 //* * 01155000 //* #A XX,D 1 LINE OF DISPATCHABILITY OUTPUT * 01155100 //* * 01155200 //* WHERE XX IS ONE OF THE FOLLOWING TYPES - * 01155300 //* * 01155400 //* $A SELECT ALL JOB, TSU, AND STC * 01155500 //* * 01155600 //* $J SELECT ALL JOBS * 01155700 //* * 01155800 //* $S SELECT ALL STARTED TASKS * 01155900 //* * 01156000 //* $T SELECT ALL TSO USERS * 01156100 //* * 01156200 //* $I SELECT ALL IDLE INITIATORS * 01156300 //* * 01156400 //* NN SELECT ALL JOBS IN DOMAIN - NN * 01156500 //* * 01156600 //* E X A M P L E * 01156700 //* * 01156800 //* TEST00 (000B) DP(112) SWL(010/016) SWC(0001) * 01156900 //* PERF-NRS(0B/07/0B) DPRTY-NR(70/76) DMN(01) * 01157000 //* Q(00) S(80) Y(40) A(58) T(83) E(00) U(00) * 01157100 //* AS(FE2578) SR(06) OU(FE1080) A(0063/00000) * 01157200 //* * 01157300 //* 1ST LINE - * 01157400 //* * 01157500 //* TEST00 JOBNAME * 01157600 //* (000B) ASID * 01157700 //* DP(112) DISPATCHING PRIORITY (FROM ASCB) * 01157800 //* SWL(010/016) SWAP LOAD IN DECIMAL PAGES (IN/OUT) * 01157900 //* SWC(0001) SWAP COUNT IN DECIMAL * 01158000 //* * 01158100 //* 2ND LINE - * 01158200 //* * 01158300 //* PERF-NRS(0B/07/0B) PERFORMANCE GROUP (NEW/RESET/SPECIFIED) * 01158400 //* DPRTY-NR(70/76) DISPATCHING PRIORITY (FROM OUCB) * 01158500 //* DMN(01) DOMAIN NUMBER * 01158600 //* * 01158700 //* 3RD LINE - * 01158800 //* * 01158900 //* (OUCB FLAGS - SEE DESCRIPTION IN FE HANDBOOK) * 01159000 //* * 01159100 //* 4TH LINE - * 01159200 //* * 01159300 //* AS(FE2578) ASCB ADDRESS * 01159400 //* SR(06) SWAP REASON CODE (SEE TABLE BELOW) * 01159500 //* QP(01) DISPATCHING QUEUE POSITION * 01159600 //* OU(FE1080) OUCB ADDRESS * 01159700 //* A(0063/00000) ADDRESS SPACE SLOTS/VIO SLOTS * 01159800 //* * 01159900 //* NOTE THAT IF THE SWAP REASON CODE IS 00, QP(XX) WILL * 01160000 //* PRINT TO INDICATE THE DISPATCHING QUEUE POSITION. * 01160100 //* * 01160200 //* SWAP REASON CODES - * 01160300 //* * 01160400 //* 01 TERMINAL WAIT - OWAITHI * 01160500 //* 02 TERMINAL WAIT - INPUT * 01160600 //* 03 LONG WAIT * 01160700 //* 04 AUXILLARY STORAGE SHORTAGE * 01160800 //* 05 REAL STORAGE SHORTAGE * 01160900 //* 06 DETECTED WAIT * 01161000 //* 07 REQUEST SWAP * 01161100 //* 08 ENQ EXCHANGE SWAP * 01161200 //* 09 EXCHANGE ON RECOMMENDATION VALUE * 01161300 //* 0A UNILATERAL SWAP * 01161400 //* 0B TRANSITION SWAP * 01161500 //* 0C LOGICAL SWAP * 01161600 //* 0D LOGICAL SWAP FAIL * 01161700 //* * 01161800 //* #C COMMAND (CALCULATOR, TOD, AND MSTCONS SWITCH) * 01161900 //* * 01162000 //* #C DISPLAY TOD CLOCK HIGH-ORDER WORD * 01162100 //* * 01162200 //* #CS DISPLAY CURRENT SMF DATA SET * 01162300 //* * 01162400 //* #CBNN,XX..X SEND MESSAGE NN TIMES TO ALL ACTIVE * 01162500 //* DISPLAY TYPE CONSOLES. * 01162600 //* * 01162700 //* #CMNN,XX..X SEND MESSAGE NN TIMES TO THE * 01162800 //* CONSOLE SPECIFIED BY THE L=XX PARAMETER * 01162900 //* * 01163000 //* #CXNNNN CALCULATE CHARACTER LXYZ LOCATION FROM HEX * 01163100 //* * 01163200 //* #CXL-XXX-YY-Z CALCULATE HEX LXYZ LOCATION FROM CHARACTER * 01163300 //* * 01163400 //* #CZ,PASSWRD SWITCH MASTER CONSOLE DESIGNATION TO THE * 01163500 //* CONSOLE SPECIFIED BY THE L=XX PARAMETER * 01163600 //* * 01163700 //* #C XXXX CONVERT 1-8 DIGIT HEX VALUE TO DEC * 01163800 //* * 01163900 //* #C ,DDDD CONVERT 1-8 DIGIT DEC VALUE TO HEX * 01164000 //* * 01164100 //* #C AAAOBBB CALCULATOR MODE * 01164200 //* * 01164300 //* AAA IS 1-8 DIGIT HEX OR ,DEC VALUE * 01164400 //* * 01164500 //* BBB IS 1-8 DIGIT HEX OR ,DEC VALUE * 01164600 //* * 01164700 //* O IS ARITHMETIC OPERATOR * 01164800 //* + ADD * 01164900 //* - SUBTRACT * 01165000 //* . MULTIPLY * 01165100 //* / DIVIDE * 01165200 //* * 01165300 //* #D COMMAND (DISPLAY AND ZAP CORE) * 01165400 //* * 01165500 //* ADDRESS SPACE FROM WHICH ADDRESS SPECIFIED IS RESOLVED * 01165600 //* IS THE CALLERS, UNLESS >AAAA PREFIXES THE COMMAND SUBPARM * 01165700 //* WHERE AAAA IS THE ASID OF THE ADDRESS SPACE TO DUMP/ZAP. * 01165800 //* EXAMPLE - #D >0002,0A0000 * 01165900 //* * 01166000 //* FOR DUMPING CORE * 01166100 //* * 01166200 //* #D 0000,NN WHERE NN IS THE NUMBER OF LINES * 01166300 //* TO PRINT FROM 01 - 64. DEFAULT= 04 * 01166400 //* * 01166500 //* FOR DUMPING A UCB * 01166600 //* * 01166700 //* #D U280 (WILL DUMP THE 280 UCB) * 01166800 //* * 01166900 //* FOR ZAPPING CORE * 01167000 //* * 01167100 //* #D 0ACD/FF000000/FF160000 * 01167200 //* * 01167300 //* 0ACD = ADDRESS TO BE ZAPPED * 01167400 //* FF000000 = DATA TO BE VERIFIED * 01167500 //* FF160000 = DATA TO BE ZAPPED IN * 01167600 //* * 01167700 //* FOR TERMINATING AN ADDRESS SPACE * 01167800 //* * 01167900 //* #D EXIT,AAAA TERMINATE ASID AAAA * 01168000 //* * 01168100 //* FOR CHANGING THE AUTHORIZED USE BIT OF SVC 107 (MODESET) * 01168200 //* * 01168300 //* #D S SET SVC 107 USABLE BY NON-AUTH PROGRAM * 01168400 //* #D SA SET SVC 107 NOT USABLE BY NON-AUTH PROGRAM * 01168500 //* * 01168600 //* FOR CHANGING AN ADDRESS SPACE DPRTY OR SWAPABILITY * 01168700 //* * 01168800 //* #D CHAP,AAAA,DDD CHAP ASID 'AAAA' TO DPRTY 'DDD' * 01168900 //* #D NOSWAP,AAAA SET ASID 'AAAA' NON-SWAPPABLE * 01169000 //* #D OKSWAP,AAAA SET ASID 'AAAA' SWAPPABLE * 01169100 //* #D NOCANC,AAAA SET ASID 'AAAA' NON-CANCELABLE * 01169200 //* #D OKCANC,AAAA SET ASID 'AAAA' CANCELABLE * 01169300 //* #D DOSWAP,AAAA SET ASID 'AAAA' INTO A SWAP-OUT * 01169400 //* PERFORMANCE GROUP. HAVE TO MODIFY * 01169500 //* AT LABEL CALLED SWAPPG * 01169600 //* * 01169700 //* NOTE 1 - IN ORDER FOR THE CHAP TO TAKE EFFECT THE JOB * 01169800 //* MUST PASS FROM SWAPPED OUT TO SWAPPED IN. * 01169900 //* * 01170000 //* NOTE 2 - IF A SET IPS COMMAND IS ISSUED OR IF THE JOB * 01170100 //* CHANGES STEPS, THE JOB WILL BE RESET TO ITS * 01170200 //* ORIGINAL STATE. * 01170300 //* * 01170400 //* #E COMMAND (EXECUTE COMMAND) * 01170500 //* * 01170600 //* FOR SENDING A COMMAND * 01170700 //* * 01170800 //* #E XXXXX XXXXX - THE COMMAND TO BE EXECUTED * 01170900 //* * 01171000 //* #E V PATH(XXX,YYY,C),ONLINE VARY PATH RANGE ON * 01171100 //* * 01171200 //* #E V PATH(XXX,YYY,C),OFFLINE VARY PATH RANGE OFF * 01171300 //* * 01171400 //* #F COMMAND (DISPLAY PAGE FRAME ASSIGNMENTS) * 01171500 //* * 01171600 //* #F * 01171700 //* * 01171800 //* TOTAL 2048 8192K * 01171900 //* NUCLEUS 98 392K * 01172000 //* TOT FIXED 130 520K * 01172100 //* SQA FIXED 88 352K * 01172200 //* CMN FIXED 12 48K * 01172300 //* SYS PAGES 260 1040K SQA= 340K * 01172400 //* AVAILABLE 24 96K * 01172500 //* MASTER 16 64K LSQA= 32K * 01172600 //* JES2 48 192K LSQA= 44K * 01172700 //* FFGRI1 68 272K LSQA= 28K * 01172800 //* TEST00 10 40K LSQA= 32K * 01172900 //* * 01173000 //* #F C - TO DISPLAY CSA VIRTUAL STORAGE USAGE * 01173100 //* * 01173200 //* CSA SIZE = 3752K CSA ADDR = 790000 * 01173300 //* SQA FREE = 56K SQA AVAIL = 2092K * 01173400 //* NUC END = 0A9000 SEG END = 0B0000 * 01173500 //* V=R SIZE = 80K V=R ADDR = 0B4000 * 01173600 //* PRV SIZE = 8288K PRV ADDR = 0C8000 * 01173700 //* FREE SIZE= 1980K ADDR = 790000 * 01173800 //* ALLOCATED SIZE= 1696K ADDR = 97F000 * 01173900 //* FREE SIZE= 48K ADDR = B00000 * 01174000 //* ALLOCATED SIZE= 32K ADDR = B0C000 * 01174100 //* * 01174200 //* #F R - TO DISPLAY THE V=R AREA SHOWING FRAME * 01174300 //* ALLOCATION, INCLUDING NO. OF FRAMES, * 01174400 //* OWNING ASID AND PFT FLAGS. * 01174500 //* * 01174600 //* EXAMPLE OUTPUT - * 01174700 //* * 01174800 //* PAGES.ASID.FLAGS * 01174900 //* ---------------- * 01175000 //* 012...0008...R-U * 01175100 //* 001...FFFF...A-A * 01175200 //* * 01175300 //* PAGES COLUMN - NO. OF FRAMES OWNED BY THIS ASID * 01175400 //* AND WITH THESE FLAGS IN DECIMAL. * 01175500 //* * 01175600 //* ASID COLUMN - ASID OF ADDRESS SPACE LAST TO OWN * 01175700 //* OR CURRENTLY OWNING THESE FRAMES. * 01175800 //* FFFF INDICATES NO OWNER. * 01175900 //* * 01176000 //* FLAGS COLUMN - THREE FLAG DIGITS WITH THE FOLLOWING * 01176100 //* MEANINGS. A - IN ANY FLAG DIGIT * 01176200 //* INDICATES NO STATUS. * 01176300 //* 1ST DIGIT - O OFFLINE * 01176400 //* C OFFLINE INTERCEPT * 01176500 //* R V=R ALLOCATE * 01176600 //* I V=R INTERCEPT * 01176700 //* A AVAILABLE * 01176800 //* * 01176900 //* 2ND DIGIT - B BAD FRAME * 01177000 //* F LONG TERM FIXED * 01177100 //* S SQA/LSQA FRAME * 01177200 //* V VIO FRAME * 01177300 //* * 01177400 //* 3RD DIGIT - A AVAILABLE QUEUE * 01177500 //* R SQA RESERVED QUEUE * 01177600 //* C COMMON QUEUE * 01177700 //* S SQA QUEUE * 01177800 //* U LOCAL QUEUE * 01177900 //* L LSQA QUEUE * 01178000 //* N NOT QUEUED * 01178100 //* * 01178200 //* #F MX - TO DISPLAY THE SPECIFIED MEGABYTE (M1 TO M9) * 01178300 //* OF REAL STORAGE SHOWING FRAME ALLOCATION, * 01178400 //* INCLUDING NUMBER OF FRAMES, OWNING ASID, * 01178500 //* PFT FLAGS. * 01178600 //* * 01178700 //* SEE (#F R) FOR DESCRIPTION OF OUTPUT. * 01178800 //* * 01178900 //* NOTE - MEGABYTE 0 CANNOT BE DISPLAYED AND WILL * 01179000 //* CAUSE A PARM ERROR IF ATTEMPTED. * 01179100 //* SINCE MEGABYTE 0 CANNOT BE VARIED * 01179200 //* OFFLINE (IT CONTAINS THE NUCLEUS), * 01179300 //* THIS RESTRICTION SEEMS REASONABLE. * 01179400 //* * 01179500 //* #F OX - TO DISPLAY, FOR THE SPECIFIED MEGABYTE (O1 TO O9) * 01179600 //* OF REAL STORAGE, FRAME ALLOCATION FOR OFFLINE * 01179700 //* INTERCEPTED FRAMES WHICH ARE NOT YET OFFLINE, * 01179800 //* INCLUDING NUMBER OF FRAMES, OWNING ASID, * 01179900 //* PFT FLAGS. * 01180000 //* SEE (#F R) FOR DESCRIPTION OF OUTPUT. * 01180100 //* * 01180200 //* NOTE - MEGABYTE 0 CANNOT BE DISPLAYED AND WILL * 01180300 //* CAUSE A PARM ERROR IF ATTEMPTED. * 01180400 //* SINCE MEGABYTE 0 CANNOT BE VARIED * 01180500 //* OFFLINE (IT CONTAINS THE NUCLEUS), * 01180600 //* THIS RESTRICTION SEEMS REASONABLE. * 01180700 //* * 01180800 //* #F BX - TO DISPLAY, FOR THE SPECIFIED MEGABYTE (B1 TO B9) * 01180900 //* OF REAL STORAGE, FRAME ALLOCATION FOR * 01181000 //* BAD FRAMES INCLUDING NUMBER OF FRAMES, * 01181100 //* OWNING ASID AND PFT FLAGS. * 01181200 //* SEE (#F R) FOR DESCRIPTION OF OUTPUT. * 01181300 //* * 01181400 //* NOTE - MEGABYTE 0 CANNOT BE DISPLAYED AND WILL * 01181500 //* CAUSE A PARM ERROR IF ATTEMPTED. * 01181600 //* SINCE MEGABYTE 0 CANNOT BE VARIED * 01181700 //* OFFLINE (IT CONTAINS THE NUCLEUS), * 01181800 //* THIS RESTRICTION SEEMS REASONABLE. * 01181900 //* * 01182000 //* #H COMMAND (DISPLAY # COMMAND HELP) * 01182100 //* * 01182200 //* #H DISPLAYS COMMAND LIST * 01182300 //* * 01182400 //* #H X DISPLAYS HELP FOR COMMAND #X * 01182500 //* * 01182600 //* #H #X DISPLAYS HELP FOR COMMAND ##X * 01182700 //* * 01182800 //* #A - (SE) DISPLAY JOB STATUS - EXPANDED D A * 01182900 //* #C - (SK) HEX/DEC CALCULATOR AND TOD DISPLAY * 01183000 //* #D - (SD) DISPLAY AND ZAP CORE * 01183100 //* #E - (SS) EXECUTE A COMMAND * 01183200 //* #F - (SF) DISPLAY PAGE FRAME ASSIGNMENTS * 01183300 //* #H - (SM) DISPLAY HELP * 01183400 //* #I - (SJ) DISPLAY IPS AND SWAP COUNTS * 01183500 //* #J - (SL) MODIFIED DISPLAY ACTIVE REPLACEMENT* 01183600 //* #L - (SC) DISPLAY LINES FOR TSO * 01183700 //* #M - (SO) TSO MULTIPLE SEND * 01183800 //* #N - (SA) DISPLAY ENQUEUE * 01183900 //* #O - (SR) DISPLAY PENDING I/O AND ALLOCATION * 01184000 //* #P - (SP) DISPLAY SU CONFIGURATION * 01184100 //* #Q - (SQ) ANALYZE ENQUEUE CONFLICTS * 01184200 //* #R - (SG) DISPLAY DEVICE STATUS * 01184300 //* #S - (SH) DISPLAY LPA MODULES * 01184400 //* #T - (SN) DISPLAY TIOT FOR A JOB * 01184500 //* #V - (SI) DISPLAY UNIT * 01184600 //* ##A - (ZA) MONITOR JOB ACTIVITY * 01184700 //* ##B - (ZB) MONITOR DEVICES * 01184800 //* ##C - (ZC) MONITOR CHANNELS * 01184900 //* ##J - (ZJ) MONITOR JOBS * 01185000 //* ##P - (ZP) MONITOR PAGING * 01185100 //* ##S - (ZS) MONITOR SYSTEM INDICATORS * 01185200 //* * 01185300 //* #I COMMAND (DISPLAY IPS AND SWAP COUNTS) * 01185400 //* * 01185500 //* DISPLAYS CURRENT IPS MEMBER AND SWAP COUNTS * 01185600 //* BY REASON SINCE LAST IPL. * 01185700 //* * 01185800 //* CURRENT IPS - IEAIPST2 * 01185900 //* LGCP 100 AVCP 101 AVPG 27 AUIC 16 ASMQ 07 * 01186000 //* TERM WAIT - IN (01) 0 * 01186100 //* TERM WAIT - OUT (02) 0 * 01186200 //* LONG WAIT (03) 304 * 01186300 //* AUX STOR SHORTAGE (04) 0 * 01186400 //* REAL STOR SHORTAGE (05) 0 * 01186500 //* DETECTED WAIT (06) 932 * 01186600 //* REQUEST SWAP (07) 82 * 01186700 //* ENQ EXCHANGE (08) 112 * 01186800 //* WORKLOAD EXCHANGE (09) 89 * 01186900 //* UNILATERAL SWAP (0A) 243 * 01187000 //* TRANSITION SWAP (0B) 21 * 01187100 //* LOGICAL SWAP (0C) 289 * 01187200 //* LOGICAL SWAP FAIL (0D) 12 * 01187300 //* * 01187400 //* #I A (DISPLAY ASM COUNTS) * 01187500 //* * 01187600 //* EXAMPLE - * 01187700 //* * 01187800 //* ILRSLOTC 16 * 01187900 //* ILRSLOTV 16 * 01188000 //* AVAIL SLOTS 836 * 01188100 //* TOTAL SLOTS 4,338 * 01188200 //* VIO SLOTS 0 * 01188300 //* ADSPC SLOTS 796 * 01188400 //* BAD SLOTS 0 * 01188500 //* * 01188600 //* NOTE - AVAIL SLOTS IS THE NUMBER OF UNRESERVED * 01188700 //* LOCAL PAGE DATA SET SLOTS. * 01188800 //* * 01188900 //* #I C (DISPLAY AVAILABLE PCCWS) * 01189000 //* * 01189100 //* ========================================= * 01189200 //* = *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* = * 01189300 //* = * * = * 01189400 //* = * THIS SUBCOMMAND IS NOT IN THE * = * 01189500 //* = * MVS/SE RELEASE 2 VERSION * = * 01189600 //* = * * = * 01189700 //* = * THE FOLLOWING IS IN THE MVS/SP * = * 01189800 //* = * RELEASE 1 VERSION ONLY * = * 01189900 //* = * * = * 01190000 //* = *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* = * 01190100 //* ========================================= * 01190200 //* * 01190300 //* EXAMPLE - * 01190400 //* * 01190500 //* NUMBER OF PCCWS BUILT BY RIM 00000044 * 01190600 //* NUMBER OF AVAILABLE PCCWS 00000030 * 01190700 //* * 01190800 //* #I P (DISPLAY PAGE DATA SET USAGE) * 01190900 //* * 01191000 //* EXAMPLE - * 01191100 //* * 01191200 //* PLPA A53 PAGE01 PLPAPAGE ERR(000) * 01191300 //* SIZE(1044) AVAIL(0197) USED(82%) BRST(019) * 01191400 //* COMN 942 PAGE02 COMMPG2 ERR(000) * 01191500 //* SIZE(0522) AVAIL(0438) USED(17%) BRST(021) * 01191600 //* LOCL A53 PAGE02 LOCALP2 ERR(000) * 01191700 //* SIZE(1566) AVAIL(1110) USED(30%) BRST(027) * 01191800 //* LOCL 942 PAGE01 LOCALPG2 ERR(000) * 01191900 //* SIZE(1566) AVAIL(1105) USED(30%) BRST(038) * 01192000 //* * 01192100 //* SIZE AND AVAILABLE FIGURES ARE DECIMAL NUMBER OF SLOTS * 01192200 //* * 01192300 //* BRST IS THE PARERQTM VALUE DIVIDED BY 256, IN DECIMAL. * 01192400 //* IT REPRESENTS THE AVERAGE TIME REQUIRED TO * 01192500 //* TRANSFER 1 PAGE. * 01192600 //* * 01192700 //* #I R (DISPLAY SRM VALUES) * 01192800 //* * 01192900 //* ========================================= * 01193000 //* = *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* = * 01193100 //* = * * = * 01193200 //* = * THIS SUBCOMMAND IS NOT IN THE * = * 01193300 //* = * MVS/SE RELEASE 2 VERSION * = * 01193400 //* = * * = * 01193500 //* = * THE FOLLOWING IS IN THE MVS/SP * = * 01193600 //* = * RELEASE 1 VERSION ONLY * = * 01193700 //* = * * = * 01193800 //* = *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* = * 01193900 //* ========================================= * 01194000 //* * 01194100 //* SRM RESOURCE CONTROL TABLE * 01194200 //* THRESHOLD * 01194300 //* CPU UTILIZATION 45 98 101 * 01194400 //* CPU UTIL W/ DEM PAG 95 98 * 01194500 //* PAGING RATE 2 1000 1000 * 01194600 //* DEMAND PAGING RATE 29 70 88 * 01194700 //* TOTAL PAGING RATE 38 * 01194800 //* PAGE DELAY TIME (MS) 726 1000 1000 * 01194900 //* PAGE DELAY W/ DEM PAG 100 130 * 01195000 //* AVG ASM QUEUE 27 1000 1000 * 01195100 //* AVG UIC 255 2 4 * 01195200 //* AVG AVAIL FRAMES 598 * 01195300 //* * 01195400 //* * 01195500 //* #I S (DISPLAY SWAP DATA SET USAGE) * 01195600 //* * 01195700 //* EXAMPLE - * 01195800 //* * 01195900 //* SWAP DS- 001 SETS- 200 PGS/SET- 12 * 01196000 //* 940 MVACAT SYS1.SWAP01 * 01196100 //* SIZE(2400) AVAIL(1200) USED(50%) ERR(0000) * 01196200 //* * 01196300 //* SIZE AND AVAILABLE FIGURES ARE DECIMAL NUMBER OF SLOTS * 01196400 //* * 01196500 //* ERR IS THE NUMBER OF ERRORS SUFFERED ON THE SWAP DS. * 01196600 //* * 01196700 //* #I X (DISPLAY PERFORMANCE GROUP ACTIVITY) * 01196800 //* * 01196900 //* EXAMPLE - (TSO PERFORMANCE GROUP 2) * 01197000 //* * 01197100 //* PGN PER TR CNT TR RATE AB RATE SW RATE AVGRESP * 01197200 //* 02 1 2366 131 146 1.23 0.78 * 01197300 //* 02 2 234 108 110 1.45 5.62 * 01197400 //* 02 3 20 156 170 1.67 110.23 * 01197500 //* 02 ALL 2620 126 134 1.31 2.21 * 01197600 //* * 01197700 //* TR CNT - NO. OF TRANSACTIONS * 01197800 //* TR RATE - TRANSACTION SERVICE RATE * 01197900 //* AB RATE - ABSORPTION RATE * 01198000 //* SW RATE - SWAP RATIO * 01198100 //* AVGRESP - AVERAGE RESPONSE TIME * 01198200 //* * 01198300 //* #J COMMAND (MODIFIED DISPLAY ACTIVE REPLACEMENT) * 01198400 //* * 01198500 //* #J T COMMAND (MODIFIED DISPLAY ACTIVE - TSO ONLY) * 01198600 //* * 01198700 //* #J NN COMMAND (MODIFIED DISPLAY ACTIVE - FOR DOMAIN 'NN') * 01198800 //* * 01198900 //* EXAMPLE - * 01199000 //* * 01199100 //* ***** IN QUEUE ***** ASID DPRTY QP FLAGS CPU TIME * 01199200 //* JES2 JES2 IEFPROC 0002 253 02 -NSW 1.33.01 * 01199300 //* TEST00 STEP1 0004 117 04 -IN CP 2.55.33 * 01199400 //* TEST01 STEPX ASMBLR 0005 119 03 -IN 0.10.68 * 01199500 //* TMSBKUP FDR 0006 112 05 -IN 1.11.24 * 01199600 //* CBTLOG CBTLOG CBTLOG 0016 250 05 RNSW 0.00.23 * 01199700 //* ***** OUT QUEUE ***** ASID DPRTY SR FLAGS CPU TIME * 01199800 //* RMF 148 IEFPROC 0003 251 03 - OUTLW 1.11.98 * 01199900 //* * 01200000 //* WHERE - * 01200100 //* * 01200200 //* ASID DPRTY QP/SR FLAGS CPU TIME * 01200300 //* ------ ------- ------- ------- ---------- * 01200400 //* * 01200500 //* NNNN DDD QQ/SS XXXYY MMM.SS.HH * 01200600 //* * 01200700 //* NNNN IS THE ADDRESS SPACE IDENTIFICATION * 01200800 //* * 01200900 //* DDD IS THE JOBS DISPATCHING PRIORITY * 01201000 //* * 01201100 //* QQ IS THE JOBS ASCB QUEUE POSITION, WHICH IS * 01201200 //* A RELATIVE DISPATCHING PRIORITY * 01201300 //* * 01201400 //* SS IS THE SWAP REASON CODE AS DESCRIBED IN THE * 01201500 //* DOCUMENTATION FOR THE # A COMMAND. * 01201600 //* * 01201700 //* XXXYY IS THE JOB STATUS AS DESCRIBED BELOW * 01201800 //* * 01201900 //* MMM.SS.HH IS THE CPU AND SRB ACCUMULATED JOB STEP TIME * 01202000 //* * 01202100 //* XXX - * 01202200 //* * 01202300 //* -IN - IN CORE - SWAPPED IN * 01202400 //* -NSW - NON-SWAPPABLE * 01202500 //* RNSW - REAL * 01202600 //* -OUT - SWAPPED OUT * 01202700 //* -GOO - IN PROCESS OF BEING SWAPPED OUT * 01202800 //* -GOI - IN PROCESS OF BEING SWAPPED IN * 01202900 //* -GOB - CURRENTLY CHANGING STATUS * 01203000 //* * 01203100 //* YY - * 01203200 //* * 01203300 //* LW - LONG WAIT STATUS - EXPLICIT OR IMPLICIT * 01203400 //* MW - LONG WAIT STATUS DETECTED BY MSO (MS6) * 01203500 //* CP - SIGNIFICANT CPU USER - SET BY IRARMCPM * 01203600 //* A - AUXILLARY STORAGE SHORTAGE * 01203700 //* S - REAL STORAGE SHORTAGE * 01203800 //* * 01203900 //* #L COMMAND (DISPLAY LINES FOR TSO) * 01204000 //* * 01204100 //* #L (WILL SHOW USERID, ASID AND TP LINE) * 01204200 //* * 01204300 //* IBMUSER (000C) - 3F1 * 01204400 //* * 01204500 //* #M COMMAND (TSO MULTIPLE SEND) * 01204600 //* * 01204700 //* #M XXXXXX * 01204800 //* * 01204900 //* WHERE XXXXXX IS A 1 - 68 DIGIT MESSAGE * 01205000 //* TO BE SENT TEN TIMES TO ALL LOGGED ON TSO USERS * 01205100 //* * 01205200 //* #N COMMAND (DISPLAY ENQUE - SEE ENQ/DEQ SUMMARY) * 01205300 //* * 01205400 //* #N FORMAT IS AS FOLLOWS - * 01205500 //* * 01205600 //* #N (ZZZZZZ)XXXXXXXX/YYYYYYYY * 01205700 //* * 01205800 //* WHERE - * 01205900 //* * 01206000 //* XXXXXXXX IS THE 8 DIGIT MAJOR NAME OR '*' * 01206100 //* YYYYYYYY IS THE 1 - 44 DIGIT MINOR NAME OR '*' * 01206200 //* (ZZZZZZ) IS THE 1 - 8 DIGIT JOBNAME TO LIMIT * 01206300 //* THE SEARCH. (OPTIONAL) * 01206400 //* * 01206500 //* #N * * 01206600 //* * 01206700 //* #N SYSDSN/* * 01206800 //* * 01206900 //* #N SYSIEFSD/* * 01207000 //* * 01207100 //* #N SYSDSN/SYS1.LINKLIB * 01207200 //* * 01207300 //* IN RESPONSE TO THE #N COMMAND THE CURRENT STATUS * 01207400 //* TYPES ARE: * 01207500 //* * 01207600 //* SHR - SHARED USE ENQ * 01207700 //* EXCL- EXCLUSIVE USE ENQ * 01207800 //* RSVS- SHARED USE WITH A RESERVE * 01207900 //* RSVX- EXCLUSIVE USE WITH A RESERVE * 01208000 //* * 01208100 //* #O COMMAND (DISPLAY OUTSTANDING I/O AND ALLOCATION REQUESTS) * 01208200 //* * 01208300 //* #O DISPLAY ALL OUTSTANDING I/O * 01208400 //* * 01208500 //* #O A DISPLAY ACTIVE OUTSTANDING I/O * 01208600 //* * 01208700 //* #O Q DISPLAY QUEUED OUTSTANDING I/O * 01208800 //* * 01208900 //* #O X DISPLAY ALLOCATION QUEUE * 01209000 //* * 01209100 //* I/O OUTPUT EXAMPLE - * 01209200 //* * 01209300 //* UUU VVVVVV JJJJJJJJ IIIIII DDDDDDDD SSSSSSS * 01209400 //* * 01209500 //* WHERE - * 01209600 //* UUU - UNIT ADDR * 01209700 //* VVVVVV - VOLSER * 01209800 //* JJJJJJJJ - JOBNAME OR ASID * 01209900 //* IIIIII - IOQ ADDR * 01210000 //* DDDDDDDD - I/O DRIVER NAME * 01210100 //* SSSSSSS - STATUS (ACTIVE OR QUEUED) * 01210200 //* * 01210300 //* ALLOCATION OUTPUT EXAMPLE - * 01210400 //* * 01210500 //* *SYSTEM* *AQTOP* M1M1M1M1M1M1 M2M2M2M2M2M2 * 01210600 //* JJJJJJJJ SSSSSSS M1M1M1M1M1M1 M2M2M2M2M2M2 * 01210700 //* * 01210800 //* WHERE - * 01210900 //* 1ST LINE IS SYSTEM WIDE ALLOCATION MASK * 01211000 //* AND FOLLOWING LINES ARE JOB INFO * 01211100 //* * 01211200 //* JJJJJJJJ - JOBNAME OR ASID * 01211300 //* SSSSSSS - STATUS (ACTIVE OR QUEUED) * 01211400 //* OWNING - JOB HOLDS MASK * 01211500 //* AQUEUE - JOB QUEUED FOR 'A' QUEUE * 01211600 //* BQUEUE - JOB QUEUED FOR 'AB' QUEUE * 01211700 //* WAITING - OPERATOR REPLIED 'WAIT' * 01211800 //* M1M1M1M1 - A OWNERSHIP MASK * 01211900 //* M2M2M2M2 - B OWNERSHIP MASK * 01212000 //* * 01212100 //* #P DISPLAY SU CONFIGURATION * 01212200 //* * 01212300 //* #P DISPLAY NON-OBSOLETE INSTALLED SU'S * 01212400 //* * 01212500 //* #P I DISPLAY ALL INSTALLED SU'S * 01212600 //* * 01212700 //* #P C DISPLAY ALL NON-OBSOLETE SU'S * 01212800 //* * 01212900 //* #P A DISPLAY ALL SU'S * 01213000 //* * 01213100 //* #Q COMMAND (ANALYZE ENQUE - SEE ENQ/DEQ SUMMARY) * 01213200 //* * 01213300 //* #Q * 01213400 //* * 01213500 //* OUTPUT EXAMPLE - * 01213600 //* * 01213700 //* MAJOR= SYSDSN * 01213800 //* MINOR= SYS1.LINKLIB * 01213900 //* ROSLINK1 EXCL RESERVE * 01214000 //* ROSLINK2 EXCL RESERVE * 01214100 //* ROSLIST1 SHR * 01214200 //* * 01214300 //* IN RESPONSE TO THE #Q COMMAND THE CURRENT STATUS * 01214400 //* TYPES ARE: * 01214500 //* * 01214600 //* SHR - SHARED USE ENQ * 01214700 //* EXCL- EXCLUSIVE USE ENQ * 01214800 //* RESERVE - RESERVE INDICATOR * 01214900 //* * 01215000 //* #R COMMAND (DEVICE STATUS COMMAND) * 01215100 //* * 01215200 //* #R M PENDING MOUNTS FOR TAPE * 01215300 //* * 01215400 //* #R T TAPE BUSY AND PENDING MOUNTS * 01215500 //* * 01215600 //* #R D DISK BUSY AND PENDING MOUNTS * 01215700 //* * 01215800 //* #R P UNIT RECORD BUSY * 01215900 //* * 01216000 //* #R B ALL DEVICE BUSY AND PENDING MOUNTS * 01216100 //* * 01216200 //* #R V ALL PENDING VARIED OR UNLOADED DEVICES * 01216300 //* * 01216400 //* #R R ALL RESERVES OUTSTANDING * 01216500 //* * 01216600 //* #R M=XXXXXXXX PENDING MOUNTS FOR A JOB * 01216700 //* * 01216800 //* #R T=XXXXXXXX ALLOCATED TAPE DEVICES FOR A JOB * 01216900 //* * 01217000 //* #R D=XXXXXXXX ALLOCATED DISK DEVICES FOR A JOB * 01217100 //* * 01217200 //* #R P=XXXXXXXX ALLOCATED UNIT RECORD DEVICES FOR A JOB * 01217300 //* * 01217400 //* #R B=XXXXXXXX ALL ALLOCATED DEVICES FOR A JOB * 01217500 //* * 01217600 //* =XXXXXXXX FOR ALL COMANDS IS EITHER A 4 DIGIT ASID OR * 01217700 //* A 1 - 8 DIGIT JOBNAME * 01217800 //* * 01217900 //* #R S=VVVVVV DEVICE ON WHICH VOLUME VVVVVV IS MOUNTED * 01218000 //* * 01218100 //* #R U=NNN DISPLAY SPECIFIED - * 01218200 //* * 01218300 //* DEVICE (NNN) * 01218400 //* CONTROL UNIT (NN) * 01218500 //* CHANNEL (N) * 01218600 //* * 01218700 //* #S COMMAND (DISPLAY LPA MODULES) * 01218800 //* * 01218900 //* #S PGMNAME WILL DISPLAY LOAD MODULES IN FLPA, MLPA OR * 01219000 //* PLPA. THE VIRTUAL ADDRESS AND MODULES SIZE ARE DISPLAYED * 01219100 //* UNLESS THE MODULE SPECIFIED IS REPRESENDED BY A MINOR * 01219200 //* CDE OR LPDE, IN WHICH CASE THE VIRUAL ADDRESS AND MAJOR * 01219300 //* NAME ARE DISPLAYED. * 01219400 //* * 01219500 //* #S *ADDR WILL DISPLAY THE NAME OF THE LOAD MODULE * 01219600 //* AND ITS STARTING ADDRESS AND LENGTH. * 01219700 //* * 01219800 //* EXAMPLE - * 01219900 //* * 01220000 //* BBBBBB NNNNNNNN AAAAAA LLLLLL USE=CCCC * 01220100 //* * 01220200 //* WHERE - BBBBBB - IS THE LPDE OR CDE ADDRESS * 01220300 //* NNNNNNNN - IS THE MODULE NAME * 01220400 //* AAAAAA - IS THE MODULE ADDRESS * 01220500 //* LLLLLL - IS THE MODULE LENGTH * 01220600 //* CCCC - IS THE MODULE USE COUNT * 01220700 //* * 01220800 //* #T COMMAND (DISPLAY TIOT FOR A JOB) * 01220900 //* * 01221000 //* #T NNNN DISPLAY TIOT SHORT ASID NNNN * 01221100 //* #T NNNN,L DISPLAY TIOT LONG ASID NNNN * 01221200 //* * 01221300 //* EXAMPLE SHORT FORM - * 01221400 //* * 01221500 //* 0006 JOBNAME1 STEPNAM1 PROCNAM1 * 01221600 //* - DDNAME1 1A0 3350 MVSA37 6609 * 01221700 //* * 01221800 //* EXAMPLE LONG FORM - * 01221900 //* * 01222000 //* 0006 JOBNAME1 STEPNAM1 PROCNAM1 * 01222100 //* - DDNAME1 1A0 3350 MVSA37 6609 * 01222200 //* - SYS1.LINKLIB * 01222300 //* - DSO=(PO) RFM=(U ) LRECL=00000 BLKSZ=19069 * 01222400 //* * 01222500 //* IN THE ABOVE EXAMPLES THE 1ST LINE IS THE JOB LINE * 01222600 //* THE 1ST DDLINE CONTAINS DDNAME, UNIT ADDRESS, DEVICE TYPE, * 01222700 //* VOLSER, AND EXCP COUNT. * 01222800 //* THE 2ND DD LINE CONTAINS DSNAME. * 01222900 //* THE 3RD DD LINE CONTAINS DSORG, RECFM, LRECL, AND BLKSIZE. * 01223000 //* * 01223100 //* NOTE THAT THIS COMMAND EXECUTES AS AN SRB AND CONSEQUENTLY * 01223200 //* WILL OCCASIONALLY FAIL WITH NOTHING WRONG. IN ADDITION, * 01223300 //* THIS COMMAND WILL ONLY WORK FOR JOBS WHICH ARE SWAPPED IN. * 01223400 //* STARTED TASKS WILL NOT DISPLAY ANY EXCP COUNTS. * 01223500 //* * 01223600 //* #V COMMAND (DISPLAY UNIT) * 01223700 //* * 01223800 //* #V D (DISPLAY DASD MATRIX) * 01223900 //* #V D1 (DISPLAY 3330-1 MATRIX) * 01224000 //* #V D3 (DISPLAY 3330 MATRIX) * 01224100 //* #V D5 (DISPLAY 3350 MATRIX) * 01224200 //* #V T (DISPLAY TAPE MATRIX) * 01224300 //* * 01224400 //* #V CUU (DISPLAY SINGLE UNIT) * 01224500 //* * 01224600 //* EX. #V 251 * 01224700 //* * 01224800 //* #V CUX (DISPLAY ALL UNITS BY CONTROL UNIT) * 01224900 //* * 01225000 //* EX. #V 25X * 01225100 //* * 01225200 //* #V CUU,CUU... (DISPLAY ALL UNITS IN LIST) * 01225300 //* * 01225400 //* EX. #V 251,363,108,288 * 01225500 //* * 01225600 //* #V CUX,CUX... (DISPLAY ALL UNITS IN LIST BY C.U.) * 01225700 //* * 01225800 //* EX. #V 25X,36X,47X * 01225900 //* * 01226000 //* #V S=VOLSER (DISPLAY UNIT FOR THIS VOLSER) * 01226100 //* * 01226200 //* EX. #V S=DAA001 * 01226300 //* * 01226400 //* COMMAND OUTPUT IS AS FOLLOWS - * 01226500 //* * 01226600 //* UUU SSSSSS FFF UNIT=DDDDDD AS=AAAA PATH=X,Y * 01226700 //* DCB=MM USR=UU RSV=RR FLG=11111111/22222222 * 01226800 //* - OR - * 01226900 //* DEVTYPE=ZZZZZZZZ FLG=11111111/22222222 * 01227000 //* * 01227100 //* UUU IS THE UNIT ADDRESS * 01227200 //* SSSSSS THE VOLUME SERIAL OR DEVICE CLASS * 01227300 //* FFF ON, OFF, OF CHG * 01227400 //* DDDDDD THE DEVICE TYPE * 01227500 //* AAAA THE ADDRESS SPACE ID * 01227600 //* X,Y THE PRIMARY,SECONDARY DEVICE PATH * 01227700 //* MM THE NO. OF OPEN DCBS TO THE DEVICE * 01227800 //* UU THE NO. OF USERS * 01227900 //* RR THE DEVICE RESERVE COUNT * 01228000 //* ZZZZZZZZ THE 4 BYTE HEX DEVICE TYPE FIELD * 01228100 //* 1111/2222 THE FIRST 8 BYTES OF THE UCB IN HEX * 01228200 //* * 01228300 //* #Z COMMAND (MODIFIED DISPLAY ACTIVE REPLACEMENT) * 01228400 //* * 01228500 //* #ZT COMMAND (MODIFIED DISPLAY ACTIVE REPLACEMENT-TSO ONLY) * 01228600 //* * 01228700 //* #ZNN COMMAND (MODIFIED DISPLAY ACTIVE REPLACEMENT-FOR * 01228800 //* DOMAIN 'NN'* 01228900 //* * 01229000 //* ***** IN QUEUE ***** ASID DP PG QP SC FLAGS CPU CPUR * 01229100 //* MASTER 0001 FF 00 01 00 NSW 1437 85564 * 01229200 //* JES2 JES2 IEFPROC 0003 FF 09 02 00 NSW 1054 85514 * 01229300 //* CMD1 CMD1 CMD1 0004 FF 12 03 00 NSW 11 86392 * 01229400 //* FAT067D4 PROC#1 FAT067#3 0011 75 01 13 03 IN 76 14332 * 01229500 //* CMDSBMON CMDSBMON CMDSBMON 0014 75 01 14 01 NSW 0 86399 * 01229600 //* TCAMB TCAMB TCAM 0015 FC 06 05 00 NSW 1329 85291 * 01229700 //* P731500A CIF408#1 0023 74 01 15 02 IN 48 14355 * 01229800 //* DUMMYWTR 480 IEFPROC 0028 00 01 17 00 NSW 130 86272 * 01229900 //* CBTLOG CBTLOG CBT290 0041 FC 01 06 R NSW 0 86399 * 01230000 //* CIC888D0 PROC#1 DFHSIP#4 0046 FB 30 08 00 NSW 240 86110 * 01230100 //* ***** OUT QUEUE ***** ASID DP PG SR SC FLAGS CPU CPUR * 01230200 //* ACF2 ACF2 IEFPROC 0002 FF 01 03 05 OUTLW 2 86397 * 01230300 //* RMF RMF IEFPROC 0009 FF 00 03 56 OUTLW 3 86396 * 01230400 //* TSSO TSSO TSSO 0040 FF 01 03 08 OUTLW 0 86399 * 01230500 //* NCCF NCCF NCCF#1 004F FF 12 06 ** OUTMW 3 86396 * 01230600 //* * 01230700 //* WHERE - * 01230800 //* * 01230900 //* ASID ADDRESS SPACE ID * 01231000 //* DP DISPATCHING PRIORITY * 01231100 //* PG PERFORMANCE GROUP * 01231200 //* QP ASCB QUEUE POSITION, WHICH IS * 01231300 //* A RELATIVE DISPATCHING PRIORITY * 01231400 //* SR SWAP REASON CODE AS IN THE OUTPUT * 01231500 //* OF THE #I COMMAND * 01231600 //* SC SWAP COUNT * 01231700 //* FLAGS JOB STATUS DESCRIBED BELOW = XXXYY * 01231800 //* CPU CPU/SRB ACCUMULATED JOB STEP TIME * 01231900 //* CPUR CPU STEP TIME REMAINING * 01232000 //* XXX - * 01232100 //* IN - IN CORE - SWAPPED IN * 01232200 //* NSW - NON-SWAPPABLE * 01232300 //* OUT - SWAPPED OUT * 01232400 //* GOO - IN PROCESS OF BEING SWAPPED OUT * 01232500 //* GOI - IN PROCESS OF BEING SWAPPED IN * 01232600 //* GOB - CURRENTLY CHANGING STATUS * 01232700 //* YY - * 01232800 //* LW - LONG WAIT STATUS * 01232900 //* MW - DETECTED WAIT * 01233000 //* CP - SIGNIFICANT CPU USER * 01233100 //* A - AUXILLARY STORAGE SHORTAGE * 01233200 //* S - REAL STORAGE SHORTAGE * 01233300 //* * 01233400 //* ##A COMMAND (MONITOR JOB ACTIVITY) * 01233500 //* * 01233600 //* ##A D COMMAND (MONITOR DOMAIN ACTIVITY) * 01233700 //* * 01233800 //* ##A T COMMAND (MONITOR TSO USERS ACTIVITY) * 01233900 //* * 01234000 //* ##A NN COMMAND (MONITOR JOB ACTIVITY - FOR DOMAIN 'NN') * 01234100 //* * 01234200 //* * 01234300 //* OUTPUT IS AS FOLLOWS - * 01234400 //* * 01234500 //* * 01234600 //* JOBNAME AND STEPNAME * 01234700 //* * 01234800 //* CPU PCT - CURRENT CPU PERCENT BUSY * 01234900 //* * 01235000 //* SIO/SEC - CURRENT EXCPS PER SEC * 01235100 //* * 01235200 //* PAG/SEC - CURRENT PAGING PER SEC * 01235300 //* * 01235400 //* WORKSET - CURRENT REAL STORAGE USE * 01235500 //* * 01235600 //* ASID - ADDRESS SPACE ID * 01235700 //* * 01235800 //* DSP - DISPATCHING PRTY * 01235900 //* * 01236000 //* DMN - DOMAIN NUMBER * 01236100 //* * 01236200 //* PGN - PERFORMANCE GROUP NUMBER * 01236300 //* * 01236400 //* SWC - SWAP COUNT * 01236500 //* * 01236600 //* * 01236700 //* FLAGS - FLAGS - XX-NN * 01236800 //* * 01236900 //* XX - IN- IN QUEUE * 01237000 //* XX - NS- NON-SWAPPABLE * 01237100 //* NN - QUEUE POSITION * 01237200 //* XX - OU- OUT QUEUE * 01237300 //* NN - SWAP REASON CODE * 01237400 //* * 01237500 //* ##B COMMAND (MONITOR DEVICES) * 01237600 //* * 01237700 //* ##BUUU,Y MONITOR DEVICE BUSY FOR DEVICE UUU * 01237800 //* * 01237900 //* ##BUUX,Y MONITOR DEVICE BUSY FOR DEVICES ON * 01238000 //* CONTROL UNIT UU * 01238100 //* * 01238200 //* WHERE Y = D - DEVICE LIST * 01238300 //* J - DEVICE AND JOB LIST * 01238400 //* S - SEEK ANALYSIS * 01238500 //* * 01238600 //* OUTPUT FORMAT AS FOLLOWS - * 01238700 //* * 01238800 //* UUU VVVVVV BUSY NN% NN% * 01238900 //* -- JJJJJJJJ NN% NN% * 01239000 //* * 01239100 //* NOTE - TWO PERCENT BUSY VALUES ARE * 01239200 //* DISPLAYED FOR DEVICE BUSY. * 01239300 //* * 01239400 //* 1ST - DEVICE BUSY TOTAL * 01239500 //* 2ND - DEVICE BUSY PRIMARY CHAN * 01239600 //* * 01239700 //* ##C COMMAND (MONITOR CHANNELS) * 01239800 //* * 01239900 //* ##C MONITOR CHANNEL BUSY * 01240000 //* DISPLAY CHANNEL BUSY IN BOTH * 01240100 //* NUMERIC AND BAR GRAPH FORM. * 01240200 //* * 01240300 //* ##CNN,Y MONITOR CHANNEL AND DEVICE BUSY * 01240400 //* DISPLAY CHANNEL AND DEVICE BUSY * 01240500 //* FOR CHANNEL NN IN NUMERIC AND * 01240600 //* BAR GRAPH FORM. * 01240700 //* * 01240800 //* WHERE Y = D - DEVICE LIST * 01240900 //* J - DEVICE AND JOB LIST * 01241000 //* * 01241100 //* OUTPUT FORMAT AS FOLLOWS - * 01241200 //* * 01241300 //* CHANNEL NN BUSY NN% * 01241400 //* UUU VVVVVV BUSY NN% NN% * 01241500 //* -- JJJJJJJJ NN% NN% * 01241600 //* * 01241700 //* NOTE - TWO PERCENT BUSY VALUES ARE * 01241800 //* DISPLAYED FOR DEVICE BUSY. * 01241900 //* * 01242000 //* 1ST - DEVICE BUSY TOTAL * 01242100 //* 2ND - DEVICE BUSY THIS CHANNEL * 01242200 //* * 01242300 //* ##J COMMAND (MONITOR JOBS) * 01242400 //* * 01242500 //* ##J T COMMAND (MONITOR TSO USERS) * 01242600 //* * 01242700 //* ##J NN COMMAND (MONITOR JOBS - FOR DOMAIN 'NN') * 01242800 //* * 01242900 //* EXAMPLE - * 01243000 //* * 01243100 //* ***** IN QUEUE ***** EXCPC EXCPT CPUC CPUT * 01243200 //* JES2 JES2 IEFPROC 43 68,976 9.37 61.33.01 * 01243300 //* TEST00 STEP1 21 3,400 0.58 5.33 * 01243400 //* TEST01 STEPX ASMBLR 153 178,922 12.77 9.10.68 * 01243500 //* TMSBKUP FDR 3 367 0.09 1.24 * 01243600 //* ***** OUT QUEUE ***** EXCPC EXCPT CPUC CPUT * 01243700 //* RMF 148 IEFPROC 0 666 0.00 11.98 * 01243800 //* * 01243900 //* WHERE - * 01244000 //* * 01244100 //* EXCPC EXCPT CPUC CPUT * 01244200 //* ------ ------- ------- ------- * 01244300 //* * 01244400 //* XX,XXX X,XXX,XXX M.SS.TH MMM.SS.TH * 01244500 //* * 01244600 //* EXCPC IS THE EXCP COUNT FOR THE SAMPLED INTERVAL * 01244700 //* * 01244800 //* EXCPT IS THE EXCP COUNT TOTAL FOR THE CURRENT STEP * 01244900 //* * 01245000 //* CPUC IS THE CPU/SRB TIME FOR THE SAMPLED INTERVAL * 01245100 //* * 01245200 //* CPUT IS THE CPU/SRB TIME TOTAL FOR THE CURRENT STEP * 01245300 //* * 01245400 //* ##P COMMAND (MONITOR PAGING) * 01245500 //* * 01245600 //* VIO PAGING NNN.NN PAGES/SEC * 01245700 //* SWAP PAGING NNN.NN PAGES/SEC * 01245800 //* COMMON PAGING NNN.NN PAGES/SEC * 01245900 //* ADDRSPC PAGING NNN.NN PAGES/SEC * 01246000 //* TOTAL PAGING NNN.NN PAGES/SEC * 01246100 //* * 01246200 //* ##S MONITOR SYSTEM INDICATORS * 01246300 //* DISPLAYING AVERAGE, MINIMUM, AND MAXIMUM * 01246400 //* * 01246500 //* ##S D MONITOR SYSTEM INDICATORS AND DOMAIN VALUES * 01246600 //* DISPLAYING AVERAGE, MINIMUM, AND MAXIMUM * 01246700 //* * 01246800 //* ##S DA MONITOR SYSTEM INDICATORS AND DOMAIN VALUES * 01246900 //* DISPLAYING AVERAGE * 01247000 //* * 01247100 //* SYSTEM INDICATORS - LONG TERM CPU, * 01247200 //* AVERAGE CPU, AVERAGE PAGING, * 01247300 //* AVERAGE UIC, AND AVERAGE ASMQ. * 01247400 //* * 01247500 //* DOMAIN VALUES - WT, MIN, MAX AT INTERVAL START * 01247600 //* TARGET MPL, CURRENT MPL, READY USERS, * 01247700 //* GOING OUT USERS, OUT USERS, IN USERS, * 01247800 //* WEIGHTED DOMAIN SERVICE * 01247900 //* * 01248000 //******************************************************************* 01248100 //* * 01248200 //* * 01248300 //* ## ## * 01248400 //* ## ## * 01248500 //* ## ## * 01248600 //* ############# * 01248700 //* ############# * 01248800 //* ## ## * 01248900 //* ## ## * 01249000 //* ############# * 01249100 //* ############# * 01249200 //* ## ## * 01249300 //* ## ## * 01249400 //* ## ## * 01249500 //* * 01249600 //* * 01249700 //* ******* ** ** ** ** * 01249800 //* ** ** ** ** ** * 01249900 //* ** ** ** ** ** * 01250000 //* ***** ** ** ** ** * 01250100 //* ** ** ** ** ** * 01250200 //* ** ** ** ** ** * 01250300 //* ** ** ** ** ** * 01250400 //* ** ***** ******* ******* * 01250500 //* * 01250600 //* ***** ***** ****** ****** ****** ** ** * 01250700 //* ** ** ** ** ** ** ** ** *** ** * 01250800 //* ** ** ** ** ** ** ** *** ** * 01250900 //* ***** ** ** ** **** **** **** ** * 01251000 //* ** ** ****** ** ** ** **** * 01251100 //* ** ** ** ** ** ** ** ** ** *** * 01251200 //* ** ** ** ** ** ** ** ** ** *** * 01251300 //* ***** ***** ** ** ******* ******* ** ** * 01251400 //* * 01251500 //* * * ***** ****** ****** * 01251600 //* ** ** ** ** ** ** ** * 01251700 //* *** *** ** ** ** ** ** * 01251800 //* ******* ** ** ** ** **** * 01251900 //* ** * ** ** ** ** ** ** * 01252000 //* ** ** ** ** ** ** ** * 01252100 //* ** ** ** ** ** ** ** * 01252200 //* ** ** ***** ****** ******* * 01252300 //* * 01252400 //* FOR THE FULL SCREEN VERSIONS THE FOLLOWING ARE AVAILABLE * 01252500 //* * 01252600 //* ENTER H X FOR HELP WITH COMMAND X' * 01252700 //* H * 01252800 //* H - (GH) DISPLAY HELP * 01252900 //* A - (GA) DISPLAY JOB ACTIVITY * 01253000 //* E - (GE) DISPLAY EXCEPTIONS * 01253100 //* F - (GF) DISPLAY PAGE STATISTICS BY JOB * 01253200 //* J - (GJ) DISPLAY CPU UTILIZATION * 01253300 //* I - (GI) DISPLAY JES2 INITIATORS * 01253400 //* O - (GO) DISPLAY SYSTEM I/O ACTIVITY * 01253500 //* Q - (GQ) DISPLAY JES QUEUE (MODIFIED Q CMD) * 01253600 //* S - (GS) DISPLAY SYSTEM INDICATORS * 01253700 //* U - (GU) DISPLAY DASD FREE SPACE * 01253800 //* # - (SM) DISPLAY HELP # COMMANDS * 01253900 //* * 01254000 //* FOLLOWING ARE FULL SCREEN POSITIONING COMMANDS. * 01254100 //* -NNN SCROLL UP NNN LINES * 01254200 //* +NNN SCROLL DOWN NNN LINES * 01254300 //* - SCROLL TO TOP * 01254400 //* + SCROLL TO BOTTOM * 01254500 //* =YXXXY FIND STRING EQ XXX, Y IS DELIMITER * 01254600 //* * 01254700 //* A DISPLAY JOB ACTIVITY * 01254800 //* * 01254900 //* ANNNN DISPLAY JOB ACTIVITY FOR ASID NNNN * 01255000 //* * 01255100 //* GRAPHIC DISPLAY OF - * 01255200 //* JOBNAME, STEPNAME, PERCENT CPU * 01255300 //* PERCENT CPU, * 01255400 //* PAGE FRAME ALLOCATION, * 01255500 //* PAGING IN PAGES PER SECOND, * 01255600 //* AVERAGE JOB CPU UTILIZATION, * 01255700 //* AVERAGE REAL FRAME USAGE, * 01255800 //* CURRENT SWAP COUNT, * 01255900 //* JOB I/O ACTIVITY. * 01256000 //* * 01256100 //* JOB EXCEPTIONS AS FOLLOWS - * 01256200 //* * 01256300 //* POSSIBLE LOOPS, * 01256400 //* ABEND IN PROGRESS, * 01256500 //* WAITING ON REPLIES, * 01256600 //* WAITING ON ALLOCATION, * 01256700 //* WAITING ON ENQUEUE CONFLICTS, * 01256800 //* WAITING ON I/O PENDING, * 01256900 //* WAITING TO BE SWAPPED IN. * 01257000 //* * 01257100 //* E DISPLAY EXCEPTIONS * 01257200 //* * 01257300 //* E - DISPLAY ALL EXCEPTIONS * 01257400 //* AUTOMATIC REFRESH MINIMUM 10 SEC * 01257500 //* * 01257600 //* ED - DISPLAY EXCEPTIONS (NOT DEVICE) * 01257700 //* AUTOMATIC REFRESH MINIMUM 10 SEC * 01257800 //* * 01257900 //* EC - DISPLAY EXCEPTIONS (NOT CHAN/DEVICE) * 01258000 //* * 01258100 //* EXCEPTIONAL SYSTEM CONDITIONS - * 01258200 //* * 01258300 //* SQA SHORTAGE, * 01258400 //* WTO BUFFER SHORTAGE, * 01258500 //* EXCESS PAGING AND PAGE I/O BUSY, * 01258600 //* EXCESS DEVICE UTILIZATION, * 01258700 //* EXCESS CHANNEL UTILIZATION. * 01258800 //* * 01258900 //* EXCEPTIONAL JOB CONDITIONS - * 01259000 //* * 01259100 //* POSSIBLE LOOPS, * 01259200 //* ABEND IN PROGRESS, * 01259300 //* EXCESS JOB CPU UTILIZATION, * 01259400 //* EXCESS REAL FRAME USAGE, * 01259500 //* EXCESS SWAP COUNT, * 01259600 //* WAITING ON REPLIES, * 01259700 //* WAITING ON ALLOCATION, * 01259800 //* WAITING ON ENQUEUE CONFLICTS, * 01259900 //* WAITING ON I/O PENDING, * 01260000 //* WAITING TO BE SWAPPED IN. * 01260100 //* * 01260200 //* EXCEPTION MONITOR OUTPUT MESSAGES * 01260300 //* --------------------------------------- * 01260400 //* * 01260500 //* SYSTEM EXCEPTION MESSAGES * 01260600 //* -------------------------------------- * 01260700 //* * 01260800 //* CHANNEL XX XXX% BUSY FOR XXXXX SEC * 01260900 //* UUU VVVVVV XXX% BUSY FOR XXXXX SEC * 01261000 //* UUU VVVVVV NOT READY FOR XXXXX SEC * 01261100 //* EXCESS SYSTEM PAGING FOR XXXXX SEC * 01261200 //* LOCAL PAGE I/O DEGRADED FOR XXXXX SEC * 01261300 //* WTO BUFFER SHORTAGE, WQE COUNT= XXXXX * 01261400 //* SQA AVAIL= XXXXXK, CSA AVAIL= XXXXXK * 01261500 //* * 01261600 //* JOB RESOURCE USAGE EXCEPTION MESSAGES * 01261700 //* -------------------------------------- * 01261800 //* * 01261900 //* JJJJJJJJ POSSIBLE LOOP FOR XXXXX SEC * 01262000 //* JJJJJJJJ XXX% CPU FOR XXXXX SEC * 01262100 //* JJJJJJJJ ABEND IN PROGRESS XXXXX SEC * 01262200 //* JJJJJJJJ EXCESS SWAP COUNT = XXXXX * 01262300 //* JJJJJJJJ XXXXX FRAMES FOR XXXXX SEC * 01262400 //* * 01262500 //* JOB WAIT EXCEPTION MESSAGES * 01262600 //* -------------------------------------- * 01262700 //* * 01262800 //* NOTE - A JOB IS CONSIDERED TO BE WAITING IF IT USES 0% CPU) * 01262900 //* * 01263000 //* JJJJJJJJ ENQ SYSDSN WAIT XXXXX SEC ENQ CONFLICT * 01263100 //* JJJJJJJJ I/O ON UUU WAIT XXXXX SEC I/O PENDING * 01263200 //* JJJJJJJJ ALLOC QUEUE WAIT XXXXX SEC ALLOC QUEUE * 01263300 //* JJJJJJJJ REPLY NN WAIT XXXXX SEC REPLY PENDING * 01263400 //* JJJJJJJJ ??????????? WAIT XXXXX SEC REASON UNKNOWN * 01263500 //* JJJJJJJJ SWAP RRRRRR WAIT XXXXX SEC SWAPPED OUT * 01263600 //* * 01263700 //* RRRRRR - ( SWAP REASON CODES ) * 01263800 //* LONGWT LONG WAIT * 01263900 //* AUXSTOR AUXILLARY STORAGE SHORTAGE * 01264000 //* REALSTR REAL STORAGE SHORTAGE * 01264100 //* DETWAIT MSO DETECTED WAIT * 01264200 //* REQUEST REQUEST SWAP * 01264300 //* ENQEXC ENQ EXCHANGE * 01264400 //* WORKEXC WORKLOAD EXCHANGE * 01264500 //* UNILATR UNILATERAL * 01264600 //* * 01264700 //* F DISPLAY PAGE STATISTICS * 01264800 //* * 01264900 //* F - DISPLAY PAGE STATISTICS BY JOB * 01265000 //* * 01265100 //* GRAPHIC DISPLAY OF - * 01265200 //* * 01265300 //* PAGE FRAME ALLOCATION BY JOB AND * 01265400 //* PAGING BY JOB IN PAGES PER SECOND. * 01265500 //* * 01265600 //* J DISPLAY CPU UTILIZATION * 01265700 //* * 01265800 //* JD - DISPLAY CPU UTILIZATION * 01265900 //* * 01266000 //* GRAPHIC DISPLAY OF - * 01266100 //* ALL ACTIVE DOMAINS. * 01266200 //* * 01266300 //* J - DISPLAY CPU UTILIZATION * 01266400 //* * 01266500 //* GRAPHIC DISPLAY OF - * 01266600 //* JOBNAME, STEPNAME, PERCENT CPU * 01266700 //* UTILIZATION FOR ACTIVE JOBS. * 01266800 //* * 01266900 //* JT - DISPLAY CPU UTILIZATION * 01267000 //* * 01267100 //* GRAPHIC DISPLAY OF - * 01267200 //* JOBNAME, STEPNAME, PERCENT CPU * 01267300 //* UTILIZATION FOR ACTIVE TSO USERS. * 01267400 //* * 01267500 //* JNN - DISPLAY CPU UTILIZATION * 01267600 //* * 01267700 //* GRAPHIC DISPLAY OF - * 01267800 //* JOBNAME, STEPNAME, PERCENT CPU * 01267900 //* UTILIZATION FOR ALL JOBS IN DMN XX. * 01268000 //* * 01268100 //* I DISPLAY JES2 INITIATORS * 01268200 //* * 01268300 //* I - DISPLAY JES2 INITIATORS * 01268400 //* * 01268500 //* DISPLAY OF - * 01268600 //* * 01268700 //* INITIATOR STATUS, * 01268800 //* JOB NUMBER, * 01268900 //* JOBNAME, * 01269000 //* JOB CLASS, * 01269100 //* INITIATOR CLASSES. * 01269200 //* * 01269300 //* O DISPLAY SYSTEM I/O ACTIVITY * 01269400 //* * 01269500 //* OXNN - DISPLAY SYSTEM I/O ACTIVITY * 01269600 //* * 01269700 //* WHERE - * 01269800 //* * 01269900 //* X - SCAN TYPE * 01270000 //* A - ALL DEVICES * 01270100 //* V - DASD AND TAPE * 01270200 //* D - DASD * 01270300 //* T - TAPE * 01270400 //* U - UNIT RECORD * 01270500 //* C - COMM AND DISPLAY * 01270600 //* * 01270700 //* NN - PERCENT BUSY THRESHOLD * 01270800 //* 20% BUSY IS THE DEFAULT * 01270900 //* * 01271000 //* Q DISPLAY JES QUEUE (HAS 27300 SUPPORT) * 01271100 //* * 01271200 //* Q XXX DISPLAY JES QUEUE (MODIFIED Q CMD) * 01271300 //* * 01271400 //* (NNN)Q XXX DISPLAY JES QUEUE (MODIFIED Q CMD) * 01271500 //* * 01271600 //* WHERE - * 01271700 //* * 01271800 //* NNN - IS THE NUMBER OF * 01271900 //* 1000 LINE SEGMENTS * 01272000 //* TO INCREMENT INTO THE * 01272100 //* DATA SET BEFORE * 01272200 //* DISPLAY ANY DATA. * 01272300 //* * 01272400 //* XXX - IS THE Q COMMAND * 01272500 //* * 01272600 //* H - HELP WITH Q CMD * 01272700 //* DI - DISPLAY INPUT * 01272800 //* DO - DISPLAY OUTPUT * 01272900 //* DA - DISPLAY ACTIVE JOBS * 01273000 //* DT - DISPLAY ACTIVE TSO * 01273100 //* DS - DISPLAY ACTIVE STC * 01273200 //* JLOG J - DISPLAY JOBLOG JOB J * 01273300 //* JCL J - DISPLAY JOBJCL JOB J * 01273400 //* JMSG J - DISPLAY JOBMSG JOB J * 01273500 //* DD J - DISPLAY DD IDS JOB J * 01273600 //* SL S - DISPLAY SYSLOG STC S * 01273700 //* L J DSID - DISPLAY DATASET DSID * 01273800 //* JOB J * 01273900 //* * 01274000 //* NOTE - J IS EITHER JOBNAME OR JOB NUMBER * 01274100 //* * 01274200 //* NOTE - S IS STC NUMBER * 01274300 //* * 01274400 //* S DISPLAY SYSTEM INDICATORS * 01274500 //* * 01274600 //* S - DISPLAY SYSTEM INDICATORS * 01274700 //* * 01274800 //* GRAPHIC DISPLAY OF - * 01274900 //* * 01275000 //* CURRENT AVERAGE CPU, * 01275100 //* CURRENT LONG TERM CPU, * 01275200 //* CURRENT AVERAGE PAGING, * 01275300 //* CURRENT AVERAGE UIC, * 01275400 //* CURRENT AVERAGE ASMQ LENGTH, AND * 01275500 //* CURRENT MPL FOR EACH DOMAIN * 01275600 //* CONTAINING RUNNING JOBS. * 01275700 //* * 01275800 //* SA - DISPLAY SYSTEM INDICATORS * 01275900 //* * 01276000 //* GRAPHIC DISPLAY OF - * 01276100 //* * 01276200 //* AVERAGE AVERAGE CPU, * 01276300 //* AVERAGE LONG TERM CPU, * 01276400 //* AVERAGE AVERAGE PAGING, * 01276500 //* AVERAGE AVERAGE UIC, * 01276600 //* AVERAGE AVERAGE ASMQ LENGTH, AND * 01276700 //* CURRENT MPL FOR EACH DOMAIN * 01276800 //* CONTAINING RUNNING JOBS. * 01276900 //* * 01277000 //* U DISPLAY DASD SPACE * 01277100 //* * 01277200 //* U DISPLAY DASD SPACE ALL ONLINE DASD * 01277300 //* * 01277400 //* U VVVV DISPLAY DASD SPACE ON VOLUME VVVV * 01277500 //* WHERE VVVV IS A 1-6 DIGIT VOLSER OR * 01277600 //* VOLSER PREFIX * 01277700 //* * 01277800 //* U U=NNN DISPLAY DASD SPACE ON UNIT NNN * 01277900 //* * 01278000 //* U D=XXXX DISPLAY DASD SPACE ON DEVTYPE XXXX * 01278100 //* (3330,3330V,3330-1,3350,2305-2) * 01278200 //* * 01278300 //* DISPLAY OF - * 01278400 //* * 01278500 //* UNIT, DEVTYPE, STATUS, VOLSER, * 01278600 //* NO. OF DCBS OPEN, NO. OF USERS, * 01278700 //* FREE CYLS, FREE TRKS, FREE EXTENTS, * 01278800 //* LARGEST CONTIG EXTENT CYL/TRK * 01278900 //* * 01279000 //******************************************************************* 01279100 //* * 01279200 //* * 01279300 //* ## ## TTTTTTTTTTTT SSSSSSSSSSS OOOOOOOOOOO * 01279400 //* ## ## TTTTTTTTTTTT SSSSSSSSSSSSS OOOOOOOOOOOOO * 01279500 //* ## ## TT SS SS OO OO * 01279600 //* ############# TT SS OO OO * 01279700 //* ############# TT SS OO OO * 01279800 //* ## ## TT SSSSSSSSSSSS OO OO * 01279900 //* ## ## TT SSSSSSSSSSSS OO OO * 01280000 //* ############# TT SS OO OO * 01280100 //* ############# TT SS OO OO * 01280200 //* ## ## TT SS SS OO OO * 01280300 //* ## ## TT SSSSSSSSSSSSS OOOOOOOOOOOOO * 01280400 //* ## ## TT SSSSSSSSSSS OOOOOOOOOOO * 01280500 //* * 01280600 //* * 01280700 //******************************************************************* 01280800 //* * 01280900 //* * 01281000 //* # # * 01281100 //* # # * 01281200 //* # # * 01281300 //* # # * 01281400 //* # # * 01281500 //* # # * 01281600 //* ###################### * 01281700 //* # # * 01281800 //* # # * 01281900 //* # # * 01282000 //* # # * 01282100 //* # # * 01282200 //* ####################### * 01282300 //* # # * 01282400 //* # # * 01282500 //* # # * 01282600 //* # # * 01282700 //* # # * 01282800 //* # # * 01282900 //* * 01283000 //* * * 01283100 //* - * 01283200 //* *** * 01283300 //* ----- * 01283400 //* ******* * 01283500 //* --------- * 01283600 //* *********** * 01283700 //* ------------- * 01283800 //* *************** * 01283900 //* ----------------- * 01284000 //* ******************* * 01284100 //* --------------------- * 01284200 //* *********************** * 01284300 //* ------------------------- * 01284400 //* *************************** * 01284500 //* ----------------------------- * 01284600 //* ******************************* * 01284700 //* --------------------------------- * 01284800 //* *********************************** * 01284900 //* ------------------------------------- * 01285000 //* *************************************** * 01285100 //* ----------------------------------------- * 01285200 //* ******************************************* * 01285300 //* --------------------------------------------- * 01285400 //* *********************************************** * 01285500 //* ------------------------------------------------- * 01285600 //* **************************************************** * 01285700 //* ------------------------------------------------------ * 01285800 //* ******************************************************** * 01285900 //* ----------------------------------------------------------- * 01286000 //* ************************************************************* * 01286100 //* --------------------------------------------------------------- * 01286200 //******************************************************************* 01286300 //* * 01286400 //***FILE 267 IS AN IEBCOPY OF THE LOAD MODULES OF THE COMMAND * 01286500 //* SUBSYSTEM CONTAINED IN FILE 267 AND ALL THE LOAD * 01286600 //* LOAD MODULES. THE MODULES CALLED IEES*03D AND ## * 01286700 //* ARE AT AN MVS/SP1 RELEASE 1 LEVEL. (ERGO I RAN * 01286800 //* THE $MVSSE2 AND $MVSSP1 CLISTS BEFORE I COMPILED * 01286900 //* THE CODE) * 01287000 //* * 01287100 //***FILE 268 IS A COPY OF THE YALE COMPARE PROGRAM CONTAINED IN * 01287200 //* FILE 226 THAT HAS BEEN MODIFIED FOR USE UNDER TSO * 01287300 //* * 01287400 //***FILE 269 IS FROM THE LOUISIANA STATE UNIVERSITY AND CONTAINS * 01287500 //* A SYSTEM MODIFICATION THAT IS USED TO PREFIX ANY * 01287600 //* MESSAGE FROM THE SYSTEM OPERATORS (INCLUDING NOTIFY'S)* 01287700 //* WITH THE DATE (JULIAN) AND TIME. THIS MODS DOES NOT * 01287800 //* WORK FOR MESSAGES SENT VIA THE TSO SEND COMMAND * 01287900 //* * 01288000 //***FILE 270 IS FROM THE WASHINGTON STATE DP SERVICE CENTER AND * 01288100 //* CONTAINS SEVERAL OF THE LOCAL UTILITIES . THIS FILE IS * 01288200 //* IN IEBUPDTE SYSIN FORMAT . FOR ADDITIONAL INFORMATION * 01288300 //* SEE THE MEMBER CALLED $$DOC . * 01288400 //* * 01288500 //* DATE 6/28/84 * 01288600 //* CONTACT - KERMIT KISER (206) 753-2215 * 01288700 //* WASHINGTON DATA PROCESSING SERVICE CENTER * 01288800 //* 25 STATE OFFICE BLDG TWO, OB-01 * 01288900 //* OLYMPIA, WASHINGTON 98504 * 01289000 //* * 01289100 //* * 01289200 //* THE PURPOSE OF THIS FILE IS TO TRANSFER SOME OF * 01289300 //* WDPSC'S LOCAL UTILITIES. ALL THIS STUFF WORKS HERE, * 01289400 //* BUT WE DON'T GUARANTEE IT TO WORK ANYWHERE ELSE. * 01289500 //* SOME PROGRAMS MAY NEED MODIFICATION FOR AN * 01289600 //* INSTALLATION. SOME ARE GOOD ONLY AS "HOWTO" * 01289700 //* SAMPLES. * 01289800 //* * 01289900 //* THIS FILE CONTAINS THE WDPSC PROGRAMS WHICH WERE * 01290000 //* PREVIOUSLY IN CBT FILES 270-274. TWO OF THOSE * 01290100 //* PROGRAMS, NAMED FTL AND KOMM, HAVE BEEN MODIFIED * 01290200 //* AND THE LATEST VERSIONS ARE ON THIS TAPE. * 01290300 //* * 01290400 //* WE DO NOT HAVE TSO EXTENSIONS OR XA YET. SOME * 01290500 //* PROGRAMS MAY NEED TO BE MODIFIED FOR THESE SYSTEM * 01290600 //* LEVELS. * 01290700 //* * 01290800 //* MANY OF THE TSO COMMANDS USE THE SETVAR * 01290900 //* SUBROUTINE. YOU WILL NEED TO ASSEMBLE SETVAR * 01291000 //* BEFORE THESE COMMANDS WILL WORK CORRECTLY, THIS * 01291100 //* PROGRAM IS LINKED WITH AN IBM MODULE. * 01291200 //* * 01291300 //* IF A UTILITY HAS DOCUMENTATION WHICH IS * 01291400 //* MAINTAINED SEPARATELY, THE DOCUMENT IS IN THE * 01291500 //* SOURCE PDS WITH A SIMILIAR NAME BUT ENDING WITH THE * 01291600 //* "$" CHARACTER. * 01291700 //* * 01291800 //* TO CREATE THE NECESSARY MACLIB, CLIST, PROCLIB, ETC * 01291900 //* LIBRARIES: MODIFY AND SUBMIT EITHER MEMBER * 01292000 //* REDIST OR REDISTI WHICH ARE IN THIS LIBRARY. * 01292100 //* (USE REDIST IF PROGRAM PDSLOAD FROM THE CBT TAPE * 01292200 //* IS AVAILABLE, ELSE USE JOB REDISTI.) REDIST OR * 01292300 //* REDISTI WILL CREATE THE MACLIB, CLIST, PROCLIB, * 01292400 //* PANELS, SKELS, MESSAGES, TEXT, AND PARM * 01292500 //* LIBRARIES FROM THE APPROPRIATE MEMBERS IN THIS * 01292600 //* LIBRARY. * 01292700 //* * 01292800 //* ******* NOTE: CLISTS SHOULD BE COPIED TO A VB DATASET * 01292900 //* AFTER RELOADING. * 01293000 //* * 01293100 //* SUMMARY OF ITEMS INCLUDED IN THIS FILE (NOT * 01293200 //* NECCESSARILY COMPLETE): * 01293300 //* * 01293400 //* UTILITY UTILITY * 01293500 //* NAME TYPE DESCRIPTION * 01293600 //* ________ _______ __________________________________*___01293700 //* * 01293800 //* CATBYVOL PROGRAM CHECKS IDCAMS UNCATALOG CARDS * 01293900 //* CREATED BY VSAMSCAN PROGRAM * 01294000 //* AGAINST VOLUMES TO FIND NVSAM * 01294100 //* DATASETS WHICH DO NOT EXIST. * 01294200 //* SEE JOB IN CATBYVO#. I THINK * 01294300 //* DLY260 STEP IS NOT NEEDED. * 01294400 //* * 01294500 //* CHDSCB CLIST