//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 MODIFY DCB CHARACTERISTICS SUCH * 01294600 //* AS DSORG, RECFM, BLKSIZE, LRECL * 01294700 //* FOR A DATASET WITHOUT ALTERING * 01294800 //* THE DATASET CONTENTS. USES * 01294900 //* PROGRAM RELSEQ. * 01295000 //* * 01295100 //* CLIB CLIST ALLOCATE A PRIVATE CLIST * 01295200 //* LIBRARY FOR IMPLICIT CLIST * 01295300 //* EXECUTION WITHOUT REMOVING * 01295400 //* PREVIOUSLY ALLOCATED CLIST * 01295500 //* LIBRARIES. USES COMMAND * 01295600 //* CONCATEM. * 01295700 //* * 01295800 //* CLRSPFIO PROGRAM CAN BE CALLED DIRECTLY OR * 01295900 //* LINKED TO DYNAMICALLY VIA THE * 01296000 //* ISPEXEC SELECT PGM(CLRSPFIO) TO * 01296100 //* TELL SPF TO IGNORE ANY NON-SPF * 01296200 //* IO WHICH MAY HAVE TAKEN PLACE * 01296300 //* IN THE DIALOG. * 01296400 //* * 01296500 //* CMDOUT CLIST UTILITY CLIST USED BY CLISTS * 01296600 //* AND DIALOGS TO ALLOCATE AND * 01296700 //* FREE WORK FILES. USES COMMANDS * 01296800 //* IFALC AND FILEINFO. * 01296900 //* * 01297000 //* CNTLCRT PROGRAM CAN BE CALLED BY CLISTS TO * 01297100 //* ISSUE CNTL OR FULLSCR TPUT * 01297200 //* MESSAGES. * 01297300 //* * 01297400 //* CONCATEM TSO CMD ALLOCATE OR DEALLOCATE, * 01297500 //* CONCATENATE OR DECONCATENATE * 01297600 //* THE GIVEN DATASET TO THE GIVEN * 01297700 //* DDNAME. IN THE CASE OF * 01297800 //* CONCATENATION, PLACE THE GIVEN * 01297900 //* DATASET "AT THE TOP OF THE * 01298000 //* STACK" OF ALL DATASETS * 01298100 //* CONCATENATED TO THAT DDNAME. * 01298200 //* * 01298300 //* DATECONV TSO CMD ACCEPT A STANDARD, JULIAN, OR * 01298400 //* SERIAL DATE AND THEN CONVERT IT * 01298500 //* TO THE OTHER TWO. * 01298600 //* * 01298700 //* DDNTODSN PROGRAM SUBROUTINE CALLED BY PROGRAMS * 01298800 //* TO RETURN DSNAME AND VOLSER * 01298900 //* BASED ON DDNAME PASSED. * 01299000 //* * 01299100 //* DEVTYPE TSO CMD DETERMINE DEVICE TYPE GIVEN * 01299200 //* VOLUME SERIAL NUMBER. * 01299300 //* * 01299400 //* DUMPVOL PROGRAM A SAMPLE PROGRAM WHICH READS A * 01299500 //* LIST OF VOLUMES AND BUILDS A * 01299600 //* JOB TO DUMP (FDR) ONLY THOSE * 01299700 //* VOLUMES WHICH ARE CURRENTLY * 01299800 //* MOUNTED. NO MORE DOES DUANE * 01299900 //* HAVE TO COME IN AT 3AM BECAUSE * 01300000 //* SOME VOLUMES ARE NOT MOUNTED. * 01300100 //* * 01300200 //* FILEATTR PROGRAM OBTAIN VOLUME SERIAL NUMBER, * 01300300 //* LRECL, BLKSIZE, DSORG, RECORD * 01300400 //* FORMAT, AND DEVICE TYPE OF * 01300500 //* DATASET GIVEN THE DATASET NAME * 01300600 //* (AND VOLUME SERIAL NUMBER IF * 01300700 //* NOT CATALOGED) FROM A HIGH * 01300800 //* LEVEL LANGUAGE PGM. * 01300900 //* * 01301000 //* FILEINFO TSO CMD RETURN INFO TO A CLIST SUCH AS * 01301100 //* LRECL, BLKSIZE, RECFM, DSORG, * 01301200 //* VOLSER, ETC. * 01301300 //* * 01301400 //* FINDMEM PROGRAM DETERMINE WHETHER A SPECIFIED * 01301500 //* MEMBER OF A PDS EXISTS OR NOT. * 01301600 //* * 01301700 //* FINDTTR PROGRAM CALLED BY THE FINDTTR CLIST TO * 01301800 //* SEARCH A PDS FOR A GIVEN * 01301900 //* STRING. THE TTR OF ALL BLOCKS * 01302000 //* CONTAINING THE STRING IS * 01302100 //* DISPLAYED WHETHER IN DIRECTORY, * 01302200 //* MEMBERS, GAS, OR BEYOND * 01302300 //* DS1LSTAR. * 01302400 //* * 01302500 //* FIREUP CLIST ALLOCATE USER SPF DIALOG * 01302600 //* MANAGER LIBRARIES AHEAD OF THE * 01302700 //* SPF PROGRAM DEVELOPMENT * 01302800 //* FACILITY LIBRARIES AND/OR TO * 01302900 //* ALLOCATE LIBRARIES TO DIALOG * 01303000 //* MANAGER DDNAMES NOT ALREADY * 01303100 //* ALLOCATED. * 01303200 //* * 01303300 //* FTL PROGRAM IEBGENER REPLACEMENT FOR * 01303400 //* COPYING FILES. HANDLES * 01303500 //* MULTIPLE FILES, CHANGING DCB * 01303600 //* CHARACTERISTICS, MOST FILE * 01303700 //* TYPES. * 01303800 //* * 01303900 //* GETMY TSO CMD SAMPLE COMMAND FOR RETURNING * 01304000 //* USER/SYSTEM DATA TO CLIST * 01304100 //* VARIABLES. SOME INSTALLATION * 01304200 //* SENSITIVE CODE, BUT A GOOD * 01304300 //* STARTING PLACE! * 01304400 //* * 01304500 //* HEXTRAN PROGRAM TRANSLATE DATA FROM CHARACTER * 01304600 //* CODED HEXADECIMAL TO TRUE * 01304700 //* HEXADECIMAL OR VICE VERSA. * 01304800 //* * 01304900 //* HOSEDOWN CLIST DEALLOCATE USER SPF DIALOG * 01305000 //* MANAGER LIBRARIES (UNDO WHAT A * 01305100 //* PREVIOUS FIREUP DID). * 01305200 //* * 01305300 //* IFALC TSO CMD TESTS WHETHER A GIVEN DDNAME OR * 01305400 //* DSNAME IS CURRENTLY ALLOCATED * 01305500 //* TO THE USER. * 01305600 //* * 01305700 //* IFCAT TSO CMD TESTS WHETHER A GIVEN DSNAME IS * 01305800 //* CATALOGED. FILEINFO GIVES * 01305900 //* BETTER DATA. * 01306000 //* * 01306100 //* IKJUPDT PROGRAM SUBROUTINE TO CONVERT CALLS TO * 01306200 //* IKJUPDT INTO LINK TO PROGRAM * 01306300 //* SETVAR. WE USED TO LINK IBM * 01306400 //* IKJUPDT (IKJCT433) DIRECTLY * 01306500 //* WITH TSO COMMANDS IN ORDER TO * 01306600 //* PUT DATA INTO CLIST VARIABLES. * 01306700 //* THIS TECHNIQUE IS MUCH MORE * 01306800 //* MAINTAINABLE!. * 01306900 //* * 01307000 //* JTOSCONV PROGRAM CONVERT JULIAN DATES OF THE * 01307100 //* FORM YYDDD TO STANDARD (MMDDYY) * 01307200 //* AFTER DATE VALIDATION. * 01307300 //* * 01307400 //* KOMM TSO CMD COMMAND TO DO SIMPLE 3270 IO * 01307500 //* FROM A CLIST, SUCH AS CLEAR THE * 01307600 //* SCREEN OR FORMAT FIELDS. * 01307700 //* * 01307800 //* LASTLINK CLIST DISPLAY INFORMATION ABOUT THE * 01307900 //* LAST TIME A COBOL OR ASSEMBLER * 01308000 //* PROGRAM WAS COMPILED AND * 01308100 //* LINKED. * 01308200 //* * 01308300 //* MLPALIST PROGRAM LISTS MODULES LOADED BY MLPA OR * 01308400 //* FLPA. SIMILIAR TO AMBLIST * 01308500 //* LISTLPA. * 01308600 //* * 01308700 //* NEWISPF PROGRAM THIS MODULE IS THE FRONTEND FOR * 01308800 //* ISPF AND/OR PDF. IT HAS THE * 01308900 //* FOLLOWING FUNCTIONS: * 01309000 //* * 01309100 //* 1. SAVE THE INPUT ECT BECAUSE ISPF * 01309200 //* MODIFIES THE ECT PTR TO THE * 01309300 //* IOWA WHICH IS NEEDED BY THE * 01309400 //* WDPSCXS MODULE FOR STACKING * 01309500 //* COMMANDS. * 01309600 //* * 01309700 //* 2. ALLOCATE THE USER PROFILE LIB * 01309800 //* TO DDNAME ISPPROF. * 01309900 //* * 01310000 //* 3. INVOKE THE NEWSPF CLIST IF * 01310100 //* PROFILE LIB DOESN'T EXIST. * 01310200 //* NEWSPF CREATES NEW USER * 01310300 //* PROFILES. * 01310400 //* * 01310500 //* 4. CALL THE REAL ISPF OR PDF * 01310600 //* COMMAND MODULE. * 01310700 //* * 01310800 //* NEWWAIT PROGRAM WAIT FOR A SPECIFIED PERIOD OF * 01310900 //* TIME WITHOUT USING CPU * 01311000 //* TIME.THIS IS THE INTERRUPTIBLE * 01311100 //* VERSION OF WAITER. * 01311200 //* * 01311300 //* PACKLIST PROGRAM UTILITY TO BUILD IEAPAK00 FROM * 01311400 //* DATA PRODUCED BY PSWSAMP * 01311500 //* ROUTINE. * 01311600 //* * 01311700 //* PSWSAMP PROGRAM TRACE TABLE SAMPLING UTILITY * 01311800 //* FOR PRODUCING DATA USED BY * 01311900 //* PACKLIST PROGRAM. * 01312000 //* * 01312100 //* RELSEQ PROGRAM PROGRAM TO OPEN AND CLOSE A * 01312200 //* FILE WHICH IS ALLOCATED WITH * 01312300 //* DISP=MOD. USED BY CHDSCB AND * 01312400 //* RLSE CLISTS. DOES NOT MODIFY * 01312500 //* DATASET CONTENTS. * 01312600 //* * 01312700 //* REPROENQ PROGRAM PROGRAM TO ENQ ON SYSIGGV2 FOR * 01312800 //* A CATALOG ALLOCATED TO STEPLIB * 01312900 //* AND CALL IDCAMS. CAN BACKUP THE * 01313000 //* CATALOGS WITHOUT CODING * 01313100 //* DISP=OLD AND DRAINING THE * 01313200 //* SYSTEM USING THIS. SEE * 01313300 //* REPROEN#. * 01313400 //* * 01313500 //* RLSE CLIST RELEASE UNUSED SPACE ALLOCATED * 01313600 //* TO A DATASET. * 01313700 //* * 01313800 //* SCXSCAN PROGRAM LINKS AS A FRONT-END TO IKJSCAN * 01313900 //* TO PROVIDE AN "X CMD" FACILITY * 01314000 //* FROM ANY SUBCOMMAND MODE USING * 01314100 //* IKJSCAN (JUST LIKE PCF X * 01314200 //* FACILITY) * 01314300 //* * 01314400 //* SERLCONV PROGRAM CONVERT SERIAL DATES TO * 01314500 //* STANDARD DATE FORMAT AFTER DATE * 01314600 //* VALIDATION. * 01314700 //* * 01314800 //* SETVAR PROGRAM THIS IS A SUBROUTINE WHICH A * 01314900 //* TSO COMMAND CAN LINK TO IN * 01315000 //* ORDER TO SET A CLIST VARIABLE. * 01315100 //* IT LINKS IN IKJCT433(IKJUPDT) * 01315200 //* FROM LPALIB AND REPLACES THE * 01315300 //* OLD LINKUPDT TECHNIQUE. * 01315400 //* * 01315500 //* SPACE TSO CMD DISPLAYS ALLOCATION, * 01315600 //* UTILIZATION AND EXTENT INFO FOR * 01315700 //* A DATASET. CAN RETURN DATA TO A * 01315800 //* CLIST. * 01315900 //* * 01316000 //* SPFCATNV CLIST THIS IS AN ISPF DIALOG FOR * 01316100 //* DOING NVSAM CATALOG FUNCTIONS. * 01316200 //* WE USE IT AS TECH SERVICES * 01316300 //* OPTION K.N HERE. GOOD IF YOU * 01316400 //* HAVE MULTIPLE MASTER AND USER * 01316500 //* CATALOGS LIKE WE DO. CHANGE CAT * 01316600 //* NAMES IN THE CLIST. * 01316700 //* * 01316800 //* STACK TSO CMD STACK IS A NORMAL TSO COMMAND * 01316900 //* PROCESSOR: STACK * 01317000 //* DDIN(INPUTDD) * 01317100 //* DDOUT(OUTDD) - * 01317200 //* TASKLIB(TASKDD) LIST * 01317300 //* * 01317400 //* INPUTDD - DDNAME TO READ * 01317500 //* COMMAND FROM * 01317600 //* INSTEAD OF * 01317700 //* NORMAL SOURCE * 01317800 //* OUTDD - DDNAME THE COMMAND * 01317900 //* OUTPUT SHOULD * 01318000 //* GO TO * 01318100 //* TASKDD - DDNAME THE COMMAND * 01318200 //* SHOULD BE * 01318300 //* ATTACHED FROM * 01318400 //* IF DESIRED * 01318500 //* LIST - MEANS DISPLAY THE * 01318600 //* COMMAND ON THE * 01318700 //* OUTPUT FILE * 01318800 //* (ALL OPERANDS ARE OPTIONAL) * 01318900 //* * 01319000 //* (ALL FILE IO MUST BE DONE * 01319100 //* * 01319200 //* VIA PUTGET MODULE TO BE * 01319300 //* INTERCEPTED) * 01319400 //* * 01319500 //* STOJCONV PROGRAM CONVERT STANDARD DATES OF THE * 01319600 //* FORM (MMDDYY) TO JULIAN AND * 01319700 //* SERIAL AFTER DATE VALIDATION. * 01319800 //* * 01319900 //* SUPRNAME PROGRAM THE SUPRNAME PROGRAM IS A * 01320000 //* FRONTEND PROCESSOR TO AMASPZAP * 01320100 //* WHICH ADDS SOME NEW CONTROL * 01320200 //* CARDS TO THE SUPERZAP VANILLA * 01320300 //* CARDS. IT ALLOWS A DATASET TO * 01320400 //* BE RENAMED OR SCRATCHED WITH NO * 01320500 //* ENQ CONTENTION EVEN IF THE * 01320600 //* DATASET NAME IS ALLOCATED TO * 01320700 //* ANOTHER JOB. IT ALSO ALLOWS A * 01320800 //* FORMAT ONE DSCB TO BE DUMPED OR * 01320900 //* ZAPPED WITHOUT KNOWING THE * 01321000 //* CCHHR ADDRESS IN THE VTOC. * 01321100 //* * 01321200 //* SYSOUT TSO CMD COMMAND TO ALLOCATE SYSOUT * 01321300 //* FILES USING THE NEW TEXT UNITS * 01321400 //* FOR FLASH, CHARS, MODIFY, ETC. * 01321500 //* * 01321600 //* TERMTYPE PROGRAM PROGRAM CAN BE CALLED BY A * 01321700 //* CLIST TO DETERMINE SCREEN * 01321800 //* LINES, IE TERMINAL TYPE - * 01321900 //* TTY,M2,M3,ETC. * 01322000 //* * 01322100 //* TIMECOND PROGRAM SETS CONDITION CODE TO DAY OF * 01322200 //* WEEK, MONTH, YEAR, ETC FOR * 01322300 //* CONDITIONAL EXECUTION OF STEPS. * 01322400 //* * 01322500 //* UNCLIB CLIST DEALLOCATE (REMOVE) A PRIVATE * 01322600 //* CLIST LIBRARY PREVIOUSLY * 01322700 //* ALLOCATED TO YOUR SESSION. * 01322800 //* * 01322900 //* VOL2DEVT PROGRAM SUBROUTINE TO RETURN DEVICETYPE * 01323000 //* FOR GIVEN VOL. * 01323100 //* * 01323200 //* VSAMSCAN PROGRAM READS CATALOG AND WRITES IDCAMS * 01323300 //* UNCATALOG CARDS FOR ALL NVSAM * 01323400 //* DATASETS WHICH ARE THEN * 01323500 //* PROCESSED BY PROGRAM CATBYVOL. * 01323600 //* SEE JOB IN CATBYVO#. I THINK * 01323700 //* DLY260 STEP IS NOT NEEDED. * 01323800 //* * 01323900 //* WATDSN CLIST UTILITY TO DIPLAY DATASETS * 01324000 //* ALLOCATED TO A GIVEN PROGRAM * 01324100 //* DDNAME. * 01324200 //* * 01324300 //* WDPSCXS PROGRAM SUBROUTINE CALLED BY ISPF * 01324400 //* DIALOGS TO STACK A COMMAND FOR * 01324500 //* EXECUTION WHEN ISPF TERMINATES. * 01324600 //* USED FOR OUR OPTION XL * 01324700 //* (EXIT,LOGOFF). REQUIRES NEWISPF * 01324800 //* FRONTEND TO WORK CORRECTLY. * 01324900 //* * 01325000 //* WHATDSN TSO CMD RETURN TO THE CLIST THE * 01325100 //* DSNAME(S) OF THE DATASET(S) * 01325200 //* WHICH IS (ARE) ALLOCATED TO THE * 01325300 //* DDNAME GIVEN. * 01325400 //* * 01325500 //* WTORCOND PROGRAM ASK OPERATOR A QUESTION (Y OR * 01325600 //* N) AND SET CONDITION CODE FOR * 01325700 //* EXECUTION OF LATER STEPS. * 01325800 //* * 01325900 //***FILE 271 IS A DYNAMIC PROCLIB MODIFICATION FROM MR KEITH E. * 01326000 //* MOE FROM AMDAHL AND IS IN IEBUPDTE SYSIN FORMAT. * 01326100 //* * 01326200 //* THIS FILE CONTAINS A COMPLETE DYNAMIC PROCLIB * 01326300 //* MODIFICATION. THIS MODIFICATION IS COMPATIBLE WITH * 01326400 //* ALL VERSIONS OF MVS FROM BASE 3.8 TO MVS/XA 2.1.2. * 01326500 //* * 01326600 //* TWO COMPLETE VERSIONS OF THE SMP FORMAT MODIFICATIONS * 01326700 //* ARE PROVIDED. ONE IS FOR MVS/SP 1.3.3 (#Z7700X * 01326800 //* MEMBERS) AND THE OTHER IS FOR MVS/SP 2.1.2 (#Z7800X * 01326900 //* MEMBERS). THESE MODIFICATIONS WILL NEED TO BE RE- * 01327000 //* WORKED FOR PREVIOUS AND FUTURE LEVELS * 01327100 //* OF THE CONVERTER . * 01327200 //* * 01327300 //* EXTENSIVE DOCUMENTATION ON THE INSTALLATION AND * 01327400 //* FUNCTION OF THIS DYNAMIC PROCLIB MODIFICATION CAN BE * 01327500 //* FOUND IN THE COMMENTS IN THE SMP MODIFICATIONS AND * 01327600 //* THE SOURCE FOR IEFVPP. * 01327700 //* * 01327800 //* SINCE 1977, THIS MODIFICATION HAS HAD ONLY ONE MAJOR * 01327900 //* CHANGE (OTHER THAT CHANGING THE CONVERTER ZAPS). THIS * 01328000 //* WAS TO SUPPORT THE SJF FEATURE ADDED IN MVS/SP 1.3.2. * 01328100 //* THE CHANGE WAS MADE TO BE COMPATIBLE ACROSS ALL LEVELS* 01328200 //* OF MVS AND TO ELIMINATE THE FUTURE DEPENDENCE ON THE * 01328300 //* SIZE OF THE CONVERTER WORK AREA. THIS CHANGE TOOK * 01328400 //* ONE DAY TO MAKE. HENCE, THIS MODIFICATION CAN BE * 01328500 //* CONSIDERED QUITE STABLE. * 01328600 //* * 01328700 //***FILE 272 IS A MODIFICATION TO VTAM AND SAMPLE CODE TO SHOW * 01328800 //* HOW TO PUT VARIABLE DATA ( SUCH AS THE DATE , TIME , * 01328900 //* SYSTEM ID , AND TERMINAL NAME INTO THE VTAM LOGO ) . * 01329000 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 01329100 //* * 01329200 //* MEMBER #Z00394 IS AN SMP USERMOD AGAINST VTAM MODULE * 01329300 //* ISTINCU6. THIS MODIFICATION PROVIDES THE LINKAGE TO * 01329400 //* THE USSEDIT ROUTINE THAT IS CODED AS PART OF THE VTAM * 01329500 //* USSTAB. * 01329600 //* * 01329700 //* USSEDIT IS A COPY MODULE CONTAINING CODE THAT WILL * 01329800 //* BUILD THE VARIABLE MESSAGE INFORMATION INTO THE VTAM * 01329900 //* "LOGO". * 01330000 //* * 01330100 //* USS32740 IS A SAMPLE 3274 USSTAB WHICH COPIES IN * 01330200 //* USSEDIT. * 01330300 //* * 01330400 //***FILE 273 IS A MODIFICATION THAT ALLOWS A USER TO LOG ONTO A * 01330500 //* SECONDARY JOB ENTRY SUBSYSTEM . THIS FILE IS IN * 01330600 //* IEBUPDTE SYSIN FORMAT . * 01330700 //* * 01330800 //* FOR SYSTEMS BEFORE MVS/SP 1.3.3 OR MVS/XA 2.1.1, IT * 01330900 //* ALSO ALLOWS DIRECTING A STARTED TASK TO A SECONDARY * 01331000 //* JES. * 01331100 //* * 01331200 //* NOTE: THIS MODIFICATION ALONE WILL NOT ACCOMPLISH * 01331300 //* LOGGING ONTO A SECONDARY JES. IT ONLY UPDATES THE * 01331400 //* NECESSARY CONTROL BLOCKS TO ACCOMPLISH THE TASK. THE * 01331500 //* TSO LOGON JCL MUST CONTAIN THE NAME ON THE SECONDARY * 01331600 //* JES TO LOG ONTO. THIS IS MOST EASILY ACCOMPLISHED * 01331700 //* VIA THE LOGON PRE-PROMPT EXIT. * 01331800 //* * 01331900 //***FILE 274 IS A ISPF 3.8 VERSION FROM COMBINED INTERNATIONAL * 01332000 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * 01332100 //* THE FOLLOWING MEMBERS: * 01332200 //* * 01332300 //* A. CLIST CONTAINS CLIST DRIVER * 01332400 //* B. ISPMLIB MESSAGE MEMBER * 01332500 //* C. ISPPLIB PANEL MEMBERS * 01332600 //* D. SOURCE SOURCE CODE FOR THE ISPF/PDF DIALOG * 01332700 //* * 01332800 //* ALL THE MEMBERS ARE IN OFFLOAD FORMAT ( ERGO ' ./ ' * 01332900 //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * 01333000 //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * 01333100 //* CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS * 01333200 //* SYSIN INPUT TO IEBUPDTE . * 01333300 //* * 01333400 //***FILE 275 IS IN IEBUPDTE INPUT FORMAT. IT IS THE UICC/GTEL * 01333500 //* CATALOG EDIT PROGRAM, CALLED 'CATUPDTE' IN EARLIER * 01333600 //* VERSIONS. IT IS INTENDED FOR USE IN MVS SYSTEMS * 01333700 //* CONTAINING A VSAM MASTER CATALOG AND ONE OR MORE * 01333800 //* NONVSAM 'USER' CATALOGS. FOR COMPLETE DOCUMENTATION * 01333900 //* SEE THE MEMBER CALLED $DOC * 01334000 //* * 01334100 //* CATEDIT --- UICC/GTEL CATALOG EDIT PROGRAM' * 01334200 //* * 01334300 //* THIS PROGRAM, CALLED 'CATUPDTE' IN EARLIER * 01334400 //* VERSIONS, IS INTENDED FOR USE IN MVS SYSTEMS * 01334500 //* CONTAINING A VSAM MASTER CATALOG AND ONE OR MORE * 01334600 //* NONVSAM 'USER' CATALOGS. IT EDITS NONVSAM * 01334700 //* DATASET ENTRIES IN BOTH MASTER CATALOG AND USER * 01334800 //* CATALOGS, DELETING ENTRIES FOR DATASETS * 01334900 //* INDICATED AS RE- SIDING ON DIRECT-ACCESS STORAGE * 01335000 //* VOLUMES BUT FOUND TO NOT EXIST ON THE VOLUMES * 01335100 //* SPECIFIED, DELETING EMPTY INDEX LEV- ELS IN * 01335200 //* NONVSAM 'USER' CATALOGS, AND CORRECTING TTR * 01335300 //* VALUES IN CATALOG ENTRIES FOR WHICH THESE VALUES * 01335400 //* FAIL TO DESCRIBE CORRECTLY THE LOCATIONS OF * 01335500 //* DATASET CONTROL BLOCKS (DSCB'S) FOR THE DATASETS * 01335600 //* CONCERNED. IT ALSO DELETES ENTRIES FROM USER * 01335700 //* CATALOGS FOR WHICH NO ALIAS RECORDS POINTING TO * 01335800 //* THE CATALOGS IN WHICH THEY OCCUR ARE FOUND IN * 01335900 //* THE MASTER CATALOG . RECORDS NOT SUBJECT TO * 01336000 //* ANY OF THE ABOVE CRITERIA ARE PASSED WITHOUT * 01336100 //* MODIFICATION. * 01336200 //* * 01336300 //* THE PROGRAM PROCESSES NONVSAM DATASET RECORDS IN * 01336400 //* THE MAS- TER CATALOG IN THE SEQUENCE IN WHICH IT * 01336500 //* ENCOUNTERS THEM DURING A SEQUENTIAL SCAN OF THAT * 01336600 //* CATALOG. WHENEVER IT EN- COUNTERS A NONVSAM * 01336700 //* RECORD IDENTIFYING A NONVSAM 'USER' CATALOG, IT * 01336800 //* PROCESSES THAT CATALOG FIRST AS A DATASET AND * 01336900 //* THEN AS A CATALOG BEFORE PROCESSING THE NEXT * 01337000 //* MASTER CATA- LOG NONVSAM RECORD. EXECUTION ENDS * 01337100 //* AFTER THE LAST NONVSAM RECORD IN THE MASTER * 01337200 //* CATALOG HAS BEEN PROCESSED. WITHIN EACH NONVSAM * 01337300 //* CATALOG, THE PROGRAM PROCESSES ENTRIES FOR * 01337400 //* DATASETS AND EMPTY INDEXES IN AN ASCENDING * 01337500 //* EBCDIC SEQUENCE OF THEIR NAMES. * 01337600 //* * 01337700 //* THE PROGRAM CONSISTS OF FOUR MODULES AS FOLLOWS: * 01337800 //* * 01337900 //* CSECT FUNCTION * 01338000 //* ---------- ------------------------------------* 01338100 //* CTLGDRVR LOCATES CATALOGS, CALLS OTHER * 01338200 //* MODULES TO PROCESS CATALOGS * 01338300 //* ICE SEARCHES NONVSAM CATALOGS, * 01338400 //* BUILDS LIST OF DATASET NAMES * 01338500 //* AND CATALOG ENTRY * 01338600 //* PROCESS READS LIST GENERATED BY CSECT * 01338700 //* ICE, TESTS VALIDITY OF * 01338800 //* ENTRIES, DELETES EXTRANE- * 01338900 //* ENTRIES, CORRECTS DEFECTIVE * 01339000 //* ENTRIES * 01339100 //* DSPNTRY OPENS, READS, CLOSES TEMPORARY * 01339200 //* DATASET CONTAINING LIST * 01339300 //* GENERATED BY CSECT ICE * 01339400 //* * 01339500 //* TO FORM AN EXECUTABLE LOAD MODULE FROM THE * 01339600 //* SOURCE MODULES, EACH MODULE MUST BE ASSEMBLED, * 01339700 //* AND THE RESULTING OBJECT MODULES MUST BE LINKED * 01339800 //* INTO A SUITABLE LIBRARY. CSECT CTLGDRVR MAY BE * 01339900 //* ASSEMBLED WITH THE &SYSPARM ASSEMBLY PARA- METER * 01340000 //* AS EXPLAINED LATER IN THIS INTRODUCTION. IN * 01340100 //* LINKING THE OBJECT MODULES INTO A SINGLE LOAD * 01340200 //* MODULE, THE ENTRY POINT FOR CSECT CTLGDRVR MUST * 01340300 //* BE DESIGNATED AS THE MAIN ENTRY POINT FOR THE * 01340400 //* LOAD MODULE. * 01340500 //* * 01340600 //* THE PROGRAM MAY BE EXECUTED IN BATCH VIA THE * 01340700 //* FOLLOWING JOB CONTROL STATEMENTS (JCL): * 01340800 //* * 01340900 //* //CATEDIT EXEC PGM=CATEDIT * 01341000 //* //SYSPRINT DD SYSOUT=A * 01341100 //* //SYSUT1 DD UNIT=SYSDA * 01341200 //* // SPACE=(CYL,(2,2)),DCB=BLKSIZE=3120 * 01341300 //* * 01341400 //* IT MAY ALSO BE EXECUTED IN TSO, EITHER DIRECTLY * 01341500 //* OR UNDER TEST. FOR EXECUTION IN BATCH, IT MUST * 01341600 //* EITHER BE LOADED FROM AN APF-AUTHORIZED LIBRARY * 01341700 //* OR HAVE BEEN ASSEMBLED WITH THE PARM OPTION * 01341800 //* &SYSPARM='SVC=XXX', IN WHICH 'XXX' IS THE NUMBER * 01341900 //* OF AN EXISTING TYPE-3 SVC WHICH RETURNS TO * 01342000 //* PROBLEM STATE WITH PROTECT KEY 0 AND REQUIRES * 01342100 //* ENTRY WITH REG 15 POINTING TO A FULL-WORD * 01342200 //* ALIGNED 16-BYTE FIELD WITH THE 8TH BYTE SET TO * 01342300 //* C'S' AND THE 9TH THROUGH 16TH BYTES AVAILABLE TO * 01342400 //* THE SVC FOR USE AS A WORK AREA. FOR EXECUTION * 01342500 //* UNDER TSO, THE PROGRAM MUST HAVE BEEN ASSEMBLED * 01342600 //* WITH THE &SYS- PARM SPECIFICATION UNLESS THE * 01342700 //* SYSTEM PERMITS TSO TO RUN WITH APF * 01342800 //* AUTHORIZATION. WHEN THE &SYSPARM OPTION IS * 01342900 //* USED, THE PROGRAM MAY BE LOADED FROM ANY * 01343000 //* LIBRARY. * 01343100 //* * 01343200 //* THE PRESENT VERSION OF THE PROGRAM WAS DEVELOPED * 01343300 //* FROM A VERSION DISTRIBUTED BY UNIVERSITY OF * 01343400 //* ILLINOIS AT CHICAGO CIRCLE (UICC) ON 07/16/76. * 01343500 //* CHANGES INCLUDE: (1) PROVISION FOR DYNAMICALLY * 01343600 //* ALLOCATING AND READING SYS1.NUCLEUS(SYS- CATLG) * 01343700 //* TO OBTAIN THE NAME AND LOCATION OF THE VSAM * 01343800 //* MASTER CATALOG; (2) PROVISION FOR DYNAMICALLY * 01343900 //* ALLOCATING AND READING THE VSAM MASTER CATALOG * 01344000 //* TO ACCESS ENTRIES FOR NON- VSAM DATASETS * 01344100 //* CONTAINED IN THAT CATALOG, INCLUDING THOSE FOR * 01344200 //* NONVSAM 'USER' CATALOGS, AND TO VERIFY * 01344300 //* CONNECTION OF HIGH-LEVEL INDEXES IN USER * 01344400 //* CATALOGS TO ALIAS NAMES IN THE MASTER CATALOG; * 01344500 //* (3) PROVISION FOR DYNAMICALLY ALLOCATING THE * 01344600 //* USER CATALOGS; (4) CORRECTION OF A CODING ERROR * 01344700 //* WHICH CAUSED DELETION OF EMPTY INDEXES TO FAIL; * 01344800 //* (5) AND EDITING OF DOCUMENTATION IN GENERAL TO * 01344900 //* IMPROVE READABILITY OF SOURCE LISTINGS. * 01345000 //* INCORPORATION OF DYNAMIC ALLOCATION ELIMINATES * 01345100 //* THE NEED FOR THE DD STATEMENTS FOR USER CATA- * 01345200 //* LOGS REQUIRED BY THE 07/16/76 VERSION OF THE * 01345300 //* PROGRAM. THE REMAINDER OF THIS OPENING * 01345400 //* DOCUMENTATION IS COPIED WITH ONLY MINOR EDITING * 01345500 //* FROM THAT ACCOMPANYING THE 07/16/76 VERSION OF * 01345600 //* THE PROGRAM: * 01345700 //* * 01345800 //* DOCUMENTATION OF MVS VERSION OF CATUPDTE 7/16/76 * 01345900 //* * 01346000 //* THIS VERSION OF CATUPDTE HAS ELIMINATED ITS * 01346100 //* DEPENDENCE ON AN ASSEMBLED DEVICE TABLE; IT NOW * 01346200 //* USES SYSTEM SOURCES. * 01346300 //* * 01346400 //* THIS VERSION OF CATUPDTE ALSO ACCEPTS SOME * 01346500 //* CONTROL CARDS VIA SYSIN TO ALLOW FOR * 01346600 //* RECATALOGING DATASETS FROM ONE VOLUME TO ANOTHER * 01346700 //* OR UNCATALOGING BY DEVICE TYPE, ETC. THE * 01346800 //* LISTING FOR THE PROCESS SUBROUTINE PROVIDES * 01346900 //* FURTHER INFORMATION. * 01347000 //* * 01347100 //* CATUPDTE WAS ORIGINALLY WRITTEN BY BARRY * 01347200 //* SCHRAGER AND TOM KOLE AT U OF I, WAS MODIFIED * 01347300 //* AND ENHANCED BY BOEING COMPUTER SER- VICES, AND * 01347400 //* WAS FINALLY ENHANCED AT UICC BY EB KLEMENS. THE * 01347500 //* LAST VERSION HAD TO BE MODIFIED SINCE MVS NO * 01347600 //* LONGER SUPPORTED LOCATE BY TTR. THE PRESENT * 01347700 //* VERSION USES BDAM TO READ THE CATALOGS. * 01347800 //* * 01347900 //***FILE 276 IS SPY WHICH IS A TSO COMMAND PROCESSOR FROM * 01348000 //* SOUTHERN CALIFORNIA EDISON COMPANY. THIS CP DISPLAYS * 01348100 //* ALL ACTIVE OPERATORS CONSOLES ON A 3270 TSO TERMINAL. * 01348200 //* ADDITIONAL DOCUMENTATION IS GIVEN WITH IN THE CODE. * 01348300 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT ON THIS TAPE. * 01348400 //* SPY COMMENTS: * 01348500 //* 1. IT IS A PROGRAM THAT SHOULD BE CALLED OR ATTAHCED * 01348600 //* AS A COMMAND PROCESSOR (NOTE: IT DOES NOT USE R1 * 01348700 //* UPON ENTRY) * 01348800 //* 2. IT IS NOT AUTHORIZED * 01348900 //* 3. IT IS NOT RE-ENTRANT * 01349000 //* 4 IT HAS A HELP FACILITY - ENTER A '?' ANYTIME * 01349100 //* AFTER CALLING IT * 01349200 //* 5 IT WILL LINK TO PROGRAM 'SWAP' (MUST BE CONTAINED * 01349300 //* IN SAME LIBRARY AS 'SPY'). 'SWAP' IS AN ENHANCED * 01349400 //* VERSION OF 'MIPS'. BOTH PROGRAMS ARE IN SOURCE * 01349500 //* FORMAT ON THIS TAPE * 01349600 //* 6 IT IS WRITTEN TOTALLY IN ASSEMBLER * 01349700 //* 7 HAS MVS/SE 1 AND MVS/SE2 SUPPORT * 01349800 //* 8 HAS TO RUN AUTHORIZED * 01349900 //* * 01350000 //***FILE 277 IS IN IEBUPDTE FORMAT AND CONTAINS THE SOURCE * 01350100 //* FOR JESCNCL WHICH IS A TSO CP TO NOTIFY THE XWRTR * 01350200 //* TO CANCEL 3284 OUTPUT AND A PGM THAT IS A REPLACEMENT * 01350300 //* FOR DSPRINT * 01350400 //* * 01350500 //***FILE 278 IS AN UPDATED COPY OF THE QUEUE COMMAND FROM TRW * 01350600 //* (JES2 TAPE VERSION 18). THIS VERSION HAS A NUMBER OF * 01350700 //* ENHANCEMENTS AND CLEANUP FIXED INSTALLED. THE SUPPORT * 01350800 //* FOR JES2 PRIOR TO 79/09 WAS REMOVED AND THE CODE * 01350900 //* STANDARDIZED ON THE DUPLEX CHECKPOINT LEVEL. A SCREEN * 01351000 //* PRINT FACILITY WAS ADDED. THE PDDB SYSOUT COUNTS ARE * 01351100 //* LISTED ON THE DD SUBCOMMAND. SUPPORT WAS ADDED TO FIND * 01351200 //* AND LIST TSO DYNAMICALLY SPUN SYSOUT. IF YOU WISH TO * 01351300 //* USE THE COMMANDS: CANCEL, REQUEUE, AND PURGE THE * 01351400 //* COMMAND MUST BE RUN AUTHORIZED. IF THE COMMAND IS * 01351500 //* MARKED AC=0 YOU WILL NOT BE ALLOWED TO ISSUE THOSE * 01351600 //* COMMANDS * 01351700 //* WE AT CBT PUT THE FOLLOWING TWO IBM MACROS IN THIS * 01351800 //* PDS: * 01351900 //* TGET AT PTF UZ30398 PUT TAPE 8002 (CALLED TTGET) * 01352000 //* TPUT AT PTF UZ29403 PUT TAPE 8002 (CALLED TTPUT) * 01352100 //* IF YOUR TGET/TPUT MACROS ARE NOT AT THIS LEVEL OR * 01352200 //* HIGHER YOU'LL PROBABLY GET ASSEMBLE ERRORS IN QCOMMON. * 01352300 //* BECAUSE OF PE CHAINS YOU MAY NOT HAVE ON THE ABOVE * 01352400 //* PTF'S. IF YOU ARE AT A HIGHER LEVEL YOU MAY WANT TO * 01352500 //* DELETE TGET AND TPUT FROM THE PDS IN THIS FILE. WE * 01352600 //* HAVE BEEN RUNNING THIS CODE SINCE 6/10/80 * 01352700 //* * 01352800 //* ******************************************* * 01352900 //* * * * 01353000 //* * SOME INSTALLATIONS HAVE HAD THE * * 01353100 //* * FOLLOWING PROBLEM WITH QUE. IT ASSEMBLES * * 01353200 //* * FINE BUT IT NEVER PUTS ANYTHING OUT TO * * 01353300 //* * THE SCREEN. THE CIRCUMVENTION IS TO GET * * 01353400 //* * THE TPUT AND TGET MACROS FROM PUT TAPE * * 01353500 //* * 8007. * * 01353600 //* * * * 01353700 //* ******************************************** * 01353800 //* * 01353900 //* ---- QUEUE COMMAND -------------------------------------------- * 01354000 //* * 01354100 //* QUEUE SUBCOMMAND OPERAND DEFAULT Q STATUS* * 01354200 //* Q CAN USE Q CKPT(DEVTYPE,VOLSER) * 01354300 //* TO GET NONSTANDARD CHECKPOINT. * 01354400 //* * 01354500 //* ---- SYSTEM DISPLAYS ------------------------------------------ * 01354600 //* * 01354700 //* DA JOBS IN EXECUTION * 01354800 //* DT DISPLAY TSO USERS * 01354900 //* DS DISPLAY STARTED TASKS * 01355000 //* DC (B/S/T) DISPLAY CPU BATCH/STC/TSO * 01355100 //* STATUS (LEVEL) JOB STATUS. DEFAULT FOR STATUS * 01355200 //* IS* (TSO ID). * 01355300 //* * 01355400 //* ---- INPUT QUEUE DISPLAYS ------------------------------------- * 01355500 //* * 01355600 //* DQ DISPLAY INPUT QUEUES * 01355700 //* DI (CLASS) DISPLAY ALL INPUT JOBS * 01355800 //* AI (CLASS) DISPLAY AVAILABLE JOBS * 01355900 //* HI (CLASS) DISPLAY HELD JOBS * 01356000 //* * 01356100 //* ---- OUTPUT QUEUE DISPLAYS------------------------------------- * 01356200 //* * 01356300 //* DF DISPLAY OUTPUT QUEUES * 01356400 //* DO (CLASS) DISPLAY ALL OUTPUT JOBS * 01356500 //* AO (CLASS) DISPLAY AVAILABLE OUTPUT * 01356600 //* HO (CLASS) DISPLAY HELD OUTPUT * 01356700 //* * 01356800 //* ---- JOB MODIFICATION SUBCOMMANDS ----------------------------- * 01356900 //* * 01357000 //* CAN JOBNAME (PURGE) CANCEL FROM INPUT OR EXECUTION. * 01357100 //* DELETE OUTPUT IF PURGE IS SPECIFIED * 01357200 //* REQ JOBNAME CLASS CHANGE SYSOUT CLASS * 01357300 //* DEL JOBNAME DELETE HELD OUTPUT * 01357400 //* * 01357500 //* ---- MISC SUBCOMMANDS ----------------------------------------- * 01357600 //* * 01357700 //* SLOG STC# SEQ LIST SYSTEM LOG. ST SYSLOG WILL GET STC#. * 01357800 //* IF SEQ IS NOT SPECIFIED ZERO * 01357900 //* IS ASSUMED (CURRENT). * 01358000 //* FTIME HH.MM.SS POSITION SYSLOG TO TIME * 01358100 //* H/HELP HELP * 01358200 //* E/END EXIT * 01358300 //* * 01358400 //* ---- JOB RELATED SUBCOMMANDS ---------------------------------- * 01358500 //* * 01358600 //* DJ JOBNAME DISPLAY JOB * 01358700 //* JCL JOBNAME LIST JOB JCL * 01358800 //* JLOG JOBNAME LIST JOB LOG * 01358900 //* JMSG JOBNAME LIST JOB MESSAGES * 01359000 //* DD JOBNAME JES2 DD SUMMARY * 01359100 //* LIST JOBNAME DSID LIST JES2 DATASET. OBTAIN DSID VALUES * 01359200 //* BY USING THE DD SUBCOMMAND. * 01359300 //* * 01359400 //* ---- LIST RELATED SUBCOMMANDS --------------------------------- * 01359500 //* * 01359600 //* FIND 'STRING' COL(SS,EE) FIND NEXT OCCURANCE OF 'STRING' * 01359700 //* IN THE DATA. * 01359800 //* FALL 'STRING' COL(SS,EE) FIND ALL OCCURANCES OF 'STRING' * 01359900 //* IN THE DATA. STRING MUST BE IN QUOTES * 01360000 //* COL DEFAULT IS ALL. * 01360100 //* * 01360200 //* COL # POSITION TO COLUMN # * 01360300 //* @ # POSITION TO RECORD # * 01360400 //* D/+ # MOVE FORWARD # LINES * 01360500 //* UP/- # MOVE BACKWARD # LINES * 01360600 //* TOP TOP OF CURRENT DATASET * 01360700 //* BOTTOM BOTTOM OF CURRENT DATASET * 01360800 //* HF/HB # FORWARD/BACKWARD # HALF PAGES * 01360900 //* PF/PB # FORWARD/BACKWARD # PAGES * 01361000 //* * 01361100 //* DEFAULT VALUE FOR # IS 1. * 01361200 //* SYNONYMS L-LIST F-FIND C-COLUMN * 01361300 //* T-TOP B-BOTTOM * 01361400 //* * 01361500 //* ---------- LOGGING SUBCOMMANDS--------------------------------- * 01361600 //* * 01361700 //* SAVE DSNAME TYPE COPY DATASET * 01361800 //* PRINT ON CLASS DEST OPEN SCREEN LOG * 01361900 //* DEFAULT PRINT CLASS IS SYSOUT=A. * 01362000 //* PRINT PRINT SCREEN * 01362100 //* PRINT OFF CLOSE SCREEN LOG * 01362200 //* * 01362300 //* ------------------------------- * 01362400 //* | PF1 | PF2 | PF3 | PROGRAM FUNCTION KEY * 01362500 //* | HELP | DA | END | DEFINITIONS. * 01362600 //* ------------------------------- * 01362700 //* | PF4 | PF5 | PF6 | TO SPECIFY OPERANDS FOR PF 5 * 01362800 //* | PRINT | FIND | DI | OR OPTIONALLY FOR PF 6,9,12 * 01362900 //* ------------------------------- OR TO OVERRIDE DEFAULTS FOR * 01363000 //* | PF7 | PF8 | PF9 | PF 4,7,8,10,11 KEY IN THE * 01363100 //* | - 21 | + 21 | DO | VALUE AND PRESS THE KEY * 01363200 //* ------------------------------- * 01363300 //* | PF10 | PF11 | PF12 | * 01363400 //* | COL 1 | COL 41 | ST | * 01363500 //* ------------------------------- * 01363600 //* * 01363700 //***FILE 279 IS FROM THE STATE OF WISCONSIN REGIONAL COMPUTING * 01363800 //* CENTER AND CONTAINS SEVERAL OF THEIR LOCAL MODS AND * 01363900 //* SUCH. SEE THE MEMBER CALLED $INDEX$ FOR ADDITIONAL * 01364000 //* INFORMATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01364100 //* * 01364200 //***FILE 280 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01364300 //* DOCUMENTATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01364400 //* * 01364500 //***FILE 281 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01364600 //* LOAD MODULES. THIS FILE IS IN IEBCOPY FORMAT * 01364700 //* * 01364800 //***FILE 282 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01364900 //* MACLIB. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01365000 //* * 01365100 //***FILE 283 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01365200 //* MEMO TO USERS. THIS FILE IS IN IEBCOPY FORMAT * 01365300 //* * 01365400 //***FILE 284 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01365500 //* SOURCE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01365600 //* * 01365700 //***FILE 285 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01365800 //* HYPHENATION FILE. THIS FILE IS IN IEBGENER FILE * 01365900 //* RECFM=VB, LRECL=80, BLKSIZE=32720 * 01366000 //* * 01366100 //***FILE 286 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01366200 //* OBJECT MODULES. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01366300 //* * 01366400 //***FILE 287 IS FROM WISCONSIN STATE AND CONTAINS THE SCRIPT * 01366500 //* TSO PROMPTER. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01366600 //* * 01366700 //***FILE 288 IS A PROGRAM TO INCREASE THE NUMBER OF DIRECTORY * 01366800 //* BLOCKS IN A PDS WITHOUT HAVE TO DELETE ALL THE * 01366900 //* MEMBERS IN THE PDS TO DO IT. THIS CODE WAS ORIGINALLY * 01367000 //* ON AN OLD VERSION OF AN VS1 MODIFICATION TAPE, * 01367100 //* IT WAS MODIFIED TO RUN AT CBT. WE RUN AT AN * 01367200 //* MVS/SP1.3 LEVEL BUT THIS CODE SHOULD RUN AT JUST * 01367300 //* ABOUT AN MVS LEVEL. THIS FILE IS IN IEBUPDTE SYSIN * 01367400 //* FORMAT. SEE BELOW FOR ADDITION INFORMATION ABOUT THE * 01367500 //* CODE * 01367600 //* * 01367700 //* ******************************************** * 01367800 //* * * * 01367900 //* * TO HAVE THIS PROGRAM WORK CORRECTLY YOU * * 01368000 //* * MUST HAVE AT LEAST ONE MEMBER IN THE PDS * * 01368100 //* * ELSE WHEN YOU ADD THE FIRST MEMBER THE * * 01368200 //* * THE NUMBER OF DIRECTORY BLOCKS WILL GO * * 01368300 //* * TO THE NUMBER THAT WAS ORIGINALLY SPECI- * * 01368400 //* * FIED. THE DL1STAR IS NOT PROPERLY SET IF * * 01368500 //* * THERE ARE NO MEMBERS IN THE PDS. * * 01368600 //* ******************************************** * 01368700 //* * 01368800 //* PROGRAM FUNCTION: * 01368900 //* * 01369000 //* THIS PROGRAM WILL EXTEND THE NUMBER OF DIRECTORY BLOCKS * 01369100 //* IN A PDS BY A 3 BYTE AMOUNT PASSED IN THE PARM FIELD ON * 01369200 //* THE EXECUTE CARD. THIS SAVES THE SCRATCHING AND * 01369300 //* REALLOCATING OF THE DATA SET. * 01369400 //* * 01369500 //* METHOD OF OPERATION: * 01369600 //* * 01369700 //* THE FORMAT 1 DSCB IS READ AND A CHECK IS MADE TO INSURE * 01369800 //* PARTITIONED ORGANIZATION. THE FORMAT 4 DSCB IS READ * 01369900 //* AND THE NUMBER OF DIRECTORY BLOCKS THAT CAN FIT ON A * 01370000 //* TRACK IS STORED OFF. THE DIRECTORY IS READ, NUMBER OF * 01370100 //* DIRECTORY BLOCKS IS COUNTED AND NOTE IS MADE OF END OF * 01370200 //* DIRECTORY. THE END OF THE NEW DIRECTORY IS CALCU- * 01370300 //* LATED AND ANY MEMBERS OF THE PDS THAT ARE IN THE NEW * 01370400 //* DIRECTORY AREA ARE MOVED UNTIL THAT AREA IS CLEARED. * 01370500 //* ALIASES ARE NOTED AND A STOW REPLACE IS DONE FOR THEM * 01370600 //* ALSO. ALL LOAD MODULES THAT HAVE A NOTE LIST ARE * 01370700 //* READJUSTED TO REFLECT THEIR NEW LOCATION IN THE PDS. * 01370800 //* THE DIRECTORY IS NOW EXTENDED BY THE NUMBER OF BLOCKS * 01370900 //* SPECIFIED. * 01371000 //* * 01371100 //* NOTE: * 01371200 //* * 01371300 //* AT THIS TIME THERE IS NO SUPPORT FOR UPDATING A * 01371400 //* SCATTER TRANSLATE TABLE IN A MOVED MEMBER IF THAT * 01371500 //* MEMBER WAS LINK-EDITED WITH THE SCATTER LOAD ATTRIBUTE * 01371600 //* (I.E. IEANUC01). * 01371700 //* * 01371800 //* JCL REQUIRED FOR EXECUTION * 01371900 //* * 01372000 //* JOB STATEMENT----------INSTALLATION JOB CARD * 01372100 //* EXEC STATEMENT---------SPECIFIES PROGRAM TO BE * 01372200 //* EXECUTED. PARM FIELD * 01372300 //* MUST BE A THREE-BYTE * 01372400 //* NUMBER IN PRINTABLE * 01372500 //* FORMAT GIVING THE NUMBER * 01372600 //* OF DIRECTORY BLOCKS TO BE * 01372700 //* ADDED TO THE PDS BEING * 01372800 //* EXPANDED. * 01372900 //* SYSPRINT DD STATEMENT--USED TO WRITE OUT * 01373000 //* PROGRAM MESSAGES, * 01373100 //* INCLUDING ERRORS MESSAGES * 01373200 //* CBT1327A DD STATEMENT--FURNISHES INFORMATION * 01373300 //* CONCERNING THE DATSET * 01373400 //* WHOSE DIRECTORY IS TO BE * 01373500 //* EXPANDED. * 01373600 //***FILE 289 IS A SYSTEM FROM ARAMACO TO DESIGN 3270 FULL SCREEN * 01373700 //* DISPLAYS FOR USE IN PL/I PROGRAMS. IT WILL GENERATE * 01373800 //* THE NECESSARY PL/I DECLARE STATEMENTS TO PRODUCE THE * 01373900 //* SCREENS. THE OUTPUT IS DESIGNED TO BE INCLUDED IN A * 01374000 //* PL/I PROGRAM. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01374100 //* * 01374200 //***FILE 290 IS DOCUMENTATION FOR THE SYSTEM CONTAINED IN FILE * 01374300 //* 289 OF THIS TAPE AND IS IN IEBCOPY FORMAT * 01374400 //* * 01374500 //***FILE 291 IS MORE DOCUMENTATION FOR THE SYSTEM CONTAINED IN * 01374600 //* 289 OF THIS TAPE AND IS IN IEBCOPY FORMAT * 01374700 //* * 01374800 //***FILE 292 IS A TSO COMMAND PROCESSOR CALLED NEWS FROM ARAMCO, * 01374900 //* AND UPDATED BY DAVE THEWLIS OF KAISER. * 01375000 //* THIS CP WILL DYNAMICALLY ALLOCATE A DATASET * 01375100 //* WHICH CONTAINS NEWS/BROADCAST INFORMATION ABOUT * 01375200 //* ONE'S INSTALLATION. SEE FILE 293 FOR A COPY * 01375300 //* OF WHAT CBT CURRENTLY USES. THIS FILE IS IN IEBUPDTE * 01375400 //* SYSIN FORMAT AND ALSO CONTAINS THE HELP MEMBER FOR * 01375500 //* THE COMMAND. SEE THE MEMBER CALLED $DOC FOR MORE INFO * 01375600 //* * 01375700 //***FILE 293 IS A COPY OF CBT'S NEWS DATA SET THAT IS ACCESSED * 01375800 //* BY THE TSO CP IN FILE 292 OF THIS TAPE. THIS FILE * 01375900 //* IS RECFM=VB,LRECL=255,BLKSIZE=32644. THE ONLY * 01376000 //* DOCUMENTATION FOR THIS IS IN THE CODE ITSELF (SEE * 01376100 //* FILE 292) AND THE FIRST FEW LINES OF THIS FILE * 01376200 //* * 01376300 //***FILE 294 CONTAINS THE THE SOURCE FOR THE TSO CP CALLED VSAMANAL* 01376400 //* THE LOAD MODULES FOR THIS PROGRAM RESIDE IN FILE 035 * 01376500 //* OF THIS TAPE. * 01376600 //* THE VSAMANAL TSO CP IS USED TO PROVIDE THE USER WITH * 01376700 //* A METHOD OF DETERMINING HOW MUCH PHYSICAL SPACE A * 01376800 //* DATASET WILL REQUIRE IT CAN ALSO BE USED TO DETERMINE * 01376900 //* AN OPTIMUM DATA CI-SIZE, CI AND CA FREESPACE PERCENT- * 01377000 //* AGES BASED ON FREE RECORD VALUES, TRACK UTILIZATION * 01377100 //* PERCENTAGES, AND OTHER VSAM DATASET STATISTICS THAT * 01377200 //* ARE HELPFUL WHEN DEFINING A NEW DATASET OR ANALYSING * 01377300 //* EXISTING DATASET DEFINITIONS. VSAMANAL USES 3270 * 01377400 //* THE DEVICES CURRENTLY SUPPORTED ARE 3350'S AND 3330'S * 01377500 //* AND 3380'S . * 01377600 //* * 01377700 //***FILE 295 IS CODE THAT WILL LOAD THE RESIDENT PFK AREA FROM CARD* 01377800 //* IMAGE INPUT. THE OPERATORS MAY MAKE THE CHANGES * 01377900 //* PERMANENT AND UPDATE SYS1.DCMLIB BY MEARLY UPDATING * 01378000 //* ANY PFK. THIS WILL CAUSE THE IEEPKFEY MEMBER TO * 01378100 //* BE REWRITTEN WITH ALL PFK'S. * 01378200 //* THIS PROGRAM WAS RECEIVED FROM THE AUTO CLUB OF * 01378300 //* SOUTHERN CALIFORNIA AND MAY BE RUN AS IS UNDER MVS * 01378400 //* OR VS1. * 01378500 //* NOTE -- THIS PROGRAM MUST RUN AUTHORIZED OR KEY * 01378600 //* ZERO. * 01378700 //* * 01378800 //* ** SOMETIMES THIS PGM WILL ABEND WITH A 30A-2 WHEN IT * 01378900 //* HAS BLOCKED INPUT - BUT DON'T WORRY ALL IS OKAY. IT * 01379000 //* ABENDS WHEN IT GOES TO CLOSE SYSIN ** * 01379100 //* * 01379200 //***FILE 296 IS A SERIES OF UTILITES FROM MR BRUCE LELAND . THIS * 01379300 //* FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS: * 01379400 //* * 01379500 //* 01. DSAT- THE DSAT COMMAND IS USED TO DISPLAY * 01379600 //* ALLOCATION INFORMATION FOR DATA SETS * 01379700 //* ON A DIRECT ACCESS DEVICE. * 01379800 //* * 01379900 //* DSAT WILL SEARCH THE OS CATALOG AND * 01380000 //* CVOLS FOR THE ENTRIES FOR THE DATA * 01380100 //* SETS SPECIFIED. ALLOCATION * 01380200 //* INFORMATION WILL BE OBTAINED FROM THE * 01380300 //* VOLUME TABLE OF CONTENTS, FORMATTED * 01380400 //* AND DISPLAYED. IF A NAME IS AN INDEX * 01380500 //* NAME, ALL DATA SETS BELOW THE INDEX * 01380600 //* WILL BE DISPLAYED. * 01380700 //* * 01380800 //* THE USER MAY BYPASS THE CATALOG * 01380900 //* SEARCH BY SUPPLYING THE VOLUME SERIAL * 01381000 //* ON WHICH THE DATA SET RESIDES. THIS * 01381100 //* OPTION PERMITS DISPLAYING INFORMATION * 01381200 //* FOR UNCATALOGED DATA SETS. * 01381300 //* * 01381400 //* THE ATTRIBUTES TO BE DISPLAYED MAY BE * 01381500 //* SELECTED BY THE USER WHEN HE ENTERS * 01381600 //* THE DSAT COMMAND BY SPECIFYING * 01381700 //* KEYWORD OPERANDS. * 01381800 //* * 01381900 //* THE DSAT COMMAND MAY BE USED IN * 01382000 //* COMMAND PROCEDURES TO FIND THE * 01382100 //* ALLOCATION OF A DATA SET OR A GROUP * 01382200 //* OF DATA SETS AND SET THE RETURN CODE * 01382300 //* TO THE SPECIFIED VALUE. THE RETURN * 01382400 //* CODE MAY THEN BE TESTED WITH THE WHEN * 01382500 //* COMMAND. OUTPUT MAY BE SUPPRESSED BY * 01382600 //* SPECIFYING NOPRINT. * 01382700 //* * 01382800 //* THE USER MAY CHOOSE WHAT INFORMATION * 01382900 //* WILL BE DISPLAYED BY ENTERING * 01383000 //* KEYWORDS. * 01383100 //* * 01383200 //* THE INFORMATION THAT MAY BE DISPLAYED IS: * 01383300 //* 1. VOLUME SERIAL ON WHICH THE DATA SET IS LOCATED. * 01383400 //* 2. FILE SEQUENCE NUMBER. * 01383500 //* 3. DEVICE TYPE CODE FROM CATALOG ENTRY. * 01383600 //* 4. ALLOCATION (ALLOCATED, USED, AND EXTENTS). * 01383700 //* 5. SECONDARY ALLOCATION (AMOUNT AND UNITS). * 01383800 //* 6. DATA SET ORGANIZATION. * 01383900 //* 7. DCB (RECFM, BLKSIZE, AND LRECL). * 01384000 //* 8. CREATION DATE. * 01384100 //* 9. EXPIRATION DATE. * 01384200 //* 10. FULLY QUALIFIED DATA SET NAME. * 01384300 //* 11. CCHHR OF THE FORMAT 1 DSCB. * 01384400 //* 12. GENERATION DATA GROUP DATA. * 01384500 //* 13. PDS DIRECTORY INFORMATION. * 01384600 //* * 01384700 //* 02. DVOL- THE DVOL COMMAND IS USED TO DISPLAY * 01384800 //* THE AMOUNT OF OF FREE SPACE ON A * 01384900 //* DIRECT ACCESS DEVICE. * 01385000 //* * 01385100 //* DVOL WILL READ THE FORMAT 4 AND * 01385200 //* FORMAT 5 DSCB'S FROM THE VTOC OF A * 01385300 //* DIRECT ACCESS VOLUME AND DISPLAY: * 01385400 //* * 01385500 //* 1. VOLUME SERIAL * 01385600 //* 2. UNIT ADDRESS * 01385700 //* 3. MOUNT STATUS * 01385800 //* 4. USE STATUS * 01385900 //* 5. NUMBER OF BLANK DSCB'S IN THE VTOC * 01386000 //* 6. CONDITION OF THE VTOC INDICATORS BYTE * 01386100 //* 7. VSAM DATA FIELDS * 01386200 //* 8. TOTAL FREE SPACE IN TRACKS * 01386300 //* 9. NUMBER OF FREE EXTENTS * 01386400 //* 10. NUMBER OF FREE CYLINDERS * 01386500 //* 11. SIZE OF LARGEST EXTENTS (UP TO 5) IN * 01386600 //* CYLINDERS + TRACKS * 01386700 //* 12. SIZE OF LARGEST EXTENTS (UP TO 5) IN TRACKS * 01386800 //* * 01386900 //* THE RETURN CODE IS SET TO THE TOTAL * 01387000 //* NUMBER OF TRACKS IN THE LARGEST * 01387100 //* EXTENTS (UP TO 5) UP TO A MAXIMUM OF * 01387200 //* 4095. IF THE NUMBER OF FREE TRACKS * 01387300 //* EXCEEDS 4095, THE RETURN CODE WILL * 01387400 //* BE SET TO 4095. IF MORE THAN ONE * 01387500 //* VOLUME IS DISPLAYED, THE RETURN CODE * 01387600 //* WILL BE REFER TO THE SPACE ON THE * 01387700 //* LAST VOLUME. IF AN ERROR CONDITION * 01387800 //* EXISTS ON THE VOLUME, THE RETURN * 01387900 //* CODE WILL BE SET TO 0. * 01388000 //* * 01388100 //* NOTE - IF AN ERROR CONDITION EXISTS * 01388200 //* ON THE VOLUME, THE RETURN * 01388300 //* CODE WILL BE SET TO 0. * 01388400 //* * 01388500 //* 03. RESET - PERFORMS THE EQUIVALENT OF A DATASET * 01388600 //* SCRATCH FOLLOWED BY A REALLOCATION IN * 01388700 //* THE SAME SPACE FOR A PDS. THE NUMBER * 01388800 //* OF DIRECTORY BLOCKS CAN BE CHANGED VIA * 01388900 //* THE PROGRAM PARM * 01389000 //* 04. BLKDISK - SEE BELOW FOR A COMPLETE DESCRIPTION: * 01389100 //* * 01389200 //* DESCRIPTION: THIS PROGRAM COMPUTES AN "OPTIMAL" * 01389300 //* BLOCKSIZE FOR A DISK OR DRUM DATA SET GIVEN THE * 01389400 //* LOGICAL RECORD LENGTH. INPUTS INCLUDE THE LRECL * 01389500 //* AND OPTIONALLY ANY OF THE FOLLOWING: * 01389600 //* * 01389700 //* A. A KEY LENGTH (ZERO, FOR NO KEY, IS THE * 01389800 //* DEFAULT) B. THE NUMBER OF RECORDS IN THE DATA * 01389900 //* SET (USED FOR AN * 01390000 //* ALLOCATION COMPUTATION -- 100,000 IS THE DEFAULT) * 01390100 //* C. THE BLOCKSIZE TO USE FOR THE ALLOCATION * 01390200 //* COMPUTATION (THE RECOMMENDED BLOCKSIZE VALUE * 01390300 //* IS THE DEFAULT) * 01390400 //* D. WHETHER OR NOT TO PROVIDE A TRACK CAPACITY * 01390500 //* REPORT E. WHETHER OR NOT TO VERIFY RESULTS * 01390600 //* AGAINST "TRKCALC" * 01390700 //* * 01390800 //* * 01390900 //* SUPPORTED DEVICES: THE NAME BY WHICH THIS COMMAND * 01391000 //* PROCESSOR IS INVOKED DETERMINES THE DEVICE TYPE * 01391100 //* TO BE USED. * 01391200 //* * 01391300 //* THE FIRST THREE CHARACTERS OF THE COMMAND NAME * 01391400 //* (USUALLY "BLK") ARE IGNORED; THE REMAINING FOUR * 01391500 //* OR FIVE CHARACTERS ARE COMPARED AGAINST A TABLE * 01391600 //* OF SUPPORTED DEVICES IN THE PROGRAM. THE VALID * 01391700 //* ALIAS NAMES FOR THE PROGRAM INCLUDE THE * 01391800 //* FOLLOWING: * 01391900 //* * 01392000 //* A. BLK23051 (FOR 2305-1 DRUMS) * 01392100 //* B. BLK23052 (FOR 2305-2 DRUMS) * 01392200 //* C. BLK2314 (FOR 2314 DISKS) * 01392300 //* D. BLK3330 (FOR 3330 DISKS) * 01392400 //* E. BLK33301 (FOR 3330 MODEL 11 DISKS) * 01392500 //* F. BLK3340 (FOR 3340 DISKS) * 01392600 //* G. BLK3350 (FOR 3350 DISKS) * 01392700 //* H. BLK3375 (FOR 3375 DISKS) * 01392800 //* THE MVS SP 1.1 TRKCALC * 01392900 //* DOES NOT SUPPORT 3375'S. * 01393000 //* I. BLK3380 (FOR 3380 DISKS) * 01393100 //* * 01393200 //* 05. REVIEW - A FULL SCREEN LIST TSO CP (MODIFIED FROM * 01393300 //* THE AIRFORCE VERSION IN FILE 300 OF THIS TAPE) * 01393400 //* * 01393500 //* 06. HEL - A FULL SCREEN HELP FACILITY SEE THE * 01393600 //* SOURCE FOR ADDITIONAL INFORMATION * 01393700 //* * 01393800 //* 07. XEQ - A COMMAND PROCESSOR THAT IS DESIGNED TO * 01393900 //* LOAD AND EXECUTE (ATTACH) A PROGRAM IN ONE OF THE * 01394000 //* SYSTEM LINK LIBRARIES OR A USER LIBRARY (TASKLIB) * 01394100 //* * 01394200 //* 08 COMPARE - A SLIGHTLY MODIFIED VERSION OF THE YALE * 01394300 //* COMPARE PROGRAM * 01394400 //* * 01394500 //***FILE 297 IS A COPY OF LSPACE AND VTOC FOR MVS XA FROM MR BEN * 01394600 //* MOORE OF FEDERAL EXPRESS . THIS CODE WILL ONLY RUN * 01394700 //* ON AN MVS XA SYSTEM . THIS FILE IS IN IEBUPDTE SYSIN * 01394800 //* FORMAT * 01394900 //* * 01395000 //***FILE 298 CONTAINS A UCBZAP PROGRAM FROM GERMANY. THIS PROGRAM * 01395100 //* MAY BE USED TO CHANGE THE ONLINE/OFFLINE CHARACTER- * 01395200 //* ISTICS OF UNITS AFTER SYSTEN. THIS IS DONE BY * 01395300 //* GENERATING IMASPZAP CONTROL CARDS AND SUPERZAPPING THE * 01395400 //* UCB ONLINE FLAG BIT IN THE GENNED NUCLEUS * 01395500 //* * 01395600 //***FILE 299 CONTAINS THE SOURCE FOR THE TAPEMAP PROGRAM FROM DAVE * 01395700 //* COLE AT COMNET . THIS VERSION IS A COMPILATION OF THE * 01395800 //* ORIGINAL CODE FROM UCLA (THAT USED TO BE IN FILE 149) * 01395900 //* AND THE MODIFIED CODE THAT USED TO BE IN FILE 316 * 01396000 //* FROM THE AIRFORCE AND SOME ADDITIONAL CHANGES FROM * 01396100 //* COMNET. * 01396200 //* * 01396300 //* THIS PROGRAM WILL PROVIDE SPECIAL INFORMATION * 01396400 //* FOR TAPE FILES CREATED BY IEBCOPY, IEHMOVE, * 01396500 //* IEBISAM, OR IEHDASDR. IN ADDITION, IF A FILE * 01396600 //* CONTAINS AN IEBUPDTE INPUT STREAM, THE MEMBERS * 01396700 //* IN THE STREAM WILL BE LISTED. * 01396800 //* * 01396900 //***FILE 300 CONTAINS SEVERAL TSO CP'S AND THEIR HELP DATASETS. * 01397000 //* THIS CODE IS FROM JIM MARSHALL OF THE U.S. AIRFORCE * 01397100 //* IN WASHINGTON D.C. THIS FILE IS IN IEBUPDTE SYSIN * 01397200 //* FORMAT. BELOW IS A SUMMARY OF SOME OF THE TSO CP'S * 01397300 //* INCLUDED IN THIS FILE * 01397400 //* THE PHONE NUMBER OF JIM MARSHALL HAS BEEN CHANGED TO * 01397500 //* (512) 828-0201 OR (512) 828-0334 . THE NUMBER IN THE * 01397600 //* FILE IS INCORRECT * 01397700 //* * 01397800 //* IF IT APPEARS YOU ARE MISSING SUFF ALSO CHECK AS IT * 01397900 //* MAY RESIDE IN FILE 316 OF THIS TAPE * 01398000 //* * 01398100 //* $$MACROX MACRO XREF SYSTEM * 01398200 //* * 01398300 //* $DI - OPERATOR LIKE $DI COMMAND. * 01398400 //* * 01398500 //* ABEND# - NOT A COMMAND BUT A HELP ENTRY FOR ABEND * 01398600 //* CODES AND SOME OF THE COMMON REASONS * 01398700 //* YOU MAY GET THEM. UPDATED FOR MVS. * 01398800 //* * 01398900 //* ASK - CLIST USE CMD TO ASK A QUESTION AND GET A * 01399000 //* YES OR NO BACK THUS SETTING A RETURN CODE. * 01399100 //* (WAS AROUND IN MY MVT DAYS AND IS * 01399200 //* OBSOLETE WITH MVS CLIST LANGUAGE) * 01399300 //* * 01399400 //* ASMG - DO ASSEMBLY LANGUAGE COMPILES INTERACTIVE. * 01399500 //* ASSEM. G AND IS SIMILIAR TO ONE IN THIS FILE * 01399600 //* FOR ASSEM. H BOTH SHOULD WORK FOR OS/MVT * 01399700 //* AND OS/MVT. * 01399800 //* * 01399900 //* ASMH - DO ASSEMBLY LANG COMPILES INTERATIVE. YOU CAN * 01400000 //* GET THE IBM PROD WHICH IS SUPERIOR, THIS IS * 01400100 //* FREE. WE HAVE A 'SYS2.MACLIB' DEFINED IN THIS * 01400200 //* ONE FOR USERS GENERALLY HAVING A USER MACLIB. * 01400300 //* * 01400400 //* ASMHNOX - ZAP TO THE IBM P.P. ASSEMBLER H TO FIX * 01400500 //* A BUG SAYING 'NOXREF' YOU GET 'XREF(FULL)'. * 01400600 //* PTF LEVEL-21 MADE XREF DEFAULT TO XREF(FULL) * 01400700 //* AND INTRODUCED THE ERROR DESCRIBED ABOVE. * 01400800 //* NOTE: ASSEMBLER H IS CLASS C. * 01400900 //* * 01401000 //* ASMF - DO ASSEMBLY LANGUAGE COMPILES INTERATIVE. * 01401100 //* YOU CAN GET THE IBM PRODUCT WHICH IS SUPERIOR, * 01401200 //* BUT THIS ONE IS FREE. HAVE A 'SYS2.MACLIB' * 01401300 //* DEFINED IN THIS ONE FOR USERS GENERALLY * 01401400 //* HAVING A USER MACLIB. THIS ONE UTILITIZES THE * 01401500 //* ASMXF(IFOX00) NOTE THAT THE SOURCE FOR THIS IS * 01401600 //* THE ASMH PROMPTER WITH SOME SYSPARMS CHANGED. * 01401700 //* * 01401800 //* CALC - TSO CALCULATOR PROGRAM. HAS 1 ACCUMULATOR AND * 01401900 //* 9 REGISTERS, ALSO CAN DO FUNCTIONS LIKE SIN, * 01402000 //* COS, ETC, OR DEFINE YOUR OWN. ( PLI-OPT ) * 01402100 //* * 01402200 //* COBOLCHK - AFDSC DEVELOPED CHEAP COBOL PROMPTER. COBOL * 01402300 //* COMPILES(COBOLVS) INSIDE TSO, ONLY GIVING ERRS * 01402400 //* AT THE TERMINAL. USES 'SYNTAX' OPT OF COMPILER * 01402500 //* AND IS GREAT FOR ASYNCH SLOW SPEED TERMINALS. * 01402600 //* * 01402700 //* CDSCB - ZAP FORMAT-1 DSCB OF DATASETS ON THE FLY. * 01402800 //* USEFUL FOR SYSTEM TYPES !!!! * 01402900 //* * 01403000 //* COMPARE - COMPARE 2 FILES IN THE FOREGROUND. BASED ON * 01403100 //* YALE UNIV COMPARE PROGRAM. OPTIONALLY YOU CAN * 01403200 //* ASK FOR IBM'S IEBCOMPR UTILITY PGM INSTEAD. * 01403300 //* MODIFIED YALE'S PGM AND CALLED IT COMPAREB. * 01403400 //* * 01403500 //* COMPRESS - COMPRESS A PDS IN FOREGROUND. * 01403600 //* * 01403700 //* CONCAT - CONCAT 2-9 FILES TOGETHER. TRUE MVS ALLOC CMD * 01403800 //* CAN DO IT, BUT WE RUN PROGRAM CONTROL FACILITY * 01403900 //* (PCF) THUS IF A CUSTOMER FREES A FILE THAT * 01404000 //* IS SYS1 THEN THEY CAN NOT ALLOCATE IT BACK. * 01404100 //* * 01404200 //* COPYPDS - COPIES A PDS TO ANOTHER PDS. ALLOWS YOU TO * 01404300 //* COPY MEMBERS WITH A SELECT STATEMENT. UNLIKE * 01404400 //* THE TSO CMD UTIL 'COPY' YOU CAN COPY MEMBERS * 01404500 //* CAN INCLUDE THE ALIAS FOR THE MEMBER. * 01404600 //* * 01404700 //* COPYSDS - COPY ONE SEQUENTIAL DATASET TO ANOTHER * 01404800 //* SEQUENTIAL DATASET. * 01404900 //* * 01405000 //* COUNT - COUNT THE NUMBER OF RECORDS IN A FILE. * 01405100 //* * 01405200 //* CPSCB - CHANGE YOUR PROTECTED STEP CONTROL BLOCK * 01405300 //* (PSCB) ON THE FLY TO GIVE YOURSELF THINGS * 01405400 //* LIKE MOUNT AUTHORITY ETC.SHOULD PROBABLY * 01405500 //* RESTRICT THIS TO SYSTEMS ONLY. * 01405600 //* * 01405700 //* DA - DISPLAY ACTIVE COMMAND TO GIVE THE USERS * 01405800 //* PICTURE OF THE SYSTEM. THEY LIKE TO * 01405900 //* SEE HOW MUCH TIME THE JOB HAS !!!! * 01406000 //* * 01406100 //* DATE - GIVES THE DATE AND TIME FROM THE SYSTEM. * 01406200 //* * 01406300 //* DD - SHORT FORM OF ALLOCATE FOR AN EXISTING * 01406400 //* FILE. IT IS FASTER THAN ALLOCATE. * 01406500 //* UPDATE TO LET YOU ALLOCATE A NEW FILE ALSO. * 01406600 //* * 01406700 //* DECONCAT - REVERSE OF THE CONCAT COMMAND. * 01406800 //* * 01406900 //* DELAY - SPECIFY A NUMBER OF SECONDS AND * 01407000 //* HAVE YOU WAIT THAT LONG. * 01407100 //* * 01407200 //* DEX - TSO HEXIDECMAL CALCULATOR PROGRAM. * 01407300 //* * 01407400 //* DISPLAY - SHOWS CONTROL BLOCKS LIKE THE UCB ETC. * 01407500 //* * 01407600 //* DLXAUTHC - THIS CMD IS FROM MIKE LOOS, DELUXE CHECK * 01407700 //* PRINTERS. IT WILL ISSUE THE COMMAND PASSED * 01407800 //* TO TO IT AFTER SETTING THE JSCBAUTH BIT ON. * 01407900 //* WHEN THE COMMAND COMPLETES THE JSCBAUTH * 01408000 //* BIT WILL BE SET OFF. THE JSCB TAMPERING IS * 01408100 //* DONE IN A USER SVC(YOUR OWN). YOU MUST * 01408200 //* REPLACE THE USERSVC MACRO WITH YOUR OWN * 01408300 //* INTEGRITY VIOLATION. THIS COMMAND IS ESP- * 01408400 //* CIALLY USEFULE FOR ENTERING RACF COMMANDS * 01408500 //* FROM ISPF DIALOGS. FOR EXAMPLE: * 01408600 //* DLXAUTHC LISTDSD DA('DSN1.EXAMPLE') ALL * 01408700 //* * 01408800 //* DOPROG - GIVES THE USER THE 'CALL' COMMAND * 01408900 //* FUNCTION BY ATTACHING A PROGRAM. * 01409000 //* * 01409100 //* DUDASD - OPERATOR LIKE D U,DASD COMMAND. * 01409200 //* * 01409300 //* DUSER - SHOW THE USERIDS CURRENTLY LOGGED ON TSO. * 01409400 //* * 01409500 //* EDAIR30 - SUBPROGRAM. AN ENHANCED VERSION OF IKJDAIR * 01409600 //* FOR ALLOCATING A SYSOUT DATASET. * 01409700 //* * 01409800 //* ERROR# - NOT A COMMAND BUT A HELP ENTRY FOR RETURN * 01409900 //* CODE YOU CAN GET FROM DAIR ALLOCATION. * 01410000 //* UPDATED FOR MVS. * 01410100 //* * 01410200 //* FREEALL - MVS VERSION OF THE FAMOUS 'FREEALL' * 01410300 //* CMD TO FREE DYNAMICALLY ALLOCATED DATASETS. * 01410400 //* AFDSC MODIFIED TO FREE ALL DATASETS WHICH: * 01410500 //* A. HAVE BEEN DYNAMICALLY ALLOCATED. * 01410600 //* B. ARE NOT CURRENTLY IN USE. * 01410700 //* C. ARE NOT CURRENTLY OPEN. * 01410800 //* D. ARE NOT ALLOCATED TO DDNAME=SYSPROC. * 01410900 //* * 01411000 //* FINDFILE - DISPLAYS WHERE A DATASET IS CATALOGUED * 01411100 //* AND LISTS ALL MOUNTED DASD ON WHICH THE * 01411200 //* DATASET RESIDES. NOTE: FOUND ON CBT TAPE AS * 01411300 //* 'LOCDSN', TO ME 'FINDFILE' MORE DESCRIPTIVE. * 01411400 //* * 01411500 //* FORTP - DO FORTRAN G1 COMPILES INTERACTIVELY. * 01411600 //* LOOK AT THE JCL INSTALL, IT IS SLICK AND NOT * 01411700 //* JUST A SIMPLE COMPILE, LINKEDIT. IT IS NOT * 01411800 //* COMPLICATED, BUT YOU USE THE SAME SOURCE CODE * 01411900 //* WITH SYSPARM OPTIONS TO COMPILE 2 MODULES. * 01412000 //* * 01412100 //* FORTX - DO FORT X (EXTENDED) COMPILES INTERACTIVELY. * 01412200 //* IS FORT PRODUCT SUPERIOR BUT THIS IS FREE. * 01412300 //* * 01412400 //* IKJEBMA9 - EXAMPLE OF THE MVS EDIT SUB-COMMAND TABLE & * 01412500 //* WHAT YOU CAN MAKE VALID SUB-COMMANDS. HAS ALL * 01412600 //* THE AFDSC SUB-COMMANDS OF EDIT IN THE TABLE. * 01412700 //* * 01412800 //* IKJEFF10 - AFDSC IPO BASED TSO SUBMIT EXIT. * 01412900 //* THIS IS RELATIVELY SIMPLE. FORCES THE * 01413000 //* FOLLOWING RESTRICTION ON A TSOUSER * 01413100 //* 1. JOBNAME ON SUBMITTED JOB CARD * 01413200 //* MUST BE USERID PLUS ONE CHARACTER. * 01413300 //* 2. PROGRAMMER NAME FIELD (8 OR LESS CHAR) IN * 01413400 //* IN UADS MUST MATCH PROGRAMMER NAME * 01413500 //* (8 OR LESS ON JOB CARD). * 01413600 //* * 01413700 //* IKJEFF53 - AFDSC IPO BASED TSO 'STATUS/OUTPUT/CANCEL' * 01413800 //* EXIT THERE IS A LOT OF POSSIBILITIES IN CODE. * 01413900 //* * 01414000 //* IKJE9CT - 'COUNT'. AFDSC DEVELOPED EDIT SUBCMD TO GIVE * 01414100 //* THE NO OF RECORDS YOU ARE CURRENTLY EDITING. * 01414200 //* * 01414300 //* IKJE9CX - 'CHANGEX' AFDSC DEVELOPED SUBCOMMAND OF * 01414400 //* EDIT. PERFORMS THE SAME FUNCTION AS CHANGE * 01414500 //* BUT USES HEX STRINGS. * 01414600 //* * 01414700 //* IKJE9DU - 'DUP' AFDSC DEVELOPED EIDT SUBCMD. PERFORMS * 01414800 //* SIMILIAR FUNCTION AS SPF REPEAT BUT ONLY ON 1 * 01414900 //* LINE. CAN REPEAT EXISTING LINE OR MAKE A COPY * 01415000 //* OF AN EXISTING LINE ELSEWHERE AND REPEAT IT. * 01415100 //* * 01415200 //* IKJE9FX - 'FINDX'. AFDSC DEVELOPED EDIT SUBCMD TO DO * 01415300 //* A FIND BUT ABLE TO SPECIFY A HEX CHAR STRING. * 01415400 //* * 01415500 //* IKJE9OF - 'OFFLINE'. AFDSC EDIT SUBCMD TO 'SPINOFF' TO * 01415600 //* PRT THE FILE YOU ARE CURRENTLY EDITING (ARE * 01415700 //* NOT REQUIRED TO SAVE 1ST). CAN 'DEST' TO * 01415800 //* RMTS, ETC. SEE THE HELP FOR SPECIFICS * 01415900 //* * 01416000 //* IKJE9LT - 'LISTTABS'. FOUND BY AFDSC. BACK FROM MVT * 01416100 //* DAYS, CONVERTED BY BOB HANSEN (SEC) TO RUN IN * 01416200 //* MVS. LISTS YOUR CURRENT EDIT TABS FOR YOU. * 01416300 //* * 01416400 //* IKJE9LX - 'LISTX'. AFDSC DEVELOPED SUBCMD OF * 01416500 //* EDIT TO DISPLAY TO YOUR TERMINAL, LINES * 01416600 //* OF A DATASET BEING EDIT'D IN HEX FORMAT. * 01416700 //* * 01416800 //* IKJE9NA - 'NAME'. AFDSC DEVELOPED SUBCMD OF * 01416900 //* EDIT TO TELL THE NAME OF THE FILE OR * 01417000 //* MEMBER OF PDS YOU'RE CURRENTLY EDITING. * 01417100 //* IT'S EMBARASSING IF YOU FORGET. * 01417200 //* * 01417300 //* IKJE9PT - 'PUT'. AFDSC DEVELOPED SUBCMD OF EDIT TO * 01417400 //* PUT CHARACTER STRINGS IN CERTAIN COLUMNS. * 01417500 //* NICE FOR USERS OF ASYNC TERMINALS * 01417600 //* WHO DO NOT HAVE SPF. * 01417700 //* * 01417800 //* IKJE9SP - 'SPOT'. AFDSC DEVELOPED EDIT SUBCMD TO SPOT * 01417900 //* CHARACTER STRINGS IN DATA. AGAIN NICE FOR * 01418000 //* ASYNCH TERMINALS WHO DO NOT HAVE SPF. * 01418100 //* CONTAINS A SELECT & EXCLUDE FUNCTION * 01418200 //* FOR DELETION OF RECS THAT A FIT PATTERN. * 01418300 //* SEE THE HELP ENTRY FOR MORE DETAILS. * 01418400 //* * 01418500 //* IKJE9SS - 'SAVESHR'. AFDSC DEVELOPED EDIT SUBCMD TO * 01418600 //* ALLOW A SAVE WITH DISP=SHR. EDIT HAS NASTY * 01418700 //* HABIT OF TRYING TO GET A DISP=OLD WHEN YOU * 01418800 //* SAVE; THUSIF YOU NEED TO SAVE SOMETHING * 01418900 //* INTO A FILE ATED ALL THE TIME, * 01419000 //* TOUGH !!!!! NOTE - APAR AZ57430 APPLIED * 01419100 //* * 01419200 //* IKJT9$ - UPDATE SUBCMD TABLE OF TEST FOR * 01419300 //* FOLLOWING SUBCMDS * 01419400 //* * 01419500 //* IKJT9FI - 'FIND' SUBCOMMAND OF THE TSO TEST CMD. * 01419600 //* * 01419700 //* IKJT9LB - 'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD. * 01419800 //* * 01419900 //* IKJT9LI - 'LIST' SUBCMD (2ND LOAD) OF TSO TEST CMD. * 01420000 //* * 01420100 //* INFOSYS - TSO CMD, EXECUTE THE IBM PRODUCT 'INFOSYS'. * 01420200 //* * 01420300 //* INSTREAM - AFDSC DEVELOPED COMMAND TO BE USED IN CLIST * 01420400 //* PUT CONTROL CARDS INSIDE OF CLISTS. CAN * 01420500 //* BE USER INPUT FROM THE TERMINAL. VERY NICE. * 01420600 //* * 01420700 //* IO - LIST IO COUNTS FOR EACH FILE IN YOUR * 01420800 //* TSO SESSION. * 01420900 //* * 01421000 //* JULIAN - RETRIEVE THE DATE AND GREGORIAN DAY * 01421100 //* FROM THE SYSTEM. ALSO CAN RETURN THE * 01421200 //* SAME INFO FOR ANY YEAR AND DAY. * 01421300 //* * 01421400 //* KOMM - USED IN CLISTS FOR FORMATTING DISPLAYS IN * 01421500 //* FULL SCREEN SUPPORT ON 3270 TYPE TERMINALS. * 01421600 //* * 01421700 //* LASTCC# - NOT A TSO COMMAND, BUT A HELP ENTRY OF * 01421800 //* LIST OF ERROR CODES THAT CAN OCCUR IN * 01421900 //* A CMD PROCEDURE (CLIST) INFO WAS COPIED * 01422000 //* FROM MANUAL GC28-0646, TSO CMD LANG REF. * 01422100 //* * 01422200 //* LASTIPL - DISPLAY THE JULIAN, GREGORIAN, AND * 01422300 //* CALENDAR DATE PLUS THE TIME IN HH.MM THAT * 01422400 //* YOUR SYSTEM WAS LAST IPL'ED. OPERATORS * 01422500 //* DO ALWAYS TELL YOU TRUE STORIES ???? * 01422600 //* * 01422700 //* LISTCDS - LIST THE SMP CDS FILE ( SYS1.SMPCDS ). * 01422800 //* * 01422900 //* LISTLPA - LIST ATTRIBUTES OF MEMBERS OF LPALIB. * 01423000 //* * 01423100 //* LISTSPC - LIST SPACE ATTRIBUTES OF A FILE ON DASD. * 01423200 //* * 01423300 //* LM - LIST MEMBER NAMES OF A DIRECTORY OF PDS. * 01423400 //* * 01423500 //* LPSCB - LIST YOUR PSCB (PROTECTED STEP CONTROL BLK). * 01423600 //* * 01423700 //* MEMBER - SCAN A LIBRARY FOR A MEMBER. CAN BE USED * 01423800 //* TO RUN THE LINK LIST FOR FIRST OCCURRANCE * 01423900 //* OF THAT MEMBER, WILL ALSO DISPLAY LKED * 01424000 //* ATTRIBUTES, CSECT, IDR DATA, LINK LIST LIB * 01424100 //* NUMBER. SHOWS SPF STATS FOR SOURCE DATA. * 01424200 //* * 01424300 //* NEWISPF - FOUND A TSO CMD ON MODS TAPE USED WITH NEW * 01424400 //* ISPF/PDF PRODUCT TO GET YOU INTO THE PDF * 01424500 //* WITH THE CLIST. BUT IT USED THE USERS * 01424600 //* PREFIX INSTEAD OF THE USERID. MADE SOME * 01424700 //* MINOR CHANGES TO IT AND CHANGED NAME FROM * 01424800 //* 'PDF' TO 'NEWISPF'. * 01424900 //* * 01425000 //* OPERA - ALLOWS CONSOLE COMMANDS (EXCEPT JES2) * 01425100 //* TO BE ENTERED FROM YOUR TSO TERMINAL. * 01425200 //* USER MUST HAVE OPERATOR AUTHORITY. * 01425300 //* * 01425400 //* OUTPRINT - PRINTS A DATASET CREATED BY THE TSO * 01425500 //* 'OUTPUT' CMD, BUT YOU WILL GET * 01425600 //* PROPER CARRIAGE CONTROL. SEE DOCUMENTATION * 01425700 //* IN THE CODE FOR ALL THE FINE POINTS * 01425800 //* * 01425900 //* PLIF - PL1/F LEVEL PROMPTER. HAVE NOT TRIED IT * 01426000 //* BECAUSE WE DO NOT RUN PL1/F. * 01426100 //* SO YOU ARE ON YOUR OWN. * 01426200 //* * 01426300 //* POF - TSO CMD TO LET YOU DO VTAM COMMANDS FROM * 01426400 //* YOUR TSO TERMINAL. BRIAN SCOTT, US POST * 01426500 //* SERVICE, TOPEKA, KA. SENT ME THIS ONE. * 01426600 //* VERY EASY TO INSTALL. SEE THE CODE FOR SOME * 01426700 //* AUTHORITY CHECKING AND PASSWORD FOR THE * 01426800 //* VTAM ACB. * 01426900 //* * 01427000 //* PPXIT - TEST YOU PREPROMPT EXIT (IKJEFLD) WITH THIS * 01427100 //* ROUTINE LOGON JUST AS IF YOU WOULD EXCEPT * 01427200 //* INSTEAD OF 'LOGON USER' YOU SAY 'PPXIT USER'. * 01427300 //* HE WILL GIVE YOU ALL THE MSGS AND IF YOU * 01427400 //* ABEND, AUTOMATICALLY GO INTO TEST FOR * 01427500 //* DEBUGGING. SEE COMMENTS IN CODE * 01427600 //* * 01427700 //* PRINTOFF - AFDSC MODIFIED CMD. IT HAS 'ASA' ADDED TO * 01427800 //* ALLOW PRINTER TO USE 'ASA' CARRIAGE CONTROL * 01427900 //* EVEN IF IT WAS NOT IN THE DCB OF THE FILE * 01428000 //* TO BE PRINTED INCLUDES THE 'GTE' MODS FOR FCB * 01428100 //* SUPPORT, ETC. CORRECTED 7 CHARACTER DEST CODE * 01428200 //* LIMIT.AT SADSC I FIXED THE LIMITATION OF ONLY * 01428300 //* HAVING 7 CHARACTER DESTID'S FOR JES2. NOT * 01428400 //* COOL, BOOK SAYS YOU CAN HAVE 8 CHARACTERS. * 01428500 //* * 01428600 //* PUNCH - PUNCH A CARD DECK. HAS THE OPTION TO * 01428700 //* HOLD THE OUTPUT FOR REVIEW * 01428800 //* BEFORE YOU LET IT GO TO BE PUNCHED. * 01428900 //* * 01429000 //* QCB - REPLACEMENT FOR WHOHAS CMD. MORE POWERFUL. * 01429100 //* MAY NEED TO BE REWORKED FOR MVS/SP1.3. * 01429200 //* * 01429300 //* QLIST - AFDSC DEVELOPED COMMAND TO DO MOST OF ALL * 01429400 //* THE IBM TSO DATA UTILITY 'LIST' DOES BUT IN * 01429500 //* SOME AREAS IT IS FASTER AND MORE EFFICIENT. * 01429600 //* * 01429700 //* RACFALT - THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK * 01429800 //* PRINTERS. IT WILL GENERATE A CLIST TO * 01429900 //* CHANGE THE VOLUME SERIAL NUMBERS IN RACF * 01430000 //* PROFILES OF ALL NONVSAM DATASETS ON A * 01430100 //* SPECIFIC VOLUME. * 01430200 //* * 01430300 //* RACFCLST - THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK * 01430400 //* PRINTERS. IT WILL GENERATE A CLIST TO * 01430500 //* REDEFINE (VIA RACF CMDS DELSD, ADDSD, AND * 01430600 //* PERMIT) FOR ALL DATASETS ON A SPECIFIED * 01430700 //* VOLUME. DUE TO USE OF RACF INTERNAL MACROS * 01430800 //* THIS PROGRAM MUST BE RUN AUTHORIZED. IF * 01430900 //* SYSIN IS PRESENT, YOU CAN INCLUDE CMDS TO * 01431000 //* SELECT BY DATASET GROUP ON A VOLUME AND/OR * 01431100 //* DATASET NAME WITH OR WITHOUT VOLUME SPEC- * 01431200 //* ICATION. WARNING: IF SYSIN IS PRESENT AND * 01431300 //* DUMMIED OUT OR EMPTY THEN A NULL CLIST * 01431400 //* WILL BE CREATED. * 01431500 //* * 01431600 //* REVIEW - FULL SCREEN BROWSE, 3270 TYPE TERMINALS. ANY * 01431700 //* RESEMBLANCE TO SPF 0 BROWSE FUNCT IS PURELY * 01431800 //* A CHANCE OF FATE. THERE ARE SOME BUGS IF YOU * 01431900 //* TRY TO BROWSE SMF FILES ( VARIABLE LENGTH * 01432000 //* RECS) BUT SHOULD BE FINE FOR SANE THINGS * 01432100 //* LIKE PDS'S AND SOURCE. SMF CODE HAS BEEN * 01432200 //* BEEN EXPANDED AND 'FINDSMF' SUBCMD ADDED. * 01432300 //* * 01432400 //* REVSMF - SUBROUTINE NEEDED BY REVIEW WHEN * 01432500 //* LOOKING AT SMFDATA. * 01432600 //* * 01432700 //* RLSE - AFDSC MODIFIED CMD. WILL RELEASE SPACEOUT OF * 01432800 //* A PDS OR SEQUENTIAL FILE. PREVIOUS VERSIONS * 01432900 //* RELEASED ALL THE SPACE. OURS WILL ALLOW * 01433000 //* YOU TO RELEASE DOWN TO THE PRIMARY EXTENT OR * 01433100 //* OR SPECIFY THE AMOUNT TO BE RELEASED. * 01433200 //* * 01433300 //* SCRATCH - SCRATCH A DSN AND NOT GO THROUGH CATALOG. * 01433400 //* * 01433500 //* SHELP - OBTAIN SUB-COMMAND HELPS FOR COMMANDS WITHOUT * 01433600 //* ACTUALLY BEING IN THAT COMMAND. * 01433700 //* * 01433800 //* SHOWDS - AFDSC DEVELOPED COMMAND. DISPLAYS THE * 01433900 //* DATASETS ATTRIBUTES AND SPACE ALLOCATION. * 01434000 //* * 01434100 //* SHOWSPC - SHOW THE SPACE ALLOCATION FOR DATASETS ON * 01434200 //* A DISK. CAN MASK FOR THE NAMES. * 01434300 //* LOOK AT IT FOR ALL CAPABILITIES. * 01434400 //* * 01434500 //* SHOWSS - DISPLAYS THE SUBSYSTEM VECTOR TABLE AND IF A * 01434600 //* SUBSYSTEM IS CURRENTLY ACTIVE. OPTIONALLY YOU * 01434700 //* CAN RESET THE ADDRESS TO ZERO'S IN CASE THE * 01434800 //* SUBSYSTEM HAS ABENDED AND HAS NOT RESET THE * 01434900 //* ADDRESS TO ZERO'S. ZERO CAPABILITY * 01435000 //* IS USED THEN YOU MUST BE AUTHORIZED. * 01435100 //* * 01435200 //* SOLICIT - MAKE YOUR 3270 TYPE TERMINAL LOOK LIKE * 01435300 //* IT WAS LOGGED OFF AND BACK TO 'NETSOL'. * 01435400 //* THINK OF YOUR OWN USES FOR THIS ONE. * 01435500 //* * 01435600 //* SPFCOPY - INVOKER OF IEBCOPY INTERACTIVELY UNDER 'SPF' * 01435700 //* OR 'ISPF' MENU 3.1 IEBCOPY MUST * 01435800 //* BE AUTHORIZED AND SPF IS NOT. (PROBLEMS) * 01435900 //* * 01436000 //* SPFSVC - SVC TO ALLOW ISPF/PDF MENU 3.1 COMPRESS. * 01436100 //* * 01436200 //* SPZAP - TSO CP TO INVOKE 'AMASPZAP' * 01436300 //* * 01436400 //* SUBMITX - SUB FROM TSO JOB TO SECONDARY JES2. YES, * 01436500 //* IBM SAYS YOU CAN'T DO IT, BILL GODFREY, PRC * 01436600 //* CORP HAS IT WORKING. INCLUDED IN THIS CMD * 01436700 //* ARE ALIASES OF OUTPUTX, STATUSX, AND CANCELX. * 01436800 //* PLSE READ COMMENTS IN THE BEGINNING OF CODE * 01436900 //* FOR SOME POINTS OF INTEREST. SEE THE SRC FILE * 01437000 //* FOR MEMBER CALLED JESXRDR FOR SUBMITING FROM * 01437100 //* AN INTRDR TO A SECONDARY JES2. THIS ALL NEEDS * 01437200 //* SOME REFINEMENT BUT IT WORKS SO FAR. * 01437300 //* * 01437400 //* SYSOUT99 - SUBPROGRAM. ALLOCATES A SYSOUT DATASET. * 01437500 //* * 01437600 //* SYSTEM - DISPLAY THE SYSTEM RELEASE, CPU ID, MAIN * 01437700 //* STORAGE AMOUNT ONLINE & WHEN SYSTEM IPL'D. * 01437800 //* * 01437900 //* S99DAIR - SUBPROGRAM. ENHANCED VERSION OF IKJDAIR * 01438000 //* FOR ALLOCATING '0008' (DSNAME), * 01438100 //* '001C' (TERMINAL), AND '0030' (SYSOUT). * 01438200 //* * 01438300 //* TPRINT - DISPLAYS A MSG FROM A CLIST AT A TERMINAL. * 01438400 //* OBSLETE IN MVS TSO BUT IT WORKS AND IS FAST. * 01438500 //* * 01438600 //* TO - SHORTHAND WAY OF DOING TSO SEND CMD. DON'T * 01438700 //* HAVE WORRY ABOUT QUOTES. EX AS FOLLOWS: * 01438800 //* TO TSOUSER WE AIN'T DUMMIES, LET'S QUIT * 01438900 //* * 01439000 //* UADS - LIST A UADS ENTRY LEAVING OUT PASSWORD. * 01439100 //* GOOD FOR TECH SUPPORT PEOPLE. * 01439200 //* NOTE: MUST BE ABLE TO HAVE * 01439300 //* 'SYS1.UADS' ALLOCATION PRIVILEDGES THOUGH. * 01439400 //* * 01439500 //* UNITS - TSO CMD DISPLAYS UNIT NAMES IN DEVICE NAME * 01439600 //* TABLE, AND CHANNEL-UNIT-ADDR ASSOCIATED WITH * 01439700 //* EACH UNIT NAME. LOOK IN THE CODE FOR SOME * 01439800 //* AUTH CHECKING AND DISABLE IN YOUR SHOP. * 01439900 //* * 01440000 //* VTOC - ONE OF THE SLICKEST CMDS FOR FINDING OUT * 01440100 //* WHAT IS ON A DISK. LOOK AT THE HELP FOR * 01440200 //* THE COMPLETE INFORMATION. * 01440300 //* * 01440400 //* WHATIF - ALLOWS THE CONDITIONAL EXECUTION OF A TSO CMD * 01440500 //* FROM A CLIST CLIST BASED ON ANY OF * 01440600 //* THE COMBINATIONS: * 01440700 //* 1. WHETHER A FILE IS ALLOCATED. * 01440800 //* 2. WHETHER A FILE IS ALLOCATED TO A * 01440900 //* SPECIFIC FILE NAME * 01441000 //* 3. WHETHER A FILE IS CATALOGED. * 01441100 //* 4. WHETHER TWO STRINGS BEAR A SPECIFIED * 01441200 //* RELATION TO EACH OTHER. * 01441300 //* * 01441400 //* WHOHAS - AFDSC MODIFIED AND CORRECTED. DISCOVERED * 01441500 //* BUG, NOT SHOW THE ENQ CHAIN PROPERLY. * 01441600 //* PROPERLY. IT STOPPED AFTER * 01441700 //* THE 1ST OCCURENCE OF DISP=OLD. WILL SHOW * 01441800 //* 'WHOHAS' A FILE ALLOCATED AND THE ENQ CHAIN. * 01441900 //* * 01442000 //* ZAP - FULL SCREEN VER OF IMASPZAP. MY TSO 'GURU' * 01442100 //* WAS IMPRESSED , WHEN BILL SAYS IT IS GREAT IT * 01442200 //* MUST BE. DONATED BY UCLA, THEM COLLEGE KIDS * 01442300 //* ARE REALLY BUSY DOING GREAT THINGS. * 01442400 //* (MUST USE ASM H OTHERWISE ASSEMBLY ERR) * 01442500 //* * 01442600 //* * 01442700 //***FILE 301 CONTAINS A COLECTION OF SEVERAL TSO CP'S AND THEIR * 01442800 //* HELP DATASETS. THIS FILE WAS RECEIVED FROM THE * 01442900 //* FEDERAL RESERVE BANK OF NEW YORK. THIS FILE IS IN * 01443000 //* IEBUPDTE SYSIN FORMAT. THE FOLLOWING IS A LIST OF * 01443100 //* THE TSO CP'S CONTAINED IN THIS FILE: * 01443200 //* * 01443300 //* BCALL INVOKE LINKLIST PROGRAMS * 01443400 //* DALLOC LIST ALLOCATIONS * 01443500 //* DSINFO LIST DATASET ATTRIBUTES * 01443600 //* DSN LIST DSN ENQUEUES * 01443700 //* DUSER LIST TSO USERS * 01443800 //* FREEALL FREE ALLOCATIONS * 01443900 //* LISTV LIST VOLUME STATS * 01444000 //* LPDS PDS MAINTENANCE * 01444100 //* PATHS LIST OFFLINE PATHS * 01444200 //* STEPLIB DYNAMIC STEPLIB * 01444300 //* TRIM RELEASE DSN SPACE * 01444400 //* UCBMAP MAP DEVICE ATTRIBUTES * 01444500 //* UNITMAP MAP UNIT NAMES * 01444600 //* WHERE LOCATE A DATASET * 01444700 //* * 01444800 //***FILE 302 THIS TSO COMMAND IS DESIGNED TO ALLOW THE INDIVIDUAL * 01444900 //* TSO USER TO CHANGE THEIR OWN LOGON PASSWORDS AT WILL. * 01445000 //* IT WILL CHANGE ONLY THE PASSWORD OF THE USERID/PASSWORD* 01445100 //* THEY LOGGED ON WITH. THIS CODE HAS TO AC=1 * 01445200 //* * 01445300 //***FILE 303 CONTAINS THE SOURCE FOR A NEW #B COMMAND WHICH * 01445400 //* SHOWS ALL ACTIVE JOBS ON A CPU. * 01445500 //* #B REQUIRES THE USE OF A SPECIAL SVC ALSO INCLUDED * 01445600 //* IN THIS FILE. YOU MAY WISH TO CHECK THIS CODE BECAUSE * 01445700 //* THERE IS SOME OVERHEAD ASSOCIATED WITH THIS COMMAND. * 01445800 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01445900 //* * 01446000 //* 09.02.49 -- CMDSBSYS (#B) L=09 A158 81.060 09.02 * 01446100 //* 09.02.49 -- #B -- * 01446200 //* JOB# JOB/STEP S# STARTED ELAPSED LIMIT CPU+ REMAIN DPR ID * 01446300 //* **** MASTER ** ******** ******** ******* 1.30 ******* 255 01 * 01446400 //* **** JES2 ** ******** ******** ******* 0.38 ******* 255 02 * 01446500 //* 1580 TCAMAT 01 00.00.00 09.02.49 1440.00 0.45 1439.22 252 03 * 01446600 //* 02 00.00.00 09.02.49 0.00 0.45 0.35 * 01446700 //* 1579 OMEGAMON 01 00.00.00 09.02.49 1440.00 0.24 1439.40 255 08 * 01446800 //* 01 00.00.00 09.02.49 0.00 0.24 0.53 * 01446900 //* 1569 RMF 01 00.00.00 09.02.49 1440.00 0.05 1439.55 240 09 * 01447000 //* 01 00.00.00 09.02.49 0.00 0.05 0.68 * 01447100 //* 1570 SOF 01 00.00.00 09.02.49 1440.00 0.01 1439.59 117 0A * 01447200 //* XXXSTAR 01 00.00.00 09.02.49 1339.00 0.01 1338.59 * 01447300 //* CMD1 01 00.00.00 09.02.49 ******* 0.00 1440.00 250 0C * 01447400 //* 01 00.00.00 09.02.49 0.00 0.00 0.00 * 01447500 //* 33 CIC888D0 10 05.05.54 03.56.55 30.00 3.59 26.16 251 0D * 01447600 //* PROC#1 05 05.06.09 03.56.40 59.59 3.57 56.17 * 01447700 //* ACF2 01 00.00.00 09.02.49 ******* 0.00 30.00 118 0F * 01447800 //* 01 00.00.00 09.02.49 0.00 0.00 0.00 * 01447900 //* 78 TEC101 02 08.49.20 00.13.29 30.00 0.35 29.35 118 1B * 01448000 //* S1 01 08.49.20 00.13.29 30.00 0.35 29.35 * 01448100 //* 1602 SEC020D0 01 00.00.00 09.02.49 1440.00 0.02 1439.59 251 1D * 01448200 //* 01 00.00.00 09.02.49 1439.00 0.02 1438.58 * 01448300 //* 1604 LOADATM 01 00.00.00 09.02.50 1440.00 0.00 1440.00 121 1F * 01448400 //* 01 00.00.00 09.02.50 0.00 0.00 0.00 * 01448500 //* 1605 XFERUNLD 01 00.00.00 09.02.50 1440.00 4.21 1436.18 117 20 * 01448600 //* 1,U=48C 04 00.00.00 09.02.50 0.00 4.21 3.31 * 01448700 //* * 01448800 //***FILE 304 AN SPF / RACF INTERFACE FROM CONN NATIONAL BANK . * 01448900 //* THIS FILE CONTAINS ALL THE SCREENS , ETC , FOR THIS * 01449000 //* INTERFACE . THERE STILL IS A LOT WORK THAT COULD BE * 01449100 //* DONE . IT PROVIDES A BASIC ' SCREEN - FOR - COMMAND ' * 01449200 //* FACILITY . THE NEXT LOGICAL STEP WOULD BE TO PROVIDE * 01449300 //* SCREENS FOR FUNCTIONS WHICH MIGHT INCLUDE MORE THAN * 01449400 //* ONE RACF COMMAND . THERE ARE ALSO NO SCREENS FOR THE * 01449500 //* RACF GLOBAL RESOURCE COMMAND ( IE . RDEFINE ) AND * 01449600 //* THERE ARE NO TUTORIALS. WE JUST NEVER GOT AROUND * 01449700 //* TO THEM . WE ARE PRETTY SURE THAT THERE ARE SOME * 01449800 //* INHERENT BUS IN HERE SOMEWHERE . * 01449900 //* THIS FILE WHICH IS IN IEBCOPY FORMAT CONTAINS THE * 01450000 //* FOLLOWING MEMBERS : * 01450100 //* * 01450200 //* A SMP061 (SVC 243) THE APF AUTHORIZATION SVC WHICH * 01450300 //* CAN ALSO BE FOUND ON THE SPLA AND CBT TAPES . * 01450400 //* THIS IS REQUIRED BY THE TSOAUTH COMMAND . * 01450500 //* B TSO311 (TSOAUTHC) IS THE TSO AUTHORIZED COMMAND * 01450600 //* INTERFACE . THIS COMMAND IS REQUIRED TO EXECUTE * 01450700 //* THE RACF COMMAND UNDER SPF , WHICH IS NOT APF * 01450800 //* AUTHORIZED . THE COMMAND NAME MUST BE PLACED IN * 01450900 //* CSECT IKJEFTE2 IN ORDER TO RUN AUTHORIZED . * 01451000 //* C RACRIX01 (ICHRIX01) IS THE RACINIT PRE - * 01451100 //* PROCESSING EXIT . OUR EXIT IS USED TO CONSTRUCT * 01451200 //* USERIDS FOR PRODUCTION JOBS AND TO PREVENT ANY * 01451300 //* JOB FROM STARTING IF NO USERID IS PRESENT . * 01451400 //* D RACRCX02 ( ICHRCX02 ) IS THE RACHECK POST - * 01451500 //* PROCESSING EXIT . OUR EXIT IS USED TO PROVIDE * 01451600 //* A ' WARNING MODE ' FOR DATASET PROTECTION . A * 01451700 //* DATASET IS IN WARNING MODE IF ' LEVEL(99) ' IS * 01451800 //* SPECIFIED IN THE ADDSD OR ALTDSD COMMAND * 01451900 //* ( SCREEN ) . * 01452000 //* E SMP705 THE JCL TO INSTALL ICHRIX01 ICHRCX02 * 01452100 //* F SMP210 ( IGGPRE00 ) IS THE DF/DS VOLUME * 01452200 //* ALLOCATION EXIT . THIS EXIT IS USED TO CONTROL * 01452300 //* WHO IS ALLOWED TO ALLOCATE TO SPECIFIC DASD * 01452400 //* VOLUMES . * 01452500 //******************************************************************* 01452600 //* THE FOLLOWING 5 MEMBERS ARE IN OFFLOAD FORMAT ( ERGO ' ./ ' * 01452700 //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * 01452800 //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * 01452900 //* CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS * 01453000 //* SYSIN INPUT TO IEBUPDTE . * 01453100 //* * 01453200 //* *** FIRST TAKE THE WHOLE FILE AND IEBUPDTE IT TO A DATASET * 01453300 //* THEN EDIT EACH OF THE FOLLOWING MEMBERS AND DO YOUR * 01453400 //* GLOBAL CHANGE BEFORE YOU DO ANOTHER IEBUPDTE RUN FOR * 01453500 //* EACH OF THE FOLLOWING TO ITS OWN UNIQUE PDS . *** * 01453600 //* * 01453700 //* G CLISTLIB THIS MEMBER CONTAINS ALL THE CLISTS * 01453800 //* REQUIRED TO RUN THE RACF / SPF INTERFACE . ALL * 01453900 //* CLISTS NAMES ARE THE FORMAT ' HNBRA** ' WHERE * 01454000 //* ' ** ' CORRESPONDS TO THE SELECTION NUMBER FROM * 01454100 //* THE RACF SELECTION PANEL . CLIST ' HNB^RAC ' IS * 01454200 //* ^ ABOVE IS AN AT SIGN * 01454300 //* USED TO DETERMINE IF THE USER IS A RACF GROUP * 01454400 //* ADMINISTRATOR AND DISPLAY THE APPROPRIATE * 01454500 //* SELECTION PANEL ( HNB^RAC OR HNB^RACG ) . * 01454600 //* ^ ABOVE IS AN AT SIGN * 01454700 //* H PANELS THIS MEMBER CONTAINS THE SPF PANELS * 01454800 //* REQUIRED TO RUN THE RACF / SPF INTERACE . ALL * 01454900 //* PANEL NAMES ARE IN THE FORMAT ' HNBRA** ' WHERE * 01455000 //* ' ** ' CORRESPONDS TO THE SELECTION NUMBER FROM * 01455100 //* THE RACF SELECTION PANEL . PANEL ' HNB^RAC ' IS * 01455200 //* ^ ABOVE IS AN AT SIGN * 01455300 //* THE SELECTION PANEL FOR GROUP ADMINISTRATORS , * 01455400 //* PANEL ' HNB^RACG ' IS THE SELECTION PANEL FOR * 01455500 //* ^ ABOVE IS AN AT SIGN * 01455600 //* GENERAL USERS . * 01455700 //* I SKELETON THIS MEMBER CONTAINS THE SPF JCL * 01455800 //* SKELETONS ( ONLY ONE IS HERE ) REQUIRED IN THE * 01455900 //* RACF / SPF INTERFACE . ALL MEMBER NAMES ARE IN * 01456000 //* THE FORMAT ' HNBRA** ' AND ' ** ' CORRESPONDS * 01456100 //* TO THE APPROPRIATE PANEL AND CLIST * 01456200 //* J MESSAGES THIS MEMBER CONTAINS THE SPF MESSAGES * 01456300 //* REQUIRED IN THE RACF / SPF INTERFACE . ALL * 01456400 //* MEMBER NAMES ARE THE IN FORMAT ' HNBRA** ' AND * 01456500 //* ' ** ' CORRESPONDS TO THE APPROPRIATE PANDEL AND * 01456600 //* CLIST * 01456700 //* * 01456800 //***FILE 305 IS AN RMF/SMF SPLITTER FROM REVLON. THIS PROGRAM IS * 01456900 //* A STRIPPED DOWN VERSION OF THE CODE CONTAINED IN FILE * 01457000 //* 248 OF THIS TAPE * 01457100 //* * 01457200 //***FILE 306 IS THE TIME SHARING SUBSYSTEM FROM THE U.S. AIRFORCE * 01457300 //* IN WASHINGTON, D.C. THIS SET OF PROGRAMS ALLOWS ONE * 01457400 //* TO BRING UP A TSO LIKE FUNCTION WHEN DISASTER HAS * 01457500 //* STRUCK (OR WHENEVER ELSE YOU WOULD LIKE TO). THIS * 01457600 //* SUBSYSTEM ALLOWS MOST TSO COMMANDS TO BE EXECUTED * 01457700 //* FROM AN OPERATOR'S CONSOLE. OUTPUT FROM COMMANDS * 01457800 //* THAT USE 'PUTLINE' WILL BE SENT TO THE CONSOLE FROM * 01457900 //* WHICH THE COMMAND WAS ENTERED. OUTPUT FROM COMMANDS * 01458000 //* THAT USE 'TPUT' OR ACCESS METHODS WILL NOT APPEAR * 01458100 //* ON THE CONSOLE * 01458200 //* * 01458300 //***FILE 307 IS A COPY OF THE QUE COMMAND WITH 3278 MODEL 2, 3, 4 * 01458400 //* 5 SUPPORT. THIS VERSION IS A MODIFICATION OF FILE 278 * 01458500 //* OF THIS TAPE AND WAS RECEIVED FROM MR JACK SCHUDEL * 01458600 //* (JACK TO HIS FRIENDS) FROM THE UNIVERSITY OF FLORIDA * 01458700 //* SEE MEMBER $UFDOC FOR ADDITIONAL INFO * 01458800 //* * 01458900 //* ** THIS CAN BE REPLACED BY THE VERSION IN FILE 322 *** * 01459000 //* OR SO IT SAYS IN THE CODE - BUT WHEN I ( CBT ) * 01459100 //* TRIED IT I GOT ASSEMBLE ERRORS AND WHEN I LINKED IT * 01459200 //* ANYWAYS I GOT OC4'S - BE AWARE ) * 01459300 //* DON'T BELIEVE EVERYTHING YOU READ !!!!! * 01459400 //* * 01459500 //***FILE 308 IS A COPY OF THE QUE COMMAND WITH 3278 MODEL 2,3,4 & * 01459600 //* 5 SUPPORT AS WELL AS 3279 SUPPORT. THIS VERSION IS A * 01459700 //* MODIFICATION OF FILE 278 OF THIS TAPE AND WAS RECEIVED * 01459800 //* FROM LANE BRYANT. SEE MEMBER FILE53 FOR ADDITONAL INFO * 01459900 //* * 01460000 //***FILE 309 IS AN UPDATED COPY OF Q12 (JOBLOG) FROM CONNECTICUT * 01460100 //* NATIONAL BANK TO CORRECT A PROBLEM WITH THE JOBLOG * 01460200 //* SUBCOMMAND OF QUE WHEN TRYING TO ACCESS THE LOG OF AN * 01460300 //* ACTIVE TASK. THIS VERSION OF Q12 WILL WORK WITH FILES * 01460400 //* 278, 307 AND 308 OF THIS TAPE * 01460500 //* * 01460600 //***FILE 310 CONTAINS SEVERAL UTILITIES FROM NORTHEAST UTILITIES * 01460700 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * 01460800 //* THE FOLLOWING * 01460900 //* * 01461000 //* ADDPAN1 NUSCO PANVALET-TSO INTERFACE ADD TO PANVALET * 01461100 //* APL SPF INTERFACE MENU FOR APL * 01461200 //* CALCOMP3 SAS CALCOMP/TEKTRONICS INTERFACE * 01461300 //* CDSREAD3 READ AN SMP4 CDS AND PROVIDE SORTED LISTINGS * 01461400 //* DEMO3800 DEMONSTRATE 3800 CHARACTER SET 'SPEC' * 01461500 //* FCBS3800 3800 FCBS FOR 6/8/12 LINES/INCH 8.5 X 12 INCH * 01461600 //* FDR SPF FDR BATCH INTERFACE * 01461700 //* ISP MSTR NUSCO SYSTEMS MAIN SPF MENU * 01461800 //* ISP MSTR NUSCO SYSTEMS MAIN SPF MENU * 01461900 //* JOPANRET NUSCO PANVALET-TSO INTERFACE FETCH A PANVALET MEM* 01462000 //* MAPDISK3 MACRO TO READ VTOC'S OF ALL DASD INTO A SAS DATABA* 01462100 //* MODULEUS READS GTF TRACES TO PRODUCE STATS ON YOUR * 01462200 //* LINK/LOAD/ATTACH/BLDL/DELETE SVC'S. A GREAT TOOL * 01462300 //* FOR PRODUCING A GOOD BLDL LIST, FIX LIST, AND * 01462400 //* PACKLIST. (WE GOT 15% MORE OUT OF OUR CPU USE * 01462500 //* AFTER RUNNING THIS STUDY AND IMPLEMENTING NEW LIST* 01462600 //* MSAPL01 SPF APL MESSAGES * 01462700 //* MSPAN00 SPF PANVALET MESSAGES * 01462800 //* MSPAN01 SPF PANVALET MESSAGES * 01462900 //* MSPAN02 SPF PANVALET MESSAGES * 01463000 //* MSPAN03 SPF PANVALET MESSAGES * 01463100 //* MSPAN10 SPF PANVALET MESSAGES * 01463200 //* MSSASP00 SPF SAS MESSAGES * 01463300 //* MSSAS00 SPF SAS MESSAGES * 01463400 //* NCPTUNE3 READ SMF/NCP TUNING STATISTICS (ACF/VTAM R2) * 01463500 //* PAHELPO3 SPF TUTORIALS * 01463600 //* PANADD CONVERTED VB CLIST FOR TSO-PAN INTERFACE * 01463700 //* (USE VB2PAN TO CONVERT BACK TO NORMAL CLIST) * 01463800 //* PANDIRS SPF PANVALET INTERFACE PANEL * 01463900 //* PANDIS SPF PANVALET INTERFACE PANEL * 01464000 //* PANINS SPF PANVALET INTERFACE PANEL * 01464100 //* PANMASTR SPF PANVALET INTERFACE PANEL MAIN PANEL * 01464200 //* PANOTHER SPF PANVALET INTERFACE PANEL * 01464300 //* PANRET CONVERTED VB CLIST FOR TSO-PAN INTERFACE * 01464400 //* PANSPF SPF PANVALET INTERFACE PROGRAM * 01464500 //* PANUPD CONVERTED VB CLIST FOR TSO-PAN INTERFACE * 01464600 //* PANXXXA SPF PANVALET INTERFACE PANEL * 01464700 //* PANXXXR SPF PANVALET INTERFACE PANEL * 01464800 //* PANXXXU SPF PANVALET INTERFACE PANEL * 01464900 //* PDHELPO SPF TUTORIALS * 01465000 //* PGHELPO SPF TUTORIALS * 01465100 //* PJHELPO SPF TUTORIALS * 01465200 //* PUHELPO SPF TUTORIALS * 01465300 //* PRDMP SPF SUBMENU FOR AMDPRDMP INTERFACE * 01465400 //* PRJ2DONE SPF SUBMENU FOR PROJECT2 CLIST * 01465500 //* PROJECT2 SPF SPF MENU TO INTERFACE PROJECT2 CPM PROGRAM * 01465600 //* PQHELP SPF PANVALET TUTORIAL * 01465700 //* QSAMFIND PICK OFF SMF RECORDS ( WHO DELETED A DATASET) * 01465800 //* REBLOCK3 REBLOCK ALL SYSTEM LINKLIBS (3330-3350 CONVERSION)* 01465900 //* SAS SAS SPF INTERFACE, MAIN PANEL * 01466000 //* SASDONE SAS SPF INTERFACE, SUBORDINATE PANEL. * 01466100 //* SASGSUMM A QUICK USER REFERENCE GUIDE TO SAS/GRAPH * 01466200 //* SASBMO SAS INTERACTIVE SPF MENU TUTORIALS * 01466300 //* SASTUI SAS GENERAL TUTORIALS * 01466400 //* SASBATCH SAS BATCH SPF MENU * 01466500 //* SKFDR FDR SPF JCL SKELETON * 01466600 //* SKPRDMP AMDPRDMP SPF PRINT SKELETON * 01466700 //* SKSMP SPF SKELETON * 01466800 //* SKSASBTCH SMP SPF SKELETON FOR SAS BATCH MENU * 01466900 //* SMFQWAIT JOB Q WAIT AND EXECUTION TIME STATISTICS * 01467000 //* SMFSTEP0 SMF DATA COLLECTION * 01467100 //* SMFSTEP1 JCL FOR SMF DATA COLLECTION * 01467200 //* SMFSTEP3 JCL AND PGM FOR RMF AND SMF REPORTING * 01467300 //* REPORTS INCLUDE: CPU UTILIZATION PROFILE * 01467400 //* TSO USE PROFILE; TERMINAL USE STATISTICS * 01467500 //* BATCH USE; TSO USE; STC USE; WORKLOAD STATS. * 01467600 //* SPEC3800 15 PITCH CHARACTER SET USED WITH SAS OR PL/1 * 01467700 //* SVC93ANL ANALYZE GTF <' * 01498600 //* TO './' AS YOU RELOAD. * 01498700 //* * 01498800 //* PDSMATCH COMPARE THE DIRECTORY OF 2 PDS'S. HAS MANY * 01498900 //* OPTIONS. REFER TO THE COMMENTS IN THE CODE FOR * 01499000 //* HOW TO RUN THIS UTILITY. * 01499100 //* * 01499200 //* PDSPROGM USED FOR DELETING AND RENAMING MEMBERS OF PDS * 01499300 //* FROM A BATCH JOB. MUCH EASIER TO USE THAN * 01499400 //* IEHPROGM. * 01499500 //* * 01499600 //* PDSPRINT ANOTHER PDS LIST OR PUNCH PROGRAM. CAN FEED IT * 01499700 //* CONTROL CARDS FOR A MEMBER LIST OR GIVE IT A * 01499800 //* CHARACTER STRING TO SCAN FOR. MANY NICE * 01499900 //* * 01500000 //* PDSTEST VERIFIES INTEGRITY OF A LOAD MODULE PDS BY * 01500100 //* ISSUING 'LOAD' FOR EVERY MODULE IN THE LOADLIB * 01500200 //* IF PROBLEMS OCCUR, THEN YOU ARE TOLD OF THEM. * 01500300 //* * 01500400 //* PDSUTIL ANOTHER PDS LIST TYPE PROGRAM. THINGS * 01500500 //* IT DOES, GIVES YOU A TABLE OF CONTENTS AS TO * 01500600 //* WHAT PAGE EACH IS ON. HANDY * 01500700 //* * 01500800 //* P38BOX1 SUBROUTINE FOR ASMBOX1. * 01500900 //* * 01501000 //* P38TURN CHARACTER SET USED FOR THE 90 DEGREE ROTATE. * 01501100 //* * 01501200 //* RACHECK EL-CHEAPO RACF SECURITY SVC. YALE UNIVERSITY * 01501300 //* SVC 130 MADE TO GIVE DIRT-CHEAP SECURITY. * 01501400 //* WE USE WHITE HAT - BALCK HAT THEORY. EITHER * 01501500 //* YOU CAN GET TO IT OR NOT. DOES NOT AFFECT * 01501600 //* STC OR SYSTEM CODE. LOOK AT SVC TO SEE HOW WE * 01501700 //* GIVE ALL POWERFUL SYSTEM PROGRAMMERS * 01501800 //* ( WEARS WHITE HATS ) THE PRIVILEDGES. YA, YA. * 01501900 //* * 01502000 //* READF SUBRNTES-READF,WRITEF,RESETF, INTENTED FOR USE * 01502100 //* IN PLACE OF FORTRAN UNFORMATTED I/O (REAL DOG) * 01502200 //* FORTRAN UNFORMATTED I/O USES VBS RECORDS WHERE * 01502300 //* THIS USED FIXED BLOCKED QSAM. SAVES ALOT * 01502400 //* OF CPU CYCLES. * 01502500 //* * 01502600 //* ROTATER SUBROUTINE USED IN ROTATE PGMS. * 01502700 //* REPLACED P38R90 AND P38R90B. * 01502800 //* * 01502900 //* SEEKMON MVS VERSION OF OS/MVT SEEKMON. * 01503000 //* * 01503100 //* SPANCOPY CLEANS UP FILES WITH SPANNED RECS. IT WILL DROP * 01503200 //* BAD SPANNED RECORDS, AND IF THE FILE CONTAINS SMF* 01503300 //* RECORDS, THEN IT WILL ATTEMPT TO GIVE YOU AS MUCH* 01503400 //* INFORMATION AS IT CAN ON WHAT KIND OF RECORD WAS * 01503500 //* LOST. GOODBYE S002 ABENDS FROM SMF DATA. * 01503600 //* * 01503700 //* SMFXTRCT GENERALIZED SMF RECORD EXTRACTION UTILITY. SELECT* 01503800 //* BY RECORD TYPE, DATE INTERVAL, TIME INTERVAL, ETC* 01503900 //* SEE THE CODE FOR ALL CAPABILITIES, WILL TRY TO * 01504000 //* WRITE SOME DOCUMENTATION LATER. * 01504100 //* * 01504200 //* STAE$ GENERALIZED ESTAE EXIT FOR MVS. SEE COMMENTS FOR * 01504300 //* ITS CAPABILITIES. * 01504400 //* * 01504500 //* SYSREPRO SEQUENTIAL COPY UTILITY. IT IS LIKE IEBGENER BUT * 01504600 //* MUCH FASTER. PRINTS OUT DSNAMES, VOLSERS, DCB * 01504700 //* ATTRIBUTES, FILE SEQ NUMBER FOR EACH DATASET. * 01504800 //* * 01504900 //* TANAL DO QUICK SCAN OF UNLABELLED OR LABELLED TAPE TO * 01505000 //* GIVE YOU THE MAX AND MIN BLKSIZES IN ALL FILES * 01505100 //* AND THE NUMBER OF BLOCKS IN THE FILE. * 01505200 //* * 01505300 //* TAPEL GIVES YOU A QUICK SCAN OF A TAPE AND GIVES INFO * 01505400 //* ON EACH FILE IN EASY TO READ FORM. MADE FOR THE * 01505500 //* NOT TOO BRIGHT USER YOU MAY HAVE. * 01505600 //* * 01505700 //* TAPELZAP ZAP TO FORCE OPER REPLY WITH 6 CHARACTER VOL * 01505800 //* SER ON TAPE. DECREASE TAPES WITH VOL=SER=U. * 01505900 //* MVS/SP1.1 * 01506000 //* * 01506100 //* TAPESCAN MVS UPDATED VERSION FAMOUS 'TAPESCAN' PROGRAM. * 01506200 //* * 01506300 //* TIDY CLEANS UP FORTRAN CODE. LOOK AT COMMENTS IN * 01506400 //* CODE TO SEE HOW TO RUN THE BEAST. * 01506500 //* * 01506600 //* TIDYASM CLEANS UP ALC CODE. LOOK AT COMMENTS IN CODE TO * 01506700 //* SEE HOW TO RUN THE BEAST. * 01506800 //* * 01506900 //* TLABEL REPLACES IBM UTILITY 'IEHINIT', OPER STARTABLE * 01507000 //* AND WILL ALLOW YOU TO PUT LABEL TO TAPE OR JUST * 01507100 //* PUT A TAPEMARK ONTO THE TAPE. (RUNS AUTHORIZED) * 01507200 //* * 01507300 //* TLPRINT SUBROUTINE USED BY SOME TAPE UTILITIES TO FORMAT* 01507400 //* A LABEL OF A TAPE. * 01507500 //* * 01507600 //* ZTDUMPTP GENERALIZED TAPE DUMPING FACILITY. PUT IT IN AN * 01507700 //* AUTHORIZED LIBRARY. VERY POWERFUL. SEE COMMENTS * 01507800 //* IN CODE FOR FULL DETAILS. * 01507900 //* * 01508000 //* VKILLER SUBTASK FOR TAPEL TO LET YOU DO MULTIPLE TAPEL'S * 01508100 //* ON A NO. OF TAPES, THEN IT MAKE IT QUIT, YOU TELL* 01508200 //* KILL TO KILL TAPEL !!!! * 01508300 //* * 01508400 //* ZEBCOMPR A ZAP TO THE IBM UTILITY 'IEBCOMPR' TO DISPLAY * 01508500 //* UNMATCHED RECORDS IN EBCDIC INSTEAD OF HEX. * 01508600 //* WE MADE A COPY OF IEBCOMPR, CALLED IT ZEBCOMPR, * 01508700 //* ZAPPED IT. * 01508800 //* * 01508900 //* ZTSECURE MAKE SURE NO DATA IS BEYOND THE 2 DOUBLE EOF * 01509000 //* MARKS ON TAPE. WILL DUMP FIRST 3 BLOCKS AND LAST * 01509100 //* BLK OF EVERY FILE. LEAPS OVER DOUBLE END-OF-FILE * 01509200 //* MARKS & WRITE BINARY PATTERN UNTIL HITS REFLECT- * 01509300 //* IVE STRIP. * 01509400 //* * 01509500 //***FILE 317 IS AN UPDATED MVS/SE2 VERSION OF STATDIE MODIFIED FROM* 01509600 //* THE YALE OMF FROM THE U.S. POSTAL SERVICE IN WASHING- * 01509700 //* TON D.C. SEE THE MEMBER CALLED $$INDEX FOR ADDITIONAL * 01509800 //* INFORMATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01509900 //* * 01510000 //***FILE 318 IS AN UPDATED VERSION THE PACKER PROGRAM FROM THE U.S * 01510100 //* POSTAL SERVICE IN WASHINGTON, D.C. SEE THE MEMBER * 01510200 //* CALLED $$DOC FOR ADDITIONAL INFORMATION. THIS FILE IS * 01510300 //* IN IEBUPDTE SYSIN FORMAT * 01510400 //* * 01510500 //***FILE 319 IS A PROGRAM THAT WILL EXTRACT TYPE 14 AND 15 SMF * 01510600 //* RECORDS AND PRODUCE A REPORT. THIS PROGRAM WAS * 01510700 //* SUPPLIED FROM THE U.S. POSTAL SERVICE IN WASHINGTON, * 01510800 //* D.C. FROM A PROGRAM THEY MODIFIED FROM THE SPLA TAPE * 01510900 //* * 01511000 //***FILE 320 IS A SERIES OF DF/DSS DRIVER EXITS FROM JOHN SULLIVAN * 01511100 //* OF LOMA LINDA UNIVERSITY MEDICAL CENTER IN CA * 01511200 //* THIS VERSION HAS A NEW UCB LOOK UP ROUTINE WHICH * 01511300 //* IS UPWARD COMPATIBLE WITH MVS/SP1.3 AND MVS/SP2.0 * 01511400 //* (XA) AS WELL AS MVS 3.8 BASE LEVEL CODE * 01511500 //* * 01511600 //***FILE 321 IS A COPY OF DYNAMIC BLDL AT AN 8107 BASE LEVEL * 01511700 //* SYSTEM (NO SE OR SP). THIS UPDATE WAS RECEIVED FROM * 01511800 //* THE PENN MUTUAL LIFE INSURANCE COMPANY. THE CODE WAS * 01511900 //* UPDATED FOR PUT 8107 AND OTHER MODIFICATIONS WERE * 01512000 //* MADE TO INCREASE RELIABILITY AND MAKE THE REPORTING * 01512100 //* A LITTLE NICER. FOR ADDITIONAL INFORMATION SEE THE * 01512200 //* MEMBER CALLED $$DOC . THIS FILE IS IN IEBUPDTE SYSIN * 01512300 //* FORMAT * 01512400 //* * 01512500 //***FILE 322 IS A COPY OF THE QUE TSO CP MODIFIED TO RUN WITH * 01512600 //* MVS/SP1.3 (OLD MVS/SP 3) AND THE JES2 SYSTEM PRODUCT * 01512700 //* SEE THE FOLLOWING MEMBERS FOR ADDITIONA INFORMATION: SP* 01512800 //* $UFDOC AND $NERJCL2 . THIS FILE IS IN IEBUPDTE SYSIN * 01512900 //* FORMAT AND WAS CONTRIBUTED BY MR JACK SCHUDEL OF * 01513000 //* THE NORTHEAST REGIONAL DATA CENTER AT THE UNIVERSITY * 01513100 //* OF FLORIDA, IN GAINESVILLE, FLORIDA * 01513200 //* THIS VERSION OF QUE SUPPORTS 3278 MODELS 2, 3, 4 AND 5 * 01513300 //* JES2 VERSIONS SUPPORTED ARE: * 01513400 //* 1. JES2 4.1 * 01513500 //* 2. NJE 3.1 * 01513600 //* 3. MVS/SP-JES 1.3 * 01513700 //* VIA SYSPARM OPTION * 01513800 //* THIS VERSION WAS CULLED OFF OF VERSION 4 OF THE * 01513900 //* MVS/SP1.3 JES2 MODIFICATION TAPE AND ALSO CONTAINS * 01514000 //* RACF SUPPORT AS WELL AS ACF2 SUPPORT (ACTIVATED VIA * 01514100 //* GLOBAL SWITCHES) * 01514200 //* * 01514300 //***FILE 323 IS FROM GTE DATA SERVICES IN FORT WAYNE, INDIANA . * 01514400 //* THIS FILE CONTAINS SEVERAL OF THEIR MODS THAT THEY * 01514500 //* USE AT A BASE LEVEL 3.8 MVS SYSTEM AT AN 8201 PTF * 01514600 //* LEVEL . BELOW IS A DESCRIPTION OF THESE MODS * 01514700 //* * 01514800 //* KEYPHRASE - IOHALT * 01514900 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01515000 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01515100 //* PROBLEM - IGC0003C (IOHALT) ISSUES NEEDLESS * 01515200 //* - PGFIX/PGFREE IF IT HAS BEEN INCLUDED * 01515300 //* - IN IEAFIX00.(NON-SE ONLY). * 01515400 //* SOLUTION - CHANGE IOHALT TO NOT ISSUE PGFIX/PGFREE. * 01515500 //* RESULTS/BENEFITS - REDUCED OVERHEAD IN IGC0003C (IOHALT). * 01515600 //* (AFFECTS IMS REMOTE POLLING). * 01515700 //* * 01515800 //* KEYPHRASE - I/O PRIORITY QUEUEING * 01515900 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01516000 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01516100 //* PROBLEM - HIGH PRIORITY TASKS GET SLOWED DOWN IN * 01516200 //* - FIFO I/O QUEUES. * 01516300 //* SOLUTION - ADD I/O PRIORITY QUEUEING TO SYSTEM. * 01516400 //* RESULTS/BENEFITS - IMPROVED IMS AND TSO RESPONSE. * 01516500 //* * 01516600 //* KEYPHRASE - CHANNEL ROTATE FOR NON-SE AP/MP CPU * 01516700 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01516800 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01516900 //* PROBLEM - I.O.S. DOES NOT ROTATE CHANNELS. * 01517000 //* SOLUTION - MODIFY THE I.O.S. TEST CHANNEL ROUTINE TO * 01517100 //* - CAUSE THE PHYSICAL CHANNEL LIST FOR EACH * 01517200 //* - LOGICAL CHANNEL TO BE ROTATED BETWEEN I/O * 01517300 //* - REQUESTS TO THAT LCH. USE A SPIN-LOCK * 01517400 //* - MECHANISM TO SERIALIZE THE ACCESS TO THE * 01517500 //* - TEST CHANNEL LIST, SO THAT IT MAY BE * 01517600 //* - USED IN AP/MP SYSTEMS. * 01517700 //* RESULTS/BENEFITS - CAUSES MORE EVEN UTILIZATION OF * 01517800 //* - MULTIPLE CHANNELS TO DEVICES. * 01517900 //* * 01518000 //* KEYPHRASE - S.R.M. - M.P.L. * 01518100 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01518200 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01518300 //* PROBLEM - THE SRM DOES NOT COUNT NON-SWAPPABLE * 01518400 //* - ADDRESS SPACES IN THE CURRENT M.P.L. * 01518500 //* - A JOB, SUCH AS SORTS, MAY CHANGE FROM * 01518600 //* - NON-SWAPPABLE TO SWAPPABLE, CAUSING SRM * 01518700 //* - TO THINK M.P.L. HAS CHANGED WHEN IN FACT * 01518800 //* - IT HAS NOT CHANGED. * 01518900 //* SOLUTION - CAUSE THE SRM TO COUNT NON-SWAPPABLE * 01519000 //* - ADDRESS SPACES. * 01519100 //* RESULTS/BENEFITS - REDUCE UNNECESSARY SWAPPING. * 01519200 //* * 01519300 //* KEYPHRASE - TSO BLOCKSIZES * 01519400 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,TSO,IMS,NJE,CICS * 01519500 //* - 16MB 3033 - BATCH,RJE,TSO,IMS,NJE,CICS * 01519600 //* PROBLEM - TSO DATA SETS ARE CREATED WITH BLOCKSIZES * 01519700 //* THAT ARE NOT OPTIMUM. * 01519800 //* SOLUTION - CHANGE BLOCKSIZES OF TSO CREATED DATA SETS * 01519900 //* RESULTS/BENEFITS - OPTIMUM BLOCKSIZES. * 01520000 //* * 01520100 //* KEYPHRASE - VIO BUFNO * 01520200 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01520300 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01520400 //* PROBLEM - TOO MUCH PAGING DUE TO VIO. * 01520500 //* SOLUTION - MODIFY QSAM OPEN TO SET DEFAULT NUMBER OF * 01520600 //* - BUFFERS FOR VIO TO 1 INSTEAD OF 5. * 01520700 //* RESULTS/BENEFITS - REDUCED VIO PAGING. * 01520800 //* * 01520900 //* KEYPHRASE - LOGICAL SWAP FOR NON-SE * 01521000 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01521100 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01521200 //* PROBLEM - NEEDLESS SWAPS OF TSO USERS IS VERY * 01521300 //* - BAD ON PAGING RATES. * 01521400 //* SOLUTION - MODIFY TERMINAL I/O WAIT SYSEVENT * 01521500 //* - PROCESSING TO NOT SWAP OUT FOR INPUT * 01521600 //* - OR OUTPUT TERMINAL WAITS. * 01521700 //* - DETECTED WAIT WILL THEN DO THE * 01521800 //* - SWAPPING FUNCTION IF NECESSARY. * 01521900 //* RESULTS/BENEFITS - REDUCES TSO SWAPPING DRAMATICALLY. * 01522000 //* - CAN SIGNIFICANTLY REDUCE PAGING DUE TO * 01522100 //* - OUTPUT TERMINAL WAITS IN A SHOP WHICH USES * 01522200 //* - THE TSO 'OUTPUT' COMMAND RATHER THAN THE * 01522300 //* - THE MORE CUMBERSOME AND RESOURCE CONSUMING * 01522400 //* - SPF FUNCTIONS FOR VIEWING OUTPUT. * 01522500 //* * 01522600 //* KEYPHRASE - CSA POLLUTION (VSAM) * 01522700 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01522800 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01522900 //* PROBLEM - ALLOCATIONS OF VSAM FILES CAUSE IDA0192M * 01523000 //* - TO GETMAIN MORE CSA THAN IS ACTUALLY * 01523100 //* - NEEDED. THIS CAUSES CSA FRAGMENTATION * 01523200 //* - WHICH EFFECTIVELY POLLUTES CSA. * 01523300 //* SOLUTION - FORCE IDA0192M TO GETMAIN ONLY WHAT IS * 01523400 //* - NEEDED. * 01523500 //* RESULTS/BENEFITS - REDUCED CSA FRAGMENTATION AND ALSO * 01523600 //* LARGER VIRTUAL REGION SIZE. * 01523700 //* * 01523800 //* KEYPHRASE - REDUCE REMOTE TCAM POLLING * 01523900 //* ENVIRONMENT - 12 MB 3033 - BATCH,RJE,NJE,TSO,IMS * 01524000 //* PROBLEM - POLLING TO REMOTE TSO TUBES WHICH ARE * 01524100 //* - NOT LOGGED ON CAUSES A LOT OF CPU TIME * 01524200 //* - TO BE WASTED AND NEEDLESS LINE ACTIVITY. * 01524300 //* SOLUTION - REDUCE THE POLLING OF REMOTE 3270 DEVICES * 01524400 //* - THAT ARE NOT LOGGED ON. THIS IS ACCOM- * 01524500 //* - PLISHED BY INCREASING THE POLLING INTERVAL * 01524600 //* - BY A FACTOR OF 15 IF NO ONE IS LOGGED ON. * 01524700 //* - ONCE LOGON OCCURS, THE NORMAL POLLING * 01524800 //* - INTERVAL IS UTILIZED. * 01524900 //* RESULTS/BENEFITS - FOR TERMINALS NOT LOGGED ON, THIS MOD * 01525000 //* - DECREASED LINE ACTIVITY BY APPROX. 93%. * 01525100 //* - BECAUSE OF THE HIGH CORRELATION BETWEEN * 01525200 //* - LINE ACTIVITY IN POLLING AND CPU USE BY * 01525300 //* - TCAM, CPU UTILIZATION IS REDUCED BY THE * 01525400 //* - SAME ORDER OF MAGNITUDE. IN A LARGE TCAM * 01525500 //* - ENVIRONMENT, WHERE THE AVERAGE TERMINAL * 01525600 //* - WAS LOGGED ON APPROX. 40% OF THE TIME, * 01525700 //* - TOTAL LINE ACTIVITY WAS REDUCED BY 48%. * 01525800 //* - ADDITIONALLY, TCAM CPU UTILIZATION WAS * 01525900 //* - REDUCED 47%. * 01526000 //* * 01526100 //* KEYPHRASE - DETECTED WAIT TIME & SRM CONSTANTS * 01526200 //* ENVIRONMENT - 12 MB 3033 - BATCH,RJE,NJE,TSO,IMS * 01526300 //* PROBLEM - 1. DETECTED WAIT TIME FOR TSO SHOULD * 01526400 //* - REFLECT AVERAGE USER THINK TIME. * 01526500 //* - 2. SRM CONSTANTS FOR CPU LOW & HIGH VALUES * 01526600 //* - AND ASMQ-LENGTH LOW & HIGH VALUES CAUSE * 01526700 //* - THE SYSTEM TO NOT RUN AT CAPACITY. * 01526800 //* SOLUTION - 1. CHANGE THE DETECTED WAIT TIME DEFAULT * 01526900 //* - TO A VALUE WHICH TAKES INTO CONSID- * 01527000 //* - ERATION THE CPU MODEL FACTOR. THEN * 01527100 //* - THE ADJUSTED DETECTED WAIT TIME WILL * 01527200 //* - MORE CLOSELY RESEMBLE AVG. THINK TIME. * 01527300 //* - 2. CHANGE THE CPU LOW & HIGH VALUES FROM * 01527400 //* - 96 & 100.9 TO 100.9 & 101. * 01527500 //* - CHANGE THE ASMQ-LENGTH LOW & HIGH * 01527600 //* - VALUES FROM 7 & 10 TO 12 & 15. * 01527700 //* RESULTS/BENEFITS - 1. REDUCES TSO SWAPPING WHEN USED IN * 01527800 //* - CONJUNCTION WITH THE LOGICAL SWAP * 01527900 //* - MOD FOR NON-SE SYSTEMS (MW00034). * 01528000 //* - 2. RAISES OVERALL CPU UTILIZATION SINCE * 01528100 //* - A GREATER MPL WILL NOW BE MAINTAINED. * 01528200 //* - IMPACT OF SLOW SRM-MPL GROWTH (30 SEC. * 01528300 //* - INTERVALS) WILL BE LESSENED. * 01528400 //* * 01528500 //* KEYPHRASE - STIMER LONG-WAIT * 01528600 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01528700 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01528800 //* PROBLEM - AUTOMATIC SWAP-OUT FOR STIMER DOING * 01528900 //* LONG-WAITS CAUSES NEEDLESS SWAPPING. * 01529000 //* SOLUTION - CHANGE CODE TO NOT DO LONG-WAIT. LET * 01529100 //* - DETECTED-WAIT DO THE SWAPPING IF NEEDED. * 01529200 //* * 01529300 //* KEYPHRASE - MSS VOLUME SELECTION * 01529400 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01529500 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,CICS * 01529600 //* PROBLEM - MSS VOLUME SELECTION CAN PICK A CANDIDATE * 01529700 //* - WHOSE TOTAL FREE SPACE SATISFIES THE * 01529800 //* - PRIMARY SPACE REQUEST, BUT BECAUSE OF * 01529900 //* - FRAGMENTATION IT MAY NOT BE POSSIBLE TO * 01530000 //* - OBTAIN THE SPACE WITHIN 5 EXTENTS. THIS * 01530100 //* - CAUSES 'SPACE REQUESTED NOT AVAILABLE' * 01530200 //* - JCL ERRORS SINCE MSS VOLUME SELECTION * 01530300 //* - LOGIC DOES NOT HAVE THE ABILITY TO * 01530400 //* - PICK ANOTHER VOLUME AND TRY AGAIN. * 01530500 //* SOLUTION - CHANGE THE VOLUME SELECTION LOGIC SO THAT * 01530600 //* - THE LARGEST FREE EXTENT ON THE VOLUME * 01530700 //* - MUST BE AT LEAST 1/3 OF THE PRIMARY SPACE * 01530800 //* - REQUEST RATHER THAN 1/5. * 01530900 //* RESULTS/BENEFITS - REDUCES THE NUMBER OF NEEDLESS JCL * 01531000 //* - ERRORS INVOLVED IN CREATING DATASETS ON * 01531100 //* - AN MSS. * 01531200 //* * 01531300 //* KEYPHRASE - VOLSER IN ERROR MESSAGES * 01531400 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01531500 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01531600 //* PROBLEM - VARIOUS DADSM ALLOCATION ERROR MESSAGES * 01531700 //* GIVE NO INDICATION AS TO THE VOLSER OF * 01531800 //* THE PACK HAVING THE PROBLEM. DUPLICATE * 01531900 //* DATASET NAME JCL ERRORS ARE VERY HARD * 01532000 //* TO FIX WHEN THE MEDIUM IS AN MSS AND * 01532100 //* THE VOLUME IS UNKNOWN. SPACE NOT AVAILABLE * 01532200 //* JCL ERRORS ON MSS ARE ALSO PROBLEMS * 01532300 //* SINCE THE VERY FRAGMENTED VOLUME IS NOT * 01532400 //* KNOWN, CANT BE FIXED, AND CONTINUES TO * 01532500 //* CAUSE MORE JCL ERROR PROBLEMS. * 01532600 //* SOLUTION - MODIFY SOME IBM CODE SO THAT THE * 01532700 //* 'PROC-STEPNAME' IN 'IEF...' MESSAGES * 01532800 //* IS REPLACED WITH THE PROBLEM VOLSER. * 01532900 //* RESULTS/BENEFITS - ALLOWS SOME MSS RELATED SPACE PROBLEMS * 01533000 //* TO BE RESOLVED IMMEDIATELY. * 01533100 //* * 01533200 //* KEYPHRASE - MOUNT AUTHORITY FOR MSS * 01533300 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01533400 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01533500 //* PROBLEM - TSO USERS WITHOUT MOUNT AUTHORITY CANNOT * 01533600 //* ACCESS DATASETS ON AN MSS. * 01533700 //* SOLUTION - MODIFY IEFDB413, NORMAL ALLOCATION * 01533800 //* CONTROL, SO THAT TSO USERS CAN MOUNT * 01533900 //* MSS VOLUMES WITHOUT HAVING MOUNT * 01534000 //* AUTHORITY. LOCAL RESTRICTION - USERS * 01534100 //* WITHOUT MOUNT AUTHORITY CANT MOUNT MSS * 01534200 //* VOLUMES IF THE DSN BEING SOUGHT BEGINS * 01534300 //* WITH THEIR USERID INDEX. THIS RESTRICTION * 01534400 //* WILL MINIMIZE THE NUMBER OF VUA'S THAT * 01534500 //* ARE TIED UP BY TSO USERS. * 01534600 //* RESULTS/BENEFITS - NORMAL PRODUCTION AND TESTING DATASETS * 01534700 //* WHICH RESIDE ON MSS CAN NOW BE LOOKED * 01534800 //* AT (LISTD, PRINT IDS, ETC.) BY NON- * 01534900 //* AUTHORIZED TSO USERS. THIS WILL IMPROVE * 01535000 //* THEIR PRODUCTIVITY IN RESOLVING PROBLEMS. * 01535100 //* * 01535200 //* KEYPHRASE - CVOL PROCESSOR ENHANCEMENT * 01535300 //* ENVIRONMENT - 12MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01535400 //* - 16MB 3033 - BATCH,RJE,NJE,TSO,IMS,VTAM * 01535500 //* PROBLEM - THE CVOL PROCESSOR SEARCHES THE PCCB * 01535600 //* CHAIN AND GOES THROUGH ALLOCATION FOR A * 01535700 //* CATALOG AND BUILDS A PCCB JUST TO OBTAIN * 01535800 //* THE VOLUME SERIAL NUMBER OF THE CVOL. * 01535900 //* SOLUTION - CHANGE CVOL PROCESSOR TO OBTAIN THE VOLUME * 01536000 //* SERIAL NUMBER FROM THE LAST SIX (6) * 01536100 //* CHARACTERS OF THE CATALOG NAME SINCE ALL * 01536200 //* CVOL CATALOG NAMES ARE IN THE FORM OF * 01536300 //* SYSCTLG.VVOLSER. * 01536400 //* * 01536500 //* RESULTS/BENEFITS - THIS HAS MANY BENEFITS AND CREATES SOME * 01536600 //* MINOR RESTRICTIONS. THE BENEFITS ARE: * 01536700 //* .1 WE NO LONGER HAVE TO GO ALL THE WAY THROUGH * 01536800 //* ALLOCATION EVERY TIME WE SIMPLY NEED TO * 01536900 //* OBTAIN THE VOLSER NUMBER FOR A CVOL. * 01537000 //* THIS REDUCES CPU TIME AND I/O ACTIVITY TO * 01537100 //* THE MASTER CATALOG. * 01537200 //* .2 THIS ALLOWS UNRECEIVED PASSED DATA SETS TO * 01537300 //* BE CATALOGED AND/OR UNCATALOGED (DISPOSITION) * 01537400 //* PROCESSING) BY JOB TERMINATION AFTER AN ABEND * 01537500 //* HAS OCCURRED (WITHOUT THIS MOD YOU GET A NOT * 01537600 //* CATALOGED 4 BECAUSE AT JOB TERMINATION THE * 01537700 //* ALLOCATION FOR THE CVOL CATALOG IS NOT ALLOWED). * 01537800 //* .3 THIS ALLOWS DATA SETS CATALOGED IN CATALOGS * 01537900 //* OTHER THAN THE MASTER CATALOG TO BE REFERENCED * 01538000 //* IN THE JES PROC (BUT NOT IN LNKLST00 SINCE NIP * 01538100 //* DOESN'T GET THIS FAR). * 01538200 //* * 01538300 //* THIS ALSO CREATES SOME MINOR RESTRICTIONS: * 01538400 //* * 01538500 //* .1 THE NAMES OF ALL CVOL CATALOGS MUST BE * 01538600 //* SYSCTLG.VVOLSER, WHERE VOLSER IS THE SERIAL * 01538700 //* NUMBER ON WHICH THAT CVOL CATALOG RESIDES. * 01538800 //* .2 SINCE THE CVOL CATALOG IS NO LONGER ACTUALLY * 01538900 //* ALLOCATED THERE IS NO WAY THAT A CVOL ON A * 01539000 //* NON-RESIDENT VOLUME CAN BE ACCESSED I.E. ALL * 01539100 //* CVOL CATALOGS MUST BE ONLINE. * 01539200 //* * 01539300 //* KEYPHRASE - CHANNEL ROTATE FOR NON-SE UP CPU * 01539400 //* ENVIRONMENT - 8 MB 3033 - BATCH,RJE,NJE,TSO,IMS * 01539500 //* PROBLEM - I.O.S. DOES NOT ROTATE CHANNELS. * 01539600 //* SOLUTION - MODIFY THE I.O.S. TEST CHANNEL ROUTINE TO * 01539700 //* - CAUSE THE PHYSICAL CHANNEL LIST FOR EACH * 01539800 //* - LOGICAL CHANNEL TO BE ROTATED BETWEEN I/O * 01539900 //* - REQUESTS TO THAT LCH. * 01540000 //* - THIS ZAP FOR UNI-PROCESSORS ONLY !!!!!! * 01540100 //* RESULTS/BENEFITS - CAUSES MORE EVEN UTILIZATION OF * 01540200 //* - MULTIPLE CHANNELS TO DEVICES. * 01540300 //* * 01540400 //***FILE 324 IS A SERIES OF UTILITIES FOR MVS/SP1.3 FROM CONN * 01540500 //* NATIONAL BANK. THE FOLLOWING ARE INCLUDED IN THIS FILE * 01540600 //* 1) TSOENQ (TSO CP) FUNCTION - DISPLAY DATASET * 01540700 //* ENQUE CONFLICTS ON SP1.3 * 01540800 //* SYSTEM. * 01540900 //* 2) TSODSN (TSO CP) FUNCTION - DISPLAY 1. USERS, * 01541000 //* 2. DISPOSITION, 3. WAITING FOR * 01541100 //* DATASETS, 4 SYSTEM, 5 MUST * 01541200 //* COMPLETE FLAG, 6 RESERVE FLAGS, * 01541300 //* 7 GLOBAL FLAG, 8 OWNERSHIP FLAG * 01541400 //* FOR THE SPECIFIED DATASET. * 01541500 //* 5) SAVEALL - MACRO * 01541600 //* 6) ENDALL - MACRO * 01541700 //* 7) CONSOLER - SP1.3 ZAP TO MAKE CONSOLES COME UP * 01541800 //* 'K S,DEL=R' AT IPL. * 01541900 //* 8) MSSMOUNT - SP1.3 ZAP TO MOUNT MSS VOLUMES FOR * 01542000 //* TSO USERS WITHOUT THE MOUNT * 01542100 //* ATTRIBUTE. * 01542200 //* 9) IFASMFDP - SP1.3 ZAP ALLOW IFASMFDP TO GET * 01542300 //* BLKSIZE FROM THE JCL. * 01542400 //* 10) CSCSQ03D - SP1.3 # Q * 01542500 //* 11) CSCSQ03J - SP1.3 # Q INSTALL JCL * 01542600 //* * 01542700 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE MEMBER * 01542800 //* CALLED $$DOC FOR ADDITIONAL INFORMATION * 01542900 //* * 01543000 //***FILE 325 IF FROM WELLS FARGO BANK AND CONTAINS THE FOLLOWING * 01543100 //* PROGRAMS AND TSO COMMANDS . ALL CODE IS CURRENT AS OF * 01543200 //* JULY 1984 . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01543300 //* SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * 01543400 //* INFORMATION . * 01543500 //* * 01543600 //* IEFUTL - WELLS FARGO'S VERSION OF THE SMF USER TIME * 01543700 //* LIMIT EXIT. * 01543800 //* YOU WILL NOT BE ABLE TO USE THIS CODE AS IT * 01543900 //* STANDS BECAUSE OF SOME INSTALLATION * 01544000 //* DEPENDENCIES THAT ARE NOT SHIPPED. * 01544100 //* THIS IS AN EXAMPLE OF HOW TO DISCONNECT A * 01544200 //* TSO USER RATHER THAN CANCEL WHEN WAIT TIME * 01544300 //* IS EXCEEDED. THE USER THEN HAS HOWEVER MUCH * 01544400 //* TIME YOU ALLOW IN YOUR RECONLIM= PARAMETER * 01544500 //* TO LOGON RECONNECT BEFORE VTAM AUTOMATICALLY * 01544600 //* CANCELS THE ADDRESS SPACE. THE TERMINAL * 01544700 //* BECOMES IMMEDIATELY AVAILABLE FOR USE BY * 01544800 //* OTHER IDS, AND THE DISCONNECTED ID REMAINS * 01544900 //* SWAPPED OUT. * 01545000 //* SEE THE CODE THAT REFERS TO VTAM COMMAND: * 01545100 //* V NET,TERM, ... * 01545200 //* NOTE ===> THIS PERFORMS THE SAME FUNCTION * 01545300 //* THROUGH OPERATOR COMMAND THAT ANY USER CAN * 01545400 //* INVOKE THROUGH KEYBOARD ACTION. IF YOU ARE * 01545500 //* NOT FAMILIAR WITH CONDITIONAL LOGOFF, READ * 01545600 //* "INVOKING UNFORMATTED SYSTEM SERVICE * 01545700 //* TYPE(COND) TO FORCE A RECONNECT ENVIRONMENT" * 01545800 //* IN THE TSO TERMINAL USER'S GUIDE. * 01545900 //* * 01546000 //* JESLOGON - A PROGRAM TO ALLOW A TSO USER TO LOGON TO * 01546100 //* ANY SECONDARY SUBSYSTEM. IT ACTS AS A * 01546200 //* ONE-TIME FRONT END FOR THE STANDARD TMP, AND * 01546300 //* IS INTENDED TO BE EXECUTED BY THE LOGON * 01546400 //* PROCEDURE. JOBS SUBMISSIONS AND PSO * 01546500 //* (PROCESS SYSOUT) REQUESTS ARE ALSO HANDLED * 01546600 //* BY THE SECONDARY JES. * 01546700 //* * 01546800 //* JESMAXCC - A PAIR OF JES2 (SP1.3.3) EXITS THAT ADD TEXT * 01546900 //* TO THE $HASP165 MESSAGE GENERATED BY NOTIFY= * 01547000 //* ON THE JOB CARD OR BY THE JES2 /*NOTIFY * 01547100 //* CONTROL CARD. IF THE JOB DOES NOT ABEND, THE * 01547200 //* MAXIMUM CONDITION CODE OF ALL EXECUTED STEPS * 01547300 //* IS ADDED. IF THE JOB ABENDS, THE SYSTEM OR * 01547400 //* USER ABEND CODE IS ADDED: * 01547500 //* $HASP165 YOURJOB ENDED AT NODE - MAX COND * 01547600 //* CODE 0000 * 01547700 //* $HASP165 YOURJOB ENDED AT NODE - ABENDED * 01547800 //* USER XXX * 01547900 //* $HASP165 YOURJOB ENDED AT NODE - CANCELLED * 01548000 //* SYSTEM 222 * 01548100 //* * 01548200 //* OPCON - OPERATOR CONSOLE MONITOR MODIFIED FOR * 01548300 //* WFB 12/83 * 01548400 //* TAKEN FROM CBT * 01548500 //* FILE338 * 01548600 //* S P Y (NAME CHANGED * 01548700 //* TO "OPCON" IN * 01548800 //* THE CODE, BUT * 01548900 //* COMMENTS STILL * 01549000 //* ******** CHANGES ******** REFER TO "SPY") * 01549100 //* * 01549200 //* V3.2 - ELIMINATE SPECIAL CHARACTER REQUIRED * 01549300 //* TO PRECEDE OS CMD * 01549400 //* - ELIMINATE SECRET AUTH SVC, RESTORE * 01549500 //* MODESET AND SVC34 * 01549600 //* - CORRECT BUFFER ADDRESS PROBLEM WITH * 01549700 //* LINE 1 OF DISPLAY * 01549800 //* - CORRECT LOOP COUNT FOR UCM BUILD * 01549900 //* ROUTINE * 01550000 //* - ADD SUBCOMMAND A.. (AUTO W.. AFTER * 01550100 //* COMMAND ENTRY) * 01550200 //* - ADD CHECK AT INITIALIZATION FOR TSO * 01550300 //* OPER AUTHORITY * 01550400 //* - MAKE COMMAND ENTRY AREA NON-DISPLAY * 01550500 //* UNTIL PASSWD GIVEN * 01550600 //* - MAKE "OPER REDISPLAY" AREA MODIFIABLE * 01550700 //* FOR REENTRY * 01550800 //* - FILL BOTH ENTRY AREAS WITH NULLS TO * 01550900 //* ALLOW CHAR INSERT * 01551000 //* - REDISPLAY LAST CMD ENTERED BY USER * 01551100 //* (INSTEAD OF OPER) * 01551200 //* - MOVE CONSOLE STATUS TABLE TO SEPARATE * 01551300 //* CSECT * 01551400 //* - RESTRUCTURE THE HELP SCREEN AND USE * 01551500 //* UPPER/LOWER CASE * 01551600 //* - PROVIDE TSO HELP ENTRY AS COMMENTS AT * 01551700 //* END OF SOURCE * 01551800 //* * 01551900 //* THIS PROGRAM DISPLAYS THE CONTENTS OF ALL * 01552000 //* ACTIVE GRAPHIC OPERATOR'S CONSOLES ON A TSO * 01552100 //* CRT. THE OPERATOR'S SCREEN CAN BE EITHER A * 01552200 //* 327X OR A 370-168 INTEGRATED CONSOLE. THE * 01552300 //* TSO USER CAN USE ANY 327X TERMINAL. * 01552400 //* * 01552500 //* ROOM - (THIS VERSION GENERALIZES SOME OFFSETS THAT * 01552600 //* WERE HARD CODED). A TSO COMMAND TO ALLOW A * 01552700 //* USER TO CHANGE THE "ROOM NUMBER" FIELD IN * 01552800 //* THE JES JCT FOR THE TSO SESSION. THIS * 01552900 //* COMMAND IS NECESSARY BECAUSE THE ROOM NUMBER * 01553000 //* FIELD IS NOT SUPPORTED BY UADS (AND THE * 01553100 //* FIELD IS OVERLAYED BY WELLS FARGO ACCOUNTING * 01553200 //* INFORMATION DURING LOGON). ROOM MAKES IT * 01553300 //* EASY FOR THE USER TO SPECIFY DELIVERY * 01553400 //* INFORMATION (PRINTED ON JES HEADER AND * 01553500 //* TRAILER PAGES) FOR ALL SYSOUT CREATED DURING * 01553600 //* THE SESSION, INCLUDING SPUN DATASETS. * 01553700 //* * 01553800 //* THIS CODE CAN SERVE AS A MODEL FOR ALLOWING * 01553900 //* A TSO USER TO CHANGE THROUGH AUTHORIZED * 01554000 //* MEANS ANY OTHERWISE PROTECTED INFORMATION IN * 01554100 //* THE JES JCT OR SIMILAR CONTROL BLOCKS. * 01554200 //* * 01554300 //* VTAMCHK - THIS PROGRAM IS INTENDED TO BE STARTED * 01554400 //* AUTOMATICALLY AFTER AN IPL (BY COMMNDXX). IT * 01554500 //* IS USED TO START VTAM APPLICATIONS OR ISSUE * 01554600 //* OTHER COMMANDS IN AN ORDERLY SEQUENCE AFTER * 01554700 //* VTAM IS UP AND RUNNING. * 01554800 //* * 01554900 //* VTAMCHK HAS THE OPTION TO DELAY BETWEEN * 01555000 //* ISSUING EACH COMMAND BECAUSE SOME * 01555100 //* ENVIRONMENTS THEMSELVES HAVE TIME * 01555200 //* DEPENDENCIES, SUCH AS $SLOGON1 (WAIT FOR * 01555300 //* INITIALIZATION) * 01555400 //* * 01555500 //* $SN,A=XX * 01555600 //* * 01555700 //* THE SOURCE HAS A SAMPLE OF THE PROCEDURE AND * 01555800 //* SOME COMMANDS. * 01555900 //* * 01556000 //* VTOCLIST - A CORRECTED VERSION OF THE GTE VTOCLIST * 01556100 //* PROGRAM TAKEN FROM THE CBT TAPE. CORRECTIONS * 01556200 //* INCLUDE: * 01556300 //* * 01556400 //* - PROVIDE SUPPORT FOR DF/EF VSAM FILES WHICH * 01556500 //* ARE ALLOWED TO HAVE MORE THAN 16 EXTENTS * 01556600 //* * 01556700 //* - TWO CORRECTIONS TO PRINT EXTENT NUMBERS * 01556800 //* GREATER THAN 99. * 01556900 //* * 01557000 //* - A CORRECTION TO PRINT THE "LAST REF DATA" * 01557100 //* AND "USE COUNT". * 01557200 //* * 01557300 //***FILE 326 IS FROM SCHERING-PLOUGH AND IS A SET OF SMF EXITS AND * 01557400 //* A TSO COMMAND TO DISPLAY TSO SESSION CHARGES BOTH * 01557500 //* DURING THE SESSION AND AT LOGOFF TIME. THIS FILE IS * 01557600 //* IN IEBUPDTE SYSIN FORMAT * 01557700 //* * 01557800 //***FILE 327 IS FROM SCHERING-PLOUGH AND IS A TSO COMMAND TO FLIP- * 01557900 //* FLOP 3278-5'S TO AND FROM MODEL 2 MODE, I.E. FROM * 01558000 //* TERM SCR (27,132) TO TERM SCR (24,80) AND BACK. * 01558100 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01558200 //* * 01558300 //***FILE 328 IS FROM SCHERING-PLOUGH AND IS A PROBLEM MANAGEMENT * 01558400 //* SYSTEM ORIENTED AT SOFTWARE SUPPORT WITH EMPHASIS * 01558500 //* ON USING THE IBM SUPPORT CENTER. THIS FILE IS IN * 01558600 //* IS IN IEBUPDTE SYSIN FORMAT * 01558700 //* * 01558800 //***FILE 329 IS A COPY OF THE IBM PRINT DUMP EXIT CALLED AMDPSCAN, * 01558900 //* WHICH WAS SENT TO ME BY SCHERING-PLOUGH. THIS FILE * 01559000 //* IS IN IEBUPDTE SYSIN FORMAT . THIS FILE WAS UPDATED * 01559100 //* FEB 12 , 1984 BY AN UPDATE SENT IN BY THE CITY * 01559200 //* UNIVERSITY OF NEW YORK . * 01559300 //* THE MEMBERS IN THIS FILE ARE : * 01559400 //* * 01559500 //* 1. SCANINFO - DOCUMENT MEMBER * 01559600 //* 2. USERMOD - USERMOD TO CONNECT AMDPSCAN TO * 01559700 //* AMDPRDMP. CURRENT FOR MVS/SP1.3 * 01559800 //* 3. ESC1326 - THE MVS/SP1.3 (JBB1326) VERSION * 01559900 //* OF AMDPSCAN . INCLUDES FUNCTION * 01560000 //* ESC1326 AND PTF US01110 * 01560100 //* 4. ESC2102 - THE MVS/XA (HBB2102) VERSION OF * 01560200 //* AMDPSCAN . INCLUDES FUNCTION * 01560300 //* ESC2102 AND PTFS US02000 AND * 01560400 //* US02110 * 01560500 //* 5. AMDPMSGS - THE AMDPSCAN USER MANUAL . * 01560600 //* PRINTS WITH MACHINE CONTROL * 01560700 //* CHARACTERS * 01560800 //* * 01560900 //* THE OBJECTIVES OF AMDPRDMP ARE: * 01561000 //* * 01561100 //* 1. TO CHECK VARIOUS FLAG BITS IN THE DUMP WHICH MAY * 01561200 //* HAVE CONTRIBUTED TO THE FAILURE, BUT WOULD NOT HAVE * 01561300 //* BEEN NOTICED BY THE PSR UNLESS HE WAS SPECIFICALLY * 01561400 //* LOOKING FOR THEM. AN EXAMPLE OF THIS WOULD BE THE 'SQA * 01561500 //* CRITICAL' BIT IN THE GDA. * 01561600 //* * 01561700 //* 2. CONTROL BLOCK VERIFICATION. VS2 HAS MANY QUEUES OF * 01561800 //* CONTROL BLOCKS AND A SYMPTOM OR CAUSE OF SYSTEM * 01561900 //* FAILURE IS FREQUENTLY AN INVALID CONTROL BLOCK OR * 01562000 //* CORRUPTED QUEUE. SCANNING THESE CONTROL BLOCKS * 01562100 //* MANUALLY WOULD BE TOO TIME CONSUMING TO BE PRACTICAL. * 01562200 //* AMDPSCAN SCANS MANY CONTROL BLOCKS AND QUEUES, * 01562300 //* PRINTING ERROR MESSAGES AND LEADING THE PSR TO THE * 01562400 //* CAUSE OF THE PROBLEM. * 01562500 //* * 01562600 //* AMDPSCAN WILL PERFORM THE FOLLOWING FUNCTIONS: * 01562700 //* PERFORMS COMMS TASK CONTROL BLOCK CHECKING. * 01562800 //* PRINTS ANY WQE'S STILL ON THE SYSOUT QUEUE * 01562900 //* (NOT YET PRINTED AT A CONSOLE.) PRINTS ANY * 01563000 //* OUTSTANDING ORE'S. CHECKS ALL UCM'S, CQE'S * 01563100 //* AND WWB'S ETC. GIVES CONTROL TO EACH OF * 01563200 //* THE OTHER CSECTS AND CONTAINS THE INTERFACE * 01563300 //* BETWEEN THE OTHER CSECTS AND COMMONLY USED * 01563400 //* ROUTINES WITHIN AMDPSCAN. FORMATS THE * 01563500 //* MASTER TRACE TABLE IN CHRONOLOGICAL * 01563600 //* SEQUENCE IF MTT WAS ACTIVE AT DUMP TIME. * 01563700 //* FORMATS THE SYSTEM TRACE TABLE IF TRACE WAS * 01563800 //* ACTIVE AT DUMP TIME. SVC'S ARE DECODED. * 01563900 //* CHECKS ALL SPQE'S, DQE'S, FQE'S, PQE'S, * 01564000 //* FBQE'S AND AQE'S FOR CSA, SQA AND ALL * 01564100 //* ADDRESS SPACES. ALL CPAB'S, CPABE'S AND * 01564200 //* QUICKCELLS ARE CHECKED FOR ALL GLOBAL CELL * 01564300 //* POOLS AND LOCAL SVRB POOLS. ALL UCB'S ARE * 01564400 //* CHECKED FOR 'MISSING INTERRUPTS'. LCH'S * 01564500 //* ARE CHECKED FOR WAITING REQUESTS. I/O * 01564600 //* CONTROL BLOCK CHAINS ARE VALIDITY CHECKED. * 01564700 //* GIVES INFORMATION ABOUT GLOBAL LOCKS HELD * 01564800 //* AT DUMP TIME. E.G. ASM LOCK, DISP LOCK ETC. * 01564900 //* VALIDITY CHECKS MOST RSM CONTROL * 01565000 //* BLOCKS..... ALSO, PAGE-IN REQESTS ARE * 01565100 //* TRACED FOR LATER ANALYSIS BY AMDPSALZ. * 01565200 //* ANALYSES QCB'S AND QEL'S FOR ENQUEUE * 01565300 //* LOCKOUT SITUATIONS. CHECK FOR AND TRACES * 01565400 //* CMS LOCK AND/OR LOCAL LOCK LOCKOUT * 01565500 //* SITUATIONS. ANALYZES CONTROL BLOCKS BUILT * 01565600 //* BY OTHER 'SCAN' ROUTINES. * 01565700 //* * 01565800 //* GIVES INFORMATION ABOUT THE FOLLOWING * 01565900 //* SYSTEM RESOURCES:- * 01566000 //* PAGE SUPERVISOR. * 01566100 //* I/O DEVICES. * 01566200 //* LOCKS. * 01566300 //* QCB'S * 01566400 //* REAL STORAGE FRAMES. * 01566500 //* WQE'S * 01566600 //* ORE'S * 01566700 //* * 01566800 //* DETAILS OF HOLDERS AND WAITORS FOR THESE RESOURCES * 01566900 //* ARE PRINTED IN ORDER OF IMPORTANCE TO THE SYSTEM AT * 01567000 //* THE TIME OF THE DUMP. TOP FROM THIS PRINTOUT, IT * 01567100 //* SHOULD BE POSSIBLE TO DETERMINE THE 'CRITICAL' SYSTEM * 01567200 //* RESOURCE AT THE TIME OF THE DUMP. DETERMINES IF THE * 01567300 //* PSW STORED BY STORE STATUS HAS THE WAIT BIT ON OR * 01567400 //* OFF. IF 'OFF' THE INSTRUCTION STREAM POINTED TO BY * 01567500 //* THE PSW IS SIMULATED AND ANALYSED TO DETERMINE IF THE * 01567600 //* SYSTEM WAS 'LOOPING' OR NOT AT THE TIME OF THE DUMP. * 01567700 //* IF A LOOP IS DETECTED, IT IS PRINTED OUT ALONG WITH * 01567800 //* THE REGISTERS AND INTRUCTION AT THE ADDRESS POINTED * 01567900 //* TO BY THE PSW * 01568000 //* * 01568100 //***FILE 330 CONTAINS THE MVS/SP RELEASE 1 SOURCE FOR DMS. THIS * 01568200 //* FILE IS IN IEBUPDTE FORMAT * 01568300 //* * 01568400 //***FILE 331 CONTAINS THE MVS/SP RELEASE 1 LOAD MODULES FOR DMS * 01568500 //* * 01568600 //***FILE 332 CONTAINS THE SOURCE FOR A STARTED TASK WHICH IF LEFT * 01568700 //* RUNNING FOR 24 HOURS A DAY WILL PROVIDE ENHANCED * 01568800 //* AUTOMATIC COMMAND EXECUTION AND JOB SUBMISSION AT A * 01568900 //* SPECIFIABLE TIME-OF-DAY OR DAY-OF-WEEK OR DAY-OF-THE- * 01569000 //* MONTH. THE SOURCE PROGRAM HAS IMBEDDED DOCUMENTATION * 01569100 //* ON THE FORMAT OF THE 'COMMANDS' PDS. ALSO IN THE * 01569200 //* SOURCE IS A TABLE OF 'JCL' DATASETS WHICH THE STARTED * 01569300 //* TASK WILL ALLOCATE AND USE TO SUBMIT SPECIFIED * 01569400 //* MEMBERS TO THE INTERNAL READER. THESE DATASETS ARE * 01569500 //* ALLOCATED BY DYNMAIC ALLOCATION AND ARE DE-ALLOCATED * 01569600 //* WHEN FINISHED PROCESSING * 01569700 //* * 01569800 //***FILE 333 IS FROM IBM, IN BASEL SWITZERLAND, AND CONTAINS SEV- * 01569900 //* ERAL UTILITIES TO MAKE THE INSTALLATION OF PTF TAPES * 01570000 //* EASIER AND EXERCISE ADDITIONAL CONTROL OF WHAT WILL * 01570100 //* GO ONTO YOUR SYSTEM. THIS FILE IS SET UP TO BE A * 01570200 //* RECEIVE FILE INTO SMP. I THINK YOU SHOULD PRINT * 01570300 //* IT OUT AND LOOK AT WHAT IT CAN DO FOR YOU. WE HAVE * 01570400 //* ONLY USED THE SMP4 XREF PROGRAM HERE AT THE BANK. * 01570500 //* THERE IS CONSIDERABLE DOCUMENTATION IN THIS FILE TO * 01570600 //* DESCRIBE WHAT THESE UTILITIES WILL PROVIDE * 01570700 //* * 01570800 //***FILE 334 IS FROM THE COUNTY OF LOS ANGELES AND CONTAINS A SAS * 01570900 //* PROGRAM THAT WAS WRITTEN TO FACILITATE THE * 01571000 //* EVALUATION OF AN ONLINE ENVIRONMENT NEEDING STORAGE * 01571100 //* ISLOATION AND THEN TO HELP IN THE EVALUATION OF THE * 01571200 //* STORAGE ISOLATION PARAMETERS . THIS FILE HAS ALSO * 01571300 //* UPDATED BY FEDERAL EXPRESS TO MAKE THE PROGRAMS MORE * 01571400 //* GENERALIZED . THIS FILE IS IN IEBUPDTE SYSIN INPUT * 01571500 //* FORMAT SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * 01571600 //* INFORMATION * 01571700 //* * 01571800 //***FILE 335 IS A DYNAMIC BLDL FROM GTE LABS IN CALIFORNIA * 01571900 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE MEMBER * 01572000 //* CALLED $DOC FOR MORE INFORMATION. THIS VERSION DOES NOT * 01572100 //* REQUIRE SYSTEM MODIFICATION TO INSTALL. * 01572200 //* DYNAMIC BLDL IS A SET OF PROGRAMS OBTAINED FROM THE * 01572300 //* CONNECTICUT BANK MODS TAPE AND MODIFIED BY HOWARD M. * 01572400 //* DEAN AT GTE DATA SERVICES. THEY PROVIDE A WAY OF * 01572500 //* MAINTAINING AN IN CORE LIST OF DIRECTORY ENTRIES FOR * 01572600 //* LINKLIST LIBRARYS. THIS HAS THE EFFECT OF REDUCING * 01572700 //* I/O TO THESE LIBRARYS. IN OUR INSTALLATION, WE ARE * 01572800 //* EXPERIENCING A HIT RATIO IN EXCESS OF 90 PERCENT. THE * 01572900 //* PROGRAM IS SET UP FOR A TABLE OF 200 ENTRIES BUT CAN * 01573000 //* BE MODIFIED FOR ANY NUMBER. * 01573100 //* * 01573200 //* THE COMPLETE BLDL MODIFICATION IS COMPOSED OF FOUR * 01573300 //* PROGRAMS: * 01573400 //* * 01573500 //* IGC018XX - BLDL SVC HOOK THAT IS COPIED TO FIXED SQA * 01573600 //* BLDLINIT - RUN AT IPL TIME FROM COMMND00 TO * 01573700 //* INITIALIZE DYNAMIC BLDL. * 01573800 //* BLDLST - LIST INCORE DYNAMIC BLDL TABLE. * 01573900 //* BLDLSW - START OR STOP DYNAMIC BLDL WITHOUT AN IPL. * 01574000 //* * 01574100 //* THE SOURCE FOR THESE PROGRAMS IS IN THIS FILE ON THE * 01574200 //* CBT MVS MODS TAPE. THE PROGRAM NAME IS THE MEMBER * 01574300 //* NAME. EACH WILL BE EXPLAINED IN ITS OWN SECTION * 01574400 //* BELOW. * 01574500 //* * 01574600 //* ########################################### * 01574700 //* # CAUTION # * 01574800 //* # THIS VERSION OF DYNAMIC BLDL IS FOR # * 01574900 //* # THE DF/DS VERSION OF IGC018 WITH # * 01575000 //* # MAINTAINCE APPLIED. EARLIER RELEASES OF # * 01575100 //* # MVS WILL HAVE TO RETROFIT TO ACCOMIDATE # * 01575200 //* # THE CODE. AMPLE COMMENTS ARE PROVIDED # * 01575300 //* # IN THE SOURCE TO ALLOW A RETROFIT IF # * 01575400 //* # IGC018 CHANGES. # * 01575500 //* # # * 01575600 //* # SEE THE SOURCE FOR THE CHANGES REQUIRED # * 01575700 //* # FMID=JDM1134 PUT=8207 # * 01575800 //* ########################################### * 01575900 //* * 01576000 //* ********** IGC018XX *********** * 01576100 //* * 01576200 //* PROGRAM IGC018XX IS LOADED AND MOVED INTO FIXED SQA * 01576300 //* STORAGE (SUBPOOL 245) VIA THE BLDLINIT PROGRAM. IT'S * 01576400 //* ENTRY ADDRESS IS PLACED IN THE SVC TABLE DYNAMICALLY * 01576500 //* AND THUS IT RECEIVES CONTROL AS A FRONT END TO THE * 01576600 //* IBM BLDL SVC IGC018. * 01576700 //* * 01576800 //* PLACE A PROCEDURE CALLING THE BLDLINIT PROGRAM INTO * 01576900 //* SYS1.PROCLIB AND INVOKE VIA THE COMMND00 MEMBER OF * 01577000 //* SYS1.PARMLIB. THIS WILL DYNAMICALLY INSTALL THE * 01577100 //* IGC018 FRONT-END. * 01577200 //* * 01577300 //* TO INSTALL IGC018 IN SYS1.LINKLIB, WE USED SMP AND * 01577400 //* DID A JCLIN TO ADD IGC018XX TO THE CDS. A SIMPLE ZAP * 01577500 //* TO MARK IGC018 FOR SMP REGRESSION CHECKS IS USED * 01577600 //* ALSO. THIS WILL ALLOW THE SYSTEMS PROGRAMMER TO * 01577700 //* RETROFIT IGC018XX WHEN IGC018 CHANGES. SEE THE * 01577800 //* COMMENTS IN IGC018XX FOR A LIST OF THINGS THAT MUST * 01577900 //* BE CHANGED IF IGC018 CHANGES. * 01578000 //* * 01578100 //* IGC018XX IS FIXED IN SQA STORAGE AT IPL TIME BUT CAN * 01578200 //* BE STOPPED AND STARTED WITHOUT THE NEED OF AN IPL AT * 01578300 //* ANY TIME. SIMPLY USE THE BLDLSW PROGRAM TO ACCOMPLISH * 01578400 //* THIS. * 01578500 //* * 01578600 //* ********** BLDLINIT ********** * 01578700 //* BLDLINIT DYNAMICALLY INITIALIZES DYNAMIC BLDL BY * 01578800 //* LOADING IGC018XX AND DYNAMICALLY RELOCATING THE * 01578900 //* MODULE IN FIXED SQA STORAGE. THE PROPER LOCKS ARE * 01579000 //* OBTAINED AND IGC018XX IS LOADED AND RELOCATED IN * 01579100 //* FIXED SQA STORAGE. THE PROCEDURE INVOKING THIS * 01579200 //* PROGRAM IS NORMALLY PLACED IN SYS1.PROCLIB AND * 01579300 //* INVOKED VIA THE COMMND00 MEMBER OF SYS1.PARMLIB AT * 01579400 //* IPL TIME. USING THIS APPROACH INSURES THAT AN IPL * 01579500 //* WILL NEVER FAIL DUE TO DYNAMIC BLDL. * 01579600 //* * 01579700 //* ********** BLDLSW ********** * 01579800 //* BLDLSW IS A PROGRAM TO TURN DYNAMIC BLDL ON OR OFF * 01579900 //* WITHOUT THE NEED FOR AN IPL. ALL COMMUNICATION TO * 01580000 //* THE PROGRAM IS VIA THE PARM FIELD AND ALL * 01580100 //* COMMUNICATION FROM THE PROGRAM IS VIA WTO SO NO DD * 01580200 //* CARDS ARE NEEDED TO RUN THE PROGRAM. * 01580300 //* * 01580400 //* A PARM FIELD OF 'P' STOPS DYNAMIC BLDL AND A PARM * 01580500 //* FIELD OF 'S' STARTS IT AGAIN. * 01580600 //* * 01580700 //* WE HAVE LINKED THIS PROGRAM INTO LINKLIB AND SINCE IT * 01580800 //* USES THE MODESET MACRO, IT MUST BE LINKED WITH AC(1). * 01580900 //* * 01581000 //* CARE SHOULD BE TAKEN TO CHECK THIS PROGRAM IF * 01581100 //* IGC018XX IS MODIFIED. A DSECT NAMED RLDSECT IS USED * 01581200 //* TO ADDRESS CERTAIN AREAS IN IGC018XX. IF THE FORMAT * 01581300 //* OF THE ADDRESS CONSTANTS IN IGC018XX CHANGES, THEN * 01581400 //* THIS DSECT SHOULD BE CHANGED ACCORDINGLY. SEE THE * 01581500 //* COMMENTS IN BLDLSW FOR FURTHER DETAILS. * 01581600 //* * 01581700 //* ********** BLDLST ********** * 01581800 //* * 01581900 //* PROGRAM BLDLLIST COPIES THE DYNAMIC BLDL TABLE AND * 01582000 //* THEN PRODUCES A PRINTED REPORT OF USAGE TO FILE * 01582100 //* SYSPRINT. THE SYSPRINT FILE HAS A DCB OF * 01582200 //* RECFM=FA,LRECL=80,BLKSIZE=80 MAKING IT IDEAL FOR * 01582300 //* RUNNING UNDER TSO TO MONITOR DYNAMIC BLDL. * 01582400 //* * 01582500 //* CARE SHOULD BE TAKEN TO EXAMINE THIS PROGRAM IF * 01582600 //* IGC018XX IS MODIFIED AS THIS CODE DEPENDS ON CERTAIN * 01582700 //* OFFSETS IN IGC018XX. IT ALSO DEPENDS ON A DSECT * 01582800 //* CALLED RLDSECT. THIS DSECT CORRESPONDS TO CERTAIN * 01582900 //* ADDRESS CONSTANTS IN IGC018XX. PLEASE UPDATE THIS * 01583000 //* DSECT IF YOU CHANGE THE ORDER OF ADDRESS CONSTANTS IN * 01583100 //* IGC018XX. * 01583200 //* * 01583300 //* THE CONSTANTS THAT MAY REQUIRE CHANGE IS PREFIXED * 01583400 //* WITH THE NATIONAL CHARACTER '$' * 01583500 //* * 01583600 //***FILE 336 CONTAINS A COLLECTION OF UTILITIES , MACROS , TSO * 01583700 //* COMMANDS , USERMODS , AND OTHER STUFF FROM RICE * 01583800 //* UNIVERSITY . * 01583900 //* * 01584000 //* RICE UNIVERSITY RUNS MVS/SP 1.1.1 WITH BASE-LEVEL * 01584100 //* JES2 (EJE1102), AND ALL OF THIS IS WORKING AT * 01584200 //* THAT LEVEL. (WE ALSO RUN UICC'S JTIP AND ACF2, * 01584300 //* WHICH ARE OCCASIONALLY REFERENCED. WE THINK WE * 01584400 //* HAVE REMOVED ALL SERIOUS DEPENDENCIES ON THESE * 01584500 //* PRODUCTS.) SOME OF THIS IS UPDATED/CORRECTED * 01584600 //* VERSIONS OF STUFF WE ORIGINALLY GOT FROM THE * 01584700 //* 1-23-82 VERSION OF THE MODS TAPE. THEREFORE * 01584800 //* SOME OF IT MAY HAVE BEEN SUPERSEDED OR * 01584900 //* COMPLICATED BY OTHER CHANGES TO THE SAME * 01585000 //* PROGRAMS SINCE THEN. * 01585100 //* * 01585200 //* THIS COLLECTION INCLUDES: * 01585300 //* * 01585400 //* TAPESCAN, A TAPE SCANNING/COPYING UTILITY * 01585500 //* ESPECIALLY SUITED TO DIAGNOSIS OF * 01585600 //* OVER-WRITTEN OR OTHERWISE SCREWED-UP TAPES. * 01585700 //* THIS VERSION OF TAPESCAN INCLUDES * 01585800 //* EXTENSIVE SUPPORT FOR ANSI- LABELLED * 01585900 //* TAPES, AND A LOT OF SECURITY SUPPORT * 01586000 //* (INCLUDING PASSWORD, EXPIRATION DATE AND ACF2 * 01586100 //* SECURITY CHECKING). * 01586200 //* * 01586300 //* DISKUTIL, AN IEHPROGM REPLACEMENT. * 01586400 //* * 01586500 //* SEQCOPY, AN IEBGENER REPLACEMENT. * 01586600 //* * 01586700 //* PRINTPDS, A UTILITY TO PRINT ALL MEMBERS OF * 01586800 //* A PDS, NO MATTER WHAT RECORD FORMAT. IT * 01586900 //* PRODUCES A TABLE OF CONTENTS AND AN ALIAS * 01587000 //* CROSS-REFERENCE. * 01587100 //* * 01587200 //* MAPDISK, ANOTHER VTOC MAPPING UTILITY * 01587300 //* (UNRELATED TO OTHERS OF THE SAME NAME). * 01587400 //* * 01587500 //* A VERSION OF DYNAMIC MLPA (OR MODREP) WITH * 01587600 //* SOME HORRIBLE BUGS FIXED. (NOW WE KNOW WHY * 01587700 //* IT STOPPED WORKING WHEN WE INSTALLED * 01587800 //* LOW-MEMORY PROTECTION!) * 01587900 //* * 01588000 //* CLUTSPAR, A FRIENDLIER VERSION OF IKJPARS. * 01588100 //* TRY IT, AND YOU WON'T WANT TO GO BACK! * 01588200 //* NOTE THAT CLUTSPAR DOES NOT SUPPORT ANY * 01588300 //* TSO/E FEATURES SUCH AS THE PARSE INTERFACE * 01588400 //* TO THE HELP COMMAND, DUE TO LACK OF * 01588500 //* INFORMATION ON HOW THEY WORK. (CLUTSPAR * 01588600 //* IS A FRAGMENT OF A PROJECT CALLED TSU, WHICH * 01588700 //* STARTED OUT AS A MECHANISM FOR WRITING TSO * 01588800 //* COMMAND PROCESSORS IN PL/I, AND EVENTUALLY * 01588900 //* SPROUTED REPLACEMENTS FOR MAJOR PORTIONS * 01589000 //* OF TSO. TSU AS A WHOLE HAS NEVER QUITE * 01589100 //* BECOME CLEAN ENOUGH TO RELEASE, BUT CLUTSPAR * 01589200 //* IS SUCH AN ENORMOUS IMPROVEMENT OVER THE * 01589300 //* COMPETITION THAT WE DECIDED TO MAKE IT AN * 01589400 //* EXCEPTION.) * 01589500 //* * 01589600 //* THE LANGUAGE INDEPENDENT ENVIRONMENT (LIE), * 01589700 //* A SET OF MACROS AND ROUTINES TO LET YOU * 01589800 //* WRITE ASSEMBLER SUBROUTINES WHICH CAN TAKE * 01589900 //* ADVANTAGE OF SERVICES OF THE PL/I * 01590000 //* ENVIRONMENT, PLUS A PSEUDO-PL/I * 01590100 //* ENVIRONMENT MANUFACTURER, TO PROVIDE THE * 01590200 //* SAME SERVICES IN THE ABSENCE OF PL/I. * 01590300 //* CLUTSPAR IS A PSEUDO-PL/I APPLICATION IN * 01590400 //* THIS SENSE. * 01590500 //* * 01590600 //* THE XSEND TSO COMMAND, FOR IMPROVED * 01590700 //* COMMUNICATION WITH LOGGED- ON TSO USERS. * 01590800 //* NOW YOU CAN SEND WITH WAIT AND BREAK OUT OF * 01590900 //* IT IF YOU GET TIRED OF WAITING! XSEND * 01591000 //* INCLUDES A USER SVC FOR CONTROLLED USE OF * 01591100 //* TPUT HIGHP (TO SEND BELLS/ALARM TO TELL A * 01591200 //* NOINTERCOM USER SOMEONE WANTS TO "SPEAK" TO * 01591300 //* HIM). * 01591400 //* * 01591500 //* LISTM, A NICE TSO COMMAND TO LIST PDS MEMBER * 01591600 //* NAMES. * 01591700 //* * 01591800 //* LISTU, A NICE TSO COMMAND TO LIST TSO * 01591900 //* USERS (SORTED BY USERID). * 01592000 //* * 01592100 //* UPUT, UPROMPT AND UGET, MACROS TO USE AS * 01592200 //* REPLACEMENTS FOR TPUT AND TGET THAT * 01592300 //* INTERFACE TO THE PUTLINE/PUTGET SERVICE * 01592400 //* ROUTINES. THEY MAKE CONVERSION OF OLD TSO * 01592500 //* CODE SO IT WILL RUN UNDER A BATCH TMP MUCH * 01592600 //* EASIER. * 01592700 //* * 01592800 //* XWTO, A MACRO TO ALLOW WTO MESSAGES TO BE * 01592900 //* BUILT FROM SEGMENTS WITHOUT HAVING TO COMPUTE * 01593000 //* ALL THE OFFSETS. * 01593100 //* * 01593200 //* UHB MACROS, A SET OF UTILITY MACROS TO MAKE * 01593300 //* WRITING BIG MACRO APPLICATIONS (LIKE XWTO * 01593400 //* TURNED OUT TO BE) MUCH EASIER. * 01593500 //* * 01593600 //* A JULIAN ROUTINE (ORIGINALLY WRITTEN TO BE * 01593700 //* CALLED FROM COBOL) TO CONVERT DATES BETWEEN * 01593800 //* JULIAN AND GREGORIAN FORMAT, AND TO * 01593900 //* DETERMINE THE DAY OF THE WEEK. THIS * 01594000 //* ROUTINE IS NOT ALL THAT INTERESTING, BUT IT * 01594100 //* IS USED BY SOME OF THE OTHER SUBMISSIONS. * 01594200 //* * 01594300 //* SAVEX AND RETURNX MACROS, YET ANOTHER * 01594400 //* EXAMPLE OF AN EXTENDED * 01594500 //* * 01594600 //* SAVE AND RETURN. AGAIN, NOT THAT * 01594700 //* INTERESTING, BUT USED ALL OVER BY OUR OTHER * 01594800 //* CODE. * 01594900 //* * 01595000 //* THE ABOVE ARE (EXCEPT FOR THE XSEND SVC * 01595100 //* AND CLUTSPAR) ALL APPLICATIONS, AND REQUIRE NO * 01595200 //* SMP WORK. * 01595300 //* * 01595400 //* WE ARE ALSO PROVIDING SMP-PACKAGED SYSMODS TO * 01595500 //* SUPPORT: PACKAGED SYSMODS TO SUPPORT: * 01595600 //* * 01595700 //* A MODIFICATION TO THE JES2 $DF COMMAND TO * 01595800 //* ALLOW SELECTIONS OF THE TYPES OF DATA SETS * 01595900 //* TO BE DISPLAYED. THIS MOD ALSO * 01596000 //* INTRODUCES THE $XF COMMAND, WHICH * 01596100 //* DISPLAYS EACH JOB WITH OUTPUT OF THE * 01596200 //* SPECIFIED KIND. * 01596300 //* * 01596400 //* A BIG MOD TO JES2 OUTPUT PROCESSING TO * 01596500 //* PROVIDE COUNTS OF THE ACTUAL NUMBER OF PAGES * 01596600 //* PRINTED FOR A JOB, BASED ON DEFINITIONS OF * 01596700 //* FORMS AND CARRIAGE TAPE LAYOUTS CONTAINED * 01596800 //* IN THE JES2 INITIALIZATION PARAMETERS. * 01596900 //* * 01597000 //* A MOD TO TSO FUNCTIONAL ACCOUNTING (SMF TYPE * 01597100 //* 32 RECORDS) TO RECORD RESPONSE-TIME-RELATED * 01597200 //* INFORMATION IN PLACE OF SOME OF THE MORE * 01597300 //* ESOTERIC PRESENT INFORMATION, AND TO NOT * 01597400 //* REQUIRE A PRE-ASSEMBLED LIST OF INTERESTING * 01597500 //* COMMANDS. INCLUDED IS A REPORT PROGRAM TO * 01597600 //* SUMMARIZE THE RECORDS CONTAINED IN A BATCH * 01597700 //* OF SMF DATA. * 01597800 //* * 01597900 //* A VERSION OF THE MOD TO ADD THE MAXIMUM * 01598000 //* CONDITION CODE TO THE JES2 NOTIFY MESSAGE. * 01598100 //* * 01598200 //* A JES2 MOD TO DISPLAY THE CONVERTER * 01598300 //* ABEND CODE WHEN THE CONVERTER CRASHES. * 01598400 //* (NOW WHO WOULD EVER WANT TO KNOW A THING * 01598500 //* LIKE THAT?) * 01598600 //* * 01598700 //* A MOD TO REMOVE "CN(00)" FROM NOTIFY * 01598800 //* MESSAGES (AND ANYTHING ELSE SENT VIA * 01598900 //* INTERNAL SEND COMMANDS). * 01599000 //* * 01599100 //* A MOD TO STAMP A NEW FORMAT 1 DSCB WITH * 01599200 //* THE USERID OF ITS CREATOR (FROM THE SMF * 01599300 //* USERID FIELD). WITH ACF2 (AND THE RIGHT ACF2 * 01599400 //* OPTIONS), THIS WILL BE THE ACF2 LOGONID. * 01599500 //* * 01599600 //* * 01599700 //***FILE 337 CONTAINS A SUBSET OF THE # CMD1 SUBSYSTEM FROM EXXON * 01599800 //* COMPANY, HOUSTON, TEXAS, THAT WILL RUN UNDER JES3. * 01599900 //* SEE THE MEMBER CALLED CMDSINFO FOR ADDTIONAL INFOR- * 01600000 //* MATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01600100 //* * 01600200 //***FILE 338 CONTAINS A COPY OF SPY THAT HAS BEEN MODIFIED TO RUN * 01600300 //* UNDER MVS/SP1.3 BY ANADONDA-ERICCSON. (ORIGINAL CODE * 01600400 //* FROM THE BANK OF NEW SOUTH WALES, THIS VERSION HAS * 01600500 //* BEEN MODIFIED TO ISSUE COMMANDS VIA SVC 34). THIS * 01600600 //* FILE ALSO CONTAINS CODE FOR TWO IMS MODULES THAT WILL * 01600700 //* FORCE SIGNON MFS MODULE TO APPEAR TO IMS USERS AT TWO * 01600800 //* DIFFERENT TIMES. ALSO CONTAINS VTAM USS TABLES. SEE * 01600900 //* THE MEMBER CALLED $DOC FOR ADDITIONAL INFORMATION. * 01601000 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01601100 //* * 01601200 //* THIS PDS CONTAINS SIX MEMBERS. THEY ARE: * 01601300 //* * 01601400 //* 1. $DOC DOCUMENTATION * 01601500 //* * 01601600 //* 2. AEI005P1 THIS MEMBER CONTAINS SOURCE UPDATES TO * 01601700 //* TWO IMS (115) MODULES IN SMP FORMAT * 01601800 //* THAT WILL FORCE THE ANACONDA SIGNON MFS * 01601900 //* MODULE TO APPEAR TO IMS USERS AT TWO * 01602000 //* DIFFERENT TIMES. 1ST, WHEN THE TERMINAL * 01602100 //* CONNECTS TO IMS AND THE 'TERMINAL * 01602200 //* CONNECTED' MESSAGE IS ISSUED, AND 2ND, * 01602300 //* WHEN THE IMS USER ISSUES A '/SIGN OFF'. * 01602400 //* THIS CODE ALSO FITS ON IMS 1.2 AT PTF * 01602500 //* LEVEL 8109. * 01602600 //* * 01602700 //* 3. COMMAND PROGRAM NEEDED BY SPY TO ISSUE OPERATOR * 01602800 //* COMMANDS VIA SVC 34 * 01602900 //* * 01603000 //* 4. MFSSIGN THIS MEMBER CONTAINS SOURCE STATEMENTS * 01603100 //* FOR THE MFS SIGNON MODULE. I'M NOT AN * 01603200 //* IMS PERSON SO I'M NOT SURE HOW TO * 01603300 //* CONSTRUCT IT, BUT HOWEVER YOU DO IT, * 01603400 //* CALL IT 'SIGN'. IF YOU DON'T LIKE THAT * 01603500 //* NAME, CHANGE THE USER- MOD FOR THE TWO * 01603600 //* IMS MODULES TO WHATEVER YOU WISH TO * 01603700 //* CALL IT. * 01603800 //* * 01603900 //* 5. USS3270L THIS MEMBER CONTAINS SOURCE STATEMENTS * 01604000 //* FOR THE VTAM USS TABLE WE USE FOR LOCAL * 01604100 //* 3270'S (NON-SNA). THIS SCREEN APPEARS * 01604200 //* AS SOON AS THE TERMINAL CONNECTS TO * 01604300 //* VTAM. WE MADE IT APPEAR LIKE AN SPF * 01604400 //* MASTER MENU WHERE THE USER SIMPLY KEYS * 01604500 //* IN ONE LETTER TO CONNECT TO THE * 01604600 //* APPLICATION HE/SHE WISHES TO USE. IT * 01604700 //* LOOKS GOOD ON 3278'S WITH SOME OF THE * 01604800 //* FIELDS HIGHLIGHTED AND EVEN BETTER ON * 01604900 //* 3279'S CAUSE IT'S IN RED, WHITE AND * 01605000 //* BLUE. * 01605100 //* * 01605200 //* 6. USS3270R THIS MEMBER CONTAINS SOURCE STATEMENTS * 01605300 //* FOR THE VTAM USS TABLE WE USE FOR SNA * 01605400 //* 3270'S . THE FORMAT OF THIS SCREEN IS A * 01605500 //* LITTLE DIFFERENT THAN THE LOCAL USSTAB * 01605600 //* BECAUSE YOU CAN'T USE THE SAME CONTROL * 01605700 //* CHARACTERS FOR SNA AS YOU WOULD FOR * 01605800 //* NON-SNA. HOWEVER THE SPF MENU CONCEPT * 01605900 //* IS THE SAME. * 01606000 //* * 01606100 //* 7. SPY THIS MEMBER IS THE SOURCE FOR SPY * 01606200 //* VERSION 3.1 WITH CROSS MEMORY SUPPORT * 01606300 //* INCLUDED FOR MVS/SP 1.3. THE VAST * 01606400 //* MAJORITY OF THE XM CODE CAME FROM THE * 01606500 //* BANK OF NEW SOUTH WALES. I SIMPLY FIT * 01606600 //* IT INTO THIS VERSION AND ADDED THE * 01606700 //* GETMAIN/FREEMAIN STUFF. THE SP3 CODE IS * 01606800 //* COMMENTED WITH 'SP3'. ALSO, SOME OF THE * 01606900 //* SP3 CODE ONLY RELATES TO OUR SHOP SINCE * 01607000 //* WE DO OUR OWN AUTHORIZATION SETTING * 01607100 //* WITH AN SVC. * 01607200 //* * 01607300 //* 8. OLDSPY CBT ADDED THIS MODULE. IT CONTAINS THE * 01607400 //* SPY THAT CAME FROM THE BANK OF NEW * 01607500 //* SOUTH WALES FROM WHICH THE ABOVE WAS * 01607600 //* BUILT. IT IS ONLY FOR MVS/SP1.3 AND * 01607700 //* USES THE INTERNAL READER TO ISSUE * 01607800 //* OPERATOR COMMANDS RATHER THAN USE SVC * 01607900 //* 34 AS THE ABOVE DOES * 01608000 //* * 01608100 //* HERE'S A WORD OF ADVICE. IF YOU INSTALL THE MOD TO * 01608200 //* IMS, AND YOU ARE IN THE HABIT OF ISSUEING AN 'OPEN * 01608300 //* NODE ALL' COMMAND FROM IMS WHEN THE SYSTEM COMES UP, * 01608400 //* YOU MAY EXPERIENCE NCP SLOWDOWNS. THIS IS BE- CAUSE * 01608500 //* AS IMS CONNECTS TO THESE TERMINALS THE MOD WILL FORCE * 01608600 //* THE 24X80 'SIGN' SCREEN TO BE SENT TO EVERY 3270 ON * 01608700 //* YOUR IMS NETWORK. TO GET AROUND THIS PROBLEM, DON'T * 01608800 //* OPEN ALL THE NODES. IN OUR CASE, WE STILL HAD TO OPEN * 01608900 //* THE PRINTER NODES SO WE SET UP AN NCCF CLIST THAT * 01609000 //* JUST TAKES CARE OF THE PRINTERS. GOOD LUCK! * 01609100 //* * 01609200 //***FILE 339 IS FROM E.F. MAC DONALD MOTIVATION FROM DAYTON OHIO . * 01609300 //* THIS PROGRAM IS A JES2/SP1.3.3 (FMID HJE2329) AND * 01609400 //* A JES2/SP1.3.4 (FMID HJE2330) USER * 01609500 //* EXIT #5 ROUTINE. THERE ARE NO INSTALLATION UNIQUE * 01609600 //* CONSIDERATIONS EXCEPT THAT THE COMMANDS "$JC", "$JL", * 01609700 //* "$JM" AND "$JD" ARE NOT BEING USED FOR ANYTHING ELSE. * 01609800 //* NO CHANGES TO JES2 CODE ARE REQUIRED. * 01609900 //* * 01610000 //* 1. CANCEL ALL JOES (JOB OUTPUT ELEMENTS) OF A * 01610100 //* SPECIFIED JOB IN A SPECIFIED SYSOUT CLASS. * 01610200 //* SIMILAR TO VS1 "C JOBNAME,OUT=X" EXAMPLES: * 01610300 //* * 01610400 //* $JCJ175,Q=D (CANCEL ALL SYSOUT=D JOES OF * 01610500 //* J175) * 01610600 //* * 01610700 //* $JC'MYJOB',Q=E (CANCEL ALL SYSOUT=E JOES OF * 01610800 //* JOBNAME "MYJOB") * 01610900 //* * 01611000 //* THE OPERAND "Q=" IS REQUIRED; USE JES2 "$C" * 01611100 //* COMMAND TO CANCEL ALL OUTPUT OF A JOB. * 01611200 //* * 01611300 //* 2. LIST ALL JOES IN SYSOUT CLASS ORDER. * 01611400 //* * 01611500 //* LIST MAY BE RESTRICTED TO A SELECTED CLASS, OR * 01611600 //* ALL CLASSES EXCEPT A SELECTED CLASS. SIMILAR * 01611700 //* TO THE VS1 "SO" COMMAND. EXAMPLES: * 01611800 //* * 01611900 //* $JL (LIST ALL JOES IN SYSOUT CLASS * 01612000 //* ORDER) * 01612100 //* $JL,Q=Z (LIST ALL JOES IN SYSOUT QUEUE Z) * 01612200 //* $JL,Q=-P (LIST ALL JOES EXCEPT THOSE IN * 01612300 //* SYSOUT QUEUE P) * 01612400 //* * 01612500 //* EACH SELECTED JOE IS LISTED IN THE FOLLOWING * 01612600 //* FORMAT : * 01612700 //* * 01612800 //* JNNNN JJJJJJJJ C I.I.I FORM X/Y P=NNN * 01612900 //* LLLLLLLLL WHERE JNNNN IS THE JES2 JOB NUMBER * 01613000 //* (J175, S3968, ETC.), JJJJJJJJ IS THE JOBNAME, * 01613100 //* I.I.I IS THE JOE ID, FORM IS THE FORM NUMBER, * 01613200 //* FCB IS THE FCB NAME, "X" IS "Y" IF THE DEST IS * 01613300 //* LOCAL, "Y" IS "Y" IF THE JOE IS SELECTABLE AND * 01613400 //* THE *JOB* IS NOT HELD, "Y" IS "N" IF THE JOE IS * 01613500 //* NOT SELECTABLE, "Y" IS "H" IF THE JOB IS HELD, * 01613600 //* "NNN" IS THE PRIORITY OF THE JOE (NOT THE JOB), * 01613700 //* AND LLLLLLLLL IS THE JOE LINECOUNT. TO LIST * 01613800 //* ALL JOES OF A PARTICULAR JOB, USE THE JES2 * 01613900 //* "$L...,ALL" COMMAND. * 01614000 //* * 01614100 //* 3. MOVE THE JOES OF A SELECTED JOB FROM A SELECTED * 01614200 //* SYSOUT CLASS TO A DIFFERENT SELECTED SYSOUT * 01614300 //* CLASS. SIMILAR TO VS1 "E * 01614400 //* JOBNAME,CLASS=X,OUT=Y". EXAMPLES: * 01614500 //* * 01614600 //* $JMJ175,FROMQ=X,TOQ=Y (MOVE J175 SYSOUT=X * 01614700 //* JOES TO SYSOUT=Y) * 01614800 //* * 01614900 //* $JM'MYJOB',TOQ=C,FROMQ=G (MOVE JOBNAME * 01615000 //* "MYJOB" SYSOUT=G * 01615100 //* JOES TO SYSOUT=C) * 01615200 //* * 01615300 //* TO MOVE *ALL* JOES OF A JOB TO A SELECTED * 01615400 //* SYSOUT CLASS, USE THE JES2 "$TO" COMMAND. * 01615500 //* * 01615600 //* 4. DISPLAY THE CURRENT JULIAN DATE. THIS IS * 01615700 //* INTENDED FOR USE WITH THE JES2 AUTOMATIC * 01615800 //* COMMAND FACILITY TO DATESTAMP HARDCOPY LOGS. * 01615900 //* FORMAT IS "$JD"; NO OPERANDS. * 01616000 //* * 01616100 //* THESE COMMANDS DO NOT ATTEMPT TO DUPLICATE FUNCTIONS * 01616200 //* WHICH CAN USUALLY BE ACCOMPLISHED WITH A SINGLE JES2 * 01616300 //* COMMAND. THIS PROGRAM CHECKS FOR SOME COMMON ERRORS * 01616400 //* SUCH AS VERIFICATION OF TYPE OF JOB ON REQUESTS BY JOB * 01616500 //* NUMBER (JOB/STC/TSU), DUPLICATE JOBNAME IN THE PPU * 01616600 //* QUEUE ON REQUESTS BY JOB NAME, AND JOE BUSY (ON AN * 01616700 //* OUTPUT DEVICE OR BEING MODIFIED BY A $TO COMMAND). TO * 01616800 //* REDUCE OVERHEAD TO A MINIMUM, ALL QUEUE INTEGRITY IS * 01616900 //* LEFT TO THE $QSUSE SERVICE ROUTINE WHICH IS USED BY * 01617000 //* THE $#MOD AND $#REM SERVICE ROUTINES, WHICH ARE USED * 01617100 //* BY THIS PROGRAM (SEE "JES2 LOGIC" LY24-6006). * 01617200 //* * 01617300 //***FILE 340 CONTAINS SEVERAL PROGRAMS FROM THE 1ST NATIONAL BANK * 01617400 //* OF CHICAGO. THIS CODE WILL DISPLAY RCT, DMN AND SYSTEM* 01617500 //* INFORMATION FOR A MVS/SP1.1 SYSTEM. THE SYSTEM * 01617600 //* COMMAND REQUIRES THAT YOU USE MACROS THAT ARE * 01617700 //* CONTAINED IN FILE 300 (AIR FORCE COMMANDS) OF THIS * 01617800 //* TAPE. ALSO INCLUDED IS A PROGRAM TO PRODUCE A REPORT * 01617900 //* FROM TYPE 30 SMF RECORDS. ALL PGMS IN THIS FILE ARE * 01618000 //* IN ASSEMBLER AND THE FILE ITSELF IS IN IEBUPDTE SYSIN * 01618100 //* FORMAT * 01618200 //* * 01618300 //***FILE 341 CONTAINS SEVERAL UTILITIES IN IEBUPDTE SYSIN FORMAT, * 01618400 //* THAT HAS BEEN RECEIVED FROM DELUXE CHECK PRINTERS INC. * 01618500 //* * 01618600 //* 1. FOLDIT IS A PROGRAM FOR PRINTING DATA SETS WITH * 01618700 //* UPPER AND LOWER CASE CHARACTERS ON PRINTERS * 01618800 //* LACKING THE LUXURY OF LOWER CASE. THIS PROGRAM * 01618900 //* WILL MAINTAIN THE PRINTER CONTROL CHARACTERS (I.E. * 01619000 //* IT LEAVES THEM ALONE) * 01619100 //* * 01619200 //* 2. SMFSEL IS A PROGRAM THAT COPIES ONE SMF HISTORY * 01619300 //* TO ANOTHER BUT ALLOWS SELECTION BY DATE AND TIME. * 01619400 //* IT ALSO WILL ALLOW REBLOCKING OF THE DATA * 01619500 //* * 01619600 //* 3. HAS SEVERAL SPF MENUS FOR COBOL, IEBGENER, IEWL, * 01619700 //* USER UTILITY, VTOC UTILITLY, COMPARE UTILITY, * 01619800 //* TUTORIAL PANELS AND SEVERAL TSO CLISTS * 01619900 //* * 01620000 //* 4 HAS SEVERAL ADDITIONAL PROGRAMS AND MACROS THAT * 01620100 //* WERE ADDED BY GTE SEE MEMBER CALLED $$DOCGTE * 01620200 //* * 01620300 //* 5 FOR ADDITONAL INFORMATION SEE THE MEMBER CALLED * 01620400 //* $$$DOC * 01620500 //* * 01620600 //***FILE 342 CONTAINS SEVERAL SPF MENUS FROM DELUXE CHECK PRINTERS * 01620700 //* THIS FILE AND FILE 341 COMPLEMENT EACH OTHER. SEE * 01620800 //* THIS FILE FOR ADDITIONAL INFORMATION, IT IS IN * 01620900 //* IEBUPDTE SYSIN FORMAT * 01621000 //* * 01621100 //***FILE 343 IS DOCUMENTATION FROM MELLON BANK CONCERNING MELLON * 01621200 //* BANK SHARED SPOOL FOR MVS SP1.3 JES2 SYSTEM PRODUCT * 01621300 //* * 01621400 //***FILE 344 ARE THE MODIFICATIONS TO INSTALL THE MELLON BANK * 01621500 //* SHARED SPOOL FOR MVS SP1.3 JES2 SYSTEM PRODUCT * 01621600 //* * 01621700 //***FILE 345 IS JCL TO CONTINUE THE INSTALL OF THE MELLON BANK * 01621800 //* SHARED SPOOL FOR MVS SP1.3 JES2 SYSTEM PRODUCT * 01621900 //* * 01622000 //***FILE 346 IS THE UPDATE TO THE JES2 SPOOL TRANSER PROGRAM SO * 01622100 //* AS TO ALLOW IT TO RUN IN AN MVS SP1.3 JES2 SYSTEM * 01622200 //* PRODUCT ENVIRONMENT. THIS FILE CONTAINS ONLY THE * 01622300 //* CHANGES TO HJSTP TO ALLOW IT TO RUN WITH THE JES2 * 01622400 //* SYSTEM PRODUCT. YOU WILL STILL NEED TO PURCHASE THE * 01622500 //* SPOOL TRANSFER PROGRAM ITSELF FROM IBM IF YOU WANT TO * 01622600 //* RUN IT, RATHER THAN THE DUMPER/LOADER THAT IS * 01622700 //* INCORPORATED INTO THE JES2 CODE * 01622800 //* * 01622900 //***FILE 347 IS A VIRTUAL STORAGE MONITOR FROM HALLMARK CARDS. * 01623000 //* THIS FILE IS IN IEBUDTE SYSIN FORMAT . SEE THE * 01623100 //* MEMBER CALLED $DOC FOR MORE INFORMATION THAN WHAT * 01623200 //* FOLLOWS BELOW : * 01623300 //* * 01623400 //* VIRTUAL STORAGE MONITOR * 01623500 //* * 01623600 //* THE VIRTUAL STORAGE MONITOR IS DESIGNED TO ASSIST IN * 01623700 //* IDENTIFYING VIRTUAL STORAGE PROBLEMS, PARTICULARLY * 01623800 //* THOSE ASSOCIATED WITH CSA UTILIZATION. VSM IS A * 01623900 //* COMMAND PROCESSOR . IT HAS BEEN TESTED ON MVS/SP1.1.1 * 01624000 //* AND ON SP1.3. VSM IS DESIGNED TO RUN WITH ACF/VTAM BUT * 01624100 //* SHOULD WORK WITH TCAM. * 01624200 //* * 01624300 //* KEY ZERO: * 01624400 //* 01624500 //* VSM00200 AND VSM00300 NEED TO BE IN KEY ZERO IN ORDER * 01624600 //* TO READ THE FETCH PROTECTED SUBPOOLS IN CSA. WE * 01624700 //* ACCOMPLISH THIS BY USING AN INHOUSE MACRO (PKEY) TO * 01624800 //* INVOKE AN IN-HOUSE SVC WHICH FLIPS BIT 15 IN THE PSW ON * 01624900 //* AND OFF. DO A FIND ON PKEY IN THE TWO MODULES MENTIONED * 01625000 //* AND EITHER INSERT YOUR OWN SVC OR REPLACE PKEY WITH THE * 01625100 //* MODESET MACRO AND THEN UPDATE THE APPROPRIATE TABLES * 01625200 //* (IKJEFTE2 AND/OR IKJEFTE8). PKEY APPEARS TWICE IN EACH * 01625300 //* MODULE; ONCE TO GET INTO KEY ZERO AND ONCE TO RETURN TO * 01625400 //* PROBLEM STATE. * 01625500 //* * 01625600 //***FILE 348 IS FROM THE LOUISIANA DEPARTMENT OF HEALTH AND HUMAN * 01625700 //* RESOURCES TO PROCESS GDG'S, THIS FILE IS IN IEBUPDTE * 01625800 //* SYSIN FORMAT AND CONTAINS THE FOLLOWING * 01625900 //* GDG - A CLIST WHICH ALLOWS PSEUDO-FULLSCREEN * 01626000 //* CONTROL OF GENERATION DATA GROUPS. THE * 01626100 //* CLIST CALLS THE 'ERASE' COMMAND * 01626200 //* PROCESSOR FOR FULL SCREEN EFFECT. IT * 01626300 //* CALLS 'HKNGDG02' TO PERFORM INDEX * 01626400 //* BUILDS AND DELETES. IT CALLS * 01626500 //* 'HKNGDG01' TO PERFORM LISTS AND * 01626600 //* MODIFICATIONS. * 01626700 //* ERASE - A SIMPLE COMMAND PROCESSOR TO CLEAR * 01626800 //* YOUR TSO SCREEN * 01626900 //* LINKIN - A MACRO TO PERFORM REENTRANT LINKAGE * 01627000 //* CONVENTIONS * 01627100 //* LINKOUT - MACRO TO PERFORM REVERSE OF 'LINKIN'. * 01627200 //* REGEQU - A MACRO TO PROVIDE 'RN EQU N' TYPE * 01627300 //* REGISTER EQUATES * 01627400 //* HKNGDG01 - A SLIGHTLY MODIFIED VERSION OF * 01627500 //* GDGCHNGE, FILE 263 ON THE CBT TAPE. * 01627600 //* GDGCHNGE HAD A SLIGHT PROBLEM IN THAT * 01627700 //* IF IT WAS TOLD TO LIST ENTRIES IN AN * 01627800 //* EMPTY INDEX, IT WOULD RESET THE NUMBER * 01627900 //* OF GENERATIONS IN THE INDEX! NOTE THAT * 01628000 //* THIS PROGRAM, AND HENCE THE TWO 'GDG' * 01628100 //* CLIST FUNCTIONS 'LIST' AND 'CHANGE' * 01628200 //* ONLY SUPPORT OS CVOL GDG STRUCTURES. * 01628300 //* HKNGDG02 - A SIMPLE LINKAGE TO IEHPROGM WHICH * 01628400 //* SUPPLIES THE 'ADD' AND 'DELETE' * 01628500 //* FEATURES FOR 'GDG'. * 01628600 //* * 01628700 //***FILE 349 IS FROM ATARI AND CONTAINS TWO VTAM/VM PROGRAMS * 01628800 //* 1. RESET2VM IS AN ACF/VTAM APPLICATION PROGRAM * 01628900 //* DESIGNED TO TRANSFER A LOCAL 3270 TERMINAL TO * 01629000 //* VM/370 VIA THE VM DIAGNOSE COMMAND INTERFACE * 01629100 //* 2. VMCMD IS A PROGRAM THAT RUNS ON AN MVS GUEST * 01629200 //* VIRTUAL MACHINE THAT ISSUES VM/370 COMMANDS VIA * 01629300 //* DIAGNOSE INSTRUCTIONS * 01629400 //* * 01629500 //***FILE 350 IS FROM L'INDUSTRIELLE-SERVICES TECHNIQUES IN CANADA * 01629600 //* AND CONTAINS THE FOLLOWING * 01629700 //* 1. A TOD CLOCK SYNCHRONIZER. THIS IS A PROGRAM * 01629800 //* WHOSE FUNCTION IS TO SYNCHRONIZE THE TIME-OF-DAY* 01629900 //* CLOCKS ON ALL PROCESSORS IN A MULTI-CPU COMPLEX * 01630000 //* KWS A SETCLOCK SET CLOCK TOD * 01630100 //* * 01630200 //* *************************************************** * 01630300 //* * * * 01630400 //* * THE SET CLOCK ROUTINE WAS NOT WRITTEN TO HANDLE * * 01630500 //* * MP'S AND AP'S. IF YOU HAVE A 3033AP, 3033MP, * * 01630600 //* * 168MP, 168AP OR 3084 DO NOT ATTEMPT TO USE THIS * * 01630700 //* * ROUTINE - IF YOU DO YOU WILL LOSE YOUR SYSTEM * * 01630800 //* * * * 01630900 //* * IST AND MORINO ARE AWARE OF THIS PROBLEM AND * * 01631000 //* * WILL TRY TO RESOLVE IT IN THE FUTURE. HOWEVER * * 01631100 //* * THEY DO NOT HAVE AN AP OR AN MP . * * 01631200 //* * * * 01631300 //* *************************************************** * 01631400 //* * 01631500 //* 2. BLDL/LINKLIST ANALYSIS PACKAGE WHICH ANALYZES * 01631600 //* BLDL ACTIVITY ON LINKLIST LIBRARIES. IT WILL * 01631700 //* GENERATE A RESIDENT BLDL LIST, AND A REPORT OF * 01631800 //* BLDL ACTIVITY BY LINKLIST CONCATENATION LEVEL * 01631900 //* * 01632000 //***FILE 351 IS FROM EXXON PRODUCTION RESEARCH COMPANY OF HOUSTON * 01632100 //* THEIR COMMENTS ARE AS FOLLOWS: BEING A SCIENTIFIC * 01632200 //* CENTER, FORTRAN IS USED VERY HEAVILY; LOADGO IN BOTH * 01632300 //* BATCH AND TSO ENVIRONMENT DO STRANGE THINGS WHEN THE * 01632400 //* EXP (EXPONENTATION) FUNCTION IS RESOLVED FROM THE * 01632500 //* LINK PACK AREA MODULE EXP (EXPORT FROM AMS). THESE * 01632600 //* MODIFICATIONS CHANGE THE LOADER AND LOADGO PROMPTER * 01632700 //* DEFAULTS FROM RES TO NORES. ENVIROMNENT IS MVS 3.8F * 01632800 //* SP1.1 AT 8103 LEVEL ON A 3033AP * 01632900 //* * 01633000 //***FILE 352 CONTAINS THE INTEL MODS TAPE FROM INTEL SEE THE * 01633100 //* MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION THAT * 01633200 //* IS NOT DOCUMENTED BELOW * 01633300 //* * 01633400 //* MEMBER SV LANG DESCRIPTION * 01633500 //* ________ __ ____ _______________________ * 01633600 //* $$DOC N/A THIS FILE * 01633700 //* $$GENTAP N/A JCL USED TO GENERATE THIS TAPE. * 01633800 //* $$INDEX N/A THIS MEMBER - TOPEX OF CONTENTS OF * 01633900 //* $$RELOAD N/A JCL TO LOAD DOWN TAPE TO DISK -- * 01634000 //* ALSO APPEARS AS FILE 1 ON THE * 01634100 //* TAPE. * 01634200 //* ABEND BAL SUBROUTINE-ISSUE USER ABEND WITH * 01634300 //* CODE OF YOUR CHOICE * 01634400 //* ABENDPGM BAL PGM TO WTOR FAILURE MESSAGE (VIA * 01634500 //* PARM FIELD) WHEN YOUR FAVORITE JOB * 01634600 //* FAILS..REQUIRES OPERS TO ACK- * 01634700 //* NOWLEDGE MESSAGE WITH JOBNAME. * 01634800 //* ACFEXITS BAL THIS IS 2 SMP JOBS TO INSTALL OUR * 01634900 //* EXITS FOR ACF2. ACFVAL AND ACFDSTBL * 01635000 //* CONSTITUTE OUR NAMING CONVENTIONS * 01635100 //* SUPPORT AT INTEL. ACFVIOX IS OUR * 01635200 //* VIOLATION EXIT TO SUPPORT PHASED * 01635300 //* IMPLEMENTATION OF RULES. * 01635400 //* ACF2MON SAS THIS SAS 79.3 PROGRAM READS SMF * 01635500 //* RECORDS FOR ACF2 EVENTS- MATCH * 01635600 //* MERGES SEVERAL 'WHODAT' FILES AND * 01635700 //* PRODUCES A COMPOSITE REPORT ON ALL * 01635800 //* ACF2 ACTIVITY FOR EACH GROUP * 01635900 //* SECURITY ADMINISTRATOR..(BY HENRY * 01636000 //* WACKER) * 01636100 //* ANLZUCB PL/I GEN REPORT ON WORK PACK USAGE/MSS * 01636200 //* UCB USAGE REQUIRES P051B12L * 01636300 //* (UCBLOGER) TO GATHER INFO. * 01636400 //* BKUPUTIL BAL PGM FROM SHARE MODS TAPE (FILE18) TO * 01636500 //* INVOKE UTILITY TO CREATE STACKED * 01636600 //* SL TAPE. OUR MODS INCLUDE AUTO * 01636700 //* SELECT FOR IEBISAM AND PANVALET * 01636800 //* SUPPORT VIA PAN#2. DYNAMIC ALLOC * 01636900 //* OF VOLUMES, AND DATASET/TAPE DS * 01637000 //* STATS ARE ALSO PRINTED. MUST BE * 01637100 //* LINKED WITH AC=1 TO ALLOW IEBCOPY * 01637200 //* TO FUNCTION. (SUPPORTS * 01637300 //* PS/PO/IS/DA/PV * 01637400 //* COMPMEMB PL/I COMPARE MEMBERS IN PDS OR PANVALET * 01637500 //* LIBRARIES BY MEM- BER NAME AND * 01637600 //* PRODUCE CNTL CARDS BASED ON * 01637700 //* EXISTENCE OF MEMBER IN EITHER OR * 01637800 //* BOTH LIBRARIES. * 01637900 //* DATTIM BAL SUBROUTINE- RETURNS 'HH:MM:SS' AND * 01638000 //* 'MM/DD/YY' * 01638100 //* DELETDS BAL UTILITY- UNCATLG TAPES AND * 01638200 //* UNCATLG/SCRATCH DATASETS SUPPORTS * 01638300 //* MSS VIA DYNAMIC ALLOC OF MSS * 01638400 //* VOLUMES. * 01638500 //* DIDOCS ** BAL TSO COMMAND TO ALLOW TSO 3270 TO * 01638600 //* BECOME A OS OPER CONSOLE. FINDS * 01638700 //* MCS BUFFERS IN CSA AND REDISPLAYS * 01638800 //* THEM TO TSO TUBE. ACCEPTS * 01638900 //* COMMANDS AND USES SVC 34 TO ISSUE * 01639000 //* THEM. FROM SHARE DCMS SYSTEM * 01639100 //* (CBT). * 01639200 //* DSINFO BAL PL/I SUBROUTINE- GET DSN INFORMATION * 01639300 //* VIA RDJFCB (FROM IIH, ISREAL) * 01639400 //* ERAS3270 BAL TSO COMMAND- ERASE A 3270 SCREEN * 01639500 //* (WITH SPF TRIGGERS). * 01639600 //* FCIMOD07 BAL FROM FLORIDA POWER AND LIGHT- THEIR * 01639700 //* FULL SCREEN FAC. WITH FCI ADDED * 01639800 //* SPF FULLSCRN TRIGGERS. * 01639900 //* FSF BAL FROM FLORIDA POWER AND LIGHT- THE * 01640000 //* LINKABLE PORTION OF THEIR FULL * 01640100 //* SCREEN FACILITY-INVOKES FCIMOD07 * 01640200 //* HEXCONV BAL PL/I SUBROUTINE- CONVERT * 01640300 //* CHAR/BIT/ETC TO HEX CHAR (FROM * 01640400 //* IIH, ISREAL) * 01640500 //* IEECVXIT BAL OUR MODS TO MSSCVXIT IN * 01640600 //* SYS1.SAMPLIB.. CAUSE OTHER * 01640700 //* MESSAGES (IFG...) TO 'HANG' ON * 01640800 //* SCREENS, SUBMIT JOB TO DUMP TRACE * 01640900 //* WHEN TRACE SWITCH OCCURS. (ONLY * 01641000 //* SOURCE SUPPLIED...NO JCL TO * 01641100 //* INSTALL) * 01641200 //* IPOUPDTE SZAP SIMPLE ZAP TO LET IPO AID (IPOUPDTE) * 01641300 //* WORK ON ANY JCL OR SOURCE PDS. * 01641400 //* JCLFORMT BAL UTILITY TO REFORMAT A JOB OR A PROC * 01641500 //* INTO SOME KIND OF ORDER. INVOKED * 01641600 //* BY 'CLEANJCL' CLIST IN JOBS.CNTL * 01641700 //* MAPDISK BAL GOOD OLD MAPDISK WITH ENHANCEMENTS: * 01641800 //* 1) DYNAMIC ALLOC FOR MSS VOLUMES * 01641900 //* (SEE P963P30) 2) CAPABILITY TO LOG * 01642000 //* VTOC INFO TO DATASET 3) ASM2 OPEN * 01642100 //* MOD AND RACF SUPPORT * 01642200 //* MOP BAL ALLOW OPER PRIV TSO USER TO DO * 01642300 //* MVS/JES2 COMMANDS THE COMMAND IS * 01642400 //* LOGGED, ALONG WITH THE ISSUING TSO * 01642500 //* UID * 01642600 //* MSSAMS BAL THE IPO MSSAMS AID, WITH A NOTIFY= * 01642700 //* AND COND CODE CHK * 01642800 //* MSSDUMP PL/I PGM TO DUMP MSS TABLES IN A NEAT * 01642900 //* FORMAT (FROM FVT) * 01643000 //* MSSPDATE BAL PGM TO WRITE A NICE DATE TO THE MSS * 01643100 //* LOG CONSOLE INVOKE VIA A JES2 * 01643200 //* $TA,I=1800,'$VS,''S MSSPDATE''' * 01643300 //* MSSTSO BAL IPO MSSTSO WITH A FEW CHANGES FOR * 01643400 //* 3330-1 SUPPORT * 01643500 //* MSSVOL PL/I INVOKED BY MSVGP CLIST IN JOBS.CNTL- * 01643600 //* LIST VOLUMES IN MSVI FOR MSVGPS OF * 01643700 //* YOUR CHOICE. * 01643800 //* MVSMON BAL FROM FLORIDA POWER AND LIGHT-MVS * 01643900 //* MONITOR USES TSO FULL SCREEN. WE * 01644000 //* ADDED DIDOCS INVOKE VIA THE * 01644100 //* (NOT FOR SE2/SP1) 'CO' COMMAND, DOMAIN NAME DISPLAY, * 01644200 //* DISP DISK FORMAT IMPROVEMENTS AND * 01644300 //* ELIM DUP VOLUME REPORTING VIA UCB * 01644400 //* ALT PATH PLUS OTHER THINGS..... * 01644500 //* NETINFO JCL/SAS THE JOB IS PART OF THE * 01644600 //* 'VTAMDOC', 'CICSDOC', 'NETINFO' * 01644700 //* JOBS WHICH WILL ASSEMBLE THE VTAM * 01644800 //* NCP AND CICS TCT USING MACROS IN * 01644900 //* MODS.NETINFO. THE NETINFO JOB * 01645000 //* USES A SAS PROGRAM (IN MODS.SASLIB) * 01645100 //* TO READ THE ASSEMBLED VTAM, CICS, * 01645200 //* ADMPRINT, DSPRINT, AND WHATNOT * 01645300 //* TABLES TO PRODUCE A DOCUMENT OF THE * 01645400 //* NETWORK IN INFO/SYSTEM FORMAT. * 01645500 //* NTLM801 BAL PDS MEMBER LOGICAL READ SUBROUTINE. * 01645600 //* USED BY PROCXREF PROGRAM. * 01645700 //* NTLM802 BAL PDS DIRECTORY READ SUBROUTINE. USED * 01645800 //* BY PROCXREF. * 01645900 //* PANSCAN PL/I THIS IS A MORE USEFUL VERSION OF THE * 01646000 //* 'PAN#8' PROGRAM TO SCAN A PANVALET * 01646100 //* LIBRARY FOR OCCURANCES OF PARTICULAR * 01646200 //* CHARACTER STRINGS. THIS PL/I * 01646300 //* VERSION IS A BIT SLOWER THAN PAN#8, * 01646400 //* BUT OPENS THE LIBRARY FOR INPUT ONLY * 01646500 //* (INSTEAD OF UPDATE), AND ALLOWS * 01646600 //* MULTIPLE SCAN PASSES AND GENERIC * 01646700 //* MEMBER SELECTION. * 01646800 //* PROCXREF BAL READS A JCL PROCLIB AND PRODUCES 3 * 01646900 //* REPORTS: * 01647000 //* CROSS REF BY DATASET NAME * 01647100 //* CROSS REF BY PROGRAM NAME * 01647200 //* CROSS REF BY SYSOUT CLASS/FORMS * 01647300 //* PROCXREF ALSO UNLOADS THE LIBRARY TO * 01647400 //* A SEQUENTIAL FILE FOR FURTHER * 01647500 //* PROCESSING VIA SAS PGM 'PROCANLZ' * 01647600 //* (REQUIRES NTLM801,NTLM802 PDS READ * 01647700 //* ROUTINES). * 01647800 //* OSDEBE ** BAL THE INFAMOUS 'DOES EVERYTHING BUT * 01647900 //* EAT' UTILITY FOR FIDDLING WITH * 01648000 //* TAPES AND CARDS. OPERS L O V E * 01648100 //* IT. WORKS ONLY WITH OFFLINE * 01648200 //* TAPES................... INVOKE * 01648300 //* VIA 'DEBE' IN JOBS.CNTL. * 01648400 //* OZPDSUNL BAL THIS PROGRAM WILL UNLOAD A RECFM=VB * 01648500 //* PDS AND CONSTRUCT A SEQUENTIAL * 01648600 //* DATASET FOR USE BY THE BLGOZX * 01648700 //* (INFO/ SYSTEM) PROGRAMS. USED AT * 01648800 //* INTEL TO GENERATE A USER DATABASE * 01648900 //* FOR TECHNICAL INFORMATION. SEE * 01649000 //* JOBS 'TEC.....' IN JOBS.CNTL FOR * 01649100 //* MORE INFO. * 01649200 //* PANFETCH BAL USES THE PANVALET ACCESS METHOD * 01649300 //* (PAM) TO WRITE A MEMBER OF A * 01649400 //* PANVALET LIBRARY TO A SEQUENTIAL * 01649500 //* DSN EXPANDING ALL IMBEDDED * 01649600 //* ++INCLUDE CARDS. USED IN THE * 01649700 //* 'CICSDOC' JOB. * 01649800 //* PANSCAN PL/I THIS IS A MORE USEFUL VERSION OF THE * 01649900 //* 'PAN#8' PROGRAM TO SCAN A PANVALET * 01650000 //* LIBRARY FOR OCCURANCES OF PARTICULAR * 01650100 //* CHARACTER STRINGS. THIS PL/I * 01650200 //* VERSION IS A BIT SLOWER THAN PAN#8, * 01650300 //* BUT OPENS THE LIBRARY FOR INPUT ONLY * 01650400 //* (INSTEAD OF UPDATE), AND ALLOWS * 01650500 //* MULTIPLE SCAN PASSES AND GENERIC * 01650600 //* MEMBER SELECTION. * 01650700 //* PROCXREF BAL READS A JCL PROCLIB AND PRODUCES 3 * 01650800 //* REPORTS: * 01650900 //* CROSS REF BY DATASET NAME * 01651000 //* CROSS REF BY PROGRAM NAME * 01651100 //* CROSS REF BY SYSOUT CLASS/FORMS * 01651200 //* PROCXREF ALSO UNLOADS THE LIBRARY TO * 01651300 //* A SEQUENTIAL FILE FOR FURTHER * 01651400 //* PROCESSING VIA SAS PGM 'PROCANLZ' * 01651500 //* (REQUIRES NTLM801,NTLM802 PDS READ * 01651600 //* ROUTINES). * 01651700 //* PSN BAL THIS IS OUR JCL STANDARDS CHECKER * 01651800 //* AND JCL REFORMATTER PROGRAM. * 01651900 //* OBVIOUSLY YOU WON'T WANT TO USE * 01652000 //* OUR STDS FOR JCL, BUT THIS PGM IS * 01652100 //* HIGHLY MODULAR AND INCLUDES A LOT * 01652200 //* OF NEAT CODE BY MIKE FARMER. IT * 01652300 //* WILL BE EASY FOR YOU TO INSERT * 01652400 //* YOUR OWN JCL FOIBLES IN THIS GEM.. * 01652500 //* P051B10 BAL THE TSO WHOGOT/DSN COMMAND - RUNS AS * 01652600 //* STC ALSO FINDS USERS/JOBS ENQUEUED * 01652700 //* ON A DATASET. * 01652800 //* P051B12 BAL THE TSO DSPACE COMMAND - RUNS AS STC * 01652900 //* ALSO DOES LSPACE TO PACK( S ) OF * 01653000 //* CHOICE AND FORMATS RESULT . * 01653100 //* DEFAULT PACKS ARE 'FCITS*'. * 01653200 //* P051B12L BAL THE UCBLOGER STC - FIRE OFF AT 10 * 01653300 //* MINUTE INTERVALS VIA JES2 * 01653400 //* $TA,I=600,'$VS,''S UCBLOG''' AND * 01653500 //* ONCE A WEEK RUN THE SAVELOG JOB TO * 01653600 //* PRINT THE REPORT VIA ANLZUCB AND * 01653700 //* REINITIALZE THE LOG DATASET. * 01653800 //* P051B15 BAL THE TSO DDSTAR COMMAND- SPOOL LINES * 01653900 //* FROM A CLIST INTO A DATASET FOR * 01654000 //* READING BY PGMS/UTILITIES. * 01654100 //* ARRIVED VIA MISHMODS TAPE FROM * 01654200 //* UCLA-FCI INTERNALIZE MACROS FROM * 01654300 //* URMACRO. * 01654400 //* P051B16 BAL THE TSO LISTSPC COMMAND - REPLACES * 01654500 //* LISTC USAGE FOR TSO USERS..SHOWS * 01654600 //* ALLOCATIONS, AND DS ATTRIBS, AND * 01654700 //* IF YOU HAVE ASM2, ALSO SHOWS WHO * 01654800 //* LAST MODIFIED DS. * 01654900 //* P051B19 BAL THE TSO DTAPES COMMAND - RUNS AS STC * 01655000 //* ALSO SHOWS TAPE DRIVES, VOLSER, * 01655100 //* JOB USING AND DENSITY, MODEL * 01655200 //* TYPES. * 01655300 //* P963P00 PL/I DASD MANAGEMENT SYSTEM- MAINLINE * 01655400 //* (COMPARE DSN FROM VTOC WITH GRANT * 01655500 //* LIST) - GENERATE SCRATCH LIST AND * 01655600 //* MERGED DSNLOG. * 01655700 //* P963P02 PL/I DASD MANAGEMENT SYSTEM- DATA SET * 01655800 //* SCRATCH UTILITY * 01655900 //* P963P10 PL/I DASD MANAGEMENT SYSTEM- GENERATE * 01656000 //* SCRATCH LOG FROM OUTLOG OF P963P00 * 01656100 //* (FOR RECOVERY ONLY). * 01656200 //* P963P20 PL/I DASD MANAGEMENT SYSTEM- PRINT SCRLOG * 01656300 //* REPORT FOR TSO USERS - USED BY * 01656400 //* CLIST SHOWSCR. * 01656500 //* P963P27 PL/I DASD MANAGEMENT SYSTEM- AUTOSCR * 01656600 //* (EARLY SCR FOR ROLLED OFF GDG * 01656700 //* DATASETS) + DATASET SIZE HISTORY * 01656800 //* FILE * 01656900 //* P963P30 PL/I PGM FROM OUR DASD MGMT * 01657000 //* SYSTEM..ACCEPTS CONTROL CARDS AND * 01657100 //* LOOKS UP VOLUMES/MSVGPS FROM THE * 01657200 //* MSVI DATASET. USE PROC 'MAPMSVGP' * 01657300 //* TO INVOKE THIS ONE, THEN MAPDISK * 01657400 //* TO MAP ALL VOLUMES IN AN MSVGP. * 01657500 //* P963P35 PL/I DASD MANAGEMENT SYSTEM- DUPLICATE * 01657600 //* VOLUME ELIMINATOR TO ENSURE THAT * 01657700 //* MAPDISK MAPS EACH VOLUME ONLY * 01657800 //* ONCE. * 01657900 //* P963P70 PL/I DASD MANAGEMENT SYSTEM- SUPERMATCH * 01658000 //* PROGRAM-USED WITH P963P71/SUPERSCR * 01658100 //* TO EXCLUDE DSNS FROM SUPERSCR * 01658200 //* P963P71 PL/I DASD MANAGEMENT SYSTEM- GENERATE * 01658300 //* SUPERSCR EXCLUDE CARDS TO EXEMPT * 01658400 //* DATASETS FROM SUPERSCR AFTER * 01658500 //* SYSTEM CRASH - INTERFACES WITH * 01658600 //* OPERATOR VIA WTOR * 01658700 //* P963P75 PL/I DASD MANAGEMENT SYSTEM- DATASET SIZE * 01658800 //* HISTORY FILE MAINT PROGRAM AND * 01658900 //* AUTOSCR FOR MSVGP=XMIT * 01659000 //* P963P75A PL/I DASD MANAGEMENT SYSTEM- MAINTAIN * 01659100 //* MSVGP=XMIT * 01659200 //* QUEUE ** BAL TSO COMMAND FROM TRW W/FCI MODS. * 01659300 //* ALLOWS TSO USERS TO DISPLAY * 01659400 //* INPUT/OUTPUT JES2 QUEUES, JOB * 01659500 //* JCL,JMSG, JOBLOG AND SYSIN/SYSOUT * 01659600 //* DATASETS BY READING HASPACE * 01659700 //* DIRECTLY. MAY ALSO BROWSE RUNNING * 01659800 //* SYSTEM SYSLOG. COMMAND IS FOR * 01659900 //* 3270 FULL SCREEN OPERATION. * 01660000 //* QUEUEDOC *** DOCUMENTATION FOR USE/INSTALLATION * 01660100 //* OF THE QUEUE COMMAND. * 01660200 //* R062A10 BAL DYNAMIC ALLOCATION INTERFACE * 01660300 //* SUBROUTINE - ALLOWS MOST DA * 01660400 //* SERVICES FROM A COBOL/PLI/FORT * 01660500 //* PROGRAM. * 01660600 //* R941X11 BAL UTILITY JULIAN<->GREGORIAN DATE * 01660700 //* CONVERTOR-- USED BY SEVERAL PL/I * 01660800 //* PROGRAMS ON THIS TAPE. * 01660900 //* R963A30 BAL HANDY SUBROUTINE TO * 01661000 //* SCRATCH/UNCATALOG DATASET.. DOES * 01661100 //* DYNAMIC ALLOCATION OF VOLUME, AND * 01661200 //* REPORTS WITH TEXT MESSAGES TO * 01661300 //* CALLER * 01661400 //* SCOMPARE BAL PGM TO COMPARE 2 LRECL=80 DATASETS * 01661500 //* AND SPOT DIFFER- ENCES. BASED ON * 01661600 //* CBT881 WITH MODS TO PRINT WHICH * 01661700 //* DATASETS ARE BEING COMPARED, AND * 01661800 //* PAGE CONTROL. * 01661900 //* SHOWHIST PL/I DASD MANAGEMENT SYSTEM- SHOW TSO * 01662000 //* USERS THE HISTORY (SIZE, ETC) ON * 01662100 //* DATASETS OF THEIR CHOICE.. INVOKED * 01662200 //* BY THE 'SHOWHIST' CLIST IN * 01662300 //* JOBS.CNTL * 01662400 //* SHOWSMF BAL TSO CMD OR STC TO DISPLAY * 01662500 //* ''FULLNESS'' OF MANX/MANY FOR MVS * 01662600 //* (NOT SE OR SP SYSTEMS) * 01662700 //* SHOSMFSP BAL TSO CMD OR STD TO DISPLAY SYS1.MAN. * 01662800 //* DATASETS FOR MVS SE2 OR SP1/SP3. * 01662900 //* SHOWRAW PL/I PGM TO DISPLAY START/END DATES OF * 01663000 //* TRACE DUMP DATASETS (USED IN * 01663100 //* MSSTRACE/TRACESAV JOBSTREAMS). * 01663200 //* SHOWTRC PL/I PGM TO DYNAM. ALLOC MSS TRACE * 01663300 //* DATASETS AND READ HDR * 01663400 //* RECORD/FORMAT TRACE ON DATE/TIME. * 01663500 //* THIS IS AN EXAMPLE OF USING * 01663600 //* R062A10 DYNAM ALLOC AND S051B16B * 01663700 //* (LOCINDEX) SUBROUTINE. ONLY * 01663800 //* SOURCE IS SUPPLIED- NO JCL TO * 01663900 //* COMPILE AND LINK. * 01664000 //* SMFACF2 PL/I SMF PGM- DIGEST ACF2 RECORDS, PRINT * 01664100 //* ACF2 INFORMATION * 01664200 //* SMFACFM PL/I SMF PGM- MERGE DIGESTED ACF2 RECORDS * 01664300 //* AND RESPONSI- BILITY LIST. * 01664400 //* SMFACFPR PL/I SMF PGM- PRINT NICELY FORMATTED ACF2 * 01664500 //* INFORMATION * 01664600 //* SMFDSND PL/I SMF PGM- LOOK FOR TYPE 14/15/17 * 01664700 //* RECORDS FOR UP TO 20 GENERIC * 01664800 //* DATASETS-SHOW RAW INFO * 01664900 //* SMFDSNPR PL/I SMF PGM- PRINT SORTED SMFDSND OUTPUT * 01665000 //* TO SHOW CHRONO. HISTORY OF * 01665100 //* DATASET ACCESS. * 01665200 //* SMFRACF PL/I SMF PGM- PRINT RACF EVENTS FROM TYPE * 01665300 //* 0,80 AND 81 RECS PROVIDE LISTING * 01665400 //* OF EVENTS AND BUILD CLIST TO ALLOW * 01665500 //* RECONSTRUCTION OF RACF DATASET * 01665600 //* AFTER CRASH. * 01665700 //* SMFSEL BAL SMF PGM- RECORD SELECTION UTILITY * 01665800 //* SMFTERM PL/I SMF PGM- ANALYZE TYPE 34 RECORDS AND * 01665900 //* PRODUCE TSO USAGE SUMMARY. * 01666000 //* REQUIRES IEFUJI TO PUT TERMINAL * 01666100 //* UCB ADDR IN LAST HALFWORD OF * 01666200 //* SMFUSER FIELD IN ORDER TO PROVIDE * 01666300 //* TERMINAL USAGE STATS BY TERMINAL * 01666400 //* ADDRESS * 01666500 //* SPACEZAP PL/I PGM TO DYNAM. ALLOC MSS VOLUMES * 01666600 //* WHICH ARE NOT MOUNTED BUT HAVE * 01666700 //* DOWN LEVEL SPACE FLAG SET ON IN * 01666800 //* MSVI. MSVGPS SCANNED CONTROLLED * 01666900 //* BY SYSIN PARM CARDS. (STC JCL IN * 01667000 //* MSSMODS.JOBS.CNTL + SAMPLE CNTL * 01667100 //* DS) * 01667200 //* SUPERSCR ** BAL SUPER SCRATCH FOR REAL/VIRTUAL * 01667300 //* DISKS.. * 01667400 //* SUPERSPY ** BAL THE THING TO RUN TO HELP DIAGNOSE * 01667500 //* PROBLEMS WITH MVS/ MSS..REQUIRES * 01667600 //* MSC TABLES MAINT. IUP IN SECOND * 01667700 //* STEP. * 01667800 //* S051B22 BAL THE FIND SUBROUTINE..USED BY * 01667900 //* TSO044(UCBUNLD) TO FIND 'VOL=(SL,' * 01668000 //* ON PARM CARD. * 01668100 //* TECHINFO JCL JOB TO UPDATE YOUR VERY OWN INFO/MVS * 01668200 //* FORMATTED DATABASE. USES UTILITY * 01668300 //* 'OZPDSUNL'. SEE JOBS.CNTL FOR THE * 01668400 //* FOLLOWING MEMBERS: * 01668500 //* TECINFOC - CLIST TO RUN TECHINFO UNDER TSO * 01668600 //* TECHINFO - JOB TO RELOAD TECHINFO DATABASE * 01668700 //* TECINFO1 - USES IDCAMS TO DEFINE VSAM CLUSTER FOR DB * 01668800 //* TECINFO2 - USES BLG... UTILITIES TO CREATE UNLOADED * 01668900 //* HELP, CICS, VTAM, VSAM FILES FROM THE * 01669000 //* INFO/MVS MONTHLY UPDATE TAPE. * 01669100 //* TRAC3850 BAL IPO TRAC3850 WITH MODS..ANLZ * 01669200 //* IGCTRINT OUTPUT * 01669300 //* TSO020SU BAL TSO DJOBS COMMAND - STC USAGE ALSO. * 01669400 //* LIKE 'D J,L' WITH SWAP STATUS,CPU * 01669500 //* TIME,XACT TIME * 01669600 //* TSO025AS ** BAL TSO DTSO COMMAND - STC USAGE ALSO. * 01669700 //* LIKE DJOBS ABOVE, BUT FOR TSO; * 01669800 //* SHOWS LINE ADDR TOO. * 01669900 //* TSO032 BAL TSO DDMN COMMAND - STC USAGE ALSO. * 01670000 //* LIKE 'D DMN' BUT NEATER, SHOWS IPS * 01670100 //* IN EFFECT TOO. * 01670200 //* TSO033 BAL TSO DUPTIME COMMAND - STC USAGE * 01670300 //* ALSO. SHOWS HOW LONG SYSTEM HAS * 01670400 //* BEEN UP (FROM LAST IPL) * 01670500 //* TSO034 ** BAL TSO SYSMAINT COMMAND - STC USAGE * 01670600 //* ALSO. WRITTEN BEFORE THE DAYS OF * 01670700 //* 'FORCE', ALLOWS A CALLRTM MEMTERM * 01670800 //* TO BE ISSUED TO AN ADDRESS SPACE * 01670900 //* HANDLES 'STARTING' TSO USERS TOO. * 01671000 //* TSO036 BAL TSO SHOWASM COMMAND - STC USAGE * 01671100 //* ALSO. DISPLAYS AUXSTM STATS, RSM * 01671200 //* PAGE USAGES, AND PAGE/SWAP DATASET * 01671300 //* STATUS/STATS. * 01671400 //* TSO041 BAL TSO LPDS COMMAND. THE EVER POPULAR * 01671500 //* PDS MANIPUATOR COMMAND, DOES * 01671600 //* EVERY- THING BUT DRY-CLEAN A PDS * 01671700 //* OF YOUR CHOICE. * 01671800 //* TSO042 BAL TSO DUNITS COMMAND - STC USAGE * 01671900 //* ALSO. LIKE 'D U,...' BUT MORE * 01672000 //* INFORMATIVE WITH USE/OPEN COUNTS. * 01672100 //* SELECTION IS BY GENERIC VOLSERS. * 01672200 //* TSO044 ** BAL STARTED TASK..UNLOAD ALL MSS VOLUMES * 01672300 //* NOT ON A LIST OF VOLSERS IN MEMBER * 01672400 //* 'MOUNTMSS'. PARSES '$VS,'M * 01672500 //* XXX,VOL=(SL,VOLSER)'' COMMANDS TO * 01672600 //* FIND VOLUMES TO EXEMPT... * 01672700 //* TSO045 BAL THE CHIMP MVS SYSTEM DISPLAY COMMAND * 01672800 //* FOR 3270 FULLSCR OPERATION. SHOWS * 01672900 //* JOBS/TSO USER STATS, AND WE ADDED * 01673000 //* A DYNAMIC DOMAIN DISPLAY (OPTION * 01673100 //* 'D'). OPERS LOVE IT..SHOWS STEP * 01673200 //* NAME AND CPU TIME... (ORIG FROM * 01673300 //* SHARE VIA THE CBT TAPE). * 01673400 //* TSO048 BAL THE TSO #PANVIEW COMMAND - ALLOW * 01673500 //* LISTING OF PANVALET LIBRARY * 01673600 //* MEMBERS AND LIBRARY DIRECTORY ON A * 01673700 //* 3270 TUBE IN FULL SCREEN MODE. * 01673800 //* (ORIG FROM SHARE JES2 MODS TAPE * 01673900 //* (MEMOREX) WITH * 01674000 //* DIRECTORY LIST MOD BY FAIRCHILD). USES * 01674100 //* THE 'PANVIEW' CLIST IN MSSMODS.JOB.CNTL * 01674200 //* TO RUN. * 01674300 //* TSO049 PL/I TSO 'SCRAMBLE' COMMAND (INVOKED BY * 01674400 //* 'SCRAMBLE' CLIST IN JOBS.CNTL). * 01674500 //* DESIGNED FOR RECORDS <= * 01674600 //* 255 BYTES IN LENGTH. * 01674700 //* TSO050 BAL TSO '$' COMMAND- INVOKE PROGRAM FROM * 01674800 //* LINKLIST. THIS VERSION ARRIVED * 01674900 //* FROM SOURCES UNKNOWN, BUT WE * 01675000 //* INTERNALIZED THE MACROS-(LOOKS * 01675100 //* LIKE UCLA MACROS...) * 01675200 //* TSO051 BAL TSO 'GETINFO' COMMAND - ALLOWS YOU * 01675300 //* TO STUFF GOODIES FROM OS/JCT (OR * 01675400 //* OTHER CONTROL BLOCKS) INTO CLIST * 01675500 //* VARIABLES WITHIN A CLIST. * 01675600 //* (TAILORED FOR ACF2) * 01675700 //* UCBZAP ** BAL FIX MSS UCBS WITH STATUS 'A' AND * 01675800 //* USECNT>250. CLEANS 'DIRTY' MSS * 01675900 //* UCBS LEFT BY SOMEONE IN MVS NOT * 01676000 //* PLAYING FAIR WITH THE UCB USECOUNT * 01676100 //* FIELD. ISSUES UNLOADS FOR DIRTY * 01676200 //* UNITS AFTER FIXING THE 'ALLOC' AND * 01676300 //* USECOUNT. * 01676400 //* * 01676500 //***FILE 353 IS FROM MORTON THIOKOL INC. OF CHICAGO, ILLINOIS * 01676600 //* AND CONTAINS THE FOLLOWING PROGRAMS TO RUN UNDER * 01676700 //* SPF. THIS FILE IS IN IEBUPDTE SYSIN FORMAT. SEE THE * 01676800 //* MEMBER CALLED $$INDEX FOR ADDITIONAL INFORMATION: * 01676900 //* * 01677000 //* KWS SPF SPY DIDOCS QUE QUEUE MCS Q * 01677100 //* * 01677200 //* CDF$ - INSTALL DOC FOR MVS SP 1.3 CONSOLE * 01677300 //* DISPLAY FACILITY (CDF) * 01677400 //* * 01677500 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01677600 //* WITH A DISPLAY OF THE MVS MASTER CONSOLE. * 01677700 //* OPERATOR COMMANDS ARE ENTERED ON THE * 01677800 //* STANDARD "COMMAND INPUT" LINE; PF3 GETS * 01677900 //* YOU OUT. SECURITY IS BASED ON THE TSO * 01678000 //* USERID, SEE THE CODE FOR CUSTOMIZATION * 01678100 //* INFO. YOU HAVE TO HIT "ENTER" TO REFRESH * 01678200 //* THE DISPLAY. YOU MUST ADJUST THE LINE * 01678300 //* COUNT BASED ON THE MASTER CONSOLE'S * 01678400 //* TERMINAL TYPE. * 01678500 //* * 01678600 //* DIF - ISPF/PDF DISPLAY INITIATORS FACILITY * 01678700 //* (DIF) * 01678800 //* * 01678900 //* THIS IS INVOKED FROM JDF (BELOW). I * 01679000 //* SWIPED PART OF THIS FROM SOME OTHER * 01679100 //* PROGRAM ON THE CBT TAPE, BUT I CAN'T * 01679200 //* REMEMBER WHICH ONE. * 01679300 //* * 01679400 //* ENQ - ISPF/PDF ENQUEUE DISPLAY. * 01679500 //* * 01679600 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01679700 //* WITH A DISPLAY OF THE ENQUE'S ON A * 01679800 //* PARTICULAR DSNAME. DOES NOT USE "QSCAN", * 01679900 //* SO WILL PROBABLY NOT WORK WITH GRS. * 01680000 //* * 01680100 //* ETPS - EMERGENCY TELE-PROCESSING SERVICES. * 01680200 //* * 01680300 //* THIS PROGRAM PROVIDES SOME BASIC * 01680400 //* TIME-SHARING SERVICES WHEN TSO OR SPF IS * 01680500 //* UNAVAILABLE. IF YOU DEFINE IT AS A * 01680600 //* SUB-SYSTEM, IT CAN BE (AND HAS BEEN, TO * 01680700 //* MY GREAT RELIEF) BROUGHT UP EVEN WHEN * 01680800 //* JES2 ABENDS, OR WILL NOT INITIALIZE. * 01680900 //* * 01681000 //* THE BASIC PROCESSING APPEARS MUCH LIKE * 01681100 //* SPF, AS FAR AS THE PRIMARY OPTION MENU * 01681200 //* AND SO FORTH ARE CONCERNED. THE * 01681300 //* FULL-SCREEN EDITOR IS QUITE PRIMITIVE, * 01681400 //* BUT SHOULD SUFFICE FOR EMERGENCY USE. * 01681500 //* TUBE I/O IS EXCP, SO YOU DON'T NEED BTAM, * 01681600 //* TCAM, OR VTAM/TCAS. THE PROGRAM INSERTS * 01681700 //* IT'S OWN ATTENTION EXIT ON THE FLY. * 01681800 //* * 01681900 //* THE PRIMARY OPTION MENU LOOKS MUCH LIKE * 01682000 //* SPF, BUT ONLY THE EDITOR IS ACTUALLY * 01682100 //* IMPLEMENTED. SO FAR, I HAVE BEEN ABLE TO * 01682200 //* ACCOMPLISH ALL NEEDED EMERGENCY RECOVERY * 01682300 //* WITHOUT THE BROWSE OR UTILITY FUNCTIONS, * 01682400 //* BUT I PLAN TO ADD THEM AS I GET TIME, * 01682500 //* ALONG WITH SOME OTHERS. * 01682600 //* * 01682700 //* TERMINALS SUPPORTED ARE 3278-2, 3278-4, * 01682800 //* 3279-3B. INSTALL AND USER DOC ARE IN * 01682900 //* COMMENTS IN THE CODE. * 01683000 //* * 01683100 //* WARNING: THE BUGS ARE NOT ALL OUT OF THIS * 01683200 //* BABY, SO DO SOME TESTING BEFORE * 01683300 //* YOU BET THE FARM ON IT. * 01683400 //* * 01683500 //* * 01683600 //* JDF$ - INSTALL DOC FOR ISPF/PDF JES2 DISPLAY * 01683700 //* FACILITY (JDF) * 01683800 //* * 01683900 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01684000 //* WITH A DISPLAY OF THE JES2 SPOOL, SIMILAR * 01684100 //* TO THE FAMOUS "QUEUE" COMMAND. SOME OF * 01684200 //* THE CODE (DEPRESSINGLY LITTLE) WAS COPIED * 01684300 //* FROM THE SP 1.3 VERSION OF THAT PROGRAM * 01684400 //* ON FILE 322 ON THE CBT TAPE VERSION #185. * 01684500 //* * 01684600 //* REQUIRES MY MODIFIED UAL JES2 INTERFACE * 01684700 //* SVC. * 01684800 //* * 01684900 //* WARNING: THERE IS SOME * 01685000 //* INSTALLATION-DEPENDENT CODE IN * 01685100 //* HERE, SO YOU MAY HAVE TO TINKER * 01685200 //* WITH IT. * 01685300 //* * 01685400 //* PLF$ - INSTALL DOC FOR ISPF/PDF PAN LIBRARY * 01685500 //* FACILITY (PLF) * 01685600 //* * 01685700 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01685800 //* WITH A DISPLAY OF PAN LIBRARIES, WITH THE * 01685900 //* ABILITY TO BROWSE AND EDIT FROM THE * 01686000 //* MEMBER LIST. THIS IS BASED IN PART ON THE * 01686100 //* "PANVIEW" PROGRAM ON THE SHARE SPLA TAPE * 01686200 //* (I THINK). IT'S NOT NEARLY AS GOOD AS THE * 01686300 //* PAN/SPF PRODUCT, OR SO I'M TOLD, BUT THIS * 01686400 //* IS A LOT CHEAPER. * 01686500 //* * 01686600 //* THIS HAS BEEN GREATLY REVISED FROM THE * 01686700 //* LAST TIME IT WAS SUBMITTED, AND WILL WORK * 01686800 //* ONLY WITH THE NEW ISPF/PDF. * 01686900 //* * 01687000 //* VDF$ - INSTALL DOC FOR ISPF/PDF VTOC DISPLAY * 01687100 //* FACILITY (VDF) * 01687200 //* * 01687300 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01687400 //* WITH A DISPLAY OF ALL OR SELECTED ONLINE * 01687500 //* DASD VOLUMES. THE DISPLAY USES THE LSPACE * 01687600 //* SVC, SO IT DOESN'T HAVE A LOT OF * 01687700 //* INFORMATION ON EACH PACK. * 01687800 //* * 01687900 //* BECAUSE OF THE SIMPLICITY OF THE PROGRAM, * 01688000 //* THIS IS A GOOD SAMPLE PROGRAM TO SWIPE * 01688100 //* CODE FROM, IF YOU ARE WRITING YOUR FIRST * 01688200 //* ISPF APPLICATION. * 01688300 //* * 01688400 //* THERE IS A SECOND VERSION OF THIS PROGRAM * 01688500 //* ON THE TAPE CALLED VDF2 THAT ILLUSTRATES * 01688600 //* THE USE OF INTERNAL INTERFACES FOR * 01688700 //* ISPF/PDF. INSTEAD OF USING DIALOG * 01688800 //* MANAGEMENT SERVICES, YOU CAN CALL THE * 01688900 //* DISPLAY MODULE DIRECTLY. THIS IS NOT MUCH * 01689000 //* SIMPLER THAN TGET/TPUT, BUT IT DOES * 01689100 //* PRESERVE SPLIT SCREEN MODE. * 01689200 //* * 01689300 //* XDF$ - INSTALL DOC FOR ISPF/PDF EXECUTION * 01689400 //* DISPLAY FACILITY (XDF) * 01689500 //* * 01689600 //* THIS PROGRAM PROVIDES THE ISPF/PDF USER * 01689700 //* WITH A DISPLAY OF ALL ACTIVE JOBS AND * 01689800 //* STARTED TASKS, BASED ON "CHIMP", UPDATED * 01689900 //* FOR SP 1.3. * 01690000 //* * 01690100 //***FILE 354 IS FROM KAISER STEEL AND CONTAINS A FEW OF THEIR * 01690200 //* UTILITY PROGRAMS. THIS FILE IS IN IEBUPDTE SYSIN * 01690300 //* FORMAT, SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * 01690400 //* INFORMATION. * 01690500 //* * 01690600 //* @0400 AUTO MEMBER FOR SENDING QUOTES * 01690700 //* DIAG4341 SIMPLE STAND-ALONE CPU WARMER * 01690800 //* DSSENQ ZAPS TO TURN OFF DF/DSS ENQ FOR RESTORE BY * 01690900 //* DATASET NAME * 01691000 //* ISGTAB GRS TABLES * 01691100 //* * 01691200 //***FILE 355 IS FROM CHICAGO TITLE AND TRUST COMPANY AND CONTAINS * 01691300 //* A COPY OF THEIR TSO COMMAND PROCESSOR CALLED PASSWORD * 01691400 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE MEMBER * 01691500 //* CALLED INSTALL FOR ADDITIONAL INFORMATION. THE * 01691600 //* FOLLOWING IS INFORMATION ABOUT THE PASSWORD CP ITSELF * 01691700 //* * 01691800 //* PASSWORD IS A TSO COMMAND PROCESSOR PROVIDING THE * 01691900 //* TSO USER WITH THE ABILITY CHANGE HIS PASSWORD IN * 01692000 //* SYS1.UADS. ONLY CHANGES TO PASSWORDS ALLOWED, * 01692100 //* I.E. PASSWORDS MAY NOT BE ADDED NOR DELETED FROM * 01692200 //* SYS1.UADS. PASSWORD WILL HANDLE UADS ENTRIES WITH * 01692300 //* MULTIPLE PASSWORDS. ALONG WITH SYS1.UADS THE TIME * 01692400 //* SHARING BLOCK (TSB) IS ALSO UPDATED. OPTIONALLY * 01692500 //* JUST THE TSB UPDATE CAN BE SPECIFIED. CHANGING * 01692600 //* ONLY THE TSB ALLOWS THE USER TO SET THE LOGON * 01692700 //* PASSWORD TO THE SAME AS A DATA SET PASSWORD, THUS * 01692800 //* NO PROMPTING FOR THE DATA SET'S PASSWORD IS * 01692900 //* PREFORMED. * 01693000 //* * 01693100 //* THIS COMMAND PROVIDES A SIMULAR FUNCTION TO RACF * 01693200 //* AND THE TSO PRE-PROMPT LOGON EXIT ON FILE 167 OF * 01693300 //* THE CONNECTICUT BANK & TRUST (CBT) TAPE. THESE * 01693400 //* ALLOW THE CHANGING OF THE LOGON PASSWORD WHEN * 01693500 //* LOGGING ONTO TSO. FILE 302 OF THE CBT TAPE * 01693600 //* CONTAINS A SIMULAR COMMAND, PSWDCHG. PASSWORD IS * 01693700 //* AN EXTENTION OF PSWDCHG. THE AUTHOR OF PASSWORD * 01693800 //* WISHES TO THANK THE AUTHORS OF PSWDCHG FOR * 01693900 //* INSPIRING THE WRITING OF PASSWORD. * 01694000 //* * 01694100 //* THIS COMMAND WAS WRITTEN AT CHICAGO TITLE & TRUST * 01694200 //* CO. AFTER THE TSO COMMAND PACKAGE, 5740-XT6, WAS * 01694300 //* INSTALLED. THE AUTHOR KNOWS OF NO REASON WHY IT * 01694400 //* SHOULD NOT RUN WITHOUT THIS PACKAGE INSTALLED, * 01694500 //* I.E. BASE MVS 3.8 TSO. HOWEVER, IT WILL BE * 01694600 //* NECESSARY TO MODIFY THIS COMMAND TO USE THE NEW * 01694700 //* FORMAT OF SYS1.UADS USED WITH TSO EXTENSIONS, * 01694800 //* 5665-285. THE AUTHOR INTENDS TO INSTALL THIS * 01694900 //* PACKAGE IN 1983 AND AT THAT TIME UPDATE PASSWORD * 01695000 //* FOR USE WITH TSO EXTENSIONS. IT IS INTENDED TO * 01695100 //* MAKE THE NEW PASSWORD AVAILABLE ON THIS TAPE, BUT * 01695200 //* NO PROMISES. * 01695300 //* * 01695400 //* THE PASSWORD TSO COMMAND PROCESSOR, AS OF 12 FEB * 01695500 //* 83, IS BEING SUCESSFULLY USED AT CHICAGO TITLE & * 01695600 //* TRUST CO. HOWEVER, NO WARRANTY IS MADE THAT IT * 01695700 //* WILL WORK AT ANOTHER INSTALLATION, NOR DOES * 01695800 //* CHICAGO TITLE & TRUST CO OR THE AUTHOR ASSUME ANY * 01695900 //* RESPONSIBILITY FOR THE USE OF THIS COMMAND. NO * 01696000 //* GUARANTEE TO KEEP THIS MATERIAL IS MADE. THE * 01696100 //* AUTHOR IS WILLING TO ANSWER QUESTIONS AND OFFER * 01696200 //* ADVISE TO USERS ON A TIME AVAILABLE BASIS. * 01696300 //* * 01696400 //***FILE 356 IS FROM MONUMENTAL LIFE, BALTIMORE, MARYLAND (AND * 01696500 //* UPDATED BY ROHM AND HASS, PHILADELPHIA) AND CONTAINS * 01696600 //* THEIR SPF MENUS, PANELS AND MESSAGES TO CALCULATE * 01696700 //* BLOCKSIZES. THIS FILE IS IN IEBUPDTE SYSIN FORMAT , * 01696800 //* SEE THE MEMBER CALLED $$$DOC FOR ADDITIONAL * 01696900 //* INFORMATION. THE MEMBER CALLED $$$$DISC CONTAINS THE * 01697000 //* DISCLAIMER. MEMBERS PREFIXED WITH AN M ARE THE * 01697100 //* ADDITIONS FROM ROHM AND HASS. * 01697200 //* FILE 357 OF THIS TAPE CONTAINS THE CLISTS REQUIRED BY * 01697300 //* THESE MENUS. * 01697400 //* * 01697500 //***FILE 357 IS FROM MONUMENTAL LIFE, BALTIMORE, MARYLAND AND * 01697600 //* CONTAINS THEIR SPF CLISTS FOR THE BLOCKSIZE * 01697700 //* CALCULATIONS. THIS FILE IS IN IEBCOPY FORMAT. SEE * 01697800 //* THE MEMBER CALLED $$$DOC IN FILE 356 ABOVE FOR * 01697900 //* ADDITIONAL INFORMATION. * 01698000 //* * 01698100 //***FILE 358 IS FROM THE GEORGIA LABOR DEPARTMENT AND CONTAINS A * 01698200 //* SEVERAL PROGRAMS. THIS FILE IS IN IEBUPDTE SYSIN * 01698300 //* FORMAT . SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * 01698400 //* INFORMATION . THE FOLLOWING IS SOME INFORMATION * 01698500 //* ON THE SOURCE THAT IS IN THIS FILE . * 01698600 //* * 01698700 //* IKJEFF10- * 01698800 //* THIS EXIT INSERTS A CONTINUATION OF EACH JOB CARD * 01698900 //* SUBMITTED BY A RACF DEFINED USER. THE CONTINUATION * 01699000 //* CARD CONTAINS THE USER ID AND LOGON PASSWORD OF THE * 01699100 //* PERSION SUBMITTING THE JOB. IF THERE IS NO ROOM TO * 01699200 //* INSERT A COMMA AND A BLANK THE JOB IS SUBMITTED * 01699300 //* WITHOUT ADDING A CONTINNUATION CARD AND A MESSAGE IS * 01699400 //* SENT TO THE USER INFORMING THEM OF THIS. IF THE USER * 01699500 //* IS NOT RACF DEFINED OR EITHER 'USER' OR 'PASSWORD' * 01699600 //* KEY WORDS ARE FOUND THEN THE JOB IS PASSED ON ASIS * 01699700 //* AND NO MESSAGE IS SENT. YOU CANNOT GET SOMEONE ELSES * 01699800 //* PASSWORD BY USING THIS EXIT AS WRITTEN. * 01699900 //* * 01700000 //* THIS EXIT IKJEFF10 REPLACES THE IBM VERSION OF * 01700100 //* IKJEFF10 WHICH IS EFECTIVELY A BR14. THIS EXIT * 01700200 //* WORKS WITH OR WITHOUT THE TSO/E OR THE EARLYER TSO * 01700300 //* COMMAND PACKAGE AS THE DUMMY EXIT IS IN THE BASE TSO * 01700400 //* CODE. THIS EXIT WAS DEVELOPED AT THE GEORGIA * 01700500 //* DEPARTMENT OF LABOR AND HAS BEEN IN USE FOR OVER ONE * 01700600 //* YEAR WITH NO KNOWN PROBLEMS. WE WILL ATTEMPT TO FIX * 01700700 //* ERRORS AS LONG AS WE CONTINUE TO USE THIS EXIT, BUT * 01700800 //* DO NOT PROMISE THAT WE WILL FIX BUGS OR PROVIDE ANY * 01700900 //* SUPPORT IN THE FUTURE. * 01701000 //* * 01701100 //* SEND COMMENTS AND ERROR REPORTS TO: * 01701200 //* SYSTEMS SUPPORT UNIT * 01701300 //* GEORGIA DEPARTMENT OF LABOR * 01701400 //* ROOM 370 STATE LABOR BUILDING * 01701500 //* ATLANTA, GA 30334 * 01701600 //* * 01701700 //* SSXTEND- * 01701800 //* A PDS UTILITY THAT PERMITS THE ADDITION OF UP TO THREE * 01701900 //* CARD IMAGES. IT WAS WRITTEN TO ASSIST WITH THE CREATION OF * 01702000 //* SMALL RACF PROTECT JCL LIBRARIES FROM AN INSTALLATION WIDE * 01702100 //* NON-RACF JOB LIBRARY * 01702200 //* * 01702300 //* DATEMVS- * 01702400 //* A DATE CONVERSION ROUTINE USED BY SSXTEND * 01702500 //* * 01702600 //***FILE 359 IS FROM SYNTEC IN CALIFORNIA AND CONTAINS A PDS * 01702700 //* WITH THE FOLLOWING MEMBERS . THIS FILE IS IN * 01702800 //* IEBUPDTE SYSIN FORMAT : * 01702900 //* * 01703000 //* AMD@PRIM....GDDM/PGF MENU * 01703100 //* ADMALLOC....GDDM/ISPF FILE ALLOCATIONS * 01703200 //* ADMALL0C....GDDM/ISPF DIALOG (SHOULD BE CALLED * 01703300 //* ADMALLOC NOT '0') * 01703400 //* ADMICU......GDDM/ISPF DIALOG TO INVOKE INTERACTIVE * 01703500 //* CHART UTILITY * 01703600 //* ADMISE......GDDM/ISPF DIALOG TO INVOKE IMAGE SYMBOL * 01703700 //* EDITOR * 01703800 //* ADMT0000....GDDM/ISPF TUTORIAL INDEX * 01703900 //* ADMT0010....GDDM/ISPF GRAPHICS FILE ALLOCATIONS * 01704000 //* ADMT0020....GDDM/ISPF CHART UTILITY * 01704100 //* ADMT0030....GDDM/ISPF IMAGE SYMBOL EDITOR * 01704200 //* ADMT0040....GDDM/ISPF SYMBOL EDITOR * 01704300 //* ADMVSE......GDD/ISPF DIALOG TO INVOKE THE VECTOR * 01704400 //* SYMBOL EDITOR * 01704500 //* ASMH........TSO ASSEMBLER TSO PROMPTER * 01704600 //* ASMH#.......HELP FOR TSO ASSEMBLER TSO PROMPTER * 01704700 //* BURN........PROGRAM TO ABEND A JOB OR ADDRESS SPACE * 01704800 //* COMPRESS....COMPRESS PROGRAM-CREATES A SAVE DATASET * 01704900 //* COMPRES#....HELP FOR COMPRESS PROGRAM * 01705000 //* CPY.........INVOKE SPFCOPY TO COPY MEMBERS OF A PDS * 01705100 //* CPY#........HELP FOR CPY PROGRAM * 01705200 //* DATASCAN....DATASCAN ROUTINE * 01705300 //* ENQSP.......DISPLAY MVS ENQUE STRUCTURE * 01705400 //* ENQSP#......HELP FOR ENQSP COMMAND * 01705500 //* EPILOG......MACRO * 01705600 //* HELPLIST....HELPLIST PROGRAM * 01705700 //* IDATMSTP....USER EXIT TO TIMESTAMP VSAM DATASETS IN * 01705800 //* SU60 FORMAT * 01705900 //* ISR@PRIM....SYNTEX ISPF/PDS PRIMARY OPTION MENU * 01706000 //* LMVS010.....TSO MOD FOR DEFAULT ALLOCATION OF SHR * 01706100 //* LMVS015.....TSO MOD TO DISABLE FULL SCREEN LOGON * 01706200 //* LMVS018.....TSO MOD TO ADD CENT SIGN AS LOGICAL TAB * 01706300 //* CHARACTER FOR 327X TERMINALS * 01706400 //* ONL.........PGM TO DISPLAY AN OPERATOR'S CONSOLE * 01706500 //* PERFORM.....RESET PERFORMANCE GROUP FROM TSO * 01706600 //* PROLOG......MACRO * 01706700 //* SM.... .....TSO COMMAND TO TURN-OFF AND ON THE TSO * 01706800 //* SESSION MANAGER * 01706900 //* VPS@PRIM....VSP/ISPF SELECTION MENU * 01707000 //* VPSOPT01....VSP/ISPF - TO REFRESH SCREEN AFTER VPS * 01707100 //* INVOCATION * 01707200 //* VPSOPT02....VSP/ISPF DIALOG MANAGER FRONT END FOR * 01707300 //* VSPRINT * 01707400 //* VPSPRINT....VSP/ISPF VSPRINT HARDCOPY OUTPUT PANEL * 01707500 //* VPST0000....VSP/ISPF TUTORIAL INDEX * 01707600 //* VPST0010....VSP/ISPF VPS CONTROL * 01707700 //* VPST0020....VSP/ISPF VSPRINT * 01707800 //* VPS01.......VSP/ISPF MESSAGES * 01707900 //* VPS02.......VSP/ISPF MESSAGES * 01708000 //* VPS03.......VSP/ISPF MESSAGES * 01708100 //* WIZARD......DCMS SRM DATA DISPLAY ROUTINE * 01708200 //* * 01708300 //***FILE 360 IS FROM THE STATE OF WISCONSIN , WILSON STREET * 01708400 //* REGIONAL COMPUTING CENTER WITH THE FOLLOWING MEMBERS * 01708500 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT : * 01708600 //* * 01708700 //* ASMCMD THIS MEMBER IS THE JCL TO ASSEMBLE AND * 01708800 //* LINKEDIT COMMAND INTO A LINKLIST * 01708900 //* LIBRARY. * 01709000 //* * 01709100 //* ASMSPY THIS MEMBER IS THE JCL TO ASSEMBLE AND * 01709200 //* LINKEDIT SPY INTO A LINKLIST LIBRARY. * 01709300 //* * 01709400 //* ASMSWP THIS MEMBER IS THE JCL TO ASSEMBLE AND * 01709500 //* LINKEDIT SWAP INTO A LINKLIST LIBRARY. * 01709600 //* * 01709700 //* AUTH THIS MEMBER IS THE SOURCE FOR AUTH * 01709800 //* MACRO TO ISSUE A USER SVC THAT GETS AND * 01709900 //* RELEASES PROGRAM AUTHORIZATION FOR AN * 01710000 //* ASSEMBLER PROGRAM. * 01710100 //* * 01710200 //* BEGIN THIS MEMBER IS THE SOURCE FOR BEGIN * 01710300 //* MACRO TO DO STANDARD ENTRY LINKAGE IN * 01710400 //* ASSEMBLER PROGRAMS. * 01710500 //* * 01710600 //* COMMAND THIS MEMBER IS THE SOURCE FOR COMMAND * 01710700 //* VERSION 2.0. IT WAS ORIGINALLY TAKEN * 01710800 //* FROM A FILE ON THE CBT TAPE. SEE THE * 01710900 //* PROGRAM DOCUMENTATION FOR ADDITIONAL * 01711000 //* COMMENTS ABOUT THE ORIGIN OF THIS CODE. * 01711100 //* COMMAND IS USED BY SPY TO ISSUE * 01711200 //* OPERATOR COMMANDS VIA SVC 34. I ADDED * 01711300 //* THE SUPPORT FOR THE BEGIN, FINISH AND * 01711400 //* AUTH MACROS. * 01711500 //* * 01711600 //* DISIMAGE IBM 3800 PRINTING SUBSYSTEM SUPPORT * 01711700 //* UTILITY. THIS MEMBER WILL ALLOW YOU TO * 01711800 //* CREATE AN IEBIMAGE SOURCE DECK FROM ANY * 01711900 //* MEMBER OF SYS1.IMAGELIB (EXCEPT * 01712000 //* COPYMOD'S) THAT WAS CREATED BY IEBIMAGE * 01712100 //* IN THE FIRST PLACE. * 01712200 //* * 01712300 //* DISKMAP THIS MEMBER WILL LIST THE CONTENTS OF A * 01712400 //* VTOC IN SEVERAL USEFULL FORMATS. * 01712500 //* ORIGINAL PROGRAM WAS FROM CBT TAPE. * 01712600 //* THIS VERSION HAS SEVERAL CHANGES * 01712700 //* INCLUDING 3380 SUPPORT. * 01712800 //* * 01712900 //* DTYP2UNT THIS SUBROUTINE WILL CONVERT A UCB-TYPE * 01713000 //* HEX DEVICE CODE TO A VALID UNIT NAME * 01713100 //* USING THE SYSTEM DEVICE NAME TABLE. * 01713200 //* * 01713300 //* DYNAM THIS SUBROUTINE IS CALLED BY DYNAUTIL * 01713400 //* TO DO DYNAMIC ALLOCATION AS NEEDED BY * 01713500 //* IT'S DRIVER. ORIGINALLY FROM THE * 01713600 //* UNIVERSITY OF MANITOBA. * 01713700 //* * 01713800 //* DYNAUTIL DYNAUTIL IS A REENTRANT, REFRESHABLE, * 01713900 //* AND REUSABLE ASSEMBLER LANGUAGE PROGRAM * 01714000 //* THAT PROVIDES DYNAMIC ALLOCATION FOR * 01714100 //* BATCH PROGRAMS AND UTILITIES. THIS IS * 01714200 //* ACCOMPLISHED BY PASSING CONTROL CARD * 01714300 //* IMAGES TO THE UNIVERSITY OF MANITOBA'S * 01714400 //* DYNAM SVC 99 INTERFACE. DYNAUTIL CAN * 01714500 //* RUN AS A FRONT-END TO A BATCH TASK OR * 01714600 //* CAN BE CALLED BY A BATCH TASK DURING * 01714700 //* IT'S EXECUTION. * 01714800 //* * 01714900 //* DYNAUTLH THIS IS THE DOCUMENTATION FOR THE * 01715000 //* DYNAUTIL PROGRAM. * 01715100 //* * 01715200 //* FINISH THIS MEMBER IS THE SOURCE FOR FINISH * 01715300 //* MACRO TO DO STANDARD EXIT LINKAGE IN * 01715400 //* ASSEMBLER PROGRAMS. * 01715500 //* * 01715600 //* IDCMSGEN ACCESS METHOD SERVICES (IDCAMS) SUPPORT * 01715700 //* UTILITY. THIS PROGRAM WILL ALLOW YOU * 01715800 //* TO CREATE AN IDCAMS SOURCE DECK FROM * 01715900 //* MOST OBJECTS IN YOUR VSAM CATALOG. * 01716000 //* * 01716100 //* IEFACTRT SMF EXIT THAT PRODUCES MANY USEFULL * 01716200 //* STATISTICS AND MESSAGES AT STEP AND JOB * 01716300 //* END. THESE MESSAGES APPEAR IN AN * 01716400 //* ABBREVIATED FORM IN THE JOBLOG AND IN A * 01716500 //* MORE DETAILED FORM IN THE JOB MESSAGES * 01716600 //* OUTPUT. * 01716700 //* * 01716800 //* IEFU84 SMF EXIT THAT DOES A GETMAIN FOR AN * 01716900 //* AREA THAT BECOMES A LOCAL USER CVT. * 01717000 //* THIS AREA IS MAPPED BY WSRCCCVT. * 01717100 //* * 01717200 //* IGC0023C A TYPE 3 SCV THAT IS INVOKED FROM THE * 01717300 //* AUTH MACRO TO AUTHORIZE OR UN-AUTHORIZE * 01717400 //* TSO COMMANDS, PROGRAMS, ETC. * 01717500 //* * 01717600 //* ISPTCM A MACRO (TCMGEN) AND A MODULE (ISPTCM) * 01717700 //* THAT REPLACE THE DISTRIBUTED ISPF * 01717800 //* MODULE. THIS MACRO AND MODULE WERE * 01717900 //* WRITTEN IN RESPONSE TO APAR OZ64211. * 01718000 //* SEE INFO/MVS ENTRY E130403 FOR * 01718100 //* PARTICULARS. * 01718200 //* * 01718300 //* LASTIPL TSO COMMAND THAT USES THE LOCAL * 01718400 //* USER CVT MAPPED BY WSRCCCVT TO * 01718500 //* DISPLAY WHEN THE SYSTEM WAS * 01718600 //* IPLLED. * 01718700 //* * 01718800 //* PRINTOFF TSO COMMAND ORIGINALLY FROM THE CBT * 01718900 //* TAPE AND HEAVILY MODIFIED FOR USE AT * 01719000 //* WSRCC HAS SUPPORT FOR THE 3800 PRINTING * 01719100 //* SUBSYSTEM VIA CHARS, TRC, MODIFY, * 01719200 //* MODTRC, FLASH, FCOUNT, CGROUP AND BRUST * 01719300 //* KEYWORDS. SOME PROBLEMS WITH THE 6670 * 01719400 //* CODE HAS ALSO BEEN FIXED. * 01719500 //* * 01719600 //* PRINT0FF TSO HELP FOR THE MODIFIED PRINTOFF * 01719700 //* COMMAND. * 01719800 //* * 01719900 //* SPY THIS MEMBER IS THE SOURCE FOR SPY * 01720000 //* VERSION 3.1 WITH CROSS MEMORY SUPPORT * 01720100 //* INCLUDED FOR MVS/SP 1.3. IT WAS * 01720200 //* ORIGINALLY TAKEN FROM FILE 338 ON THE * 01720300 //* CBT TAPE. SEE THE PROGRAM * 01720400 //* DOCUMENTATION FOR ADDITIONAL COMMENTS * 01720500 //* ABOUT THE ORIGIN OF THIS CODE. THE * 01720600 //* VAST MAJORITY OF THE XM CODE CAME FROM * 01720700 //* THE BANK OF NEW SOUTH WALES. I ADDED * 01720800 //* THE CODE TO SUPPORT THE PFKEYS IN THE * 01720900 //* 3270 ENVIRONMEMT ALONG WITH THE BEGIN. * 01721000 //* FINISH AND AUTH MACROS. * 01721100 //* * 01721200 //* SWAP THIS MEMBER IS THE SOURCE FOR SWAP * 01721300 //* VERSION 4.5. IT WAS ORIGINALLY TAKEN * 01721400 //* FROM A FILE ON THE CBT TAPE. SEE THE * 01721500 //* PROGRAM DOCUMENTATION FOR ADDITIONAL * 01721600 //* COMMENTS ABOUT THE ORIGIN OF THIS CODE. * 01721700 //* I ADDED THE SUPPORT FOR THE BEGIN, * 01721800 //* FINISH AND AUTH MACROS. * 01721900 //* * 01722000 //* UADS TSO COMMAND THAT WILL ALLOW THOSE USERS * 01722100 //* WITH OPERATOR ABILITY TO DYNAMICALLY * 01722200 //* CHANGE THEIR UADS ENTRIES IN THE PSCB. * 01722300 //* ONCE CHANGED, IT WILL REMAIN IN EFFECT * 01722400 //* ACROSS A RELOGON (UNLESS USING ACF2 IN * 01722500 //* NOUADS MODE). * 01722600 //* * 01722700 //* UADSHELP TSO HELP FOR THE UADS COMMAND. * 01722800 //* * 01722900 //* VOLS TSO COMMAND TO LIST FREE SPACE ON ALL * 01723000 //* OR SELECTED ONLINE DASD DEVICES. * 01723100 //* VOLUME SELECTION INCLUDES DEVICETYPE, * 01723200 //* ATTRIBUTE, VOLUME AND UCB. * 01723300 //* * 01723400 //* VOLSHELP TSO HELP FOR THE VOLS COMMAND. * 01723500 //* * 01723600 //* WSRCCCVT MACRO THAT MAPS THE LOCAL USER CVT THAT * 01723700 //* IS GOTTEN AT IPL TIME BY IEFU84. A * 01723800 //* LOCAL USER CVT IS VERY USEFULL FOR MANY * 01723900 //* RANDOM USES, WE FIND MANY FOR OURS. * 01724000 //* * 01724100 //* ZSORTZ THIS SUBROUTINE WILL SORT AN IN-CORE * 01724200 //* TABLE. ORIGINAL SOURCE UNKNOWN * 01724300 //* (PROBABLY EARLY 1970'S SHARE TAPE (?)). * 01724400 //* * 01724500 //***FILE 361 IS FROM REVLON AND CONTAINS A COPY OF THEIR TSO CP * 01724600 //* TO ALLOCATE THE PDF PROFILE FOR SPF . * 01724700 //* * 01724800 //* THIS COMMAND WILL ALLOCATE THE PDF PROFILE DATASET AT * 01724900 //* LOGON TIME OR MAY BE INVOKED PRIOR TO INVOKING * 01725000 //* ISPF/PDF. THIS IS CONSIDERABLY FASTER THAN USING A * 01725100 //* CLIST TO ALLOCATE. * 01725200 //* * 01725300 //* THE PDF DATASET IS ALLOCATED AS OLD AND IF UNABLE TO * 01725400 //* ALLOCATE, TRYS TO ALLOCATE AND CATALOG A NEW PROFILE * 01725500 //* DATASET. * 01725600 //* * 01725700 //* CURRENT ALLOCATION IS AS: * 01725800 //* ATTR FB6160 RECFM(F B) LRECL(80) BLKSIZE(6160) * 01725900 //* ALLOC F(ISPPROF) DA('USERID.ISPF.PROFILE') SP(1) * 01726000 //* TRA DIR(1) - * 01726100 //* UNIT(3380) VOL(S80222) US(FB6160) * 01726200 //* * 01726300 //* THIS CODE IS SET FOR A 7 CHARACTER TSO USERID AND * 01726400 //* MUST BE CHANGED IF ANY OTHER LENGTH IS USED. * 01726500 //* * 01726600 //* ALLOCATION DEFAULTS CAN BE CHANGED IN THE DC'S FOR * 01726700 //* THE APPROPRIATE DEFAULTS. I.E. DSNAME, VOLSER, UNIT, * 01726800 //* ETC. * 01726900 //* * 01727000 //* CODE COULD BE ADDED TO TELL THE USER WHY THE * 01727100 //* ALLOCATION FAILED - BE MY GUEST. WE JUST FILTER OUT * 01727200 //* THE OBVIOUS ERROR AND RESPOND BACK WITH THE RETURN * 01727300 //* CODE, ERROR CODE AND INFO CODE IF A REAL ERROR * 01727400 //* OCCURS. * 01727500 //* * 01727600 //* THIS MODULE MAY BE ASSEMBLED AND LINKED INTO A * 01727700 //* LINKLIST LIB OR INTO LPALIB * 01727800 //* * 01727900 //* THE INVOCATION AT LOGON TIME IS BY USING THE PARM * 01728000 //* FIELD ON THE EXEC STATEMENT IN THE LOGON PROC * 01728100 //* * 01728200 //***FILE 362 IS FROM CONNECTICUT NATIONAL BANK AND CONTAINS A * 01728300 //* PROGRAM THAT USES IOSLOOK. THIS CODE WILL * 01728400 //* CONDITIONALLY FIX DSCB VOLSER IN THE DSCB, OR TURN * 01728500 //* RACF BITS ON OR OFF . THIS PROGRAM HAS TO RUN APF * 01728600 //* AUTHORIZED . SEE THE PROGRAM FOR ADDITIONAL * 01728700 //* INFORMATION . * 01728800 //* * 01728900 //***FILE 363 IS FROM COMMERICAL UNION INSURANCE COMPANY OF BOSTON, * 01729000 //* AND CONTAINS THE FOLLOWING ASSEMBLER AND SAS UTILITY * 01729100 //* PROGRAMS IN IEBUPDTE SYSIN FORMAT: * 01729200 //* * 01729300 //* AMAVZAP IS A PROGRAM WRITTEN IN SAS WHICH READS * 01729400 //* SYMBOLIC INPUT AND GENERATES THE AMASPZAP * 01729500 //* CONTROL STATEMENTS ( CCHHR AND REQUIRED * 01729600 //* HEXDATA ) TO CHANGE FIELDS IN F1DSCB'S * 01729700 //* * 01729800 //* ASMAMODE IS A SAMPLE ASSEMBLER PROGRAM TO ILLUSTRATE * 01729900 //* THE EXPANSIONS GENERATED USING VARIOUS * 01730000 //* OPTIONS ON THE SETAMODE AND TSTAMODE * 01730100 //* MACROS * 01730200 //* * 01730300 //* FIXMCEDT FIX TO THE IPO-SUPPLIED MCNVTCAT PROGRAM IN * 01730400 //* IEBUPDTE FORMAT TO USE IEFEDTTB (ELIGIBLE * 01730500 //* DEVICE TABLE) INSTEAD OF DEVNAMET (DEVICE * 01730600 //* NAME TABLE) BECAUSE THE DEVICE NAME TABLE * 01730700 //* HAS BEEN DELETED IN MVS/XA . THE FIX * 01730800 //* INCLUDES LOGIC TO REFERENCE IEFEDITTB ABOVE * 01730900 //* THE 16MB LINE, AND ALLOWS EXECUTION ON * 01731000 //* EITHER MVS/370 OR MVS/XA * 01731100 //* * 01731200 //* IEFPARAM IS WRITTEN IN ASSEMBLER , COPIES THE PARM * 01731300 //* FIELD OF THE EXEC STATEMNT TO AN OUTPUT * 01731400 //* DATASET. MOST OUTPUT RECORD FORMATS ( F , * 01731500 //* V , U ) ARE SUPPORTED AND SPECIAL CONTROL * 01731600 //* CHARACTERS FOR CREATING MULTIPLE OUTPUT * 01731700 //* RECORDS AND POSITIONING TO A SPECIFIC BYTE * 01731800 //* OF AN OUTPUT RECORDS ARE RECOGNIZED IN THE * 01731900 //* PARM FIELD * 01732000 //* * 01732100 //* IFAUXIMV IS A GENERAL PURPOSE USER1 EXIT * 01732200 //* FOR IFASMFDP TO SELECT ONLY THOSE * 01732300 //* INPUT RECORDS THAT WERE PRODUCED BY * 01732400 //* AN MVS/370 SYSTEM. RECORDS * 01732500 //* PRODUCED BY AN MVS/XA SYSTEM ARE * 01732600 //* FILTERED OUT BY THIS ROUTINE SO * 01732700 //* THAT THEY ARE NOT PROCESSED BY * 01732800 //* IFASMFDP. * 01732900 //* * 01733000 //* IFAUXIXA IS A GENERAL PURPOSE USER1 EXIT * 01733100 //* FOR IFASMFDP TO SELECT ONLY THOSE * 01733200 //* INPUT RECORDS THAT WERE PRODUCED BY * 01733300 //* AN MVS/XA SYSTEM. RECORDS PRODUCED * 01733400 //* BY AN MVS SYSTEM WHICH IS NOT XA * 01733500 //* ARE FILTERED OUT BY THIS ROUTINE SO * 01733600 //* THAT THEY ARE NOT PROCESSED BY * 01733700 //* IFASMFDP. * 01733800 //* * 01733900 //* IFAUX2HT IS A GENERAL PURPOSE USER2 EXIT * 01734000 //* FOR IFASMFDP TO PREVENT SMF RECORD * 01734100 //* TYPES 2(DUMP HEADER) AND 3(DUMP * 01734200 //* TRAILER) FROM BEING WRITTEN ON THE * 01734300 //* OUTPUT DATA SET, INCLUDING THE TYPE * 01734400 //* 2 AND 3 RECORDS THAT ARE GENERATED * 01734500 //* INTERNALLY FOR THE OUTPUT DATA SET * 01734600 //* BY IFASMFDP. * 01734700 //* * 01734800 //* PAGEADD IS AN ASSEMBLER PROGRAM WHICH TAKES ITS * 01734900 //* NAME FROM OUR ORIGINAL USE FOR IT - TO PASS * 01735000 //* PAGEADD COMMANDS TO THE SYSTEM AFTER IPL * 01735100 //* HAS COMPLETED . IT USES THE SVC34 INTERFACE * 01735200 //* AND CAN SUBMIT EITHER MVS OR JES COMMANDS . * 01735300 //* IN ADDITION TO USING IT AT IPL TIME , WE * 01735400 //* USE IT TO SET INITIATOR PATTERNS AT * 01735500 //* DIFFERENT TIMES OF THE DAY FOR DIFFERENT * 01735600 //* DAYS OF THE WEEK . IT HAS ALLOWED US TO * 01735700 //* COMPENSATE FOR SOME OF THE LIMITATIONS IN * 01735800 //* THE JES2 AUTOMATIC COMMANDS FACILITY * 01735900 //* WITHOUT HAVING TO MODIFY JES2 * 01736000 //* * 01736100 //* SETAMODE IS A MACRO WRITTEN AT COMMERICAL UNION TO * 01736200 //* FACILITATE SWITCHING BETWEEN 24-BIT AND * 01736300 //* 31-BIT ADDRESSING MODE IN MVS/XA. THIS * 01736400 //* MACRO IS CAPABLE OF GENERATING CODE THAT * 01736500 //* CAN EXECUTE ON BOTH MVS/370 AND MVS/XA * 01736600 //* SYSTEMS, BUT IT CAN ALSO GENERATE A * 01736700 //* SHORT EXPANSION, NOT INCLUDING THE TEST * 01736800 //* FOR SYSTEM TYPE, WHICH WILL EXECUTE ONLY * 01736900 //* ON AN XA SYSTEM (IN EITHER 24-BIT OR * 01737000 //* 31-BIT MODE). ASSEMBLER H VERSION 2 IS * 01737100 //* REQUIRED TO ASSEMBLE THIS MACRO (UNLESS * 01737200 //* ASMHV2=NO IS SPECIFIED), BECAUSE THE * 01737300 //* EXPANSION INCLUDES A "BSM" INSTRUCTION * 01737400 //* WHICH IS NEW FOR XA AND IS RECOGNIZED * 01737500 //* ONLY BY ASSEMBLER H VERSION 2, OR A * 01737600 //* COMPARABLE ASSEMBLER. * 01737700 //* * 01737800 //* TSTAMODE IS A MACRO WRITTEN AT COMMERICAL * 01737900 //* UNION TO COMPLEMENT THE SETAMODE * 01738000 //* MACRO AND FACILITATE TESTING OF THE * 01738100 //* CURRENT ADDRESSING MODE BIT IN MVS/XA. * 01738200 //* THE CODE GENERATED BY THIS MACRO CAN BE * 01738300 //* EXECUTED ON BOTH MVS/370 AND MVS/XA * 01738400 //* SYSTEMS. * 01738500 //* * 01738600 //* THIS MACRO SETS THE CONDITION CODE TO * 01738700 //* REFLECT THE CURRENT ADDRESSING MODE. * 01738800 //* CC=0 INDICATES S/370 OR XA 24-BIT * 01738900 //* ADDRESSING MODE; CC^=0 INDICATES XA * 01739000 //* 31-BIT ADDRESSING MODE. THE ADDRESSING * 01739100 //* MODE IS NOT CHANGED BY THIS MACRO. * 01739200 //* * 01739300 //* IN ADDITION TO SETTING THE CONDITION * 01739400 //* CODE, THIS MACRO PLACES THE ADDRESSING * 01739500 //* MODE IN THE SPECIFIED REGISTER. THIS * 01739600 //* VALUE CAN BE SAVED, IF DESIRED, AND USED * 01739700 //* AS INPUT TO THE SETAMODE MACRO USING * 01739800 //* AMODE=RESET; OR CAN BE USED WITH THE BSM * 01739900 //* INSTRUCTION TO RESTORE THE AMODE. * 01740000 //* * 01740100 //* THE CODE GENERATED BY THIS MACRO * 01740200 //* REQUIRES ACCESS TO A FULLWORD OF * 01740300 //* X'80000000' FOR EXTRACTING AND * 01740400 //* MANIPULATING THE AMODE BIT IN THE WORK * 01740500 //* REGISTERS. IF THE USER DOES NOT SUPPLY * 01740600 //* THE ADDRESS OF SUCH A FULLWORD USING THE * 01740700 //* AMASK= KEYWORD, A FULLWORD CONSTANT IS * 01740800 //* GENERATED INLINE. TO SAVE ON STORAGE, * 01740900 //* THE USER CAN SUPPLY THE ADDRESS OF SUCH * 01741000 //* A FULLWORD TO BE USED BY THE MACRO * 01741100 //* EXPANSION. IF THE USER PROVIDES SUCH AN * 01741200 //* ADDRESS, USING THE AMASK= KEYWORD, THE * 01741300 //* INLINE FULLWORD IS NOT GENERATED, SAVING * 01741400 //* EIGHT BYTES WITH EACH USE OF THIS MACRO. * 01741500 //* THE SYMBOL SUPPLIED VIA AMASK= MUST * 01741600 //* DESIGNATE THE ADDRESS OF A FULLWORD IN * 01741700 //* STORAGE CONTAINING THE VALUE * 01741800 //* X'80000000', OR BE THE VALUE IN REGISTER * 01741900 //* NOTATION (DOUBLE ENCLOSING PARENTHESES) * 01742000 //* OF A GENERAL REGISTER CONTAINING THE * 01742100 //* VALUE X'80000000'. * 01742200 //* * 01742300 //* VARYOFF IS AN ASSEMBLER PROGRAM WHICH PROCESSES * 01742400 //* VATLST00 AT IPL TIME AND ISSUES EITHER VARY * 01742500 //* OFFLINE OR MOUNT COMMANDS FOR VOLUMES NOT * 01742600 //* LISTED IN VATLST00 . THE PROGRAM HAS * 01742700 //* SEVERAL OPTIONS WHICH ARE DOCUMENTED AT THE * 01742800 //* BEGINNING OF THE PROGRAM * 01742900 //* * 01743000 //******************************************************************* 01743100 //* * 01743200 //*>>>>>>>>>>>>>>>>>>C U I C D I S C L A I M E R<<<<<<<<<<<<<<<<*** 01743300 //* * 01743400 //******************************************************************* 01743500 //* THE INFORMATION OR MATERIAL BEING PROVIDED * 01743600 //* BY COMMERCIAL UNION INSURANCE COMPANY (CUIC), * 01743700 //* WHETHER IN HARD COPY OR MACHINE READABLE FORM, * 01743800 //* HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE * 01743900 //* AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS * 01744000 //* OWN DATA PROCESSING SYSTEM. CUIC MAKES NO * 01744100 //* REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH * 01744200 //* RESPECT TO THE INFORMATION OR MATERIAL FURNISHED * 01744300 //* HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT * 01744400 //* NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF * 01744500 //* MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE * 01744600 //* OR PURPOSE OR THAT THE USE OF THE INFORMATION OR * 01744700 //* MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT, * 01744800 //* TRADEMARK, OR OTHER PROPRIETARY INTEREST. YOU * 01744900 //* ARE, THEREFORE, ACCEPTING THIS INFORMATION OR * 01745000 //* MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT * 01745100 //* AT YOUR OWN RISK. NEITHER CUIC NOR ANY OF ITS * 01745200 //* AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY * 01745300 //* CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER * 01745400 //* PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR * 01745500 //* CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN * 01745600 //* ADVISED OF THE POSSIBILITY OF SUCH DAMAGES) * 01745700 //* ARISING FROM THE USE OF THE INFORMATION OR THE * 01745800 //* MATERIALS AND CONCEPTS RELATED THERETO. * 01745900 //* FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR * 01746000 //* UPDATE THIS INFORMATION OR MATERIAL IN THE * 01746100 //* FUTURE. * 01746200 //* 01/26/83 * 01746300 //******************************************************************* 01746400 //* * 01746500 //***FILE 364 IS FROM COMMERICAL UNION INSURANCE COMPANY OF BOSTON, * 01746600 //* AND CONTAINS THE FOLLOWING SAMPLE CATALOGED PROCS AND * 01746700 //* JCL FOR USING THE UTILITY PROGRAMS IN FILE 363 . THIS * 01746800 //* FILE IS IN IEBUPDTE SYSIN FORMAT * 01746900 //* * 01747000 //* CVLREORG IS THE CATALOGED PROCEDURE WE USE TO * 01747100 //* REORGANIZE CVOL CATALOGS. IT USES IEFPARAM * 01747200 //* FROM FILE 364 AND COPYCAT FROM FILE 037. ITS * 01747300 //* USE HAS GREATLY REDUCED OUR CVOL I/O * 01747400 //* OVERHEAD * 01747500 //* * 01747600 //* LB00319 IS THE MOD CREATED AS PART OF THE MVS XA * 01747700 //* CUMODS UPGRADE . ITS PURPOSE IS TO INSTALL * 01747800 //* THE ' VARYOFF ' UTILITY INTO SYS1.LINKLIB * 01747900 //* UNDER THE SMP/E MECHANISM * 01748000 //* * 01748100 //* LB00391 IS THE MOD CREATED TO PROVIDE FOR THE * 01748200 //* FOR THE INSTALLATION OF IFASMFDP USER * 01748300 //* EXITS INTO SYS1.LINKLIB USING THE SMP * 01748400 //* MECHANISM * 01748500 //* * 01748600 //* PAGEADD IS THE CATALOGED PROCEDURE WE USE TO ADD * 01748700 //* PAGE / SWAP DATASETS FOLLOWING IPL * 01748800 //* * 01748900 //* PDSREORG IS THE CATALOGED PROCEDURE WE USE TO * 01749000 //* REORGANIZE PDS LIBRARIES BY COPYING THEM OUT * 01749100 //* AND BACK * 01749200 //* * 01749300 //* RMFPPXSP IS THE PROCEDURE WHICH EXTRACTS MVS * 01749400 //* RMF RECORDS FOR A GIVEN DATE OR RANGE * 01749500 //* OF DATES, AND SORTS THE RMF RECORDS INTO * 01749600 //* DATE TIME ORDER REQUIRED BY RMF * 01749700 //* * 01749800 //* RMFPPXXA IS THE PROCEDURE WHICH EXTRACTS MVS XA * 01749900 //* RMF RECORDS FOR A GIVEN DATE OR RANGE * 01750000 //* OF DATES AND SORTS THE RMF RECORDS INTO * 01750100 //* DATE TIME ORDER AS REQUIRED BY RMF * 01750200 //* * 01750300 //* VARYOFF IS THE CATALOGED PROCEDURE WE USE TO INVOKE * 01750400 //* THE VARYOFF PROGRAM AT IPL TIME * 01750500 //* * 01750600 //******************************************************************* 01750700 //* * 01750800 //*>>>>>>>>>>>>>>>>>>C U I C D I S C L A I M E R<<<<<<<<<<<<<<<<*** 01750900 //* * 01751000 //******************************************************************* 01751100 //* THE INFORMATION OR MATERIAL BEING PROVIDED * 01751200 //* BY COMMERCIAL UNION INSURANCE COMPANY (CUIC), * 01751300 //* WHETHER IN HARD COPY OR MACHINE READABLE FORM, * 01751400 //* HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE * 01751500 //* AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS * 01751600 //* OWN DATA PROCESSING SYSTEM. CUIC MAKES NO * 01751700 //* REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH * 01751800 //* RESPECT TO THE INFORMATION OR MATERIAL FURNISHED * 01751900 //* HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT * 01752000 //* NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF * 01752100 //* MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE * 01752200 //* OR PURPOSE OR THAT THE USE OF THE INFORMATION OR * 01752300 //* MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT, * 01752400 //* TRADEMARK, OR OTHER PROPRIETARY INTEREST. YOU * 01752500 //* ARE, THEREFORE, ACCEPTING THIS INFORMATION OR * 01752600 //* MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT * 01752700 //* AT YOUR OWN RISK. NEITHER CUIC NOR ANY OF ITS * 01752800 //* AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY * 01752900 //* CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER * 01753000 //* PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR * 01753100 //* CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN * 01753200 //* ADVISED OF THE POSSIBILITY OF SUCH DAMAGES) * 01753300 //* ARISING FROM THE USE OF THE INFORMATION OR THE * 01753400 //* MATERIALS AND CONCEPTS RELATED THERETO. * 01753500 //* FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR * 01753600 //* UPDATE THIS INFORMATION OR MATERIAL IN THE * 01753700 //* FUTURE. * 01753800 //* 01/26/83 * 01753900 //******************************************************************* 01754000 //* * 01754100 //***FILE 365 IS FROM COMMERICAL UNION INSURANCE COMPANY OF BOSTON, * 01754200 //* AND CONTAINS THEIR SYNCSORT USER EXIT WRITTEN IN * 01754300 //* ASSEMBLER. THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 01754400 //* * 01754500 //* $ORTABLE ASSEMBLER COPY CODE TO DEFINE THE INDIVIDUAL * 01754600 //* TABLE ENTRIES IN $ORTDATA * 01754700 //* * 01754800 //* $ORTDATA SOURCE CODE TO PROVIDE THE $ORTPARM EXIT * 01754900 //* ROUTINE WITH THE INSTALLATION REQUIREMENTS * 01755000 //* FOR ASSIGNING SYNCSORT PERFORMANCE-RELEATED * 01755100 //* OPTIONS. THIS MODULE ASSEMBLES A TABLE IN * 01755200 //* THE FORM OF A BLOCK OF VARIABLE LENGTH * 01755300 //* RECORDS ( TABLE ENTRIES ) * 01755400 //* * 01755500 //* $ORTDUMMY SOURCE CODE TO PROVIDE A DUMMY $ORTPARM TO * 01755600 //* ALLOW THE PARMEXIT FACILITY OF SYNCSORT TO * 01755700 //* BE ENABLED INDEPENDENTLY OF THE INSTALLATION * 01755800 //* OF THE ACTUAL $ORTPARM EXIT ROUTINE * 01755900 //* * 01756000 //* $ORTPARM SOURCE CODE FOR THE EXIT ROUTINE TO DETERMINE* 01756100 //* THE PERFORMANCE RELATED OPTIONS TO BE USED * 01756200 //* BY SYNCSORT WHEN IT IS INVOKED. ASSIGNED * 01756300 //* OPTIONS CAN BE BASED ON SMF SYSTEM * 01756400 //* IDENTIFIER, DATE AND TIME-OF-DAY, DAY OF THE * 01756500 //* WEEK, JOBNAME, STEPNAME, PROCSTEPNAME, OR * 01756600 //* EXEC STATEMENT PROGRAM NAME, PERFORMANCE * 01756700 //* GROUP(S), AND SORESIDENT JOB NAMES (IF THE * 01756800 //* CURRENT JOB IS RUNNING IN THE SAME MACHINE * 01756900 //* WITH A JOB OR JOBS HAVE A SPECIFIED JOB * 01757000 //* NAME). * 01757100 //* * 01757200 //* ASM$DATA ASSEMBLY & LKED JCL FOR $ORTDATA * 01757300 //* * 01757400 //* ASM$DUMY ASSEMBLE & LKED JCL FOR $ORTDUMY * 01757500 //* * 01757600 //* ASM$PARM ASSEMBLE & LKED JCL FOR $ORTPARM * 01757700 //* * 01757800 //******************************************************************* 01757900 //* * 01758000 //*>>>>>>>>>>>>>>>>>>C U I C D I S C L A I M E R<<<<<<<<<<<<<<<<*** 01758100 //* * 01758200 //******************************************************************* 01758300 //* THE INFORMATION OR MATERIAL BEING PROVIDED * 01758400 //* BY COMMERCIAL UNION INSURANCE COMPANY (CUIC), * 01758500 //* WHETHER IN HARD COPY OR MACHINE READABLE FORM, * 01758600 //* HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE * 01758700 //* AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS * 01758800 //* OWN DATA PROCESSING SYSTEM. CUIC MAKES NO * 01758900 //* REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH * 01759000 //* RESPECT TO THE INFORMATION OR MATERIAL FURNISHED * 01759100 //* HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT * 01759200 //* NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF * 01759300 //* MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE * 01759400 //* OR PURPOSE OR THAT THE USE OF THE INFORMATION OR * 01759500 //* MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT, * 01759600 //* TRADEMARK, OR OTHER PROPRIETARY INTEREST. YOU * 01759700 //* ARE, THEREFORE, ACCEPTING THIS INFORMATION OR * 01759800 //* MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT * 01759900 //* AT YOUR OWN RISK. NEITHER CUIC NOR ANY OF ITS * 01760000 //* AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY * 01760100 //* CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER * 01760200 //* PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR * 01760300 //* CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN * 01760400 //* ADVISED OF THE POSSIBILITY OF SUCH DAMAGES) * 01760500 //* ARISING FROM THE USE OF THE INFORMATION OR THE * 01760600 //* MATERIALS AND CONCEPTS RELATED THERETO. * 01760700 //* FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR * 01760800 //* UPDATE THIS INFORMATION OR MATERIAL IN THE * 01760900 //* FUTURE. * 01761000 //* 01/26/83 * 01761100 //******************************************************************* 01761200 //* * 01761300 //***FILE 366 IS FROM COMMERICAL UNION INSURANCE COMPANY OF BOSTON, * 01761400 //* AND CONTAINS THEIR OWN DEVELOPED UPDATED TO IBM'S * 01761500 //* DASD SEEK SIMULATOR PROGRAM, NUMBER 5798-CTD . THIS * 01761600 //* FILE CONTAINS ONLY CU WRITTEN CODE ; THEREFORE THE * 01761700 //* SECOM DSSP FIXED DISTRIBUTED IN IBM'S LETTER DATED * 01761800 //* 6/81 ARE NOT INCLUDED IN THIS FILE . THE FIXES IN * 01761900 //* THIS FILE APPLY TO DSSP VERSION 02 MOD 00 AFTER ALL * 01762000 //* IBM'S FIXES HAVE BEEN APPLIED . THIS FILE IS IN * 01762100 //* IEBUPDTE SYSIN FORMAT . * 01762200 //* * 01762300 //* THIS PDS IS IN OFFLOAD FORMAT ( ERGO ' ./ ' * 01762400 //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * 01762500 //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * 01762600 //* CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS * 01762700 //* SYSIN INPUT TO IEBUPDTE . * 01762800 //* * 01762900 //******************************************************************* 01763000 //* * 01763100 //*>>>>>>>>>>>>>>>>>>C U I C D I S C L A I M E R<<<<<<<<<<<<<<<<*** 01763200 //* * 01763300 //******************************************************************* 01763400 //* THE INFORMATION OR MATERIAL BEING PROVIDED * 01763500 //* BY COMMERCIAL UNION INSURANCE COMPANY (CUIC), * 01763600 //* WHETHER IN HARD COPY OR MACHINE READABLE FORM, * 01763700 //* HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE * 01763800 //* AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS * 01763900 //* OWN DATA PROCESSING SYSTEM. CUIC MAKES NO * 01764000 //* REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH * 01764100 //* RESPECT TO THE INFORMATION OR MATERIAL FURNISHED * 01764200 //* HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT * 01764300 //* NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF * 01764400 //* MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE * 01764500 //* OR PURPOSE OR THAT THE USE OF THE INFORMATION OR * 01764600 //* MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT, * 01764700 //* TRADEMARK, OR OTHER PROPRIETARY INTEREST. YOU * 01764800 //* ARE, THEREFORE, ACCEPTING THIS INFORMATION OR * 01764900 //* MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT * 01765000 //* AT YOUR OWN RISK. NEITHER CUIC NOR ANY OF ITS * 01765100 //* AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY * 01765200 //* CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER * 01765300 //* PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR * 01765400 //* CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN * 01765500 //* ADVISED OF THE POSSIBILITY OF SUCH DAMAGES) * 01765600 //* ARISING FROM THE USE OF THE INFORMATION OR THE * 01765700 //* MATERIALS AND CONCEPTS RELATED THERETO. * 01765800 //* FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR * 01765900 //* UPDATE THIS INFORMATION OR MATERIAL IN THE * 01766000 //* FUTURE. * 01766100 //* 01/26/83 * 01766200 //******************************************************************* 01766300 //* * 01766400 //***FILE 367 IS FROM COMMERICAL UNION INSURANCE COMPANY OF BOSTON, * 01766500 //* AND CONTAINS UTILITY PROGRAMS WRITTEN IN PLI * 01766600 //* OPTIMIZING COMPILER. THIS FILE IS IN IEBCOPY FORMAT * 01766700 //* & WHEN RESTORED HAS RECFM=VB,LRECL=104,BLKSIZE=15365 * 01766800 //* * 01766900 //* PTSSCAN A UTILITY PROGRAM FOR SMP/4, SCANS THE * 01767000 //* SMPLIST OUTPUT FROM AN SMP 'LIST PTS SYSMOD' * 01767100 //* RUN AND SELECTS SYSMODS MEETING SPECIFIED * 01767200 //* SELECTION CRITERIA. AN OUTPUT FILE IN * 01767300 //* SMPLIST FORMAT CONTAINING JUST THE SELECTED * 01767400 //* SYSMODS IS CREATED TO ALLOW MULTIPLE PASSES * 01767500 //* OR PROCESSING BY OTHER UTILITY PROGRAMS * 01767600 //* * 01767700 //* RMFDVTSP A UTILITY PROGRAM FOR MVS/370, READS * 01767800 //* MVS/370 RMF TYPE 73 & 74 RECORDS AND * 01767900 //* GENERATED RMF POST PROCESSOR CONTROL CARDS * 01768000 //* TO REQUEST EXCEPTION REPORTING ON A DASD * 01768100 //* DEVICE BASIS FOR VARIOUS EXCEPTION * 01768200 //* CONDITIONS THAT CAN OCCUR. CONTROL CARDS TO * 01768300 //* REQUEST PLOTTING OF DASD DEVICE ACTIVITY * 01768400 //* ARE ALSO PRODUCED * 01768500 //* * 01768600 //* RMFDVTXA A UTILITY PROGRAM FOR MVS/XA, READS * 01768700 //* MVS/XA RMF TYPE 74 RECORDS AND * 01768800 //* GENERATED RMF POST PROCESSOR CONTROL CARDS * 01768900 //* TO REQUEST EXCEPTION REPORTING ON A DASD * 01769000 //* DEVICE BASIS FOR VARIOUS EXCEPTION * 01769100 //* CONDITIONS THAT CAN OCCUR. CONTROL CARDS TO * 01769200 //* REQUEST PLOTTING OF DASD DEVICE ACTIVITY * 01769300 //* ARE ALSO PRODUCED * 01769400 //* * 01769500 //******************************************************************* 01769600 //* * 01769700 //*>>>>>>>>>>>>>>>>>>C U I C D I S C L A I M E R<<<<<<<<<<<<<<<<*** 01769800 //* * 01769900 //******************************************************************* 01770000 //* THE INFORMATION OR MATERIAL BEING PROVIDED * 01770100 //* BY COMMERCIAL UNION INSURANCE COMPANY (CUIC), * 01770200 //* WHETHER IN HARD COPY OR MACHINE READABLE FORM, * 01770300 //* HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE * 01770400 //* AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS * 01770500 //* OWN DATA PROCESSING SYSTEM. CUIC MAKES NO * 01770600 //* REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH * 01770700 //* RESPECT TO THE INFORMATION OR MATERIAL FURNISHED * 01770800 //* HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT * 01770900 //* NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF * 01771000 //* MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE * 01771100 //* OR PURPOSE OR THAT THE USE OF THE INFORMATION OR * 01771200 //* MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT, * 01771300 //* TRADEMARK, OR OTHER PROPRIETARY INTEREST. YOU * 01771400 //* ARE, THEREFORE, ACCEPTING THIS INFORMATION OR * 01771500 //* MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT * 01771600 //* AT YOUR OWN RISK. NEITHER CUIC NOR ANY OF ITS * 01771700 //* AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY * 01771800 //* CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER * 01771900 //* PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR * 01772000 //* CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN * 01772100 //* ADVISED OF THE POSSIBILITY OF SUCH DAMAGES) * 01772200 //* ARISING FROM THE USE OF THE INFORMATION OR THE * 01772300 //* MATERIALS AND CONCEPTS RELATED THERETO. * 01772400 //* FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR * 01772500 //* UPDATE THIS INFORMATION OR MATERIAL IN THE * 01772600 //* FUTURE. * 01772700 //* 01/26/83 * 01772800 //******************************************************************* 01772900 //* * 01773000 //***FILE 368 CONTAINS SOURCE FOR A TSO CP CALLED SYSMON FROM * 01773100 //* SMITH BARNEY IN NEW YORK. THIS FILE IS IN * 01773200 //* IN IEBUPDTE SYSIN FORMAT. * 01773300 //* * 01773400 //* SYSMON IS A PROGRAM WRITTEN IN ASSEMBLER WHICH * 01773500 //* FACILITATES THE BROWSING OF CERTAIN CONTROL BLOCKS * 01773600 //* IN THE OS/VS2 OPERATING SYSTEM BY A LOGGED ON TSO * 01773700 //* USER. * 01773800 //* * 01773900 //* THE FOLLOWING IS A LIST OF SYSMON COMMANDS. * 01774000 //* * 01774100 //* 'S' TO STOP (RETURNS TO USER) * 01774200 //* 'A' TO DISPLAY ALL JOBS CURRENTLY EXECUTING * 01774300 //* 'T' TO DISPLAY TSO USERS ONLY * 01774400 //* 'B' TO EXCLUDE TSO USERS * 01774500 //* 'C' TO DISPLAY TSO AND NON TSO USERS (JOBS) * 01774600 //* 'I' TO DISPLAY ACTIVE JOBS * 01774700 //* 'O' TO DISPLAY NON ACTIVE JOBS * 01774800 //* 'J' TO DISPLAY ACTIVE AND NON ACTIVE JOBS * 01774900 //* 'Y' TO DISPLAY JOBS ON EXCLUSION LIST * 01775000 //* 'N' TO EXCLUDE JOBS ON EXCLUSION LIST * 01775100 //* * 01775200 //* DURING CERTAIN DISPLAYS SYSMON MAKES USE OF A * 01775300 //* HIGHLITING FEATURE TO DELINEATE BETWEEN WHICH JOBS * 01775400 //* ARE IN WAIT STATE OR SWAPPED OUT AND WHICH JOBS ARE * 01775500 //* ACTIVE. ACTIVE JOBS WILL BE INTENSIFIED AS OPPOSED * 01775600 //* TO THE OTHER TYPES WHICH WILL BE NORMAL. * 01775700 //* * 01775800 //***FILE 369 IS A MODIFICATION FROM GENERAL ELECTRIC TO PUT I/O * 01775900 //* COUNT IS THE IEF285I MESSAGE. THIS FILE IS IN ASMTOZAP * 01776000 //* FORMAT. THE RESULTING MESSAGE WILL NOW LOOK LIKE: * 01776100 //* * 01776200 //* IEF285I SYS1.DATASET KEPT *---- 2704 * 01776300 //* * 01776400 //***FILE 370 IS A TAPE ERASE PROGRAM FROM THE FEDERAL BANK OF WEST * 01776500 //* GERMANY. THE FOLLOWING IS A DETAILED DESCRIPTION. * 01776600 //* * 01776700 //* PROGRAMM TO ERASE A TAPE STARTING AFTER A * 01776800 //* GIVEN DATASET UNTIL IT REACHES THE REFLECTIVE * 01776900 //* SPOT, THEREAFTER IT WRITES SOME ERASE GAPS TO * 01777000 //* BE 200 PERCENT SURE. * 01777100 //* * 01777200 //* THIS PROGRAMM HANDLES SL AND NL TAPES, AND * 01777300 //* USES THE DATA-SECURITY- ERASE HARDWARE * 01777400 //* COMMAND TO DO THE JOB. NO CHANNEL BUSY, NO * 01777500 //* CPU-BUSY MERELY THE CONTROL UNIT IS BUSY. * 01777600 //* * 01777700 //* WITH THIS PROGRAMM YOU CAN ERASE BOTH SL AND * 01777800 //* NL TAPES. ALL YOU HAVE TO DO IS SUPPLY THE * 01777900 //* LAST DATASET NAME THAT SHOULD REMAIN ON THE * 01778000 //* VOLUME. * 01778100 //* * 01778200 //* THE PROGRAMM HANDLES ALL POSSIBLE CONDITIONS * 01778300 //* * 01778400 //* IT CHECKS THAT THERE IS A FILE-PROTECT * 01778500 //* RING ON THE TAPE * 01778600 //* * 01778700 //* IT CHECKS THE CONDITION THAT THE FILE * 01778800 //* ALREADY REACHED THE REFLECTIVE * 01778900 //* SPOT * 01779000 //* * 01779100 //* NORMAL OPERATION FOR A MULTI-VOLUME DATASET * 01779200 //* IS THAT THE PROGRAMM TAKES THE LAST VOLUME * 01779300 //* AND ERASES IT, YOU CAN SUPPLY A PARM VALUE OF * 01779400 //* 'H', IN THAT CASE THE PROGRAMM TAKES EVERY * 01779500 //* VOLUME OF A MULTI-VOLUME DATASET AND ERASES * 01779600 //* IT, THIS WAS TO HANDLE A SITUATION IN OUR * 01779700 //* INSTALLATION WHERE A PROGRAM HAD TO WRITE A * 01779800 //* GIVEN AMOUNT OF BLOCKS ON EVERY SINGLE REEL * 01779900 //* OF A MULTI-VOLUME DATASET AND THEN SWITCHED * 01780000 //* THE VOLUME USING FORCED-END-OF-VOLUME. * 01780100 //* * 01780200 //***FILE 371 IS A PDF FRONTEND TSO CP FROM GTE LABS IN WALTHAM , * 01780300 //* MASS * 01780400 //* * 01780500 //* THE PDF COMMAND IS USED TO ENTER THE ISPF * 01780600 //* PROGRAM DEVELOPMENT FACILITY (PDF). IT IS * 01780700 //* A FRONTEND FOR ISPF/PDS * 01780800 //* SYNTAX - * 01780900 //* PDF * 01781000 //* OPTION TEST/TESTX/TRACE/TRACEX * 01781100 //* OPERANDS: * 01781200 //* REQUIRED - NONE * 01781300 //* DEFAULTS - NONE * 01781400 //* OPTIONAL - OPTION, TEST, TESTX, TRACE, * 01781500 //* TRACEX * 01781600 //* * 01781700 //* OPTION - AN INITIAL OPTION THAT MAY BE * 01781800 //* ENTERED TO BYPASS THE FIRST * 01781900 //* DISPLAY OF THE PRIMARY OPTION * 01782000 //* MENU AND GO DIRECTLY TO THE * 01782100 //* OPTION YOU SELECT. (THIS IS NOT * 01782200 //* A KEYWORD PARAMETER. SIMPLY * 01782300 //* ENTER THE OPTION NUMBER, OR OMIT * 01782400 //* TO DISPLAY THE PRIMARY OPTION * 01782500 //* MENU.) FOR EXAMPLE, TYPING "PDF * 01782600 //* 3.2" IN TSO WILL TAKE YOU * 01782700 //* DIRECTLY TO THE ISPF/PDF DATASET * 01782800 //* UTILITY OPTION. * 01782900 //* * 01783000 //* TEST - PDF IS TO BE RUN IN TEST MODE. * 01783100 //* TEST MODE INCLUDES: * 01783200 //* * 01783300 //* 1. RE-READING FROM DISK ALL * 01783400 //* PANELS AND MESSAGES. THIS * 01783500 //* ENHANCES THE ABILITY TO TEST * 01783600 //* PANELS AND MESSAGES IN THE * 01783700 //* SAME PDF SESSION THAT THEY * 01783800 //* ARE MODIFIED. * 01783900 //* * 01784000 //* 2. DISABLING ABEND RECOVERY. * 01784100 //* THIS ALLOWS ABENDS TO BE * 01784200 //* TRACKED DOWN USING TSO TEST. * 01784300 //* * 01784400 //* 3. DISABLING ATTENTION KEY * 01784500 //* HANDLING. THIS ALLOWS THE * 01784600 //* ATTENTION KEY TO BE USED TO * 01784700 //* ENTER TSO TEST. * 01784800 //* * 01784900 //* TESTX - PDF IS TO BE RUN IN TEST MODE * 01785000 //* EXTENDED. IN ADDITION TO TEST * 01785100 //* MODE, ANY LINES THAT ARE WRITTEN * 01785200 //* TO THE LOG FILE ARE ALSO * 01785300 //* DISPLAYED ON THE DISPLAY SCREEN. * 01785400 //* * 01785500 //* TRACE - PDF IS TO BE RUN IN TRACE MODE. * 01785600 //* TRACE MODE INCLUDES ALL OF THE * 01785700 //* FUNCTIONS OF TEST MODE. IN * 01785800 //* ADDITION, ALL ISPEXEC SERVICE * 01785900 //* INVOCATIONS FROM A DIALOG WILL * 01786000 //* BE LOGGED. * 01786100 //* * 01786200 //* TRACEX - PDF IS TO BE RUN IN TRACE MODE * 01786300 //* EXTENDED. IN ADDITION TO TRACE * 01786400 //* MODE, ANY LINES THAT ARE WRITTEN * 01786500 //* TO THE LOG FILE ARE ALSO * 01786600 //* DISPLAYED ON THE DISPLAY SCREEN. * 01786700 //* * 01786800 //* DETAILED INFORMATION: * 01786900 //* * 01787000 //* PDF FIRST FREES DD(ISPPROF), THEN * 01787100 //* TRIES TO ALLOCATE DD(ISPPROF) TO * 01787200 //* DSN('&SYSPREF..ISPF.PROFILE') WITH * 01787300 //* DISP=(OLD,KEEP,KEEP). IF IT CANNOT * 01787400 //* ALLOCATE BECAUSE OF LOCATE ERROR 1708 * 01787500 //* (NOT FOUND IN CATALOG), IT ALLOCATES * 01787600 //* THE DATASET WITH * 01787700 //* DISP=(NEW,CATLG,CATLG), UNIT=SYSTSO, * 01787800 //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120, * 01787900 //* DSORG=PO), * 01788000 //* SPACE=(TRK,(1,2,10)). FOR ANY OTHER * 01788100 //* ALLOCATION ERROR CODE, THE PROGRAM * 01788200 //* TERMINATES AND GIVES THE NORMAL * 01788300 //* IKJEFF18 ERROR MESSAGES. * 01788400 //* * 01788500 //* PDF MAKES A NEW COPY OF THE COMMAND * 01788600 //* BUFFER (CBUF) AND THE COMMAND * 01788700 //* PROCESSOR PARAMETER LIST (CPPL), * 01788800 //* POINTING THE NEW CPPL TO THE NEW * 01788900 //* CBUF. IF THE USER USED 'SPF' RATHER * 01789000 //* THAN 'PDF,' PDF WILL PUT OUT AN INFO * 01789100 //* MESSAGE SAYING THAT 'SPF' HAS BEEN * 01789200 //* REPLACED BY 'PDF.' PDF THEN PLACES * 01789300 //* THE LITERAL 'ISP' INTO THE NEW CBUF * 01789400 //* BEGINNING AT THE LOCATION OF THE * 01789500 //* FIRST NONBLANK CHARACTER OF THE * 01789600 //* COMMAND TEXT. IF DATASET * 01789700 //* '&SYSPREF..ISPF.PROFILE' WAS * 01789800 //* ALLOCATED NEW, MESSAGES CONCERNING * 01789900 //* THE NEW DATASET ARE WRITTEN TO THE * 01790000 //* TERMINAL. * 01790100 //* * 01790200 //* PDF THEN POINTS R1 TO THE NEW CPPL, * 01790300 //* AND ATTACHES ISRPCP. IT THEN WAITS * 01790400 //* FOR ISRPCP TO COMPLETE, DETACHES * 01790500 //* ISRPCP, FREES STORAGE AND TERMINATES. * 01790600 //* * 01790700 //* RETURN CODES: * 01790800 //* IF ISP EXECUTES, THE CODE RETURNED IS * 01790900 //* THE CODE FROM ISP. OTHERWISE THE * 01791000 //* RETURN CODE IS 12. * 01791100 //* * 01791200 //***FILE 372 CONTAINS SEVERAL OF THE USERMODS IN USE AT THE * 01791300 //* NORTHEAST REGIONAL DATA CENTER (NERDC) AT THE * 01791400 //* UNIVERSITY OF FLORIDA. * 01791500 //* * 01791600 //* NBT1101 ZAP TO MODIFY BTAM TWX CHANNEL * 01791700 //* PROGRAMS TO PREVENT TIMEOUTS OF * 01791800 //* CICS TWX TERMINALS (READ --> READ * 01791900 //* INHIBIT). * 01792000 //* NHEWL01 ZAP TO CHANGE LINKAGE EDITOR TO USE * 01792100 //* 8 LPI. MODULES HIT: HEWLFINT, * 01792200 //* HEWLFROU, HEWLFMAP, HEWLFFNL, * 01792300 //* HEWLFBTP. NOTE THAT THIS ZAP IS A * 01792400 //* PREREQ FOR NHEWL02. * 01792500 //* NHEWL02 ADD DSN/VOLSER TO LINKAGE EDITOR * 01792600 //* STOW MESSAGE. MODULES HIT: * 01792700 //* HEWLFFNL. NOTE THAT THIS ZAP PRES * 01792800 //* NHEWL01. * 01792900 //* NLW0001 ADDS PPT ENTRY FOR EXTERNAL WRITER. * 01793000 //* THIS IS TO MAKE LOGWTR * 01793100 //* NON-SWAPABLE. *** THIS MOD MUST BE * 01793200 //* ACCEPTED. *** * 01793300 //* NTAPE01 CHANGES THE TEXT OF SEVERAL * 01793400 //* MESSAGES ASSOCIATED WITH TAPE OPEN * 01793500 //* TO HELP REDUCE OPERATOR ERRORS. * 01793600 //* NTRT001 ZAP TO IEAVNIP0 TO INCREASE TRACE * 01793700 //* TABLE FROM 400 TO 1024 ENTRIES. * 01793800 //* NUT1101 ZAP TO IEBCOPY TO INCREASE LINES * 01793900 //* PER PAGE FROM 56 TO 78. * 01794000 //* NVATL01 ZAP TO VOLUME ATTRIBUTE PROCESSING * 01794100 //* CODE TO FORCE ALL ON-LINE VOLUMES * 01794200 //* TO COME UP PRIVATE RESERVED OR * 01794300 //* RESIDENT AT IPL. * 01794400 //* NWTO001 ZAP TO IEAVVWTO TO ALLOW ALL SINGLE * 01794500 //* LINE WTO'S TO GO THROUGH THE WTO * 01794600 //* EXIT ROUTINE IEECVXIT. THIS ALLOWS * 01794700 //* THE TRAPING OF SYSTEM WTO'S. * 01794800 //* NWTO002 THIS MOD REPLACES THE STOCK WTO * 01794900 //* EXIT (IEECVXIT) WITH A LOCAL * 01795000 //* VERSION. NWTO001 IS A PRE REQ. * 01795100 //* NDUNIT0 ZAP TO IEE20110, SVC 110. CHANGES * 01795200 //* DEFAULT NUMBER OF UNITS DISPLAYED * 01795300 //* WHEN 'D U,,,NNN,Y' COMMAND IS * 01795400 //* ISSUED WITHOUT 'Y'. ORIGINAL * 01795500 //* DEFAULT WAS 100 CHANGED TO 16. * 01795600 //* **** THIS ZAP HAS NOT BEEN * 01795700 //* RE-FITTED FOR SP 1.3 **** * 01795800 //* NDUMP00 ZAP TO IEAVAD01 TO CHANGE DEFAULT * 01795900 //* SYSUDUMP/SYSABEND LINES/PAGE FROM * 01796000 //* 56 TO 78 UNLESS FCB=6 IS CODED ON * 01796100 //* SYSOUT DD CARD. * 01796200 //* NDUMP01 ENABLE "SCAN" OPTION FOR AMDPRDMP. * 01796300 //* THIS ZAP ENTERS THE NEW KEYWORDS * 01796400 //* AND MODULE NAMES INTO AMDPRECT THAT * 01796500 //* ARE NECESSARY TO USE THE AMDPRDMP * 01796600 //* FORMATTING EXITS. * 01796700 //* NGRS001 ASSEMBLES AND LINKS A NEW VERSION * 01796800 //* OF THE GRS RNL EXIT MODULE INTO THE * 01796900 //* NUCLEUS. NOTE THAT THE SOURCE IN * 01797000 //* SAMPLIB INCLUDES CODE, WHICH IS NOT * 01797100 //* IN THE ORIGIONAL MODULE, FOR * 01797200 //* EXCLUDING TEMPORARY DATA SETS FROM * 01797300 //* GLOBAL PROCESSING. * 01797400 //* NGRS002 THIS MOD REPLACES THE GRS RESOURCE * 01797500 //* NAME LISTS (RNLS) IN SYS1.LINKLIB. * 01797600 //* NALCR00 CHANGES THE TEXT OF SEVERAL * 01797700 //* MESSAGES ISSUED BY ALLOCATION * 01797800 //* RECOVERY TO HELP REDUCE OPERATOR * 01797900 //* ERRORS. * 01798000 //* NISPF00 REPLACES SPF HELP MEMBER WITH A * 01798100 //* COPY OF THE ISPF HELP MEMBER TO * 01798200 //* AVOID CONFUSION ABOUT PROPER * 01798300 //* SYNTAX. * 01798400 //* NSUBMT0 CHANGE TSO SUBMIT COMMAND TO * 01798500 //* DEFAULT MSGCLASS TO A IF NO * 01798600 //* SPECIFIED ON THE JOB CARD. * 01798700 //* NTSO001 CHANGES TSO AUTH COMMAND LIST * 01798800 //* (IKJEFTE2) TO INCLUDE THE NACF * 01798900 //* COMMAND AND CHANGES AUTH PROGRAM * 01799000 //* LIST (IKJEFTE8) TO INCLUDE IEBCOPY, * 01799100 //* TMSGSP AND IUTPROGM. * 01799200 //* * 01799300 //***FILE 373 IS FROM GTE LABS IN WALTHAM , MASS AND CONTAINS TWO * 01799400 //* OF THEIR TSO COMMAND PROCESSORS . NEWSPACE AND SAL , * 01799500 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01799600 //* * 01799700 //* THE "SAL" PROGRAM IS A FRIENDLIER REPLACEMENT FOR * 01799800 //* THE TSO "LISTALC" COMMAND. "SAL" STANDS FOR "SHOW * 01799900 //* ALLOCATIONS." * 01800000 //* * 01800100 //* SAL SHOWS DDNAME, DATASET NAME, STATUS, NORMAL * 01800200 //* DISPOSITION AND DATASET TYPE FOR EACH ALLOCATION. * 01800300 //* IT WAS DESIGNED TO PRODUCE MORE READABLE OUTPUT THAN * 01800400 //* "LISTALC." IT'S PRIMARY USE IS IN DEVELOPING CLISTS * 01800500 //* AND ISPF/PDF DIALOGS. * 01800600 //* * 01800700 //* SAL USES DYNAMIC ALLOCATION INFORMATION RETRIEVAL TO * 01800800 //* GET INFORMATION ABOUT ALL CURRENT ALLOCATIONS. SEE * 01800900 //* THE MVS JOB MANAGEMENT MANUAL FOR MORE INFO ON THIS * 01801000 //* USE OF DYNAMIC ALLOCATION. * 01801100 //* * 01801200 //* SAL WRITES TO FILE SYSPRINT, WHICH WOULD NORMALLY BE * 01801300 //* ALLOCATED TO THE USER'S TSO TERMINAL. IT WORKS WITH * 01801400 //* SESSION MANAGER OR WITHOUT IT, AND IS WRITTEN TO BE * 01801500 //* REENTRANT. * 01801600 //* * 01801700 //* THIS PACKAGE INCLUDES WELL-COMMENTED ASSEMBLER CODE * 01801800 //* (MEMBER "SAL"), MACROS ("XSAVE1," "XRETURN," * 01801900 //* "REGISTER," "DYNABLD," AND "DYNATXTU"), AND A TSO * 01802000 //* HELP MEMBER ("SALHELP"). * 01802100 //* * 01802200 //* ------------------------------------------------------- * --01802300 //* * 01802400 //* NEWSPACE IS A COMMAND FOR EASILY CREATING NEW, * 01802500 //* MODERATELY SIZED, DATASETS AND LIBRARIES. IT WAS * 01802600 //* WRITTEN WITH BEGINNERS IN MIND. (LARGER OR MORE * 01802700 //* COMPLEX DATASETS SHOULD BE CREATED WITH THE ALLOCATE * 01802800 //* AND ATTRIB COMMANDS, OR WITH THE ISPF/PDF DATASET * 01802900 //* UTILITY (OPTION 3.2)) * 01803000 //* * 01803100 //* )X SYNTAX - * 01803200 //* NEWSPACE DATASET-NAME TYPE LIBRARY FIXED * 01803300 //* NEW SEQUENTIAL VARIABLE * 01803400 //* UNFORMATTED * 01803500 //* DEFAULTS: 1. LIBRARY * 01803600 //* 2. FIXED, VARIABLE OR UNFORMATTED, * 01803700 //* DEPENDING ON TYPE OR DATASET-NAME. * 01803800 //* )O OPERANDS - * 01803900 //* ))DATASET-NAME - * 01804000 //* THE NAME OF THE DATASET TO BE CREATED. * 01804100 //* ))TYPE - * 01804200 //* THIS DESIGNATES THE INTENDED USE OF THE DATASET. * 01804300 //* ))SEQUENTIAL - * 01804400 //* THE DATASET WILL BE CONSTRUCTED TO HOLD A SINGLE * 01804500 //* GROUP OF DATA, SUCH AS ONE FORTRAN PROGRAM, OR ONE * 01804600 //* MEMO. * 01804700 //* ))LIBRARY (OR PARTITIONED, OR PDS) - * 01804800 //* THE DATASET WILL BE CONSTRUCTED AS A LIBRARY * 01804900 //* (PARTITIONED DATASET) WHICH CAN HOLD MANY GROUPS OF * 01805000 //* DATA, SUCH AS MANY FORTRAN PROGRAMS OR MANY MEMOS. * 01805100 //* LIBRARY IS THE DEFAULT. * 01805200 //* ))FIXED - * 01805300 //* ALL LINES OF DATA HAVE THE SAME LENGTH. THIS IS * 01805400 //* THE DEFAULT IF NO 'TYPE' IS SELECTED AND THE * 01805500 //* DATASET NAME DOESN'T END WITH A 'TYPE' NAME. * 01805600 //* ))VARIABLE - * 01805700 //* EACH LINE FO DATA MAY BE A DIFFERENT LENGTH FROM * 01805800 //* THE REST. IS THE DEFAULT IF ONE OF THESE TYPES IS * 01805900 //* SELECTED. * 01806000 //* ))UNFORMATTED - * 01806100 //* THIS IS THE FORMAT FOR LOAD DATASETS. * 01806200 //* * 01806300 //***FILE 374 IS FROM THE U.S. POSTAL DATA CENTER IN SAN BRUNO, * 01806400 //* CALIFORNIA AND CONTAINS A TRACE PROGRAM. * 01806500 //* * 01806600 //* THE TRACE ROUTINE IS USED TO TRACE A * 01806700 //* PROGRAM THROUGH EXECUTION AT THE * 01806800 //* ASSEMBLY LEVEL. THIS IS DONE BY * 01806900 //* RETAINING CONTROL OF THE TRACED * 01807000 //* PROGRAM AFTER THIS ROUTINE IS CALLED * 01807100 //* AND EXECUTING THE TRACED PROGRAMS' * 01807200 //* INSTRUCTIONS. * 01807300 //* * 01807400 //* TO TOGGLE TRACE, CODE 'CALL TRACE'. * 01807500 //* IF ON, TRACING WILL BE TURNED OFF. * 01807600 //* IN OFF, TRACING WILL BE TURNED ON. * 01807700 //* INCLUDE A //SYSTRACE DD CARD IN THE * 01807800 //* JCL USED TO EXECUTE THE TRACED * 01807900 //* PROGRAM. ONE LINE OF OUTPUT PER * 01808000 //* INSTRUCTION WILL BE WRITTEN TO * 01808100 //* SYSTRACE. * 01808200 //* * 01808300 //***FILE 375 IS A VERY FAST TCAM QUEUE FORMAT PROGRAM. THE * 01808400 //* FOLLOWING IS A DESCRIPTION OF THIS CODE : * 01808500 //* * 01808600 //* THIS IS THE FAST TCAM QUEUE FORMAT * 01808700 //* PROGRAM WHICH WAS WRITTEN IN THE DATA * 01808800 //* PROCESSING STONE AGE FOR THE ABACUS 101 * 01808900 //* PROCESSOR. IT HAS BEEN UPDATED FOR * 01809000 //* 3380'S. THE IBM QUEUE FORMAT PROGRAM * 01809100 //* (IEDQXA) REQUIRES 12 MINUTES TO FORMAT * 01809200 //* EACH 3380 USED. WE USE FOUR 3380'S SO IT * 01809300 //* TAKES 48 MINUTES TO FORMAT THEM USING THE * 01809400 //* IBM PRODUCT. THIS QUEUE FORMAT PROGRAM * 01809500 //* REQUIRES 4 MINUTES. * 01809600 //* * 01809700 //* THIS PROGRAM REQUIRES THE TCAM QUEUE TO * 01809800 //* HAVE ALREADY GONE INTO SECONDARY * 01809900 //* ALLOCATION FOR A MULTI-VOLUME QUEUE. * 01810000 //* THIS IS BECAUSE IT READS THE DEBS AND HAS * 01810100 //* NO CODE TO DO THE INITIAL FORMAT WITHOUT * 01810200 //* THE DEBS AL- READY THERE. THE SIMPLE * 01810300 //* SOLUTION IS THE RUN IEDQXA TO INITIALLY * 01810400 //* FORMAT YOUR QUEUE. IF YOU USE A SINGLE * 01810500 //* VOLUME QUEUE THE IT CAN BE ALLOCATED * 01810600 //* USING IEFBR14 AND CAN THEN BE INITIALIZED * 01810700 //* USING THIS QUEUE FORMAT PROGRAM. WHY? * 01810800 //* BECAUSE THERE WILL ONLY BE ONE ONE * 01810900 //* EXTENT. * 01811000 //* * 01811100 //* SAMPLE JCL * 01811200 //* * 01811300 //* //TPC000#1 EXEC PGM=QFORM * 01811400 //* //SYSPRINT DD SYSOUT=* * 01811500 //* //SYSABEND DD SYSOUT=* * 01811600 //* //IEDQDATA DD DSNAME=TPC.MSGQ.DNMSGQ, * 01811700 //* // UNIT=3380,DCB=KEYLEN=140, * 01811800 //* // SPACE=(CYL,(884,884),,CONTIG), * 01811900 //* // DISP=(SHR,KEEP,KEEP) * 01812000 //* * 01812100 //* CHANGES: THERE WAS SOME RATHER COMPLEX * 01812200 //* CODE TO CALC- ULATE THE NUMBER OF RECORDS * 01812300 //* PER TRACK FOR THE DEVICE BEING FORMATTED. * 01812400 //* THIS CODE DOES NOT WORK WITH 3380'S HENCE * 01812500 //* IT WAS REMOVED AND REPLACED WITH THE * 01812600 //* TRAKCALC MACRO. THIS SHOULD CONTINUE TO * 01812700 //* WORK FOR AS LONG AS IBM SUPPORTS THE * 01812800 //* MACRO. * 01812900 //* * 01813000 //* THE MOST SIGNIFICANT CHANGE INVOLVED THE * 01813100 //* BUILDING OF CCW'S. THIS PROGRAM USED TO * 01813200 //* SEND THE ONLY THE CCHH, RECORD ID, KEY * 01813300 //* LENGTH AND DATA LENGTH BUT NO DATA. THE * 01813400 //* SLI BIT WAS TURNED ON CAUSING IBM TO PAD * 01813500 //* THE REST WITH BINARY ZEROS WHICH WAS * 01813600 //* EXACTLY WHAT WE WANTED. WITH THE 3081 * 01813700 //* IBM NOW RECOMMENDS SENDING A MINIMUM OF * 01813800 //* 16 BYTES OF DATA. (REF: 3081 CHANNEL * 01813900 //* CHARACTERISTICS MANUAL) TO SATISFY THIS * 01814000 //* REQUIREMENT WE TACKED EIGTH BYTES OF * 01814100 //* BINARY ZERO ON THE END OF EACH CCW. THAT * 01814200 //* MADE IBM HAPPY SO WE'RE HAPPY TOO. * 01814300 //* * 01814400 //* THE LAST CHANGE WAS TO COUNT THE NUMBER * 01814500 //* OF CONSECUTIVE IDENTICAL IO ERRORS AND TO * 01814600 //* ABEND WITH A U555 WHEN THE COUNT EXCEEDS * 01814700 //* 1024. * 01814800 //* * 01814900 //* THIS PROGRAM WORKS FINE WITH 3380'S AND * 01815000 //* 3350'S. IT SHOULD WORK EQUALLY AS WELL * 01815100 //* WITH ANY MVS SUPPORTED DEVICE. * 01815200 //* * 01815300 //* ====> HOWEVER, THIS PROGRAM HAS ONLY BEEN <==== * 01815400 //* ====> TESTED WITH 3380'S AND 3350'S. <==== * 01815500 //* * 01815600 //***FILE 376 IS FROM RAINIER NATIONAL BANK IN SEATTLE AND CONTAINS * 01815700 //* THE FOLLOWING DATA. THIS FILE IS IN IEBUPDTE SYSIN * 01815800 //* FORMAT * 01815900 //* * 01816000 //* THE PROGRAMS SUPPLIED HEREIN WERE WRITTEN OR * 01816100 //* HEAVILY MODIFIED AT RAINIER NATIONAL BANK IN * 01816200 //* SEATTLE, WASHINGTON. TO THE BEST OF OUR KNOWLEDGE * 01816300 //* THEY FUNCTION AS INTENDED AND AS DOCUMENTED, * 01816400 //* WITHOUT CAUSING SYSTEM OR INTEGRITY PROBLEMS. * 01816500 //* HOWEVER, THEY ARE NOT COVERED BY ANY WARRANTY, * 01816600 //* EITHER EXPRESSED OR IMPLIED, AS TO RELIABITY OR * 01816700 //* FITNESS FOR USE AT ANY OTHER INSTALLATION THAN * 01816800 //* RAINIER BANK. * 01816900 //* * 01817000 //* THIS FILE CONTAINS PART OF A STRUCTURED MACRO * 01817100 //* PACKAGE WRITTEN BY GARY NEMETH AT AMERITRUST IN * 01817200 //* CLEVELAND. ONLY THE MACROS NEEDED BY PROGRAMS ON * 01817300 //* THIS FILE HAVE BEEN INCLUDED. WE HAVE HIS * 01817400 //* PERMISSION TO DISTRIBUTE THESE MACROS FOR USE IN * 01817500 //* THE PROGRAMS ON THIS FILE. * 01817600 //* * 01817700 //* (NOTE: THE PROGRAMS ON THIS FILE HAVE BEEN RENAMED * 01817800 //* TO HAVE A $ AT THE FRONT SO THEY CAN BE * 01817900 //* FOUND EASILY AMIDST THE MACROS ON THE FILE) * 01818000 //* * 01818100 //* $$DOC - THE DOCUMENTATION YOU ARE READING NOW. * 01818200 //* IT SHOULD BE USED IN CONJUNCTION WITH * 01818300 //* THE SOURCE OF THE PROGRAMS. * 01818400 //* * 01818500 //* $$DOCMSG - DOCUMENTATION FOR THE USE OF THE RNBMSG * 01818600 //* MACRO, WHICH IS USED ALONG WITH PROGRAM * 01818700 //* TEC462 IN THIS FILE TO PROVIDE A * 01818800 //* SIMPLER INTERFACE TO PUTLINE OR WTO * 01818900 //* THAN IBM PROVIDES. IT ALLOWS ONE TO * 01819000 //* EASILY ISSUE MESSAGES WITH INSERTS, * 01819100 //* EITHER VIA PUTLINE OR WTO. NOTE: * 01819200 //* RNBMSG AND TEC462 IMPLEMENT A FUNCTION * 01819300 //* CALLED WTOLOG. THIS FUNCTION USES * 01819400 //* ROUTCODE 14 TO WTO A MESSAGE, ASSUMING * 01819500 //* THAT MESSAGES WITH A ROUTCODE OF 14 * 01819600 //* WILL NOT BE SENT TO THE CONSOLE, BUT * 01819700 //* ONLY TO THE SYSLOG. THE IEECVXIT ON * 01819800 //* THIS FILE WILL DO THAT, AS WELL AS * 01819900 //* OTHER THINGS. WE USE ROUTCODE 14 FOR * 01820000 //* MESSAGES THAT THE SYSTEMS PROGRAMMERS * 01820100 //* MAY SOMETIMES NEED TO SEE, BUT THAT THE * 01820200 //* OPERATORS SHOULD NOT BE INTERESTED IN. * 01820300 //* * 01820400 //* $EECVXIT - THIS IS A COPY OF OUR IEECVXIT ROUTINE. * 01820500 //* IT IS PROVIDED HERE ONLY AS A MODEL OF * 01820600 //* HOW WE HANDLE ROUTCODE 14 (WE DON'T LET * 01820700 //* MESSAGES WITH ROUTCODE=14 GO TO THE * 01820800 //* CONSOLE, TO AVOID CLUTTERING THE * 01820900 //* CONSOLES WITH INFORMATIONAL MESSAGES * 01821000 //* FROM SOME OF OUR PROGRAMS). I WOULD NOT * 01821100 //* INSTALL THIS IEECVXIT, BUT ONLY USE IT * 01821200 //* AS A MODEL. SOME OF THE COMMENTS ARE * 01821300 //* MISLEADING ABOUT WHICH MESSAGES ARE * 01821400 //* PROCESSED (IEF452/3?) AS THEY ARE NOT * 01821500 //* SEEN BY IEECVXIT, AND SO CANNOT BE * 01821600 //* PROCESSED. * 01821700 //* * 01821800 //* $IMS210 - THIS IS A MODIFICATION OF A PROGRAM * 01821900 //* OBTAINED FROM FILE 332 OF VERSION 199 * 01822000 //* OF THE CBT TAPE. THIS VERSION HAS BEEN * 01822100 //* REWRITTEN USING THE STRUCTURED MACROS * 01822200 //* FROM THIS FILE, AND USES RNBMSG/TEC462 * 01822300 //* TO ISSUE ERROR MESSAGES WHEN NECESSARY. * 01822400 //* THE MAJOR DIFFERENCES FROM THE ORIGINAL * 01822500 //* VERSION ARE: * 01822600 //* * 01822700 //* (1) THE PROGRAM WILL READ A * 01822800 //* SEQUENTIAL FILE INSTEAD OF A PDS * 01822900 //* IF INVOKED AS A BATCH JOB INSTEAD * 01823000 //* OF AS A STARTED TASK (THIS MAKES * 01823100 //* IT EASIER IN OUR ENVIRONMENT TO * 01823200 //* HAVE A BATCH JOB ISSUE COMMANDS); * 01823300 //* * 01823400 //* (2) THE INPUT FORMAT HAS BEEN CHANGED * 01823500 //* TO ALLOW A FIELD FOR AN IMS ID. * 01823600 //* IF A RECORD CONTAINS AN IMS ID, * 01823700 //* THE OUTSTANDING WTOR FOR THAT IMS * 01823800 //* ID WILL BE FOUND AND THE COMMAND * 01823900 //* WILL BE ISSUED AS A REPLY TO THE * 01824000 //* WTOR. THIS FUNCTION IS CODED FOR * 01824100 //* SP1.3.X LEVEL SYSTEMS. IF THE * 01824200 //* IMS ID IS **** THE PROGRAM WILL * 01824300 //* TERMINATE. IF THE IMS ID IS ++++ * 01824400 //* THE PROGRAM WILL WAIT FOR THE * 01824500 //* NUMBER OF SECONDS SPECIFIED IN * 01824600 //* THE COMMAND BEFORE ISSUING THE * 01824700 //* NEXT COMMAND. * 01824800 //* * 01824900 //* $READSPC - A REPLACEMENT FOR THE READSPC MODULE * 01825000 //* (Q17) FOR THE SP3 QUEUE COMMAND. THIS * 01825100 //* IS THE SAME AS A PREVIOUS ONE JACK WAS * 01825200 //* DISTRIBUTING EXCEPT THAT IT HAS MORE * 01825300 //* RACF STUFF OF MINE ADDED TO FIX A BUG * 01825400 //* IN BLANKING OUT THE PASSWORDS WHEN A * 01825500 //* JCT IS READ INTO STORAGE. * 01825600 //* * 01825700 //* $TEC462 - THIS PROGRAM PROVIDES A SIMPLE * 01825800 //* INTERFACE TO PUTLINE AND WTO FOR * 01825900 //* ISSUING MESSAGES WITH INSERTS (OR * 01826000 //* WITHOUT THEM FOR THAT MATTER). IKJEFF02 * 01826100 //* IS USED TO FORMAT THE MESSAGES. THE * 01826200 //* PROGRAM IS INVOKED BY THE RNBMSG MACRO. * 01826300 //* IT MAY BE USED FROM BATCH PROGRAMS OR * 01826400 //* TSO COMMANDS. * 01826500 //* * 01826600 //* RNBMSG* - THE MEMBERS WITH A PREFIX OF RNBMSG * 01826700 //* COMPRISE THE MACROS USED TO OUTPUT * 01826800 //* MESSAGES VIA TEC462. * 01826900 //* * 01827000 //* ALL OTHERS - EVERYTHING ELSE ON THE FILE IS PART * 01827100 //* OF GARY NEMETH'S STRUCTURED MACRO * 01827200 //* PACKAGE, WITH SOME MODIFICATIONS BY * 01827300 //* RAINIER NATIONAL BANK PERSONNEL. * 01827400 //* * 01827500 //***FILE 377 IS FROM OCCIDENTAL PETROLEUM SERVICES INC IN HOUTSON * 01827600 //* AND CONTAINS THE SOURCE FOR LIBSPOOL ( PANSPOOL FOR * 01827700 //* LIBRARIAN ) THE CLIST FOR LIBSPOOL IS IN FILE 378 * 01827800 //* OF THIS TAPE . THIS FILE IS IN IEBDUTE SYSIN FORMAT . * 01827900 //* * 01828000 //* LIBSPOOL OBJECTIVE -------------------- * 01828100 //* * 01828200 //* ALLEVIATE PROBLEMS INVOLVED IN REVIEWING, * 01828300 //* COLLATING, STORING, RETRIEVING A LARGE VOLUME * 01828400 //* OF PRODUCTION JOB CONTROL LANGUAGE LISTINGS. * 01828500 //* * 01828600 //* LIBSPOOL ATTEMPTS TO ADDRESS THESE PROBLEMS * 01828700 //* BY: * 01828800 //* * 01828900 //* 1) PROVIDING AN AUTOMATIC REVIEW OF * 01829000 //* PRODUCTION TYPE JCL LISTINGS LOOKING * 01829100 //* FOR NON-NORMAL RESULTS BY MEANS OF A * 01829200 //* PREDEFINED SET OF ABEND CODES. * 01829300 //* * 01829400 //* 2) AUTOMATING AND ORGANIZING THE * 01829500 //* STORING AND RETRIEVING OF ON-LINE * 01829600 //* JCL. * 01829700 //* * 01829800 //* 3) AUTOMATING AND ORGANIZING THE * 01829900 //* ARCHIVING AND RETRIEVING OF JCL FROM * 01830000 //* ARCHIVE. * 01830100 //* * 01830200 //* 4) CUTTING DOWN ON JCL PRINT OUTPUT. * 01830300 //* * 01830400 //* SEE THE MEMBER CALLED $DOC FOR ADDITIONAL INFORMATION * 01830500 //* * 01830600 //* THE FOLLOWING MEMBER IS IN OFFLOAD FORMAT ( ERGO ' ./ ' * 01830700 //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * 01830800 //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * 01830900 //* CONVERT >< TO ./ BEFORE YOU USE THIS MEMBER AS * 01831000 //* SYSIN INPUT TO IEBUPDTE . * 01831100 //* * 01831200 //* JES2SP13 * 01831300 //* * 01831400 //* *** FIRST TAKE THE WHOLE FILE AND IEBUPDTE IT TO A DATASET * 01831500 //* THEN EDIT THE FOLLOWING MEMBER AND DO YOUR GLOBAL CHANGE * 01831600 //* BEFORE YOU DO ANOTHER IEBUPDTE RUN FOR THE FOLLOWING TO * 01831700 //* ITS OWN UNIQUE PDS . *** * 01831800 //* * 01831900 //* 1) JES2SP13 * 01832000 //* * 01832100 //***FILE 378 IS FROM OCCIDENTAL PETROLEUM SERVICES INC IN HOUTSON * 01832200 //* AND CONTAINS THE CLIST FOR LIBSPOOL ( PANSPOOL FOR * 01832300 //* LIBRARIAN ) THE SOURCE FOR LIBSPOOL IS IN FILE 377 * 01832400 //* OF THIS TAPE . THIS FILE IS IN IEBCOPY FORMAT . * 01832500 //* * 01832600 //***FILE 379 IS FROM THE SPLA TAPE AND CONTAINS A SERIES OF * 01832700 //* PROGRAMS THAT WILL PROCESS ONE OR MORE PROCLIBS * 01832800 //* AND GENERATE SEVERAL CROSS-REFERENCE REPORTS . SEE * 01832900 //* THE CODE FOR ADDITIONAL INFORMATION . THIS FILE IS IN * 01833000 //* IEBUPDTE SYSIN FORMAT . XREF JCL PROCLIB PROC . * 01833100 //* REPORTS : * 01833200 //* (1) DSNAME CROSS REFERENCE EXCEPTION LIST * 01833300 //* (2) DSN CROSS REFERENCE LISTING * 01833400 //* (3) TAPE DATASETS WITH NO EXPDT/RETPD * 01833500 //* (4) PGM CROSS REFERENCE LISTING * 01833600 //* * 01833700 //***FILE 380 IS A ZAP FROM ALLIED DATA UTILITY TO DEACTIVATE * 01833800 //* THE SPEED MATCHING BUFFERS * 01833900 //* * 01834000 //***FILE 381 IS FROM NORTHWESTERN BANK AND CONTAINS A COPY OF * 01834100 //* SOME OF THEIR PROGRAMS , UTILITIES AND JES2 EXITS . * 01834200 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND HAS BEEN * 01834300 //* PROCESSED BY OFFLOAD . IT CONTAINS THE FOLLOWING : * 01834400 //* * 01834500 //* THE JES2 EXITS PREFIXED WITH 'JES' ARE FOR MVS SP * 01834600 //* 1.3.3 (HJE2329). THE EXITS PREFIXED WITH 'JSP' ARE * 01834700 //* FOR MVS SP 1.3.0 (HJE2326). THERE ARE SOME * 01834800 //* FUNCTIONAL DIFFERENCES BETWEEN THE MODULES BECAUSE OF * 01834900 //* LOCAL REQUIREMENTS BUT ON THE WHOLE, THE EXITS ARE * 01835000 //* ALMOST IDENTICAL. * 01835100 //* * 01835200 //* JES$LF - A JES2 EXIT (5) TO PROVIDE OPERATOR * 01835300 //* CAPABILITY TO DISPLAY DETAILED INFORMATION * 01835400 //* ABOUT JOBS IN THE PRINT QUEUE. IT IS * 01835500 //* DESIGNED TO ENHANCE THE DISPLAY NORMALLY * 01835600 //* PROVIDED BY THE $DF COMMAND. * 01835700 //* * 01835800 //* JESEXIT1 - A JES2 EXIT (1) TO PROVIDE ENHANCEMENTS TO * 01835900 //* THE IBM SUPPLIED SEPARATOR PAGE. SUPPORT * 01836000 //* IS ALSO PROVIDED FOR THE KODAK KOMSTAR * 01836100 //* MICROFICHE PROCESSOR, THE DATAGRAPHIX ARIS * 01836200 //* II MICROFICHE PROCESSOR AND THE IBM 6670 * 01836300 //* DOCUMENTATION PROCESSOR. * 01836400 //* * 01836500 //* JESEXIT5 - A JES2 EXIT (5) TO FILTER JES2 COMMANDS TO * 01836600 //* DISALLOW CERTAIN COMMANDS OR OPERANDS ON * 01836700 //* THE COMMANDS. * 01836800 //* * 01836900 //* JESEXIT6 - A JES2 EXIT (6) TO PERFORM STANDARDS * 01837000 //* ENFORCEMENT FOR JCL AS WELL AS SET THE JOB * 01837100 //* CLASS BASED UPON THE RESOURCES SUCH AS * 01837200 //* TAPE UNITS, REGION SIZE, OR CPU TIME. * 01837300 //* VIOLATIONS TO STANDARDS AND JOB CLASS * 01837400 //* REPORTING IS MADE TO THE JOB MESSAGE DATA * 01837500 //* SET FOR THE JOB AS IF THE CONVERTER WAS * 01837600 //* PRODUCING THE ERROR MESSAGES. * 01837700 //* * 01837800 //* JESEXIT9 - A JES2 EXIT (9) TO ABEND TEST JOBS WHICH * 01837900 //* EXCEED THE ESTIMATED LINE COUNT WHILE * 01838000 //* ALLOWING ALL OTHER JOBS TO CONTINUE. * 01838100 //* * 01838200 //* JESXIT17 - A JES2 EXIT (17) TO VALIDATE THE SIGNON * 01838300 //* CARD FROM BSC RJE WORKSTATIONS. THIS EXIT * 01838400 //* WILL ISSUE A CALL TO ACF2 TO VALIDATE THE * 01838500 //* PASSWORD FOR THE REMOTEID. THE SIGNON * 01838600 //* ATTEMPT WILL BE REJECTED WITH APPROPRIATE * 01838700 //* MESSAGES IF THE PASSWORD IS INVALID. * 01838800 //* * 01838900 //* JESMOD - A JES2 MODIFICATION TO SP 1.3.3 TO USE THE * 01839000 //* EXTERNAL WRITER ID FOR THE DATAGRAPHIX * 01839100 //* ARIS II MICROFICHE PROCESSOR. THE * 01839200 //* EXTERNAL WRITER ID IS PLACED IN THE DCT * 01839300 //* FOR ALL SELECTED JOBS. JESEXIT1 WILL USE * 01839400 //* THIS INFORMATION TO SET THE JOBID FOR THE * 01839500 //* ARIS II. * 01839600 //* * 01839700 //* NWBCOPY - A PROGRAM TO RUN AS A FRONT END TO IEBCOPY * 01839800 //* TO ISSUE SPF-LIKE RESERVES AGAINST ALL * 01839900 //* OUTPUT DATASETS PRIOR TO PASSING CONTROL * 01840000 //* TO IEBCOPY. * 01840100 //* * 01840200 //* CONSOLE - A TSO COMMAND TO ALLOW A TSO TERMINAL TO * 01840300 //* EFFECTIVELY BE TURNED INTO A CONSOLE. * 01840400 //* CODE WILL FUNCTION ONLY UNDER SP 1.3. * 01840500 //* * 01840600 //* SETPFKEY - A PROGRAM TO RUN AT IPL TIME TO SET THE * 01840700 //* DEFAULT VALUES FOR THE PFKEYS ON ALL * 01840800 //* DISPLAY CONSOLES AT IPL TIME. CODE WILL * 01840900 //* FUNCTION ONLY UNDER SP 1.3. * 01841000 //* * 01841100 //* AUTHSVC - A TYPE 4 SVC TO ALLOW THE CALLER TO ENTER * 01841200 //* PROTECT KEY 0 AS WELL AS WRITE A RECORD TO * 01841300 //* SMF TO RECORD THE FACT FOR AUDITING * 01841400 //* CAPABILITIES. THIS IS THE SVC USED BY THE * 01841500 //* CONSOLE COMMAND. * 01841600 //* * 01841700 //* PRINTDOC - SAMPLE JCL TO PRINT THIS MEMBER ($DOC). * 01841800 //* * 01841900 //* J E S 2 $ L F C O M M A N D * 01842000 //* * 01842100 //* THIS JES2 EXIT PROGRAM IS DESIGNED SOLVE THE * 01842200 //* OPERATORS DELIMMA OF USING THE $DF COMMAND TO * 01842300 //* VIEW JOBS AWAITING PRINT, BUT NOT BEING ABLE * 01842400 //* TO DETERMINE WHICH JOBS HAVE THESE ATTRIBUTES. * 01842500 //* * 01842600 //* THIS NEW COMMAND ALLOWS THE OPERATOR TO * 01842700 //* DETERMINE THE JOBNAME, JOB NUMBER, AND NUMBER * 01842800 //* OF PRINT LINES FOR EACH PRINT GROUP. THE * 01842900 //* FORMAT OF THE NEW COMMAND IS AS FOLLOWS: * 01843000 //* * 01843100 //* $LF,Q=CLASSES,J=JXXXX-YYYY,R=RXX-RYY,L * 01843200 //* WHERE * 01843300 //* * 01843400 //* Q=CLASSES - OPTIONAL LIST OF UP TO 8 SYSOUT * 01843500 //* Q CLASSES TO BE LISTED * 01843600 //* (DEFAULTS TO ALL CLASSES) * 01843700 //* * 01843800 //* J=JXXXX-YYYY - OPTIONAL JOB OR RANGE OF JOBS * 01843900 //* TO BE LISTED (DEFAULTS TO ALL * 01844000 //* JOBS) * 01844100 //* * 01844200 //* R=RXX-YY - OPTIONAL LIST OF REMOTE * 01844300 //* DESTINATIONS TO BE LISTED * 01844400 //* (DEFAULTS TO ALL LOCAL) * 01844500 //* * 01844600 //* L - OPTIONAL INDICATION TO USE THE * 01844700 //* LONG FORM OF RESPONSE FOR MORE * 01844800 //* DETAIL (DEFAULTS TO S - SHORT) * 01844900 //* * 01845000 //* EXAMPLES * 01845100 //* * 01845200 //* $LF,Q=R * 01845300 //* $HASP900 LOGWTR STC 304 LOCAL Q=R F=STD 13702 * 01845400 //* * 01845500 //* $LF,Q=R,L * 01845600 //* $HASP900 LOGWTR STC 304 LOCAL Q=R F=STD 13702 * 01845700 //* $HASP900 C=**** T=**** O=**** B=N * 01845800 //* * 01845900 //* $LF,Q=CDR * 01846000 //* $HASP900 PA300200 JOB 323 LOCAL Q=C F=STD 237236 * 01846100 //* $HASP900 PA300140 JOB 316 LOCAL Q=D F=STD 36256 * 01846200 //* $HASP900 PA300200*JOB 323 LOCAL Q=D F=STD 187464 * 01846300 //* $HASP900 LOGWTR STC 304 LOCAL Q=R F=STD 13702 * 01846400 //* * 01846500 //* THE ASTERISK BESIDE THE JOBNAME IN THE ABOVE * 01846600 //* EXAMPLE INDICATES THAT THE JOB IS CURRENTLY * 01846700 //* BEING PRINTED. * 01846800 //* * 01846900 //* $LF,R=R1 * 01847000 //* $HASP900 SA03PRNT JOB 465 R1 Q=A F=STD 350 * 01847100 //* * 01847200 //* $LF,Q=E * 01847300 //* $HASP919 NO OUTPUT QUEUED * 01847400 //* * 01847500 //* J E S 2 E X I T 1 * 01847600 //* * 01847700 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO REPLACE * 01847800 //* THE IBM STANDARD PRINT AND PUNCH SEPARATOR * 01847900 //* ROUTINES. THE PUNCH SEPARATOR LACE CARD AND * 01848000 //* BLANK CARD IS PRODUCED EXACTLY AS IBM PRODUCED * 01848100 //* THEM. THE PRINT SEPARATOR PAGE IS THE SAME AS * 01848200 //* THAT PRODUCED BY IBM EXCEPT THAT INSTEAD OF * 01848300 //* TWO LINES OF BLOCK LETTERS, THREE ARE * 01848400 //* PRODUCED. THE SECOND LINE OF THE BLOCK * 01848500 //* LETTERS IS THE FIRST EIGHT (8) BYTES OF THE * 01848600 //* PROGRAMMER NAME FIELD AND THE THIRD LINE IS * 01848700 //* THE BIN NUMBER. NOTE THAT ONLY AS MANY LINES * 01848800 //* OF BLOCK LETTERS ARE PRODUCED AS THERE IS ROOM * 01848900 //* FOR AS DEFINED BY THE NUMBER OF LINES ON THE * 01849000 //* LOCAL OR REMOTE SPECIFICATIONS SPECIFICATIONS * 01849100 //* FOR &PRIDCT OR &TPIDCT. * 01849200 //* * 01849300 //* STARTED TASKS AND TSO LOGONS DO NOT PROVIDE A * 01849400 //* PROGRAMMER NAME FIELD OR A BIN NUMBER. A * 01849500 //* SEPARATE BATCH JOB USING A PROGRAM CALLED * 01849600 //* JESTABLE LOADS A TABLE IN CSA OF TSO USERIDS * 01849700 //* AND STARTED TASK NAMES TO PROVIDE THE * 01849800 //* PROGRAMMER NAME AND BIN NUMBERS TO THIS EXIT. * 01849900 //* THIS TABLE IS ANCHORED OFF OF THE MVS CVT AND * 01850000 //* CAN BE RELOADED AT ANY TIME. IF A TSO USER OR * 01850100 //* STARTED TASK NAME IS NOT IN THAT TABLE, THE * 01850200 //* CONSTANT 'TECH SUP' IS USED FOR ALL STARTED * 01850300 //* TASKS AND 'TSO ' IS USED FOR ALL TSO * 01850400 //* OUTPUT. * 01850500 //* * 01850600 //* SUPPORT IS CODED IN THIS EXIT TO SUPPORT THE * 01850700 //* KODAK KOMSTAR MICROFICHE PROCESSOR. ONE * 01850800 //* PRINTER NAME WAS RESERVED FOR THESE 3211 * 01850900 //* LOOKALIKE DEVICES AS WELL AS TWO SYSOUT * 01851000 //* CLASSES WHEN BEING 'PRINTED' ON THE KOMSTAR. * 01851100 //* THE TITLE LINES GENERATED FOR THE MICROFICHE * 01851200 //* ARE INSTALLATION DEPENDENT, BUT ARE EASILY * 01851300 //* MODIFIABLE FOR ANY SETUP DESIRED. * 01851400 //* * 01851500 //* SUPPORT IS CODED IN THIS EXIT TO SUPPORT THE * 01851600 //* DATAGRAPHIX ARIS II MICROFICHE PROCESSOR. TWO * 01851700 //* PRINTER NAMES WERE RESERVED FOR THESE 3211 * 01851800 //* LOOKALIKE DEVICES. THE EXIT WILL SEND A * 01851900 //* COMMAND RECORD THE THE ARIS TO DEFINE THE * 01852000 //* JOBID TO USE FOR FORMATING THE REPORT(S). * 01852100 //* THIS IS PROVIDED IN THE PROGRAMMER NAME FIELD * 01852200 //* OR AS THE EXTERNAL WRITER NAME. THE USE OF * 01852300 //* THE WRITER NAME REQUIRES A MODIFICATION TO * 01852400 //* JES2 TO SET THE WRITER ID IN THE DCT USER * 01852500 //* FIELDS. * 01852600 //* * 01852700 //* SUPPORT IS CODED FOR THE IBM 6670 DOCUMENT * 01852800 //* PROCESSOR. A ONE LINE JOB SEPARATOR IS * 01852900 //* WRITTEN FOR THIS DEVICE. * 01853000 //* * 01853100 //* THIS EXIT IS COMPLETELY FUNCTIONAL TO THE BEST * 01853200 //* OF MY KNOWLEDGE. I REALIZE THAT EACH * 01853300 //* INSTALLATION HAS THEIR OWN SEPARATOR * 01853400 //* REQUIREMENTS, BUT IT IS HELPFUL TO HAVE A * 01853500 //* WORKING EXAMPLE TO USE. NOTE THAT THE PUNCH * 01853600 //* LACE CARD PRODUCED BY THIS ROUTINE MATCHES * 01853700 //* THAT OF IBM BUT IT IS ALMOST UNUSABLE. I DID * 01853800 //* NOT MODIFY IT SINCE WE DO ALMOST NO PUNCHING. * 01853900 //* * 01854000 //* A S S E M B L Y O P T I O N S * 01854100 //* * 01854200 //* SEVERAL ASSEMBLY OPTIONS ARE PROVIDED FOR EASE * 01854300 //* IN PROVIDING THE DESIRED NUMBER OF SEPARATORS * 01854400 //* ON THE START/CONT OR END SEPARATOR FOR BOTH * 01854500 //* LOCAL AND REMOTE DEVICES. * 01854600 //* * 01854700 //* THE DEFAULTS SET ARE AS FOLLOWS: * 01854800 //* * 01854900 //* NPRSEPSL (2) - NUMBER OF START/CONT PAGES FOR LOCAL PRTRS * 01855000 //* NPRSEPEL (1) - NUMBER OF END PAGES FOR LOCAL PRTRS * 01855100 //* NPRSEPSR (2) - NUMBER OF START/CONT PAGES FOR REMOTE PRTRS * 01855200 //* NPRSEPER (1) - NUMBER OF END PAGES FOR REMOTE PRTRS * 01855300 //* IPLINES (4) - VALUE TO ADD TO $PRIDCT FOR INPACT PRINTERS * 01855400 //* TO ALLOW PRINTING ON THE PERFORATION. * 01855500 //* * 01855600 //* J E S 2 E X I T 5 * 01855700 //* * 01855800 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO SCAN THE * 01855900 //* OPERANDS ON SELECTED JES2 COMMANDS AND * 01856000 //* DISALLOW THE COMMAND IF CERTAIN VALUES ARE * 01856100 //* USED. THE EXIT AS CODES WILL PREVENT THE USE * 01856200 //* OF JOB RANGES (J1-J999) ON THE $AJ, $CJ, $DJ, * 01856300 //* $EJ, $HJ, $LJ, $OJ, AND $PJ COMMANDS. THE $TJ * 01856400 //* COMMAND WILL NOT ALLOW THE USE OF C=X TO * 01856500 //* CHANGE THE EXECUTION CLASS OF A JOB. THE $TC * 01856600 //* AND THE $TM COMMANDS ARE NOT ALLOWED. THE $DN * 01856700 //* AND THE $PQ REQUIRE VALID OPERANDS IN ORDER TO * 01856800 //* BE EXECUTED. * 01856900 //* * 01857000 //* THE REASON FOR THESE RESTRICTIONS WAS TWO * 01857100 //* FOLD. FIRST AND FOREMOST WAS TO PROTECT THE * 01857200 //* OPERATOR FROM ACCIDENTALLY CANCELLING, * 01857300 //* RELEASING, ETC. MORE JOBS THAN INTENDED. * 01857400 //* ALSO, HOWEVER, SOME OF THE COMMANDS WHICH * 01857500 //* PRODUCT HUGE NUMBERS OF REPLY MESSAGES WERE * 01857600 //* RESTRICTED. * 01857700 //* * 01857800 //* J E S 2 E X I T 6 * 01857900 //* * 01858000 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO RUN AT * 01858100 //* CONVERTER TIME TO ENFORCE INSTALLATION JCL * 01858200 //* STANDARDS AND TO DETERMINE THE APPROPRIATE JOB * 01858300 //* CLASS BASED ON DEVICE UTILIZATION. * 01858400 //* * 01858500 //* THERE IS SOME INSTALLATION DEPENDENT CODE IN * 01858600 //* THIS EXIT ESPECIALLY IN THE JOB ACCOUNTING * 01858700 //* VERIFICATION ROUTINE AND THE DSNAME STANDARDS * 01858800 //* ENFORCEMENT ROUTINE. THE JOB CLASSES ARE SET * 01858900 //* BY WAY OF A TABLE AS ARE THE UNITNAME * 01859000 //* ATTRIBUTES. MUCH MORE COULD BE ENFORCED HERE * 01859100 //* OR IN OTHER EXITS OR BY A GOOD SECURITY * 01859200 //* SYSTEM. WE FELT THAT IT WAS BETTER TO CATCH * 01859300 //* MANY ERRORS AT READER TIME RATHER THAN WAIT IN * 01859400 //* SOME CASES A LONG PERIOD OF TIME FOR * 01859500 //* VIOLATIONS TO OCCUR. * 01859600 //* * 01859700 //* THIS EXIT IS COMPLETELY FUNCTIONAL TO THE BEST * 01859800 //* OF MY KNOWLEDGE. I REALIZE THAT THERE ARE A * 01859900 //* FEW LOOPHOLES IN THE CLASS DETERMINATION * 01860000 //* ROUTINE EXPECIALLY WHEN THE CATALOG COULD BE * 01860100 //* CHANGED AFTER SUBMITTING THE JOB. DESPITE ITS * 01860200 //* FEW LIMITATIONS, THIS EXIT HAS PROVEN TO BE * 01860300 //* INVALUABLE IN OUR RESOURCE UTILIZATION * 01860400 //* BALANCING SINCE THE INITIATORS CAN BE SET UP * 01860500 //* KNOWING THE DEVICES REQUIRED AND THE TIME * 01860600 //* WHICH THE JOB WILL USE THEM. * 01860700 //* * 01860800 //* VIOLATIONS OF JCL STANDARDS ARE DOCUMENTED BY * 01860900 //* MESSAGES WRITTEN TO THE JES2 MESSAGE DATA SET * 01861000 //* FOR THE JOB AND FLAGGED FOR JCL ERROR BY THE * 01861100 //* USE OF THE JES2 EXIT RETURN CODE TO THE JES2 * 01861200 //* CONVERTER SUB-TASK. * 01861300 //* * 01861400 //* THIS EXIT USES THE INTERNAL TEXT DATA SET FOR * 01861500 //* ITS PROCESSING. JES2 PASSES EACH INTERNAL * 01861600 //* TEXT STATEMENT TO THIS EXIT FOR EXAMINATION * 01861700 //* AND/OR MODIFICATION. THE EXIT WILL MAINTAIN A * 01861800 //* TABLE OF DATASET NAMES AND DEVICE COUNTS TO BE * 01861900 //* USED AT END OF PROCESSING FOR DETERMINING JOB * 01862000 //* CLASS. THE ACB FOR THE MESSAGE DATA SET IS IN * 01862100 //* THE PCE WORK AREA AND CAN BE USED TO ISSUE * 01862200 //* ERROR MESSAGES TO THE JOB MESSAGE PORTION OF * 01862300 //* THE LISTING. * 01862400 //* * 01862500 //* ALSO, THE CONVERTER IS A DUMB ANIMAL WHEN IT * 01862600 //* COMES TO SYNTAX CHECKING. CHECKING IS MADE * 01862700 //* FOR KEYWORD VALUES, BUT NONE IS MADE ON THE * 01862800 //* VALUE FOR THE KEYWORD. IE., 50 CHARACTER DATA * 01862900 //* SET NAMES, 20 CHARACTER VOLUME SERIAL NUMBERS, * 01863000 //* AND NUMEROUS SYNTAX ERRORS CAN PASS UNDETECTED * 01863100 //* THROUGH THE CONVERTER. THESE ERRORS WILL BE * 01863200 //* CAUGHT BY THE INTERPRETER WHEN THE JOB GOES * 01863300 //* INTO EXECUTION, BUT THIS EXIT MUST PROCESS * 01863400 //* THEM. CURRENTLY, ALL DETECTED ERRORS OF THIS * 01863500 //* TYPE WILL ISSUE A MESSAGE DESCRIBING THE ERROR * 01863600 //* AND FLAG THE JOB TO FAIL. THE ESTAE ROUTINE, * 01863700 //* WHEN ENTERED FOR AN ABEND, WILL SET THE CLASS * 01863800 //* TO 'A' AND RECOVER TO PROTECT THE CONVERSION * 01863900 //* SUBTASK FROM ABEND AND CONSEQUENT LOSS OF THE * 01864000 //* JOB. * 01864100 //* * 01864200 //* CLASS DETERMINATION IS MADE BY KEEPING A COUNT * 01864300 //* OF ALL OF THE MOUNTABLE DEVICES USED PER STEP. * 01864400 //* THESE COUNTS ARE SAVED IN AN INTERNAL TABLE TO * 01864500 //* BE PROCESSED AT END OF INTERNAL TEXT. ALSO * 01864600 //* SAVED IN THE TABLE ARE ENTRIES FOR DD * 01864700 //* STATEMENTS WHICH USED MOUNTABLE DEVICES FOR * 01864800 //* USE IN REFERBACKS AND UNIT=AFF. IF THE UNIT * 01864900 //* HAS NOT BEEN DETERMINED AT THE END OF * 01865000 //* PROCESSING FOR A DD STATEMENT, THE CATALOG IS * 01865100 //* SEARCHED. IF THE CATALOGED DEVICE IS SYSDA, * 01865200 //* THE UCBS ARE SEARCHED TO DETERMINE IF THE PACK * 01865300 //* IS MOUNTED AS PRIVATE, RESERVED, OR * 01865400 //* PERMANENTLY RESIDENT. IF THE PACK IS NOT * 01865500 //* FOUND, A PRIV DISK MOUNT WILL BE CHARGED. * 01865600 //* CLASS IS SET ON THE BASIS OF THE MAXIMUM * 01865700 //* NUMBER OF TAPES PER STEP, MAXIMUM NUMBER OF * 01865800 //* PRIV DASD DEVICES PER STEP, TOTAL MAXIMUM * 01865900 //* MOUNTABLE DEVICES PER STEP, MAXIMUM REGION PER * 01866000 //* STEP, AND ESTIMATED EXECUTION TIME FOR JOB. * 01866100 //* * 01866200 //* INPUT TO THIS EXIT DURING TESTING WAS CREATED * 01866300 //* BY USING ONE OF THE LATEST VERSIONS OF "QUEUE" * 01866400 //* ON THE MODS TAPES WHICH ALLOWS ACCESS TO THE * 01866500 //* INTERNAL TEXT DATA SET FILE 5. ONCE LISTING * 01866600 //* THE INTERNAL TEXT DATASET, THE USER CAN THEN * 01866700 //* ENTER "SAVE DSN" AND CREATE A DATASET WHICH * 01866800 //* THE TSO DRIVER CAN USE. * 01866900 //* * 01867000 //* THE TSO DRIVER PROGRAM IS TESTJES. READ THE * 01867100 //* DOCUMENTATION FOR THAT PROGRAM. * 01867200 //* * 01867300 //* THERE ARE SEVERAL ASSEMBLER VARIABLES * 01867400 //* AVAILABLE TO TAILOR THE PROGRAM TO CERTAIN * 01867500 //* OPTIONS. * 01867600 //* * 01867700 //* &TSO 'NO' ASSEMBLE FOR TSO TESTING * 01867800 //* &CAMLST 'YES' SEARCH CATALOG FOR DATASETS * 01867900 //* &ERRMSG 'YES' PRODUCE JOBFAILED BY EXIT MESSAGE * 01868000 //* &SDUMP 'YES' PRODUCE CONSOLE DUMP FOR ABENDS * 01868100 //* &FLUSH 'YES' FLUSH JOB FOR STANDARDS VIOLATIONS * 01868200 //* &MODIFY 'YES' MODIFY JOB CLASS IN JCT AND JQE * 01868300 //* &UCBSEAR 'YES' SEARCH THE UCBS FOR UNMOUNTED PACKS * 01868400 //* * 01868500 //* &TSO * 01868600 //* * 01868700 //* WHEN TESTING THIS EXIT UNDER THE TSO * 01868800 //* INTERFACE, THE LOCAL VARIABLE &&TSO SHOULD BE * 01868900 //* CHANGED TO 'YES' FROM 'NO' TO CHANGE THE $$WTO * 01869000 //* INSTRUCTIONS TO WTO INSTRUCTIONS AND BYPASS * 01869100 //* THE ESTAE MACROS SO THAT THE TEST COMMAND CAN * 01869200 //* DETERMINE THE ADDRESS OF THE ABEND . * 01869300 //* * 01869400 //* &CAMLST * 01869500 //* * 01869600 //* THE ONLY WAY THAT THE EXIT CAN DETERMINE THE * 01869700 //* DEVICE TYPE FOR CATALOGED DATA SETS IS TO * 01869800 //* ISSUE THE CAMLST LOCATE MACRO FOR EVERY * 01869900 //* DATASET FOR WHICH NO UNIT IS SPECIFIED. THIS * 01870000 //* HAS TREMENDOUS OVERHEAD, BUT IS REQUIRED TO * 01870100 //* SET THE JOB CLASS CORRECTLY BASED ON THE * 01870200 //* NUMBER OF MOUNTABLE UNITS. * 01870300 //* * 01870400 //* &ERRMSG * 01870500 //* * 01870600 //* A MESSAGE WILL BE WRITTEN TO THE CONSOLE AND * 01870700 //* THE JOBLOG FOR THE JOB WHENEVER A STANDARDS * 01870800 //* VIOLATION IS DETECTED BY THE EXIT. WITHOUT * 01870900 //* THIS MESSAGE, THE PERSON WHO SUBMITTED THE JOB * 01871000 //* MAY HAVE DIFFICULTY DETERMINING THAT THE JOB * 01871100 //* WAS FLUSHED FOR A VIOLATION. THE OPTION TO * 01871200 //* BYPASS THE MESSAGE IS AVAILABLE HOWEVER. * 01871300 //* * 01871400 //* &SDUMP 'YES' PRODUCE CONSOLE DUMP FOR ABENDS * 01871500 //* * 01871600 //* A CONSOLE DUMP CAN BE TAKEN BY THE ERROR * 01871700 //* RECOVERY ROUTINE WHEN REQUESTED BY THE OPTION. * 01871800 //* SINCE ERRORS ARE HOPEFULLY FEW AND FAR * 01871900 //* BETWEEN, IT PROBABLY IS A GOOD IDEA TO TAKE A * 01872000 //* DUMP WHEN THEY OCCUR. THE DUMP CAN BE CUT OFF * 01872100 //* IF DESIRED. * 01872200 //* * 01872300 //* &FLUSH 'YES' FLUSH JOB FOR STANDARDS VIOLATIONS * 01872400 //* * 01872500 //* THE EXIT CAN BE RUN IN "NOFLUSH" MODE DURING * 01872600 //* WHICH TIME ALL ERROR MESSAGES WILL BE ISSUED, * 01872700 //* BUT THE JOB WILL NOT TERMINATED BY THE EXIT. * 01872800 //* THIS IS ESPECIALLY USEFUL DURING * 01872900 //* IMPLEMENTATION. * 01873000 //* * 01873100 //* &MODIFY 'YES' MODIFY JOB CLASS IN JCT AND JQE * 01873200 //* * 01873300 //* THE JOB CLASS OF THE JOB CAN BE SET BY THE * 01873400 //* EXIT BASED ON THE RESOURCE REQUIREMENTS OF THE * 01873500 //* JOB. THE MODIFICATION OF THE JOB CLASS IS * 01873600 //* MADE BY MODIFYING THE JOBCLASS FIELDS IN THE * 01873700 //* JCT AND THE JQE SINCE THEY WILL BE REWRITTEN * 01873800 //* AND REQUEUED FOLLOWING CONVERSION. IT MAY BE * 01873900 //* NOTED THAT THERE IS CODE IN THE EXIT TO SET * 01874000 //* JOB "RESOURCE" INDICATORS BASED ON JOB * 01874100 //* CATAGORY, PROGRAM NAME, AND OTHER CRITERIA. * 01874200 //* THIS CODE IS NOT CURRENTLY BEING USED AND IS * 01874300 //* IN THE PROGRAM FOR INFORMATIONAL PURPOSES * 01874400 //* ONLY. THIS CAN BE USED WITH THE MELLON BANK * 01874500 //* RESOURCE MOD WHICH IS AVAILABLE ON THE MODS * 01874600 //* TAPE (I THINK). IF YOU TRY TO INCORPORATE * 01874700 //* THIS CODE INTO THE RESOURCE MOD, ALL YOU * 01874800 //* SHOULD HAVE TO DO IS TO "OR" THE PROPERLY * 01874900 //* SETUP RESOURCE BITS INTO THE EXISTING BITS IN * 01875000 //* THE JQE. GOOD LUCK. * 01875100 //* * 01875200 //* &UCBSEAR 'YES' SEARCH UCBS FOR UNMOUNTED PACKS * 01875300 //* * 01875400 //* THE EXIT SEARCHES THE UCBS TO DETERMINE IF THE * 01875500 //* DASD VOLUMES REFERENCED BY A DD STATEMENT ARE * 01875600 //* MOUNTED. THE JOB CAN BE CHARGED FOR THE MOUNT * 01875700 //* OR TERMINATE WITH A JCL ERROR AS IS CURRENTLY * 01875800 //* THE CASE. * 01875900 //* * 01876000 //* JOB CARD FIELDS PROCESSED * 01876100 //* * 01876200 //* 1) JOBNAME * 01876300 //* * 01876400 //* 2) ACCOUNTING FIELD * 01876500 //* THE FORMAT OF THE FIRST ACCOUNTING IS * 01876600 //* VERIFIED BASED ON THE CATAGORY OF JOB * 01876700 //* BEING PROCESSED. NOTE THAT STARTED TASKS * 01876800 //* AND SOMETIMES TSO USERS HAVE NO ACCOUNTING * 01876900 //* FIELDS. * 01877000 //* * 01877100 //* 3) PROGRAMMER NAME * 01877200 //* THE PROGRAMMER NAME IS SAVED BUT IS * 01877300 //* CURRENTLY NOT BEING USED. IT COULD BE * 01877400 //* USED AS ANOTHER SOURCE OF INFORMATION FOR * 01877500 //* AUTHORIZATION CHECKING. * 01877600 //* * 01877700 //* 4) JOB CLASS * 01877800 //* THE JOB CLASS IS SAVED SINCE CERTAIN JOB * 01877900 //* CLASS MAY BE SPECIFIED FOR SPECIAL * 01878000 //* SITUATIONS EVEN THOUGH THE RESOURCES FOR * 01878100 //* THIS CLASS MAY HAVE TO BE VERIFIED. * 01878200 //* * 01878300 //* 5) PERFORM * 01878400 //* THE USE OF PERFORM ON THE JOB CARD IS * 01878500 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01878600 //* * 01878700 //* 6) TYPRUN * 01878800 //* THIS PARAMETER IS PROCESSED TO DETERMINE * 01878900 //* IF HOLD WAS SPECIFIED. CERTAIN JOB * 01879000 //* CLASSES REQUIRE THAT TYPRUN=HOLD BE * 01879100 //* SPECIFIED * 01879200 //* * 01879300 //* 7) TIME * 01879400 //* IF TIME IS NOT SPECIFIED ON THE JOB CARD, * 01879500 //* THE INTERNAL TEXT WILL BE MODIFIED TO SET * 01879600 //* THE JOB DEFAULT TIME TO 1 MINUTE OF CPU. * 01879700 //* ALSO THE USE OF TIME=1440 IS RESTRICTED TO * 01879800 //* CERTAIN CATAGORIES OF JOBS. * 01879900 //* * 01880000 //* 8) ADDRSPC * 01880100 //* THE USE OF ADDRSPC ON THE JOB CARD IS * 01880200 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01880300 //* * 01880400 //* 9) REGION * 01880500 //* THE USE OF REGION ON THE JOB CARD IS * 01880600 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01880700 //* REGION SHOULD ONLY BE SPECIFIED ON THE * 01880800 //* EXECUTE CARD. * 01880900 //* * 01881000 //* 10) PRTY * 01881100 //* THE USE OF PRTY ON THE JOB CARD IS * 01881200 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01881300 //* * 01881400 //* EXEC CARD FIELDS PROCESSED * 01881500 //* * 01881600 //* 1) PGM * 01881700 //* THE PROGRAM NAME IS PROCESSED TO SET * 01881800 //* "RESOURCE" ROUTINGS. OTHER USES COULD BE * 01881900 //* TO RESTRICT THE USE OF CERTAIN PROGRAMS. * 01882000 //* * 01882100 //* 2) REGION * 01882200 //* THE STEP REGION SIZE IS SAVED TO USE IN * 01882300 //* THE CLASS DETERMINATION ROUTINE. * 01882400 //* * 01882500 //* 3) TIME * 01882600 //* THE TIME PARAMETER IS CHECKED TO PREVENT * 01882700 //* THE USE OF TIME=1440 BY UNAUTHORIZED JOBS. * 01882800 //* * 01882900 //* 4) PERFORM * 01883000 //* THE USE OF PERFORM ON THE EXECUTE CARD IS * 01883100 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01883200 //* * 01883300 //* 5) ADDRSPC * 01883400 //* THE USE OF ADDRSPC ON THE EXECUTE CARD IS * 01883500 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01883600 //* * 01883700 //* 6) DPRTY * 01883800 //* THE USE OF DPRTY ON THE EXECUTE CARD IS * 01883900 //* RESTRICTED TO CERTAIN CATAGORIES OF JOBS. * 01884000 //* * 01884100 //* DD CARD FIELDS PROCESSED * 01884200 //* * 01884300 //* 1) DDNAME * 01884400 //* THE DDNAME IS SAVED IN A TABLE FOR * 01884500 //* POSSIBLE USE IN THE REFERBACK ROUTINE WHEN * 01884600 //* NEEDED. * 01884700 //* * 01884800 //* 2) DUMMY * 01884900 //* A DUMMY FILE WILL BE BYPASSED. * 01885000 //* * 01885100 //* 3) DSN * 01885200 //* THE DSNAME IS SAVED IN A TABLE FOR * 01885300 //* POSSIBLE USE IN THE REFERBACK ROUTINE, BY * 01885400 //* THE UNIT DETERMINATION ROUTINE OR BY THE * 01885500 //* AUTHORIZATION CHECKING ROUTINE. * 01885600 //* * 01885700 //* N O T E * 01885800 //* * 01885900 //* IN ADDITION TO STANDARD DATASET NAMES, * 01886000 //* GENERATION DATA GROUPS AND REFERBACKS WILL * 01886100 //* BE PROCESSED. * 01886200 //* * 01886300 //* 4) DISP * 01886400 //* THE DISP IS PROCESSED TO CHECK FOR ILLEGAL * 01886500 //* DISPOSITION ON JOBLIB, JOBCAT, STEPLIB, * 01886600 //* STEPCAT, OR SYSTEM DATA SET. * 01886700 //* * 01886800 //* 5) UNIT * 01886900 //* THE UNIT NAME AND THE UNIT COUNT ARE SAVED * 01887000 //* IN CASE MULTIPLE UNITS OR PARALLEL * 01887100 //* MOUNTING IS REQUESTED. A UNIT NAME TABLE * 01887200 //* IS IN THE PROGRAM TO DETERMINE THE * 01887300 //* ATTRIBUTES OF THE SPECIFIED UNITNAME. * 01887400 //* UNIT = AFF IS ALSO PROCESSED. * 01887500 //* * 01887600 //* 6) VOL * 01887700 //* THE VOLUME COUNT IS SAVED IN CASE PARALLEL * 01887800 //* MOUNTING IS REQUESTED. * 01887900 //* * 01888000 //* 7) VOL=SER * 01888100 //* THE NUMBER OF VOL/SERS IS SAVED IN CASE * 01888200 //* PARALLEL MOUNTING IS REQUESTED. THE FIRST * 01888300 //* VOLSER IS SAVED SO THAT ANY DD STATEMENTS * 01888400 //* WITHIN THE SAME STEP WHICH USE THE SAME * 01888500 //* VOLSER WILL USE IMPLIED UNIT=AFF * 01888600 //* PROCESSING. * 01888700 //* * 01888800 //* 8) VOL=REF * 01888900 //* THE VOL=REF IS USED TO SEARCH THE TABLE OF * 01889000 //* SAVED MOUNTABLE DEVICES TO DETERMINE * 01889100 //* WHETHER OR NOT THE VOLUME REFERRED TO IS * 01889200 //* ON A MOUNTABLE DEVICE. * 01889300 //* * 01889400 //* 9) LABEL * 01889500 //* THE USE OF BYPASS LABEL PROCESSING (BLP) * 01889600 //* AND EXPDT=98000 IS RESTRICTED TO CERTAIN * 01889700 //* CATAGORIES OF JOBS. * 01889800 //* * 01889900 //* 10) SYSOUT * 01890000 //* THE SYSOUT PARAMETER IS SCANNED TO * 01890100 //* RESTRICT THE USE IF AN INTERNAL READER TO * 01890200 //* CERTAIN CATAGORIES OF JOBS. THIS IS TO * 01890300 //* PREVENT TEST JOBS FROM SUBMITTING OTHER * 01890400 //* CATAGORIES OF JOBS. THE SYSOUT CLASS IS * 01890500 //* ALSO CHECKED TO STOP TEST JOBS FROM * 01890600 //* WRITING TO PRODUCTION SYSOUT CLASSES. * 01890700 //* * 01890800 //* IF UNIT HAS NOT BEEN DETERMINED, THE UNIT TYPE * 01890900 //* MUST BE SEARCHED FOR IN THE FOLLOWING ORDER: * 01891000 //* * 01891100 //* 1) THE DSNAME TABLE MAINTAINED BY THIS EXIT * 01891200 //* SINCE THE DATASET MAY HAVE BEEN CATALOGED * 01891300 //* OR PASSED BY A PREVIOUS DD STATEMENT. * 01891400 //* * 01891500 //* 2) THE SYSTEM CATALOG * 01891600 //* * 01891700 //* 3) THE SYSTEM UCBS MUST BE SEARCHED TO SEE IF * 01891800 //* THE REQUESTED DASD VOLUME IS MOUNTED OR * 01891900 //* ONLY MOUNTED PRIVATE IN WHICH CASE IT WILL * 01892000 //* BE DISMOUNTED AT END OF JOB. IF NOT FOUND * 01892100 //* OR PRIVATE, IT IS A "PRIV" UNIT. * 01892200 //* * 01892300 //* THE JOB CLASS DETERMINATION ROUTINE WILL USE * 01892400 //* ONY ONE OF SEVERAL TABLES DEPENDING ON JOB * 01892500 //* CATAGORY TO FIND A MATCH ON RESOURCES REQUIRED * 01892600 //* AND THE CORRESPONDING JOB CLASS. NOTE THAT * 01892700 //* SEVERAL CATAGORIES OF JOBS MAY SPECIFY A JOB * 01892800 //* CLASS TO SINGLE THREAD A SERIES OF JOBS OR * 01892900 //* BYPASS CERTAIN RESTRICTIONS. SOME OF THESE * 01893000 //* MAY BE CHECKED FOR EXCEEDING THE ALLOWABLE * 01893100 //* RESOURCES FOR THAT CLASS. THE FORMAT OF THE * 01893200 //* CLASS TABLES IS AS FOLLOWS: * 01893300 //* * 01893400 //* 1) 1 BYTE CLASS CODE APPLYING TO ENTRY * 01893500 //* 2) 3 BYTE FILLER * 01893600 //* 3) HALFWORD MAXIMUM TAPES PER STEP * 01893700 //* 4) HALFWORD MAXIMUM PRIV UNITS PER STEP * 01893800 //* 5) HALFWORD MAXIMUM TOTAL DEVICES PER STEP * 01893900 //* 6) HALFWORD MAXIMUM REGION PER STEP * 01894000 //* 7) FULLWORD MAXIMUM CPU TIME FOR JOB * 01894100 //* * 01894200 //* N O T E * 01894300 //* * 01894400 //* WHILE THE CLASS TABLES SUPPORT MOUNTABLE DASD * 01894500 //* DEVICES, WE NO LONGER HAVE ANY. THUS THERE IS * 01894600 //* A CHECK IN THE CODE WHICH WILL FAIL ANY JOB * 01894700 //* REQUIRING A MOUNTABLE DASD DEVICE. * 01894800 //* * 01894900 //* J E S 2 E X I T 9 * 01895000 //* * 01895100 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO * 01895200 //* TERMINATE ANY TEST JOB WHICH EXCEEDS THE * 01895300 //* ESTIMATED NUMBER OF PRINT LINES. BECAUSE OF * 01895400 //* THE JOB CLASS STANDARDS AT THIS INSTALLATION, * 01895500 //* THIS INCLUDES ANY JOBS WITH A NUMERIC JOB * 01895600 //* CLASS. ALL OTHER JOBS ARE ALLOWED TO * 01895700 //* CONTINUE. * 01895800 //* * 01895900 //* J E S 2 E X I T 1 7 * 01896000 //* * 01896100 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO VALIDATE * 01896200 //* ALL SIGNON CARDS FROM BISYNC RJE WORDSTATIONS. * 01896300 //* THIS EXIT WILL ISSUE A CALL TO ACF2 TO * 01896400 //* VALIDATE THE PASSWORD FOR THE REMOTEID. THE * 01896500 //* SIGNON ATTEMPT WILL BE REJECTED WITH * 01896600 //* APPROPRIATE MESSAGES IF THE PASSWORD IS * 01896700 //* INVALID. * 01896800 //* * 01896900 //* J E S M O D * 01897000 //* * 01897100 //* THIS JES2 MODIFICATION WILL ENABLE THE USE OF * 01897200 //* THE JES2 OUTPUT WRITER ID TO DEFINE THE * 01897300 //* DATAGRAPHIX MICROFICHE JOBID. NORMALLY * 01897400 //* OUTPUT CONTAINING A WRITERID ARE NOT EASILY * 01897500 //* SELECTABLE FOR PRINT. THIS MODIFICATION WILL * 01897600 //* BYPASS THE CHECK FOR THE CORRECT WRITERID AND * 01897700 //* SAVE THE WRITER NAME IN THE DCT USER FIELDS * 01897800 //* TO BE USED IN THE JOB SEPARATOR EXIT * 01897900 //* (JESEXIT1) WHERE THE NAME IS SENT TO THE * 01898000 //* MICROFICHE DEVICE AS THE JOBID. THE JESEXIT1 * 01898100 //* PROGRAM IN THIS FILE USES THIS INFORMATION, * 01898200 //* BUT THE MODIFICATION AND THE JES2 EXIT HAS * 01898300 //* BEEN CREATED FOR SP 1.3.3 JES2 ONLY * 01898400 //* (HJE2329). THE SP 1.3.0 VERSION OF JESEXIT1 * 01898500 //* DOES NOT USE THE WRITER ID EVEN THOUGH CODE * 01898600 //* COULD BE ADDED TO JES2 AND THE EXIT TO DO SO. * 01898700 //* * 01898800 //* N W B C O P Y * 01898900 //* * 01899000 //* THIS PROGRAM IS DESIGNED TO BE A FRONT END TO * 01899100 //* IEBCOPY TO PROVIDE DATASET INGEGRITY WHEN * 01899200 //* COPYING OR COMPRESSING DATA WITH IEBCOPY. THE * 01899300 //* PROGRAM WILL ISSUE A RESERVE AGAINST EVERY * 01899400 //* DATASET WHICH IS DEFINED BY A DDNAME WHICH * 01899500 //* STARTS WITH "OUT" OR "COMP". THE RESERVE WILL * 01899600 //* BE MADE IN EXACTLY THE SAME WAY THAT TSO SPF * 01899700 //* ISSUES ITS RESERVES WHEN UPDATING A MEMBER. * 01899800 //* ONCE ALL DATASETS HAVE BEEN RESERVED, CONTROL * 01899900 //* IS PASSED TO IEBCOPY TO PERFORM THE SPECIFIED * 01900000 //* FUNCTION. WHEN IEBCOPY HAS FINISHED, CONSOLE * 01900100 //* IS RETURNED TO THE PROGRAM SO THAT THE DATASET * 01900200 //* RESERVES CAN BE RELEASED. * 01900300 //* * 01900400 //* SINCE IEBCOPY REQUIRES QUTHORIZATION, THIS * 01900500 //* PROGRAM MUST BE LINKED WITH AC=1. * 01900600 //* * 01900700 //* T S O C O N S O L E C O M M A N D * 01900800 //* * 01900900 //* THIS TSO COMMAND WILL ALLOW A TSO USER TO * 01901000 //* FUNCTION AS AN O/S CONSOLE. THE ORIGINAL CODE * 01901100 //* WAS PROBABLY THE SPY COMMAND ON THE MODS * 01901200 //* TAPES, BUT IT HAS EVOLVED OVER A PERIOD OF * 01901300 //* TIME. I REGRET THAT THE NAME OF THE * 01901400 //* ORIGINATOR OF THE CODE HAS BEEN LOST. * 01901500 //* * 01901600 //* THE COMMAND CHECKS FOR TSO OPERATOR AUTHORITY * 01901700 //* FOR ACCESS. ALSO, PCF COMMAND LEVEL IS * 01901800 //* EXAMINED. PCF LEVEL(0,0) USERS MAY ISSUE ALL * 01901900 //* O/S AND JES2 COMMANDS WHILE OTHERS MAY ONLY * 01902000 //* ISSUE O/S AND JES2 DISPLAY COMMANDS ONLY . * 01902100 //* FOR FURTHER PROTECTION, A TABLE OF AUTHORIZED * 01902200 //* USERS IS ALSO USED TO DETERMINE THE USERS * 01902300 //* AUTHORITY TO EXECUTE THE COMMAND. IF ALL OF * 01902400 //* THESE CHECKS ARE MET, THE USER WILL THEN BE * 01902500 //* PROMPTED FOR AN AUTHORIZATION PASSWORD. WHILE * 01902600 //* EXCESSIVE, THESE KINDS OF CHECKS WERE REQUIRED * 01902700 //* HERE TO MAKE PEOPLE HAPPY. SINCE THE CONSOLE * 01902800 //* BUFFERS ARE IN THEIR OWN ADDRESS SPACE UNDER * 01902900 //* SP 1.3 AND THE COMMAND INTERFACE IS SVC 34, * 01903000 //* THIS COMMAND MUST BE AUTHORIZED. THIS * 01903100 //* AUTHORIZATION IS CURRENTLY PROVIDED BY AN SVC * 01903200 //* CALL TO AN SVC WHICH SETS THE COMMAND IN * 01903300 //* PROTECT KEY 0 TO SET THE AUTHORIZED BIT ON. * 01903400 //* THUS THE COMMAND CAN PERFORM ALL REQUIRED * 01903500 //* FUCTIONS LATER AS REQUIRED. THE SVC METHOD OF * 01903600 //* AUTHORIZATION IS USED INSTEAD OF IKJEFTE2 * 01903700 //* AUTHORIZATION SO THAT THIS COMMAND CAN RUN * 01903800 //* UNDER SPF OPTION 6. * 01903900 //* * 01904000 //* THE CONSOLE BUFFERS WHICH ARE DISPLAYED UPON * 01904100 //* ENTRY ARE THOSE FOR THE MASTER CONSOLE. WHEN * 01904200 //* THE CONSOLE BEING VIEWED IS THE MASTER, * 01904300 //* MASTER-CONSOLE-ONLY COMMANDS SUCH AS DUMP AND * 01904400 //* FORCE CAN BE ISSUED. CONSOLE SWITCHING CAN BE * 01904500 //* ACCOMPLISHED BY THE CONSOLE=NN COMMAND WHERE * 01904600 //* NN IS THE CONSOLE NUMBER OF ANOTHER CONSOLE. * 01904700 //* CONSOLE=M CAN BE ISSUED TO SWITCH BACK TO THE * 01904800 //* MASTER CONSOLE. * 01904900 //* * 01905000 //* S E T P F K E Y * 01905100 //* * 01905200 //* THIS PROGRAM IS DESIGNED TO RUN AT IPL TIME TO * 01905300 //* SET THE DEFAULT VALUES FOR THE PFKEYS FOR THE * 01905400 //* SYSTEM DISPLAY CONSOLES. THIS PROGRAM IS A * 01905500 //* MODIFIED VERSION OF A PROGRAM I FOUND ON THE * 01905600 //* CBT TAPE WHICH WAS WRITTEN BY MR. BARRY * 01905700 //* GOLDBERG OF THE AUTO CLUB OF SOUTHERN * 01905800 //* CALIFORNIA. I MODIFIED THE PROGRAM TO USE * 01905900 //* CROSS MEMORY SERVICES UNDER SP 1.3 AND TO * 01906000 //* PROVIDE AN OPTIONAL PRINTED REPORT WHEN A * 01906100 //* SYSPRINT DD STATEMENT IS PRESENT. COMMENT * 01906200 //* CONTROL CARDS CAN BE ENTERED WHEN AN '*' IS IN * 01906300 //* COLUMN 1. * 01906400 //* * 01906500 //* SINCE CROSS MEMORY CODE REQUIRES * 01906600 //* AUTHORIZATION, THIS PROGRAM MUST BE LINKED * 01906700 //* WITH AC=1. * 01906800 //* * 01906900 //* A U T H S V C * 01907000 //* * 01907100 //* THIS SVC IS A TYPE 4 SVC WRITTEN TO ALLOW THE * 01907200 //* CALLER TO ENTER KEY 0. THIS SVC IS A LITTLE * 01907300 //* DIFFERENT FROM MOST OTHER SVC CODE IN THAT IT * 01907400 //* WRITES AN SMF RECORD FOR EACH CALL TO PERFORM * 01907500 //* A FUNCTION. THE CALLING PROGRAM NAME IS * 01907600 //* ASSUMED TO BE POINTED TO BY REGISTER 0 ON * 01907700 //* INPUT AND ALL OTHER INFORMATION SUCH AS * 01907800 //* JOBNAME/TSONAME, PROGRAMMER NAME, AND * 01907900 //* ACCOUNTING INFORMATION IS EXTRACTED TO PROVIDE * 01908000 //* AN AUDIT CAPABILITY FOR UNAUTHORIZED USE. THE * 01908100 //* FUNCTION TO BE PERFORMED IS IN REGISTER 1 ON * 01908200 //* INPUT. A ZERO INDICATES THAT PROTECT KEY ZERO * 01908300 //* IS DESIRED. ANY OTHER VALUE WILL RESET THE * 01908400 //* USER BACK TO THE PROTECT KEY IN THE TCB. * 01908500 //* * 01908600 //* T E S T J E S * 01908700 //* * 01908800 //* THIS PROGRAM WAS WRITTEN TO TEST THE JES2 * 01908900 //* EXIT6 PROGRAM DESIGNED TO ENFORCE INSTALLATION * 01909000 //* JCL STANDARDS AND TO SET THE APPROPRIATE JOB * 01909100 //* CLASS BASED ON DEVICES USED. * 01909200 //* * 01909300 //* THE INPUT TO THIS PROGRAM IS A SEQUENTIAL FILE * 01909400 //* OF INTERNAL TEXT CREATED USING THE QUEUE * 01909500 //* COMMAND AVAILABLE ON MOST OF THE MODS TAPES. * 01909600 //* FILE 5 OF A JOB CAN BE PROCESSED WITH ONE OF * 01909700 //* THE NEWER VERSIONS OF THE QUEUE COMMAND AND * 01909800 //* THE SAVE COMMAND CAN BE USED TO SAVE THIS FILE * 01909900 //* INTO A DATA SET. * 01910000 //* * 01910100 //* THE OUTPUT FILE MUST BE A JES2 SYSOUT DATA SET * 01910200 //* SINCE THE EXIT WILL DO A JES2 WRITE INTO THIS * 01910300 //* DATA SET WHENEVER AN ERROR IS DETECTED OR STEP * 01910400 //* STATISTICS ARE TO BE LISTED. * 01910500 //* * 01910600 //* THE REQUIRED JES2 CONTROL BLOCKS FOR THE EXIT * 01910700 //* ARE FAKED AND CREATED WITH JUST ENOUGH * 01910800 //* INFORMATION FOR THE EXIT TO FUNCTION. THE * 01910900 //* CONTROL BLOCKS CREATED ARE THE JCT, PCE, AND * 01911000 //* JQE. * 01911100 //* * 01911200 //* THIS ROUTINE LOADS THE ENTRY NAMED 'EXIT6' FOR * 01911300 //* PROCESSING. THIS NAME MUST MATCH THE NAME ON * 01911400 //* THE $ENTRY STATEMENT IN THE EXIT CODE AND MUST * 01911500 //* BE AN ALIAS FOR OR THE ENTRY POINT FOR THE * 01911600 //* MODULE BEING TESTED SO THAT THE JES2 PREFIX * 01911700 //* STUFF CAN BE BYPASSED. * 01911800 //* * 01911900 //* WHEN TESTING THIS JES2 EXIT, THE LOCAL * 01912000 //* VARIABLE &&TSO IN THE EXIT SHOULD BE CHANGED * 01912100 //* TO 'YES' FROM 'NO' TO CHANGE THE $$WTO * 01912200 //* INSTRUCTIONS TO WTO INSTRUCTIONS AND BYPASS * 01912300 //* THE ESTAE MACROS SO THAT THE TEST COMMAND CAN * 01912400 //* DETERMINE THE ADDRESS OF ANY ABENDS. * 01912500 //* * 01912600 //* * 01912700 //***FILE 382 IS FROM DELUXE CHECK PRINTERS OF SAINT PAUL , * 01912800 //* MINNESOTA AND CONTAINS A PROGRAM CALLED DLXTRANS WHICH * 01912900 //* WAS WRITTEN TO ALLOW TRANSMISSION OF ANY SIZE FILE * 01913000 //* FROM / TO AN MVS HOST FROM / TO A VS1 REGION RUNNING A * 01913100 //* WORKSTATION RJE PACKAGE ( IN OUR CASE ' HRNES ' ) . * 01913200 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT , SEE THE MEMBER * 01913300 //* CALLED $$DOC FOR ADDITIONAL INFORMATION . * 01913400 //* * 01913500 //***FILE 383 IS FROM INTEL AND CONTAINS A COPY OF THEIR CLISTS * 01913600 //* REQUIRED FOR USE WITH THEIR TECHINFO SYSTEM WHICH IS * 01913700 //* CONTAINIED IN FILE 352 OF THIS TAPE . THIS FILE IS * 01913800 //* IN IEBCOPY FORMAT (VB LRECL=84 BLKSIZE=15456) . * 01913900 //* SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * 01914000 //* INFORMATION . * 01914100 //* * 01914200 //***FILE 384 IS FROM COMPUTER DATA SYSTEMS INC OF ROCKVILLE , * 01914300 //* MARYLAND . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01914400 //* AND CONTAINS : * 01914500 //* 1 . ISPF QUEUE * 01914600 //* 2 . ISPF SPY * 01914700 //* 3 . OTHER PROGRAMS * 01914800 //* * 01914900 //***FILE 385 IS FROM THE HARTFORD INSURANCE GROUP AND CONTAINS * 01915000 //* THE FOLLOWING PROGRAM DESIGNED TO COMPARE TWO * 01915100 //* COPIES OF LPALIB AND REPORT ON DIFFERENCES IN * 01915200 //* THEM . IT ALSO COMPARES ONE OF THE LPALIB COPIES * 01915300 //* TO LINKLIB TO REPORT ON DUPLICATE MEMBERS. JCL IS * 01915400 //* AS FOLLOWS : * 01915500 //* * 01915600 //* OLDLPA - POINTS TO THE 'OLD' COPY * 01915700 //* OF LPALIB * 01915800 //* NEWLPA - POINTS TO THE 'NEW' COPY * 01915900 //* OF LPALIB * 01916000 //* LINKLIB - OPTIONAL, POINTS TO A * 01916100 //* COPY OF LINKLIB THAT IS * 01916200 //* COMPARED TO THE NEWLPA * 01916300 //* DD. IF NOT DESIRED, * 01916400 //* DUMMY THIS DD STATEMENT. * 01916500 //* REPORT1 - MEMBERS IN OLDLPA THAT * 01916600 //* ARE NOT IN THE THE * 01916700 //* NEWLPA * 01916800 //* REPORT2 - MEMBERS IN NEWLPA THAT * 01916900 //* ARE NOT IN THE OLDLPA * 01917000 //* REPORT 3 - DUPLICATE MEMBERS * 01917100 //* BETWEEN LPALIB AND * 01917200 //* LINKLIB * 01917300 //* REPORT4 - CHANGES IN MODULE LENGTH * 01917400 //* OF MEMBERS THAT OCCUR IN * 01917500 //* BOTH OLDLPA AND NEWLPA. * 01917600 //* * 01917700 //* ALL REPORTS GIVE MODULE SIZE, INDICATE * 01917800 //* ALIAS ENTRIES, (NO SIZE GIVEN FOR * 01917900 //* ALIASES, AND REPORT ON TOTAL * 01918000 //* DIFFERENCES. REPORT 4 WILL SHOW THE * 01918100 //* DIFFENCE IN SIZE OF TWO COPIES OF * 01918200 //* THE SAME MODULE, AND WILL REPORT ON * 01918300 //* THE TOTAL SIZE DIFFERENCE OF THE * 01918400 //* MODULES LISTED. * 01918500 //* * 01918600 //***FILE 386 IS FROM THE FIRST NATIONAL BANK OF ATLANTA AND * 01918700 //* CONTAINS A COPY OF THEIR AMASPZAP MODIFICATION . * 01918800 //* * 01918900 //* THIS USER MODIFICATION IS TO MODIFY "AMASPZAP" * 01919000 //* MODULE TO CALL MODULE "DSDSPZAP" WHICH WRITES AN * 01919100 //* SMF RECORD FOR ALL CONTROL CARDS USED BY MODULE * 01919200 //* "AMASPZAP". THIS MODIFICATION WILL ALLOW FOR A * 01919300 //* HISTORICAL AUDIT TRAIL OF THE USE OF ZAP, AND ALSO * 01919400 //* THE DAILY CHECKING OF THE USE OF ZAP . * 01919500 //* * 01919600 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 01919700 //* * 01919800 //***FILE 387 IS FROM CITI-TRUST IN NEW YORK AND CONTAINS SEVERAL * 01919900 //* OF THEIR UTILITY PROGRAMS . THIS FILE IS IN IEBUPDTE * 01920000 //* SYSIN FORMAT . FOR ADDITIONAL INFORMATION SEE THE * 01920100 //* MEMBER CALLED $DOC . THE FOLLOWING IS INFORMATION * 01920200 //* ABOUT THE PROGRAMS THEY HAVE CONTRIBUTED : * 01920300 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01920400 //* * 01920500 //* PROGRAM: DATETIME * 01920600 //* * 01920700 //* PURPOSE: SUBROUTINE USED BY OTHER PROGRAMS(S) IN * 01920800 //* THIS FILE * 01920900 //* * 01921000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01921100 //* * 01921200 //* PROGRAM: IFOXXREF * 01921300 //* * 01921400 //* PURPOSE: APPEND A MNEMONIC CROSS-REFERENCE TO THE * 01921500 //* PRINTED OUTPUT OF AN ASSEMBLER-XF * 01921600 //* EXECUTION. * 01921700 //* * 01921800 //* LOGIC: LINK TO THE ASSEMBLER (IFOX00). IF FOXY'S * 01921900 //* RETURN- CODE WAS ZERO, READ THE SYSPRINT * 01922000 //* LISTING TABLING THE DATA IN ALL VALID * 01922100 //* OPERATION FIELDS ALONG WITH THE LINE * 01922200 //* NUMBER. AT END, SORT ASCENDING BY * 01922300 //* MNEMONIC, MODIFY THE (INCORE) JFCB FOR * 01922400 //* SYSPRINT TO "MOD", OPEN SYSPRINT FOR * 01922500 //* OUTPUT, THEN PRINT THE CROSS REFERENCE. * 01922600 //* * 01922700 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01922800 //* * 01922900 //* PROGRAM: LPAXTRCT/LPACOMPR * 01923000 //* * 01923100 //* PURPOSE: TO COMPARE INFORMATION IN THE * 01923200 //* DIRECTORIES OF TWO LOAD LIBRARIES. * 01923300 //* * 01923400 //* LOGIC: LPAXTRCT GATHERS INFORMATION ABOUT A LOAD * 01923500 //* LIBRARY FROM THE INCORE CONTROL BLOCKS, * 01923600 //* FORMATS THIS INFO- RMATION INTO TWO * 01923700 //* 256-BYTE RECORDS, WRITES THOSE RECORDS TO * 01923800 //* A DATASET, THEN COPIES THE LOAD LIBRARY * 01923900 //* DIRECTORY IN BACK OF THE TWO CONTROL * 01924000 //* RECORDS. LPACOMPR READS THE FILE CREATED * 01924100 //* BY LPAXTRCT AND GATHERS THE SAME * 01924200 //* INFORMATION ABOUT THE OTHER LOAD LIBRARY, * 01924300 //* THEN COMPARES THE TWO. DIFFERENCES ARE * 01924400 //* PRINTED IN AN EASY-TO-READ SIDE-BY-SIDE * 01924500 //* FORMAT. THE DIFFERENCES NOTED ARE MODULE * 01924600 //* ADDS/DELETES, TTR, ATTRIBUTES, AND LENGTH. * 01924700 //* SINCE THE PROGRAM WAS ORIGINALLY CODED FOR * 01924800 //* LPALIB COMPARES (YOU COULDN'T GUESS FROM * 01924900 //* THE NAME, COULD YOU?), IT ALSO FLAGS SUCH * 01925000 //* THINGS AS NON-REENTRANT MODULES. * 01925100 //* * 01925200 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01925300 //* * 01925400 //* PROGRAM: SALVAGE * 01925500 //* * 01925600 //* PURPOSE: TO RECOVER AS MUCH DATA AS POSSIBLE FROM * 01925700 //* (WHAT USED TO BE) A PDS WITH AN LRECL OF * 01925800 //* 80, AFTER CLOBBERING THE DIRECTORY AS * 01925900 //* WITH: //SYSUT2 DD DSN=GOOD.OLE.PDS * 01926000 //* INSTEAD OF: //SYSUT2 DD * 01926100 //* DSN=GOOD.OLE.PDS(MEMBER) * 01926200 //* * 01926300 //* LOGIC: SALVAGE READS THE DATASET ONE BLOCK AT A * 01926400 //* TIME. IF THE BLOCK READ WAS A MULTIPLE OF * 01926500 //* 80 BYTES IN LENGTH, IT IS DEBLOCKED AND * 01926600 //* WRITTEN TO A QSAM PS FILE. AT * 01926700 //* END-OF-MEMBER (INDICATED BY A ZERO-LENGTH * 01926800 //* RECORD - UNIT EXCEPTION), A DELIMITER IS * 01926900 //* WRITTEN TO THE QSAM PS FILE. THIS * 01927000 //* DELIMETER IS IN THE FORM OF A "./ ADD" * 01927100 //* IEBUPDTE CONTROL STATEMENT FOR MEMBER * 01927200 //* "MEM#XXXX" WHERE "XXXX" STARTS AT "0001" * 01927300 //* AND CONTINUES TO "9999". * 01927400 //* * 01927500 //* NOTES: WORKS ONLY ON 3350'S IN NATIVE MODE. HAS * 01927600 //* ABSOLUTELY NO RESPECT FOR DS1LSTAR, SO * 01927700 //* READS PAST THE LOGICAL END-OF-FILE. CAN * 01927800 //* ALSO BE USED ON AN INTACT PDS IN ORDER TO * 01927900 //* RECLAIM "GAS" MEMBERS. * 01928000 //* * 01928100 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01928200 //* * 01928300 //* PROGRAM: SWAPDDN (COMMAND PROCESSOR) * 01928400 //* * 01928500 //* PURPOSE: TO CHANGE THE DDNAME OF AN ALREADY * 01928600 //* ALLOCATED DATASET WITHOUT HAVING TO FREE * 01928700 //* AND RE-ALLOCATE IT. GREAT FOR LAZY * 01928800 //* PEOPLE SUCH AS ME AND/OR SLOW SYSTEMS * 01928900 //* SUCH AS OURS. * 01929000 //* * 01929100 //* LOGIC: VERY STRAIGHTFORWARD. COMMAND PARSES THE * 01929200 //* INPUT STRING AND ISOLATES THE OLD AND NEW * 01929300 //* DDNAMES. IT THEN LOCATES THE TIOT ENTRY * 01929400 //* THAT CONTAINS THE OLD DDNAME, GETS INTO * 01929500 //* KEY ZERO, AND THEN, WELL ... * 01929600 //* * 01929700 //* NOTES: USE ONLY ON FILES THAT HAVE ARE CLOSED. * 01929800 //* CHANGES THE FIRST OCCURRENCE OF THE OLD * 01929900 //* DDNAME IN THE TIOT. * 01930000 //* * 01930100 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01930200 //* * 01930300 //* PROGRAM: SYSAFFIN * 01930400 //* * 01930500 //* PURPOSE: TO INSURE THAT THE JOB IN WHICH THE * 01930600 //* PROGRAM EXECUTES RUNS ON THE PROPER * 01930700 //* MACHINE. * 01930800 //* * 01930900 //* LOGIC: SYSAFFIN TAKES A SIX CHARACTER PARM THAT * 01931000 //* IS THE CPU SERIAL NUMBER OF THE MACHINE ON * 01931100 //* WHICH THE JOB IS TO RUN. IT THEN DOES AN * 01931200 //* STIDP (STORE CPU-ID), AND COMPARES THE CPU * 01931300 //* SERIAL OF THE PROCESSOR WITH THE PARM. IF * 01931400 //* THE TWO MATCH, OR IF NO PARM WAS * 01931500 //* SPECIFIED, THE PROGRAM ENDS (ALLOWING THE * 01931600 //* JOB TO CONTINUE). OTHERWISE, THE PROGRAM * 01931700 //* SCANS A TABLE OF VALID CPU-IDS, SEARCHING * 01931800 //* FOR THE ONE THAT WAS CODED ON THE PARM. * 01931900 //* IF IT IS NOT FOUND, AN ABEND U0311 IS * 01932000 //* ISSUED (WITH STEP, SO DON'T PLAY AROUND * 01932100 //* WITH IT ON TSO!). IF A MATCH IS FOUND, * 01932200 //* THE PROPER JES2 SYSTEM-ID IS TAKEN FROM * 01932300 //* THE TABLE AND THE FOLLOWING STRING OF JES2 * 01932400 //* COMMANDS IS CONSTRUCTED AND EXECUTED: * 01932500 //* $HJXXXX;CJXXXX;TJXXXX,S=SSSS;EJXXXX;AJXXXX * 01932600 //* (HERE XXXX IS THE 1-4 DIGIT JOB NUMBER AND * 01932700 //* SSSS IS THE CORRECT JES2 SYSTEM-ID) * 01932800 //* * 01932900 //* NOTES: SEE NOTES AND CAUTIONS IN THE CODE. WILL * 01933000 //* NOT ASSEMBLE UNLESS YOU UPDATE THE * 01933100 //* CPUID/SYSID TABLE. * 01933200 //* * 01933300 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01933400 //* * 01933500 //* PROGRAM: WAIT4END * 01933600 //* * 01933700 //* PURPOSE: TO TEMPORARILY HALT THE PROGRESS OF A * 01933800 //* JOB OR USER UNTIL A PARTICULIAR JOB * 01933900 //* TERMINATES. * 01934000 //* * 01934100 //* LOGIC: THIS IS A CANNIBALIZED VERSION OF THE * 01934200 //* "IFENDED" TSO COMMAND THAT RUNS IN BATCH * 01934300 //* OR AS A CALLED PROGRAM. IT TAKES A PARM * 01934400 //* OF THE NAME OF THE JOB FOR WHICH IT IS TO * 01934500 //* WAIT. IT TIMER-POPS EVERY 10 SECONDS AND * 01934600 //* CHECKS TO SEE IF THE JOB IS RUNNING. IF * 01934700 //* IT IS NOT, THE PROGRAM ENDS, AND THE JOB * 01934800 //* (OR USER) CONTINUES. * 01934900 //* * 01935000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01935100 //* * 01935200 //* PROGRAM: PW1MATCH/PW2MATCH * 01935300 //* * 01935400 //* PURPOSE: TO REPORT ON THE TIMELINESS WITH WHICH * 01935500 //* OS PASSWORD PROMPTS ARE ANSWERED BY * 01935600 //* OPERATORS. * 01935700 //* * 01935800 //* LOGIC: PW1MATCH READS A TAPE OR DISK VERSION OF * 01935900 //* THE SYSLOG, AND STRIPS OFF ALL PASSWORD * 01936000 //* PROMPTS (IEC301A MESSAGES), AND THEIR * 01936100 //* CORRESPONDING REPLIES. THE PROMPTS ARE * 01936200 //* WRITTEN TO THE FILE WITH THE DDNAME * 01936300 //* "PROMPTS", AND THE REPLIES ARE WRITTEN TO * 01936400 //* THE FILE WITH THE DDNAME "REPLIES". * 01936500 //* THESE TWO FILES ARE THEN SORTED * 01936600 //* (INDEPENDENTLY) BY REPLY-ID IN STEPS * 01936700 //* "SORTPROM" AND "SORTREPL". (THE SORT * 01936800 //* USES THE SYNCSORT OPTION "EQUALS" TO KEEP * 01936900 //* RECORDS WITH EQUAL SORT CRITERIA IN THE * 01937000 //* SAME ORDER THAT THEY WERE IN THE INPUT * 01937100 //* FILES). THE RECORDS IN THESE SORTED * 01937200 //* FILES ARE THEN MATCHED BY REPLY-ID AND * 01937300 //* THE DATA MERGED INTO ONE RECORD WHICH IS * 01937400 //* WRITTEN TO THE FILE WITH THE DDNAME * 01937500 //* "MERGED". THE FINAL STEP OF THE JOB * 01937600 //* PRINTS A REPORT THAT DETAILS THE TIME * 01937700 //* SPENT WAITING FOR REPLIES TO PASSWORD * 01937800 //* PROMPTS. * 01937900 //* * 01938000 //* NOTES: REPORT STEP REQUIRES THE "SAS" PRODUCT * 01938100 //* (FROM THE SAS INSTITUTE). IF YOU DO NOT * 01938200 //* HAVE SAS, IT SHOULD BE VERY EASY TO WRITE * 01938300 //* THE REPORT PROGRAM IN THE LANGUAGE OF YOUR * 01938400 //* CHOICE. AN AN ALTERNATIVE TO USING * 01938500 //* SYNCSORT'S "EQUALS" OPTION WOULD BE TO * 01938600 //* MODIFY PW1MATCH TO ADD A SEQUENCE NUMBER * 01938700 //* TO EACH RECORD AS IT IS PRODUCED, THEN USE * 01938800 //* THIS AS A SECONDARY SORT FIELD. * 01938900 //* * 01939000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01939100 //* $SAVE ..... USER MACRO * 01939200 //* FUDGEIT ..... USER MACRO * 01939300 //* HEX ..... USER MACRO * 01939400 //* IEFRELSE ..... USER MACRO * 01939500 //* IEFSAVER ..... USER MACRO * 01939600 //* REGS ..... USER MACRO * 01939700 //* SCANTIOT ..... USER MACRO * 01939800 //* VDATETIM ..... USER MACRO * 01939900 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01940000 //* * 01940100 //***FILE 388 IS FROM COMNET AND CONTAINS A COPY OF THEIR OPERATOR * 01940200 //* COMMANDS SCHEDULING FACILITY. THIS CODE WAS WRITTEN BY * 01940300 //* MR DAVID B COLE AND IT IN IEBUPDTE SYSIN FORMAT. FOR * 01940400 //* ADDITIONAL INFORMATION PLEASE SEE THE MEMBER CALLED * 01940500 //* $$DOC AND READ THE FOLLOWING : * 01940600 //* * 01940700 //* A PROGRAM HAS BEEN WRITTEN TO PRINT OUT THE AUTOMATIC * 01940800 //* SCHEDULING FACILITY FILE BY MAY & SPEH AND IS CONTAINED * 01940900 //* IN FILE 422 OF THIS TAPE * 01941000 //* * 01941100 //* THE MACROS NEEDED FOR THIS SYSTEM ARE CONTAINED IN FILE 408 * 01941200 //* OF THIS TAPE * 01941300 //* * 01941400 //* THE SCHEDULE FACILITY MAKES IT POSSIBLE TO SCHEDULE THE * 01941500 //* AUTOMATIC EXECUTION OF ANY OPERATOR COMMAND AT ANY TIME * 01941600 //* OF DAY ON ANY DATE. THE EXECUTION OF THE COMMAND CAN * 01941700 //* BE REPEATED ACCORDING TO ANY OF A LARGE VARIETY OF * 01941800 //* DAILY, WEEKLY, MONTHLY, AND/OR YEARLY REPEAT CYCLES. * 01941900 //* (SEE THE ACCOMPANYING TSO HELP FILE FOR DETAILS). * 01942000 //* * 01942100 //* THE SCHEDULE FACILITY SUPPORTS AN OVERRIDE CAPABILITY * 01942200 //* WHEREBY PARTICULAR SETS OF PERIODICALLY SCHEDULED * 01942300 //* COMMANDS CAN BE OVERRIDDEN ON SELECTED DATES (SUCH AS * 01942400 //* HOLIDAYS) WITH ANOTHER SET OF COMMANDS TO BE EXECUTED * 01942500 //* INSTEAD. SUCH OVERRIDES CAN BE DEFINED EVEN YEARS IN * 01942600 //* ADVANCE, IF DESIRED. * 01942700 //* * 01942800 //* THE SCHEDULE FACILITY PERMITS THE DEFINITION OF A * 01942900 //* "WINDOW" PERIOD (DEFINED SEPARATELY FOR EACH SCHEDULED * 01943000 //* AUTOMATIC COMMAND) WHEREBY: * 01943100 //* * 01943200 //* - IF THE SYSTEM IS DOWN AT THE TIME THAT A COMMAND * 01943300 //* IS SCHEDULED TO BE EXECUTED, * 01943400 //* * 01943500 //* - BUT IF THE SYSTEM COMES UP ANY TIME DURING THE * 01943600 //* SPECIFIED "WINDOW PERIOD" FOLLOWING THE COMMAND'S * 01943700 //* SCHEDULED TIME, * 01943800 //* * 01943900 //* - THEN THAT COMMAND WILL BE EXECUTED ANYWAY. * 01944000 //* * 01944100 //* THUS THE EXECUTION OF IMPORTANT COMMANDS WON'T BE * 01944200 //* MISSED JUST BECAUSE THE SYSTEM WASN'T UP IN TIME. * 01944300 //* * 01944400 //* IN JES2 "MULTI-ACCESS SPOOL" CONFIGURATIONS, THE * 01944500 //* SCHEDULE FACILITY'S VSAM DATA BASE CAN BE SHARED * 01944600 //* BETWEEN MULTIPLE SYSTEMS, AND OPERATOR COMMANDS CAN BE * 01944700 //* SCHEDULED TO EXECUTE ON EITHER ONE OR THE OTHER (OR * 01944800 //* "ANY") OF THE ATTACHED CPUS. * 01944900 //* * 01945000 //* THE SCHEDULE FACILITY CAN MAINTAIN A LOG FILE WHERE IT * 01945100 //* RECORDS A TIMESTAMPED COPY OF ALL OPERATOR COMMANDS * 01945200 //* THAT IT ISSUES. * 01945300 //* * 01945400 //* THE SCHEDULE FACILITY IS DESIGNED TO EXECUTE IN A JES2 * 01945500 //* ENVIRONMENT. IF YOU WISH TO USE IT IN A JES3 SYSTEM, * 01945600 //* THEN YOU MUST MAKE SUITABLE MODIFICATIONS TO THE * 01945700 //* FACILITY'S SOURCE CODE. * 01945800 //* * 01945900 //***FILE 389 IS A COPY OF THE IBM LOGSCAN SERVICE AID CONTRIBUTED * 01946000 //* BY CAPITAL HOLDING CORPORATION OF LOUISVILLE, KENTUCKY . * 01946100 //* THIS PROGRAM WAS DESIGNED TO BE USED TO SCAN AND EXTRACT * 01946200 //* INFORMATION FROM A SYSLOG DATASET . THIS IS FILE IS IN * 01946300 //* IEBUPDTE SYSIN FORMAT . THE MEMBER CALLED $$DOC CONTAINS * 01946400 //* INFORMATION ON HOW TO USE LOGSCAN, THE MEMBERS CALLED * 01946500 //* JES2OBJ AND JES3OBJ ARE THE JES2 AND JES3 VERSIONS OF THE * 01946600 //* OJBECT DECKS . SORRY BUT NO SOURCE CODE IS AVAILABLE . * 01946700 //* * 01946800 //***FILE 390 IS A JES2 1.3.3 VER OF THE TSO CP CALLED QUE FROM * 01946900 //* ANR PRODUCTION COMPANY ( FORMERLY CALLED THE MICHIGAN * 01947000 //* WISCONSIN PIPE LINE COMPANY ) OF HOUSTON TEXAS * 01947100 //* * 01947200 //***FILE 391 IS A JES2 1.3.0 VER OF THE TSO CP CALLED QUE FROM * 01947300 //* OAK RIDGE NATIONAL LABORATORY . THIS VERSION HAS * 01947400 //* ALL THE SECURITY CHECKS MOVED TO A NEW CSECT FOR THE * 01947500 //* CHANGES MADE BY OAK RIDGE SEE THE MEMBER CALLED * 01947600 //* $ONLDOC . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01947700 //* * 01947800 //***FILE 392 IS A JES2 1.3.3 VER OF THE TSO CP CALLED QUE FROM * 01947900 //* THE TEXAS EMPLOYMENT COMMISSION . FOR THE CHANGES * 01948000 //* MADE TO THIS VERSION PLEASE SEE THE MEMBER CALLED * 01948100 //* $TECDOC . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01948200 //* * 01948300 //***FILE 393 IS A JES2 1.3.3/4 VER OF THE TSO CP CALLED QUE FROM * 01948400 //* THE UNIVERSITY OF FLORIDA . THIS FILE IS IN IEBUPDTE * 01948500 //* SYSIN FORMAT . THIS CODE WAS TAKEN FROM VERSION * 01948600 //* 26 OF THE JES2 SP MODS TAPE AND IS BASED ON THE VER * 01948700 //* OF QUE FROM OAK RIDGE NATIONAL LABORATORY THAT HAS * 01948800 //* ALL THE SECURITY CHECKS IN ONE NEW CSECT * 01948900 //* * 01949000 //***FILE 394 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01949100 //* * 01949200 //***FILE 395 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01949300 //* * 01949400 //***FILE 396 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01949500 //* * 01949600 //***FILE 397 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01949700 //* * 01949800 //***FILE 398 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01949900 //* * 01950000 //***FILE 399 IS RESERVED FOR FUTURE JES2 1.3.3 QUE'S * 01950100 //* * 01950200 //***FILE 400 IS DYNAMASK FROM SECURITY PACIFIC NATIONAL BANK IN * 01950300 //* CALIFORNIA . THIS FILE IS IN IEBUPDTE SYSIN FORMAT . * 01950400 //* THIS FILE CONTAINS THE FOLLOWING MEMBERS FOR * 01950500 //* ADDITIONAL INFORMATION SEE THE MEMBER CALLED $$DYNDOC * 01950600 //* * 01950700 //* DYNAMASK * 01950800 //* DYNAMASK PROVIDES THE ABILITY TO DYNAMICALLY * 01950900 //* CHANGE AND ADD TO THE UNIT NAMES DEFINED AT * 01951000 //* SYSGEN . DYNAMASK OPTIONALLY CAN BE GIVEN UNIT * 01951100 //* ADDRESSES OR VOLUMES AND THE UNIT NAMES WILL BE * 01951200 //* ASSIGNED TO THE UNIT ADDRESSES THAT THE VOLUMES * 01951300 //* ARE CURRENTLY MOUNTED . IT CAN BE RUN AT ANY * 01951400 //* TIME THE SYSTEM IS DAINED OF ALL ACTIVITY . * 01951500 //* DYNAMASK RUNS AS AN OPERATOR REQUESTED OR BATCH * 01951600 //* SUBMITTED UTILITY WHICH MAKES THE NECESSARY * 01951700 //* CONTROL BLOCK CHANGES AND EXITS . IT REQUIRES * 01951800 //* MINIMUM RESOURCES AND EXECUTES IN A FEW SECONDS . * 01951900 //* DYNAMASK SUPPORTS THE FOLLOWING RELEASES : * 01952000 //* MVS3.8 - MVS/SP1.3 , MVS/XA2.0 - 2.1.1 * 01952100 //* * 01952200 //* GENERIC * 01952300 //* THIS IS A MVS/370 PROGRAM TO UPDATE THE DEVTMASK * 01952400 //* AND DEVTNAME TABLES . IT WILL BE CALLED BY * 01952500 //* DYNAMASK IF INCLUDED IN THE LKED AND WILL BE * 01952600 //* BYPASSED IF IN A XA SYSTEM . * 01952700 //* * 01952800 //* VATUCB * 01952900 //* THIS IS A PROGRAM TO UPDATE THE UCB ' S FROM * 01953000 //* INFORMATION IN A USER SUPPLIED VATLST . THIS * 01953100 //* WILL RUN IN XA AND MVS/370 MODE . IT WILL BE * 01953200 //* CALLED BY DYNAMASK IF INCLUDED IN THE LKED * 01953300 //* * 01953400 //***FILE 401 IS FROM BELL LABS AND CONTAINS THE SOURCE CODE , * 01953500 //* MACROS AND TSO COMMAND PROCESSORS REQUIRED TO RUN * 01953600 //* VERSION 4.1 OF THE TSSO SUBSYSTEM . TSSO IS AN * 01953700 //* OPERATIONS PRODUCTIVITY AID THAT ALLOWS FOR MVS * 01953800 //* OPERATOR COMMAND CLISTS , TSO COMMAND EXECUTION FROM * 01953900 //* AN MVS OPERATORS CONSOLE , AND SELECTED TRAPPING OF * 01954000 //* MVS OR SUBSYSTEM MESSAGES . THESE MESSAGES CAN * 01954100 //* THEN BE : * 01954200 //* A) SUPPRESSED * 01954300 //* B) REPLIED TO ( IN CASE OF WTOR ) * 01954400 //* C) HILIGHTED * 01954500 //* D) LOWLIGHTED * 01954600 //* E) HAVE A COMMAND ISSUED IN RESPONSE TO * 01954700 //* TSSO IS AN EXTEREMELY POWERFUL , YET EASY TO USE TOOL * 01954800 //* MEMBER USEGUIDE CONTAINS THE TSSO USERS GUIDE , A * 01954900 //* MUCH IMPROVED VERSION OVER PREVIOUS RELEASES , AND * 01955000 //* MEMBER RELGUIDE CONTAINS A RELEASE GUIDE TO TSSO * 01955100 //* VERSION 4.1 , INDICATING THE CHANGES SINCE THE * 01955200 //* PREVIOUS RELEASE . READ THE USERS GUIDE IN ITS * 01955300 //* ENTIRETY FIRST , AS IT DISCUSSES INSTALLATION , * 01955400 //* PARAMETER SPECIFICATIONS AND SYNTAX , AS WELL AS * 01955500 //* PROVIDING A FEEL FOR TSSO ' S CAPABILITIES * 01955600 //* * 01955700 //***FILE 402 CONTAINS A COPY OF A DASD MANAGAMENT SYSTEM FROM * 01955800 //* THE NATIONAL BANK OF ALASKA IN ANCHORAGE , ALASKA . * 01955900 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT , SEE THE * 01956000 //* MEMBER CALLED $$INDEX FOR ADDITIONAL INFORMATION * 01956100 //* * 01956200 //***FILE 403 IS FROM THE COCA COLA COMPANY IN ATLANTA , GEORGIA . * 01956300 //* THIS MODIFICATION WILL SHOW COMMANDS , WHEN DISPLAYED * 01956400 //* ON THE SYSTEM LOG WILL BE PREFIXED WITH THE CONSOLE * 01956500 //* UCMID (OR 'RD' IF FROM A INTRDR, OR 'TS' IF FROM A * 01956600 //* TIME SHARING USER) . * 01956700 //* * 01956800 //* THIS VERSION SHOULD FIT MVS/SP 1.3.0, 1.3.1, 1.3.2 AND * 01956900 //* 1.3.3 * 01957000 //* * 01957100 //* ---> HERE ARE SOME EXAMPLES EXTRACTED FROM SYSLOG <--- * 01957200 //* ---> COMMENTS ARE ADDED TO THE RIGHT OF THE COMMANDS <--- * 01957300 //* ---> EXPLAIN WHERE THE COMMAND ORIGINATED. <--- * 01957400 //* * 01957500 //* (07) $FPR2,D (THIS JES CMD WAS FROM CONS 07) * 01957600 //* (00) D T (THIS WAS AN AUTOMATIC COMMAND) * 01957700 //* STC 7063 (RD) LOGON (THIS IS FROM THE TSOIRDR) * 01957800 //* (07) $EPR3 (FROM CONS 07) * 01957900 //* TSU 4268 (TS) $DI (A TSO USER ISSUED THIS VIA THE * 01958000 //* "$" COMMAND PROCESSOR) * 01958100 //* (06) $RALL,J=T4154,D=R201 (FROM CONS 06) * 01958200 //* (00) S FREESPC (AUTO COMMAND) * 01958300 //* (06) $D'T4154' * 01958400 //* (06) $DA (FROM CONS 06) * 01958500 //* (01) D J,A3017H (FROM CONS 01) * 01958600 //* (03) V 580,ONLINE (FROM CONS 03) * 01958700 //* TSU 4437 (TS) $TOT4437,ALL,DEST=LOCAL ($ COMMAND CP) * 01958800 //* TSU 4437 (TS) $TO'O9061W',ALL,F=STD. (" " " * 01958900 //* (01) #E * 01959000 //* (00) M 3350,VOL=(SL,DISK01),USE=PRIVATE (AUTO) * 01959100 //* (00) M 3350,VOL=(SL,DISK11),USE=PRIVATE (AUTO) * 01959200 //* (07) $FPR2 * 01959300 //* (03) #RU=5 * 01959400 //* TSU 4303 (TS) $TJ4318,C=Q M * 01959500 //* (06) $PR201.PR3 O * 01959600 //* (03) #E R * 01959700 //* (03) $DQ,Q=XEQ E * 01959800 //* (03) #J * 01959900 //* (03) $DF E * 01960000 //* (01) $DJ3833 X * 01960100 //* (03) $DQ,Q=XEQ A * 01960200 //* (03) $DA M * 01960300 //* (03) #J L * 01960400 //* (01) $ DJ4401 E * 01960500 //* (00) S WTR1 S * 01960600 //* (00) C A7221A CANCELLED BY JES2 TIME EXCEEDED * 01960700 //* (THE ABOVE CANCEL WAS GENERATED * 01960800 //* INTERNALLY BY JES2 ) * 01960900 //* (07) K S,DEL=RD,SEG=19,CON=Y,RNUM=19,RTME=003 * 01961000 //* (01) $ D'A04529X' * 01961100 //* (01) D U,,,583,1 * 01961200 //* (01) D J,A3017H * 01961300 //* TSU 4406 (TS) $DU,PRT1 (FROM SPY UNDER TSO) * 01961400 //* (01) DUMP COMM=(A3017H,JOB SWAPPED OUT 1.5 HRS) * 01961500 //* TSU 4437 (TS) D D (FROM SPY UNDER TSO) * 01961600 //* * 01961700 //***FILE 404 IS A TSO COMMAND PROCESSOR FROM FLORIDA POWER * 01961800 //* CORPORATION CALLED MVSMON. * 01961900 //* * 01962000 //* MVSMON IS A COMMAND DRIVEN MVS DISPLAY * 01962100 //* MONITOR WHICH HAS THE FOLLOWING * 01962200 //* CHARACTERISTICS. * 01962300 //* * 01962400 //* 1. IT IS REENTRANT AND CAN BE PLACED IN * 01962500 //* PLPA FOR COMMON USE. * 01962600 //* * 01962700 //* 2. WHEN EXECUTED AS A SYSTEM TASK IT USES * 01962800 //* A WTOR/WTO INTERFACE TO THE MCS MASTER * 01962900 //* CONSOLE. * 01963000 //* * 01963100 //* 3. WHEN EXECUTED AS A TSO PROGRAM IT USES * 01963200 //* A TGET/TPUT INTERFACE TO TERMINAL. * 01963300 //* * 01963400 //* 4. WHEN EXECUTED AS A BATCH PROGRAM IT * 01963500 //* USES A GET/PUT INTERFACE TO SYSIN AND * 01963600 //* SYSPRINT QSAM FILES. * 01963700 //* * 01963800 //* 5. THE PROGRAM DOES NOT REQUIRE ANY * 01963900 //* AUTHORIZATION OR HOOKS. * 01964000 //* * 01964100 //* 6. IF A PARM IS PRESENT, IT IS EXECUTED AS * 01964200 //* A SINGLE INPUT COMMAND AND THEN THE PGM * 01964300 //* TERMINATES NORMALLY. THIS IS FOR USE * 01964400 //* AS A STARTED TASK TO JUST GET A SINGLE * 01964500 //* RESPONSE WITHOUT USING WTOR. FOR * 01964600 //* EXAMPLE, S MVSMON,,,PARM=DE * 01964700 //* * 01964800 //* 7. NOTE PROGRAM CONTAINS NO RLDS TO REDUCE * 01964900 //* I/O AND PROCESSING TIME FOR FETCH WHEN * 01965000 //* EXECUTING OUT OF PDS RATHER THAN PLPA. * 01965100 //* * 01965200 //* 8. WHEN EXECUTED AS A CALLED PROGRAM BY * 01965300 //* THE MESSAGE PROCESSING SUPERVISOR (MPS) * 01965400 //* GU640001 FOR ONLINE SYSTEMS, IT USES * 01965500 //* THE FOLLOWING INTERFACES * 01965600 //* * 01965700 //* INPUT/OUTPUT CALL ARGUMENTS * 01965800 //* A. TCAM TERMINAL NAME (8 BYTES) * 01965900 //* B. MESSAGE ADDRESS * 01966000 //* C. MESSAGE LENGTH (4 BYTES BINARY) * 01966100 //* * 01966200 //* MVSMON IDENTIFIES THIS MODE BY LOCATING * 01966300 //* CDE ENTRY POINT NAMED MVSMONVT WHICH * 01966400 //* POINTS TO VECTOR TABLE WITH THE * 01966500 //* FOLLOWING ENTRIES. * 01966600 //* A. ADDRESS OF MVSMON WORK AREA * 01966700 //* CREATED ON FIRST CALL AND USED * 01966800 //* FOR ALL SUCCEEDING CALLS. * 01966900 //* B. ADDRESS OF OUTPUT MESSAGE * 01967000 //* PROCESSOR CALLED BY MVSMON TO * 01967100 //* OUTPUT MESSAGES. * 01967200 //* * 01967300 //* 9. SPIE PROGRAM INTERRUPTION HANDLER * 01967400 //* ATTEMPTS TO RECOVER FROM TEMPORARY * 01967500 //* INTERRUPTIONS CAUSED BY CONTROL BLOCK * 01967600 //* CHANGES DURING ACCESS. * 01967700 //* * 01967800 //* 10. STAX INTERRUPTION HANDLER ABORTS AND/OR * 01967900 //* SURPRESSES THE REMAINING OUTPUT FROM * 01968000 //* THE CURRENT COMMAND WHEN RUNNING IN TSO * 01968100 //* MODE. * 01968200 //* * 01968300 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. PLEASE SEE THE * 01968400 //* MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION * 01968500 //* * 01968600 //***FILE 405 IS FROM GTE LABS IN WALTHAM , MASS. AND CONTAINS * 01968700 //* SAFECOPY WHICH IS A TSO COMMAND PROCESSOR WHICH ENABLES MANY* 01968800 //* USERS TO COPY DATA INTO THE SAME DATASET SIMULTANEOUSLY * 01968900 //* WITHOUT CONFLICTING WITH EACH OTHER. INPUT DATA MAY * 01969000 //* COME FROM A DATASET, FROM THE TERMINAL, OR FROM DATA * 01969100 //* STACKED INSTREAM IN A CLIST. * 01969200 //* * 01969300 //* SAFECOPY IS ESPECIALLY USEFUL IN CLISTS WHICH WRITE TO * 01969400 //* A COMMON DATASET. * 01969500 //* * 01969600 //* SAFECOPY ACCOMPLISHES THIS BY PERFORMING A SYSTEM * 01969700 //* ENQUEUE BEFORE WRITING TO THE DATASET. MAJOR NAME IS * 01969800 //* USERDSN, MINOR NAME IS THE NAME OF THE DATASET INTO * 01969900 //* WHICH SAFECOPY IS WRITING. * 01970000 //* * 01970100 //* INPUT AND OUTPUT CAN BE DESIGNATED BY DATASET NAME, OR * 01970200 //* BY FILE/DD NAME. IF THE OUTPUT DATASET IS NOT * 01970300 //* PARTITIONED, THE MOD OPERAND WILL CAUSE THE USE OF THE * 01970400 //* EXTEND OPERAND OF OPEN, ALLOWING DATA TO BE ADDED ON TO * 01970500 //* THE END OF A SEQUENTIAL DATASET. * 01970600 //* * 01970700 //* THE DEFAULT IS NONUM. THE USE OF THE NUM OPERAND WILL * 01970800 //* CAUSE THE PHYSICAL RELOCATION OF LINE NUMBERS WHEN * 01970900 //* SAFECOPYING BETWEEN VARIABLE AND FIXED RECORD LENGTH * 01971000 //* DATASETS, OR BETWEEN FIXED RECORD LENGTH DATASETS OF * 01971100 //* DIFFERENT LOGICAL RECORD LENGTHS. * 01971200 //* * 01971300 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. SEE THE MEMBER * 01971400 //* CALLED $DOC FOR ADDITIONAL INFORMATION * 01971500 //* * 01971600 //***FILE 406 IS FROM COMPUTER DATA SYSTEMS AND CONTAINS TWO TSO * 01971700 //* COMMAND PROCESSORS . THIS FILE IS IN IEBUPDTE SYSIN * 01971800 //* SYSIN FORMAT . THE TWO CP'S ARE : * 01971900 //* A. CQX * 01972000 //* THIS CP IS USED TO CANCEL AND DELETE ALL DATA * 01972100 //* SETS OFF THE QUEUE. THIS COMMAND ONLY * 01972200 //* AUTHORIZES ITSELF WHEN CALLING SUBSYSTEM * 01972300 //* INTERFACE. THE SVC NUMBER MUST BE CHANGED FOR * 01972400 //* THE AUTHORIZING OF THIS FUNCTION TO WHAT EVER * 01972500 //* NUMBER IS USED FOR YOUR INSTALLATION. THIS * 01972600 //* SHOULD BE THE ONLY INSTALATION DEPENDENT ITEM * 01972700 //* IN THIS CODE. THE FORMAT FOR THIS COMMAND IS: * 01972800 //* "CQ JOBNAME" OR * 01972900 //* "CQ (JOBNAME(JOBID),JOBNAME(JOBID)....JOBNAME)" * 01973000 //* THIS WILL REMOVE ONLY SELECTED JOBS WHEN GIVEN * 01973100 //* THE JOBID OR ALL JOBS WITH A SPECIFIED JOBNAME * 01973200 //* AND NO JOBID. BE CAREFUL. * 01973300 //* B. FIND * 01973400 //* THIS IS A DATA SET SEARCH ROUTINE. THIS USES * 01973500 //* CP REQUESTS THE DATA SET NAME AND DOES SOME * 01973600 //* STANDARD CKECKING. IT THE SEARCHES THE CATALOG * 01973700 //* TO FIND THE ENTRY. AFTER THE CATALOG IS * 01973800 //* SEARCHED IT THEN SEARCHES THE UCB ENTRIES AND * 01973900 //* COMPARES THEM WITH OUR DASD TYPES. THIS LIST * 01974000 //* IS INCORPRATED WITHIN THE CODE AND MAY BE ADDED * 01974100 //* TO EASILY. IT OBTAINS THE VOLUME NAME AND * 01974200 //* CKECKS THE VTOC FOR THE FORMAT 1 DSCB. ALSO, IF * 01974300 //* THERE IS A ALTERNATE PATH THERE IS A SECOND * 01974400 //* ADDRESS IN THE TABEL POINTING TO THE DEVICE, * 01974500 //* THERFORE A SECOND SEARCH IS DONE AND IF A 'HIT' * 01974600 //* IS MADE A SECOND MESSAGE IS PRODUCED. A SECOND * 01974700 //* CHARACTER TABLE IS PUT IN FOR THE CONVIENCE OF * 01974800 //* OTHERS. * 01974900 //* * 01975000 //***FILE 407 CONTAINS A COPY OF DYNAMIC BLDL * 01975100 //* FROM COMNET IN WASHINGTON D.C. AND WAS WRITTEN * 01975200 //* BY MR DAVID B COLE . THIS FILE IS IN IEBUPDTE * 01975300 //* SYSIN FORMAT (SEE THE MEMBER CALLED $$DOC FOR * 01975400 //* ADDITIONAL DOCUMENTATION) . THE MACROS NEEDED * 01975500 //* ARE CONTAINED IN FILE 408 OF THIS TAPE AND THE * 01975600 //* DYNABLDL LOAD MODULE FOR THIS LEVEL OF SOURCE * 01975700 //* RESIDES IN FILE 035 OF THIS TAPE . * 01975800 //* * 01975900 //* THIS PROGRAM IS CONCEPTUALLY BASED ON THE * 01976000 //* VARIOUS DYNAMIC BLDL PROGRAMS AVAILABLE FROM * 01976100 //* THE "CBT MODS" TAPE. HOWEVER, THIS VERSION IS * 01976200 //* A COMPLETE REWRITE THAT INCORPORATES A SERIES * 01976300 //* OF IMPROVEMENTS : * 01976400 //* * 01976500 //* - THIS VERSION OF DYNABLDL IS * 01976600 //* CAPABLE OF RECOGNIZING AND HOOKING * 01976700 //* INTO ANY OF SEVERAL VERSIONS OF * 01976800 //* IBM'S IGC018. THE RECOGNITION CODE * 01976900 //* IS TABLE DRIVEN, AND ADDITIONAL * 01977000 //* RECOGNITION TABLES CAN BE FAIRLY * 01977100 //* EASILY ADDED. * 01977200 //* * 01977300 //* - THE RECOGNITION TABLES ARE * 01977400 //* COMPREHENSIVE. EACH TABLE CONSISTS * 01977500 //* OF FOUR PARTS. THE FIRST, LABELED * 01977600 //* "ID#" (WHERE "#" REPRESENTS AN * 01977700 //* ARBITRARY UNIQUE NUMERIC SUFIX), * 01977800 //* MUST MATCH AN IGC018'S * 01977900 //* IDENTIFICATION HEADER. THIS IS * 01978000 //* USED TO DISTINGUISH ONE IGC018 * 01978100 //* FROM ANOTHER. THE SECOND AND THIRD * 01978200 //* PARTS, LABELED "SRCHPO#" AND * 01978300 //* "DFOUND#", MUST MATCH THE TWO * 01978400 //* LOCATIONS IN IGC018 WHERE DYNABLDL * 01978500 //* INSERTS ITS JUMPS TO ITS INTERCEPT * 01978600 //* ROUTINES. THE FOURTH PART CONSISTS * 01978700 //* OF A LIST OF DESCRIPTORS OF ALL * 01978800 //* IBM PRIVATE DATA FIELDS REFERENCED * 01978900 //* BY THE INTERCEPT ROUTINES. MOST * 01979000 //* OF THE DESCRIPTORS ARE S-CONS * 01979100 //* GIVING THE BASE REGISTER BY WHICH * 01979200 //* IGC018 REFERENCES A FIELD AND THE * 01979300 //* DISPLACEMENT OF THAT FIELD INTO * 01979400 //* THE IBM PRIVATE CONTROL BLOCK. THE * 01979500 //* DYNABLDL INITIALIZATION ROUTINE * 01979600 //* USES THIS LIST TO DYNAMICALLY * 01979700 //* MODIFY ALL MACHINE INSTRUCTIONS IN * 01979800 //* THE TWO INTERCEPT ROUTINES SO THAT * 01979900 //* THEY CORRECTLY MATCH THE * 01980000 //* PARTICULAR VERSION OF IGC018 BEING * 01980100 //* HOOKED INTO. NOTE, THE TWO IBM * 01980200 //* PRIVATE CONTROL BLOCKS INVOLVED * 01980300 //* HERE ARE THE "BLDL WORK AREA" AND * 01980400 //* BLDL'S "SVRB EXTENDED SAVE AREA". * 01980500 //* * 01980600 //* - ALL ROUTINES RELATED TO DYNABLDL * 01980700 //* HAVE BEEN CONSOLIDATED INTO A * 01980800 //* SINGLE PROGRAM. THIS RELIEVES THE * 01980900 //* POTENTIAL FOR ERRORS ARISING FROM * 01981000 //* PARTIAL MODIFICATIONS. * 01981100 //* * 01981200 //* - THE DYNAMIC BLDL TABLE IS NOW * 01981300 //* MAINTAINED BY A STRAIGHT FORWARD * 01981400 //* "LEAST RECENTLY USED" ALGORITHM. * 01981500 //* THE PREVIOUSLY USED PERIODIC SORTS * 01981600 //* AND PARTIAL REFILL METHOD HAS BEEN * 01981700 //* DISCARDED. * 01981800 //* * 01981900 //* - PRIOR VERSIONS OF DYNABLDL DID NOT * 01982000 //* INTERCEPT LINKLIST BLDL REQUESTS * 01982100 //* IN WHICH THE USER REQUESTED TWO OR * 01982200 //* MORE NAMES. FURTHER, PRIOR * 01982300 //* DYNABLDLS DID NOT COUNT SUCH * 01982400 //* IGNORED REQUESTS AS "MISSES". * 01982500 //* CONSEQUENTLY, THE "HIT RATE" * 01982600 //* REPORTED BACK WAS INCORRECT. (IT * 01982700 //* WAS TOO HIGH). THIS VERSION OF * 01982800 //* DYNABLDL DOES HANDLE MULTI-ENTRY * 01982900 //* BLDL REQUESTS, AND MY EXPERIENCE * 01983000 //* HAS BEEN THAT THE TRUE HIT RATE * 01983100 //* HAS RISEN FROM ABOUT 80% TO BETTER * 01983200 //* THAN 95%. * 01983300 //* * 01983400 //* - THE REPORT FUNCTION NOW PRODUCES * 01983500 //* THREE LISTINGS OF THE DYNAMIC * 01983600 //* TABLE (PRINTED IN 3-COLUMN FORMAT * 01983700 //* USING LESS THAN 79 CHARACTERS PER * 01983800 //* LINE - SUITABLE FOR 3270 DISPLAY). * 01983900 //* ONE LISTING IS SORTED BY NAME; A * 01984000 //* SECOND IS SORTED BY HITS COUNT; * 01984100 //* THE THIRD IS SORTED BY L.R.U. * 01984200 //* CHARACTERISTIC. * 01984300 //* * 01984400 //* - THE DYNABLDL STOP FUNCTION NOW * 01984500 //* COMPLETELY REMOVES DYNABLDL FROM * 01984600 //* THE SYSTEM RATHER THAN JUST * 01984700 //* DISABLING THE HOOK ROUTINES. * 01984800 //* * 01984900 //***FILE 408 CONTAINS A COPY OF DAVE COLE'S MACLIB ( COMNET ) * 01985000 //* WHICH IS NEEDED TO ASSEMBLE THE FOLLOWING PROGRAMS * 01985100 //* DYNABLDL ON FILE 407 * 01985200 //* XREFASM ON FILE 162 * 01985300 //* SCHEDULE ON FILE 388 * 01985400 //* COMPRSEQ ON FILE 226 * 01985500 //* OFFLOAD ON FILE 225 * 01985600 //* * 01985700 //***FILE 409 CONTAINS A COPY OF #D (SE2SD03D) AND #T (CSCSN03D) * 01985800 //* FROM FILE 266 THAT HAVE BEEN CORRECT/UPDATED TO * 01985900 //* NOT CAUSE A SYSTEM CRASH WHEN USED AGAINIST ANOTHER * 01986000 //* ADDRESS SPACE. SEE THE MEMBER CALLED $$DOC FOR MORE * 01986100 //* INFO . THIS CHANGE PROBABLY SHOULD ALSO BE * 01986200 //* INCORPORATED INTO SP1SD03D WHICH IS THE SP1.* LEVEL * 01986300 //* OF #D WHICH HAS THE OKCANC AND NOCANCL FUNCTION * 01986400 //* CORRECTED * 01986500 //* * 01986600 //***FILE 410 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01986700 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01986800 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01986900 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01987000 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01987100 //* SYSIN FORMAT AND CONTAINS THE INSTALLATION * 01987200 //* DOCUMENTATION AND JCL . * 01987300 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01987400 //* * 01987500 //***FILE 411 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01987600 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01987700 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01987800 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01987900 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01988000 //* SYSIN FORMAT AND CONTAINS THE SOURCE AND SAMPLE * 01988100 //* FILES . * 01988200 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01988300 //* * 01988400 //***FILE 412 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01988500 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01988600 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01988700 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01988800 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01988900 //* SYSIN FORMAT AND CONTAINS THE PANEL LIBRARY . * 01989000 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01989100 //* * 01989200 //***FILE 413 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01989300 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01989400 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01989500 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01989600 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01989700 //* SYSIN FORMAT AND CONTAINS THE MESSAGE LIBRARY . * 01989800 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01989900 //* * 01990000 //***FILE 414 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01990100 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01990200 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01990300 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01990400 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01990500 //* SYSIN FORMAT AND CONTAINS THE SKELTON LIBRARY . * 01990600 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01990700 //* * 01990800 //***FILE 415 IS FROM THE BLUE CROSS/BLUE SHIELD OF KANSAS AND * 01990900 //* CONTAINS A COPY OF TWO DIALOG MANAGER APPLICATIONS. * 01991000 //* ONE IS AN INTERFACE TO USE THE TSO ACCESS METHODS * 01991100 //* SERVICES COMMANDS AND THE SECOND IS A CATALOGED * 01991200 //* DATA SET CLEANUP PROCESS . THIS FILE IS IN IEBUPDTE * 01991300 //* SYSIN FORMAT AND CONTAINS THE COMMAND PROCEDURE * 01991400 //* LIBRARY . * 01991500 //* SEE FILE 410 - 415 FOR THE COMPLETE SYSTEM * 01991600 //* * 01991700 //***FILE 416 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THE * 01991800 //* FOLLOWING. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 01991900 //* SEE THE MEMBER CALLED $INDEX FOR ADDITIONAL * 01992000 //* INFORMATION * 01992100 //* * 01992200 //* CATLIST - THIS PROGRAM WILL DO A VERY FAST LISTING * 01992300 //* OF AN ICF CATALOG FOR GENERATIONDATASETS * 01992400 //* AND NONVSAM DATASETS. THE LISTING IS IN * 01992500 //* THE SAME FORMAT AS IDCAMS (WE USED IT TO * 01992600 //* BUILD A TMC) BUT THE OUTPUT FORMAT WOULD * 01992700 //* BE EASY TO CHANGE. THE PROGRAM MUST RUN * 01992800 //* AUTHORIZED (AC=1) BECAUSE IT OPENS THE * 01992900 //* CATALOG AS A DATASET. ALSO THERE IS A * 01993000 //* MODESET WE USED TO ALLOW US TO BYPASS RACF * 01993100 //* CHECKING. (RACF THINKS YOU NEED ALTER * 01993200 //* ACCESS TO READ THE DATASET AND ALL OF OUR * 01993300 //* CATALOGS HAVE A UACC OF UPDATE). ALL THAT * 01993400 //* WAS DONE IN KEY ZERO WAS TO SET THE * 01993500 //* JSCBPASS BIT ON. THE SPEED INCREASE OF * 01993600 //* THIS PROGRAM WAS SEVERAL ORDERS OF * 01993700 //* MAGNITUDE BETTER THAN IDCAMS ON A LARGE * 01993800 //* ICF CATALOG. * 01993900 //* * 01994000 //* CMDLOFF - THIS COMMAND WILL ISSUE THE COMMAND PASSED * 01994100 //* TO IT AND THEN CAUSE LOGOFF OF THE USER. * 01994200 //* THIS IS USEFUL IN THE SITUATION WHERE YOU * 01994300 //* WANT A USER TO EXIST IN A PROTECTED * 01994400 //* ENVIRONMENT. EX. CMDLOFF ISPSTART * 01994500 //* PANEL(USERSEL) * 01994600 //* * 01994700 //* DLXAUTHC - THIS COMMAND WILL ISSUE THE COMMAND PASSED * 01994800 //* TO AFTER SETTING THE JSCBAUTH BIT ON. WHEN * 01994900 //* THE COMMAND COMPLETES THE JSCBAUTH BIT * 01995000 //* WILL BE SET OFF. THE JSCB TAMPERING IS * 01995100 //* DONE IN A USER SVC. YOU MUST REPLACE THE * 01995200 //* USERSVC MACRO WITH YOUR OWN INTEGRITY * 01995300 //* VIOLATION. THIS COMMAND IS ESPECIALLY * 01995400 //* USEFUL FOR ENTERING RACF COMMANDS FROM * 01995500 //* ISPF DIALOGS. EX. DLXAUTHC LISTDSD * 01995600 //* DA('DSN1.EXAMPLE') ALL * 01995700 //* * 01995800 //* EXIMPORT GENERATE THE JCL NECESSARY FOR EXPORTING * 01995900 //* AND IMPORTING THE DATA SETS ON A SPECIFIED * 01996000 //* VOLUME. CREATES ONE DATA SET WITH THE JCL * 01996100 //* FOR EXPORTING THE DATA SETS ON A SPECIFIED * 01996200 //* VOLUME AND ANOTHER FOR IMPORTING THE SAME * 01996300 //* DATA SETS. FOR VSAM FILES, THE JCL WILL * 01996400 //* BE SET UP TO EXECUTE IDCAMS, EXPORTING TO * 01996500 //* TAPE AND THEN IMPORTING BACK ONTO THE SAME * 01996600 //* VOLUME FROM THE TAPE. FOR NON-VSAM PS * 01996700 //* FILES, THE PROGRAM IEBGENER IS EXECUTED TO * 01996800 //* COPY THE DATA SET TO TAPE AND THEN BACK TO * 01996900 //* THE SAME VOLUME. FOR PO FILES, IEBCOPY IS * 01997000 //* USED. ALSO A CLIST IS GENERATED TO * 01997100 //* SCRATCH THE TAPE FILES AFTER THE DATA SETS * 01997200 //* HAVE BEEN IMPORTED. * 01997300 //* * 01997400 //* IGGPRE00 DF/DS ALLOCATE PRE PROCCESSING EXIT * 01997500 //* TESTER' * 01997600 //* * 01997700 //* INMRZ01 RECEIVE INITIALIZATION EXIT ALLOWS * 01997800 //* AUTHORIZATION CHECKING FOR USER IDS * 01997900 //* EXECUTING RECEIVE IN BACKGROUND. * 01998000 //* * 01998100 //* INMRZ11 RECEIVE PRE-PROCESSING EXIT ALLOWS RECEIVE * 01998200 //* TO RUN IN BACKGROUND WITH THE EXIT * 01998300 //* REPLACING THE USER INTERACTION IN * 01998400 //* DETERMINING THE RECEIVING DATA SET NAME. * 01998500 //* * 01998600 //* RACFALT - THIS PROGRAM WILL GENERATE A CLIST TO * 01998700 //* CHANGE THE VOLUME SERIAL NUMBERS IN THE * 01998800 //* RACF PROFILES OF ALL NONVSAM DATASETS ON A * 01998900 //* SPECIFIED VOLUME. * 01999000 //* * 01999100 //* RACFCLST - THIS PROGRAM WILL GENERATE A CLIST TO * 01999200 //* REDEFINE (VIA RACF COMMANDS DELDSD, ADDSD, * 01999300 //* AND PERMIT) FOR ALL DATASETS ON A * 01999400 //* SPECIFIED VOLUME. DUE TO USE OF RACF * 01999500 //* INTERNAL MACROS THIS PROGRAM MUST BE RUN * 01999600 //* AUTHORIZED. IF SYSIN IS PRESENT YOU CAN * 01999700 //* INCLUDE COMMANDS TO SELECT BY DATASET * 01999800 //* GROUP ON A VOLUME AND/OR DATASET NAME WITH * 01999900 //* OR WITHOUT VOLUME SPECIFICATION. WARNING: * 02000000 //* IF SYSIN IS PRESENT AND DUMMIED OUT OR * 02000100 //* EMPTY THEN A NULL CLIST WILL BE CREATED. * 02000200 //* * 02000300 //***FILE 417 CONTAINS A COPY OF THE FOLLOWING # CMD1 COMMANDS THAT * 02000400 //* HAVE BEEN MODIFIED TO RUN UNDER MVS/XA MVS XA * 02000500 //* FOR INFORMATIONS ON THE # SUBSYSTEM IN GENERAL YOU * 02000600 //* HAVE TO READ ABOUT IT IN FILE 366 AND 367 OF THIS * 02000700 //* TAPE . THIS FILE CONTAINS THE FOLLOWING MEMBERS * 02000800 //* THAT HAVE BEEN UPDATED FOR XA - AS TIME GOES BY MORE * 02000900 //* COMMANDS WILL BE UPDATED (HOPEFULLY) AND THEY WILL BE * 02001000 //* PLACED HERE . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 02001100 //* * 02001200 //* PUT IEES*03D MODULES IN NON-PROTECTED MLPA * 02001300 //* * 02001400 //* CMDSBCSC CROSS SYSTEM CONTROL MODULE * 02001500 //* CMDSBINT INITIALIZATION AND MONITOR MODULE * 02001600 //* CMDSBTSO TSO FULL SCREEN MONITOR (OLD VERSION) * 02001700 //* CMDTSO TSO COMMAND (OLD VERSION) * 02001800 //* CSCSE03D #A EXTENDED DISPLAY ACTIVE * 02001900 //* CSCSG03D #R DISPLAY DEVICE * 02002000 //* CSCSI03D #V EXTNEDED DISPLAY UNITS * 02002100 //* CSCSJ03D #I DISPLAY SYSTEM INDICATORS * 02002200 //* CSCSL03D #J DISPLAY ACTIVE REPLACEMENT * 02002300 //* CSCSR03D #O DISPLAY I/O PENDING/ALLOC QUEUE * 02002400 //* CSCZA03D ##A ACTIVITY MONITOR * 02002500 //* CSCZJ03D ##J JOB MONITOR * 02002600 //* * 02002700 //***FILE 418 IS FROM COMBINED INSURANCE OF AMERICA , CHICAGO * 02002800 //* ILLINOIS , IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * 02002900 //* THE FOLLOWING : * 02003000 //* A. MCS UTILITY PROGRAM TO DISPLAY THE MASTER * 02003100 //* CONSOLE ( WILL RUN ON MVS/SP OR MVS/XA * 02003200 //* AN XA VERSION OF THE DIDOCS COMMAND ) * 02003300 //* B. VLDEXIT AN ACF2 DATASET PRE-VALIDATION EXIT TO * 02003400 //* LIMIT ALL ALLOCATE/SCRATCH/RENAME * 02003500 //* FUNCTIONS ON DATASETS WITH THE MIDDLE- * 02003600 //* INDEX NAME OF TEST TO VOLUMES BEGINNING * 02003700 //* WITH STM3** * 02003800 //* C. ACFSCAN AN ACF2 LOGONID EXPIRATION UTILITY TO * 02003900 //* EXPIRE ALL NON-SOFTWARE ( OR THOSE WITH * 02004000 //* THE NOEXP INDICATOR SET ON ) LOGONIDS * 02004100 //* AFTER 31 DAYS OF NON-USE . * 02004200 //* * 02004300 //***FILE 419 IS FROM HAMILTON STANDARD AND CONTAINS A COPY OF * 02004400 //* DIDOCS THAT WILL RUN UNDER MVS / XA VER 2.1.2 AND * 02004500 //* THIS VERSION WILL ALSO RUN UNDER MVS/SP . THIS * 02004600 //* VERSION IS AN UPDATED COPY OF THE VERSION ORIGAINALLY * 02004700 //* WRITTEN TO RUN UNDER DCMS . THIS FILE IS IN IEBUPDTE * 02004800 //* SYSIN FORMAT . * 02004900 //* * 02005000 //***FILE 420 IS FROM CONNECTICUT NATIONAL BANK AND CONTAINS SOME * 02005100 //* SAS PROGRAMS THAT ARE FOR USE WITH MVS/XA RMF DATA . * 02005200 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT . THIS FILE * 02005300 //* CONTAINS THE FOLLOWING : * 02005400 //* * 02005500 //* SMFXARMF = RMF COMMON SECTION USED BY SAS PROGRAM * 02005600 //* SMFXASMF = SMF COMMON SECTION USED BY SAS PROGRAM * 02005700 //* SMFXA70 = SAS PROGRAM TO ANALYZE SMF TYPE 70 * 02005800 //* RECORDS (CPU ACTIVITY) * 02005900 //* SMFXA71 = SAS PROGRAM FOR PAGING REPORT * 02006000 //* SMFXA72 = SAS PROGRAM WORKLOAD REPORT * 02006100 //* SMFXA73 = SAS PROGRAM FOR CHANNEL PATH REPORT * 02006200 //* SMFXA77 = SAS PROGRAM FOR ENQUE REPORT * 02006300 //* SUSEC = ASSEMBLR PROGRAM THAT PROVIDE A CPU * 02006400 //* SPEED CONSTANT TO ANY SAS ROUTINE * 02006500 //* SUSECJ = JCL TO ASSEMBLE SUSEC * 02006600 //* SUSECR = JCL TO EXECUTE THE SUSEC PROGRAM * 02006700 //* * 02006800 //***FILE 421 IS THE XACORZAP PROGRAM SUBMITTED BY R . BUDGE * 02006900 //* OF NATIONAL ADVANCED SYSTEMS ( NAS ) . XACORZAP * 02007000 //* PROVIDES THE ABILITY TO ALTER NUCLEUS OR LPA MODULES * 02007100 //* IN ANY MVS ENVIRONMENT , INCLUDING XA OR SP 1.3 . * 02007200 //* THE PROGRAM USES CONTROL STATEMENTS THAT ARE * 02007300 //* GENERALLY COMPATIBLE WITH AMASPZAP . THIS FILE IS IN * 02007400 //* IEBUPDTE SYSIN FORMAT WITH MEMBERS CONTAINING SOURCE * 02007500 //* OBJECT , AND A USERS GUIDE * 02007600 //* * 02007700 //***FILE 422 IS FROM DON MARQUARDT OF MAY & SPEH OAKBROOK TERRACE * 02007800 //* ILLINOIS . THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND * 02007900 //* CONTAINS THE FOLLOWING MEMBERS : SEE MEMBER CALLED * 02008000 //* $INDEX FOR ADDITIONAL INFORMATION * 02008100 //* * 02008200 //* GENFCB GENERATES A FCB IMAGE IT IS USED BY OUR * 02008300 //* PRINT ROOM OPERATORS * 02008400 //* * 02008500 //* MAS9010 PRINTS OUT THE AUTOMATIC SCHEDULING FACILITY * 02008600 //* FILE THIS FACILITY WAS WRITTEN BY DAVE COLE * 02008700 //* AT COMNET AND WAS FILE 388 AS OF VERSION 245 * 02008800 //* * 02008900 //* ENT13 YET ANOTHER HOUSEKEEPING ROUTINE * 02009000 //* * 02009100 //* EXT13 COMPANION TO ENT13 * 02009200 //* * 02009300 //* EQUATE STILL ANOTHER REGISTER EQUATE * 02009400 //* * 02009500 //* # MEMBERS ARE CLISTS * 02009600 //* * 02009700 //* $ MEMBERS ARE JCL * 02009800 //* * 02009900 //***FILE 423 IS FROM JEFF BROIDO OF BROIDO COMPUTER CONSULTING OF * 02010000 //* NEW JERSEY. THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND * 02010100 //* CONTAINS THE FOLLOWING MEMBERS : * 02010200 //* * 02010300 //* $$$COJRB....ASSEMBLER MACRO FOR COPYRIGHT NOTICE * 02010400 //* #CHECKDD....HELP MEMBER FOR CHECKDD * 02010500 //* #CKDAY......HELP MEMBER FOR CKDAY * 02010600 //* #CKM........HELP MEMBER FOR CKM * 02010700 //* #CKMOUNT....HELP MEMBER FOR CKMOUNT * 02010800 //* #CKO........HELP MEMBER FOR CKO * 02010900 //* #CLRDAY.....HELP MEMBER FOR CLEARDAY * 02011000 //* #LAA........HELP MEMBER FOR LAA * 02011100 //* #QUOTE......HELP MEMBER FOR QUOTE * 02011200 //* #TELL.......HELP MEMBER FOR TELL * 02011300 //* BRODCAST....SOURCE CODE FOR PGM TO LOAD SYS1.BRODCAST * 02011400 //* CHECKDD.....SOURCE CODE FOR PGM TO CHECK FOR ALLOCATED * 02011500 //* FILENAMES * 02011600 //* CKDAY.......SOURCE CODE FOR PGM TO CHECK FOR 1ST LOGON * 02011700 //* OF THE DAY * 02011800 //* CKM.........SOURCE CODE FOR PGM TO CHECK PRESENCE OF * 02011900 //* MEMBER IN PDS * 02012000 //* CKMOUNT.....SOURCE CODE FOR PGM TO CHECK A USER'S MOUNT * 02012100 //* PRIVILEDGE * 02012200 //* CKO.........SOURCE CODE FOR PGM TO CHECK A USER'S * 02012300 //* PRIVILEDGES * 02012400 //* CMAP........SOURCE CODE FOR PGM TO PRODUCE A CSA * 02012500 //* STORAGE MAP * 02012600 //* K...........ASSEMBLER MACRO * 02012700 //* LAA.........SOURCE CODE FOR PGM TO PRODUCE AN EXPANDED * 02012800 //* ALLOCATION LISTER * 02012900 //* MAPSP.......SOURCE CODE FOR PGM TO PRODUCE MVS/SP * 02013000 //* STORAGE MAP * 02013100 //* MAPXA.......SOURCE CODE FOR PGM TO PRODUCE MVS/XA * 02013200 //* STORAGE MAP * 02013300 //* MERKNOW.....SOURCE CODE FOR SUPPORT ROUTINE FOR THE NOW * 02013400 //* MACRO * 02013500 //* NOW.........ASSEMBLER MACRO * 02013600 //* OFF.........ASSEMBLER MACRO * 02013700 //* ON..........ASSEMBLER MACRO * 02013800 //* QUOTE.......SOURCE CODE FOR PGM TO READ * 02013900 //* 'QUOTE-OF-THE-DAY' * 02014000 //* REGS........ASSEMBLER MACRO * 02014100 //* SMAP........SOURCE CODE FOR PGM TO PRODUCE A STORAGE * 02014200 //* MAP * 02014300 //* TELL........SOURCE CODE FOR PGM FOR TELECONFERENCING * 02014400 //* TSO COMMAND * 02014500 //* TF..........ASSEMBLER MACRO * 02014600 //* VPUT........ASSEMBLER MACRO * 02014700 //* VTPUT.......ASSEMBLER MACRO * 02014800 //* VWTPU.......ASSEMBLER MACRO * 02014900 //* * 02015000 //***FILE 424 IS CURRENTLY EMPTY * 02015100 //* * 02015200 //***FILE 425 IS CURRENTLY EMPTY * 02015300 //* * 02015400 //***FILE 426 IS CURRENTLY EMPTY * 02015500 //* * 02015600 //***FILE 427 IS CURRENTLY EMPTY * 02015700 //* * 02015800 //***FILE 428 IS CURRENTLY EMPTY * 02015900 //* * 02016000 //***FILE 429 IS CURRENTLY EMPTY * 02016100 //* * 02016200 //***FILE 430 IS CURRENTLY EMPTY * 02016300 //* * 02016400 //***FILE 431 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02016500 //* AND CONTAINS A COPY OF THEIR FILE 001 WHICH IS DOC * 02016600 //* FOR THEIR TAPE . THEIR FILE NUMBERS ARE OFFSET BY * 02016700 //* 430 ( IE THEIR FILE 001 IS MY FILE 431 * 02016800 //* THEIR FILE 010 IS MY FILE 440 * 02016900 //* THEIR FILE 021 IS MY FILE 451 ) * 02017000 //* * 02017100 //* SOME OF THE UTILITIES/TSO COMMANDS/ISPF PANELS/CLISTS * 02017200 //* WERE DEVELOPED AT ROCKWELL. MANY WERE FOUND ON THE LA * 02017300 //* MVS USERS GROUP TAPE, THE SHARE TAPE OR THE CBT TAPE. * 02017400 //* SEE THE FILE 436 MEMBER BASELINE FOR THE ORIGIN OF ANY * 02017500 //* SOURCE. * 02017600 //* * 02017700 //* SOME OF THE THINGS OF INTEREST WHICH MAY BE FOUND ON * 02017800 //* THIS TAPE ARE: * 02017900 //* * 02018000 //* COMPLETE ISPF SYSTEM FOR SYSTEM PROGRAMMER TYPES. * 02018100 //* * 02018200 //* REPLACEMENT FOR THE IBM SUPPLIED ISPF DIALOG FOR * 02018300 //* MVS/BDT * 02018400 //* * 02018500 //* A COMPLETE SOURCE MAINTENANCE SYSTEM FOR JES3 OR ANY * 02018600 //* SOURCE MAINTAINED PACKAGE. * 02018700 //* * 02018800 //* THERE IS ALSO A FILE CONTAINING OUR MODIFICATIONS * 02018900 //* (EXITS) TO MVS/BDT. INCLUDING A USERMOD TO SUPPORT * 02019000 //* TSO DATASET NAMING CONVENTIONS FOR THE MVS/BDT TSO * 02019100 //* COMMAND. * 02019200 //* * 02019300 //* SEE CLIST MEMBER ISPF OR PRESAMP FOR A SAMPLE ON HOW * 02019400 //* TO USE THIS SYSTEM NOTE THAT MEMBER ALLISPF IS A * 02019500 //* COPY OF THE PREISPF CLIST RENAMED TO PROTECT THE * 02019600 //* GUILTY. * 02019700 //* * 02019800 //* THE UTILITIES MANUAL IN FILE 438 IS OVER 600 PAGES * 02019900 //* AND DOCUMENTS HOW TO INSTALL THIS SYSTEM AND ALL OF * 02020000 //* THE TSO COMMANDS/PROGRAMS IN THIS PACKAGE. * 02020100 //* * 02020200 //* NOTE: NONE OF THIS CODE HAS BEEN TESTED IN AN MVS/XA * 02020300 //* WORLD YET !!! * 02020400 //* * 02020500 //* A TSO COMMAND WHICH WILL INVOKE ANY TSO COMMAND USING * 02020600 //* THE ATTACH SVC AND UTILIZING ANY SPECIFIED TASKLIB. * 02020700 //* THIS SIMPLIFIES TESTING OF NEW TSO COMMANDS THAT YOU * 02020800 //* DON'T WANT TO PUT INTO THE LINKLIST YET. * 02020900 //* * 02021000 //* A TSO COMMAND SIMILIAR TO THE ABOVE WHICH INVOKES A * 02021100 //* PROGRAM. * 02021200 //* * 02021300 //* THE ABOVE COMMANDS HAVE ALIASES WHICH WILL INVOKE THE * 02021400 //* SPECIFIED PROGRAM/COMMAND IN AN AUTHORIZED STATE. NO * 02021500 //* MORE IKJEFTXX UPDATES. * 02021600 //* * 02021700 //* A TSO COMMAND WHICH WILL INFORM YOUR CLIST WHETHER IT * 02021800 //* IS BEING INVOKED IN NATIVE TSO OR UNDER ISPF. THIS IS * 02021900 //* DONE BY TESTING FOR THE ENQ SPFUSER. * 02022000 //* * 02022100 //* THE SOURCE MAINTENANCE MANUAL IN FILE 439 IS OUR * 02022200 //* MANUAL ON HOW WE MAINTAIN JES3 SOURCE USING ISPF AND * 02022300 //* SMP. * 02022400 //* * 02022500 //* A TSO COMMAND WHICH INFORMS THE CALLER HOW MUCH * 02022600 //* VIRTUAL STORAGE IS BEING USED IN HIS ADDRESS SPACE, * 02022700 //* HOW MUCH IS AVAILABLE, AND HOW MUCH LSQA IS IN USE. * 02022800 //* * 02022900 //* A COMPLETE IPCS CLIST DRIVER WITH PSEUDO MENUS AND * 02023000 //* SEMI-ISPF INTERFACE. THIS ALSO INCLUDES SEVERAL OF * 02023100 //* THE PRDMP EXITS FOUND ON THE CBT TAPE AND ELSEWHERE. * 02023200 //* * 02023300 //* A LISTA REPLACEMENT. * 02023400 //* * 02023500 //* AN IEBUPDTE SIMULATOR USED IN THE SOURCE MAINTENANCE * 02023600 //* SYSTEM TO FIND OUT WHAT A PUT TAPE WILL DO TO A SOURCE * 02023700 //* MAINTAINED SYSTEM WITHOUT ACTUALLY KILLING YOU. * 02023800 //* * 02023900 //* A HANDY UTILITY TO EXPAND A DIRECTORY IN A * 02024000 //* NON-DISTRUCTIVE MANNER. * 02024100 //* * 02024200 //* A UTILITY TO COPY AN SVCDUMP TO THE MSS (3850) AND * 02024300 //* UPDATE A DUMP CONTROL LOG. * 02024400 //* * 02024500 //* AN EXTERNAL WRITER YOU CAN HAVE FUN WITH (CALLED * 02024600 //* SYSOUT). * 02024700 //* * 02024800 //* ISPF PROGRAMS TO: * 02024900 //* * 02025000 //* TAKE ANY DSN AND FULLY QUALIFY IT. * 02025100 //* * 02025200 //* RETURN FULL DCB AND DIRECTORY INFORMATION FOR A * 02025300 //* SPECIFIED DSN. * 02025400 //* * 02025500 //* EXTRACT INFORMATION FROM SYSTEM CONTROL BLOCKS * 02025600 //* AND ACF2 AND PUT IT IN ISPF VARIABLES. * 02025700 //* * 02025800 //* PROVIDE A LIST OF ALL CATALOGED DATASETS AND * 02025900 //* ALLOW AN ALMOST UNLIMITED NUMBER OF PROCESSING * 02026000 //* OPTIONS ON THEM. * 02026100 //* * 02026200 //* ISPF APPLICATION TO MANAGE YOUR INDIVIDUAL SLSS. * 02026300 //* * 02026400 //* ISPF APPLICATION TO INVOKE THE IBM BULK DATA TRANSFER * 02026500 //* IUP. * 02026600 //* * 02026700 //* ISPF DIALOG TO INVOKE THE DATA SET AND FREE SPACE * 02026800 //* MANAGER IUP. * 02026900 //* * 02027000 //* ISPF APPLICATION TO INVOKE THE WATERLOO SCRIPT. (WE * 02027100 //* CALL IT DOCFMT SINCE WE HAVE THE IBM SCRIPT UNDER * 02027200 //* CICS) * 02027300 //* * 02027400 //* A COPY OF THE WATERLOO SCRIPT (ONE OF THE LAST FREE * 02027500 //* VERSIONS) WITH AN UPDATE TO SUPPORT 3380 DASD FOR * 02027600 //* OUTPUT - WE CALL IT DOCFMT SINCE WE ALSO HAVE DCF (BUT * 02027700 //* ONLY UNDER CICS). * 02027800 //* * 02027900 //* SOME OF THE JES3 USER MODS ARE: * 02028000 //* * 02028100 //* IEFUTL DOCUMENTATION ON HOW TO PREVENT 522 ABENDS * 02028200 //* WHEN THE JES3 GLOBAL IS DOWN. * 02028300 //* * 02028400 //* JESCMD A UTILITY TO ISSUE JES3 COMMANDS FROM * 02028500 //* BATCH OR TSO. * 02028600 //* * 02028700 //* JMP A JES3 MONITORING PROGRAM WHICH CAN RUN ON * 02028800 //* EITHER THE GLOBAL OR LOCAL * 02028900 //* * 02029000 //* LJ07901 PROVIDE COLOR 3279 SUPPORT IN 1.3.1 FROM * 02029100 //* PNB. * 02029200 //* * 02029300 //* SJ003A0 INCREASE STANDARD SIZE STAGING AREA TO 520 * 02029400 //* BYTES. * 02029500 //* * 02029600 //* SJ009A0 ALLOW LOCATE TO RUN ON OTHER THAN GLOBAL * 02029700 //* IF GLOBAL BUSY. * 02029800 //* * 02029900 //* SJ013A0 ELIMINATE SOME LINK OVERHEAD IF USING JES3 * 02030000 //* STEPLIBS. * 02030100 //* * 02030200 //* SJ039A0 PROVIDE A WHERE= OPTION TO DC * 02030300 //* * 02030400 //* SJ055A0 PROVIDE PROCESSOR NAME IN RESPONSE *I,J OR * 02030500 //* *I,Q INQUIRY * 02030600 //* * 02030700 //* SJ071A0 PROVIDE AN EBCDIC DISPLAY OPTION TO DC * 02030800 //* * 02030900 //* SJ082A0 INHIBIT VERIFY RESPONSE MESSAGES AT IPL OR * 02031000 //* CONNECT. * 02031100 //* * 02031200 //* SJ104A0 ELIMINATE WRITING MSG IAT5000 FROM JESMSG * 02031300 //* TO SAVE JSAM BUFFERS. * 02031400 //* * 02031500 //* SJ208A0 PUT LINE COUNT INTO SSOB FOR EXTERNAL * 02031600 //* WRITER (RMDS). * 02031700 //* * 02031800 //* SJ999A0 A USERMOD TO TAKE ADVANTAGE OF IATUX11 AND * 02031900 //* ELIMINATE THE LOCATE RESPONSE MESSAGES IF * 02032000 //* THE DATASET IS FOUND. * 02032100 //* * 02032200 //* PLUS OVER A 150 OTHER PROGRAMS AND TSO COMMANDS. * 02032300 //* * 02032400 //***FILE 432 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02032500 //* AND CONTAINS A COPY OF THEIR FILE 002 WHICH IS A * 02032600 //* COPY OF THEIR CLIST LIBRARY . THIS FILE IS IN * 02032700 //* IEBCOPY FORMAT ( RECFM=VB,LRECL=255,BLKSIZE=1680) * 02032800 //* * 02032900 //***FILE 433 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02033000 //* AND CONTAINS A COPY OF THEIR FILE 003 WHICH IS * 02033100 //* A COPY OF THEIR TSO HELP LIBRARY . THIS FILE IS IN * 02033200 //* IEBUPDTE SYSIN FORMAT * 02033300 //* * 02033400 //***FILE 434 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02033500 //* AND CONTAINS A COPY OF THEIR FILE 004 WHICH IS * 02033600 //* A COPY OF THEIR LOAD MODULE LIBRARY . THIS FILE IS * 02033700 //* IN IEBCOPY FORMAT * 02033800 //* * 02033900 //***FILE 435 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02034000 //* AND CONTAINS A COPY OF THEIR FILE 005 WHICH IS * 02034100 //* A COPY OF THEIR BAL MACRO LIBRARY . THIS FILE IS * 02034200 //* IN IEBDUPTE SYSIN FORMAT * 02034300 //* * 02034400 //***FILE 436 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02034500 //* AND CONTAINS A COPY OF THEIR FILE 006 WHICH IS * 02034600 //* A COPY OF THEIR SCRIPT TEXT LIBRARY USED TO CREATE * 02034700 //* FILE 438 . THIS FILE IS IN IEBUPDTE SYSIN FORMAT * 02034800 //* * 02034900 //***FILE 437 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02035000 //* AND CONTAINS A COPY OF THEIR FILE 007 WHICH IS * 02035100 //* A COPY OF THEIR BAL SOURCE LIBRARY . THIS FILE IS IN * 02035200 //* IEBUPDTE SYSIN FORMAT * 02035300 //* * 02035400 //***FILE 438 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02035500 //* AND CONTAINS A COPY OF THEIR FILE 008 WHICH IS A * 02035600 //* COPY OF THEIR UTILITIES MANUAL. THIS FILE IS * 02035700 //* LRECL=100 RECFM=FBA BLKSIZE=32700 * 02035800 //* * 02035900 //***FILE 439 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02036000 //* AND CONTAINS A COPY OF THEIR FILE 009 WHICH IS A * 02036100 //* COPY OF THEIR SOURCE MANINTENANCE MANUAL . THIS FILE * 02036200 //* IS LRECL=132 RECFM=FBA BLKSIZE=32604 * 02036300 //* * 02036400 //***FILE 440 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02036500 //* AND CONTAINS A COPY OF THEIR FILE 010 WHICH IS A * 02036600 //* COPY OF THEIR ISPF SKELETON LIBRARY . THIS FILE IS IN * 02036700 //* IEBUPDTE SYSIN FORMAT * 02036800 //* * 02036900 //***FILE 441 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02037000 //* AND CONTAINS A COPY OF THEIR FILE 011 WHICH IS A * 02037100 //* COPY OF THEIR ISPF PANEL LIBRARY . THIS FILE IS IN * 02037200 //* IEBUPDTE SYSIN FORMAT * 02037300 //* * 02037400 //***FILE 442 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02037500 //* AND CONTAINS A COPY OF THEIR FILE 012 WHICH IS A * 02037600 //* COPY OF THEIR ISPF LOAD LIBRARY . THIS FILE IS IN * 02037700 //* IEBCOPY FORMAT * 02037800 //* * 02037900 //***FILE 443 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02038000 //* AND CONTAINS A COPY OF THEIR FILE 013 WHICH IS A * 02038100 //* COPY OF THEIR ISPF MESSAGE LIBRARY . THIS FILE IS IN * 02038200 //* IEBUPDTE SYSIN FORMAT * 02038300 //* * 02038400 //***FILE 444 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02038500 //* AND CONTAINS A COPY OF THEIR FILE 014 WHICH IS A * 02038600 //* COPY OF THEIR VERSION OF THE WATERLOO SCRIPT MEMO * 02038700 //* LIBRARY. THIS FILE IS IN IEBCOPY FORMAT * 02038800 //* * 02038900 //***FILE 445 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02039000 //* AND CONTAINS A COPY OF THEIR FILE 015 WHICH IS A * 02039100 //* COPY OF THEIR VERSION OF THE WATERLOO SCRIPT * 02039200 //* HYPHENATION DICTIONARY . THIS FILE IS * 02039300 //* RECFM=VB LRECL=80 BLKSIZE=32716 * 02039400 //* * 02039500 //***FILE 446 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02039600 //* AND CONTAINS A COPY OF THEIR FILE 016 WHICH IS A * 02039700 //* COPY OF THEIR SCRIPT TEXT LIBRARY USED TO CREATE * 02039800 //* FILE 439 OF THIS TAPE. * 02039900 //* * 02040000 //***FILE 447 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02040100 //* AND CONTAINS A COPY OF THEIR FILE 017 WHICH IS A * 02040200 //* COPY OF THEIR ISPF TABLE LIBRARY * 02040300 //* * 02040400 //***FILE 448 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02040500 //* AND CONTAINS A COPY OF THEIR FILE 018 WHICH IS A * 02040600 //* COPY OF THEIR VM TESTING MANUAL . THIS FILE IS * 02040700 //* RECFM=FB LRECL=80 BLKSIZE=32700 * 02040800 //* * 02040900 //***FILE 449 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02041000 //* AND CONTAINS A COPY OF THEIR FILE 019 WHICH IS A * 02041100 //* COPY OF THEIR SYS1.PROCLIB THAT CONTAINS ONLY * 02041200 //* MEMBERS NEEDED FOR THEIR CONTRIBUTION TO THIS TAPE * 02041300 //* * 02041400 //***FILE 450 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02041500 //* AND CONTAINS A COPY OF THEIR FILE 020 WHICH IS A * 02041600 //* COPY OF THEIR SYS1.PARMLIB THAT CONTAINS ONLY * 02041700 //* MEMBERS NEEDED FOR THEIR CONTRIBUTION TO THIS TAPE * 02041800 //* * 02041900 //***FILE 451 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02042000 //* AND CONTAINS A COPY OF THEIR FILE 021 WHICH IS A * 02042100 //* COPY OF THEIR JES3 MODS * 02042200 //* * 02042300 //* ALSO CONTAINED IN THIS FILE IS ALL THE CURRENT * 02042400 //* MODIFICATIONS TO MVS/BDT AND RELATED JES3 MODS * 02042500 //* * 02042600 //* MOD DESCRIPTION * 02042700 //* * 02042800 //* SB001 CREATE USER EXIT BASE CODE AS NEEDED. * 02042900 //* BDTUX19(R), BDTUX25(R), BDTUX26(R), * 02043000 //* BDTUX27(R), BDTUX28(R), BDTUX29(R) * 02043100 //* SB002 SECURE MVS/BDT FOR THE PAYROLL APPLICATION. * 02043200 //* BDTUX19 * 02043300 //* SB003 ACF2 VALIDATION FOR MVS/BDT. * 02043400 //* BDTUX19, BDTUX27 * 02043500 //* SB004 ACCOUNTING MODS FOR MVS/BDT. * 02043600 //* BDTUX19 * 02043700 //* SB005 BDT COMMAND AUTHORIZATION. * 02043800 //* BDTUX25(R), BDTUX31(R) * 02043900 //* SB006 MVS/BDT VOLREF SUPPORT. * 02044000 //* BDTUX08(R) * 02044100 //* SB007 MVS/BDT TSO COMMAND FRONT-END. * 02044200 //* BDTCMD(R) (NEW: FRONT-ENDS BDTTSO) * 02044300 //* SB008 MVS/BDT PRIORITY LIMITING. * 02044400 //* BDTUX19 * 02044500 //* SB010 AUTHORIZATION FOR ALL BDT COMMANDS AND JES3 * 02044600 //* COMMANDS VIA BDT BDTUX31, BDTUX25, BDTUX10(R) * 02044700 //* SB011 COMPLEMENTARY NODE SUPPORT. CHANGE LOC * 02044800 //* PARAMETER. BDTUX19(R) * 02044900 //* SJ203A0 ALLOW JES3 COMMANDS FROM MVS/BDT. * 02045000 //* IATUX18, IATUX56 * 02045100 //* SJ210A0 ALLOW BATCH SUBMISSIONS FROM MVS/BDT WITH * 02045200 //* PROPOGATION OF USERID. IATOSDR, OSDR001(R) * 02045300 //* * 02045400 //* NOTES: (R) INDICATES A MODULE REPLACEMENT, OTHERWISE * 02045500 //* AN UPDATE IS IMPLIED. * 02045600 //* * 02045700 //***FILE 452 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL * 02045800 //* AND CONTAINS A COPY OF THEIR FILE 022 WHICH IS * 02045900 //* CURRENTLY EMPTY * 02046000 //* * 02046100 //***FILE 453 IS FROM JIM MARSHALL OF THE U.S. AIRFORCE IN SAN * 02046200 //* ANTONIO TEXAS * 02046300 //* THIS IS A FILE OF THE JCL PROCEDURES FOR * 02046400 //* USE WITH FILES 454 AND 455 I HAVE DONATED. * 02046500 //* BEING AN OS/MVT PERSON (WHEN THINGS WERE * 02046600 //* FREE) I SAVED THE 360 VERSION OF FORTRAN-G * 02046700 //* AND PL1-F. THEN ALONG WITH FORTRAN G IS THE * 02046800 //* GODDARD SPACE FLIGHT CENTER VERSION OF * 02046900 //* FORTRAN-H (THIS IS NOT FORTRAN-H-EXTENDED). * 02047000 //* THIS IS ALL FREE SOFTWARE AND WORKS FINE IN * 02047100 //* THE MVS WORLD. I HAVE BEEN TOLD THAT PL1F * 02047200 //* DOESN'T FUNCTION IN THE MVS-XA WORLD (IF YOU * 02047300 //* CAN AFFORD MVS-XA, YOU COULD BUY * 02047400 //* EVERYTHING). THE OTHER 2 FILES ARE BUILT AS * 02047500 //* FOLLOWS: * 02047600 //* * 02047700 //* PL1FLOAD - THIS CONTAINS THE COMPILER AND * 02047800 //* LIBRARY FOR PL1F. IN FILE 454 * 02047900 //* * 02048000 //* FORTLOAD - THIS CONTAINS THE COMPILERS FOR * 02048100 //* FORTRAN G & H. ALSO THERE IS THE * 02048200 //* FORTRAN LIBRARY FOR BOTH OF THEM * 02048300 //* (SYS1.FORTLIB). IN FILE 455 * 02048400 //* * 02048500 //* REGULAR FORTRAN HAS THE 'STAE' * 02048600 //* ROUTINE CALLED IHOSTAE. WELL * 02048700 //* GODDARD'S VERSION HAS GSFSTAE * 02048800 //* WHICH MUST BE AVAILABLE AT * 02048900 //* RUNTIME. MY ADVICE IS TO STEPLIB * 02049000 //* TO THE ENTIRE LIBRARY AT RUN * 02049100 //* TIME. * 02049200 //* * 02049300 //* NOTES: YOU CAN FIND OUT ALL THE DEFAULTS BY * 02049400 //* EXECUTING THE COMPILERS WITH A PARM= * 02049500 //* AND LOOK AT WHAT IS SET. HAVE FUN, * 02049600 //* SO NOW YOU HAVE NO EXCUSE TO IGNORE * 02049700 //* SOME OF THE MORE INTERESTING (IF YOU * 02049800 //* KNOW WHAT I MEAN) PROGRAMS ON THE * 02049900 //* MODS TAPES WRITTEN IN PL1F OR * 02050000 //* FORTRAN!! (LOOK TO THE HEAVENS) * 02050100 //* * 02050200 //***FILE 454 IS FROM JIM MARSHALL OF THE U.S. AIRFORCE IN SAN * 02050300 //* ANTONIO TEXAS * 02050400 //* THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * 02050500 //* PL1F. * 02050600 //* * 02050700 //***FILE 455 IS FROM JIM MARSHALL OF THE U.S. AIRFORCE IN SAN * 02050800 //* ANTONIO TEXAS * 02050900 //* THIS FILE CONTAINS THE COMPILER FOR FORTRAN G & H * 02051000 //* ALSO THERE IS THE FORTRAN LIBRARY FOR BOTH OF * 02051100 //* THEM . * 02051200 //* * 02051300 //***SECTION ADDITION SECTION * 02051400 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02051500 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02051600 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02051700 //* * 02051800 //* WHEN ADDITIONS ARE ADDED TO THE TAPE, RATHER THEN PUTTING * 02051900 //* THEM AT THE END OF THE TAPE, I WILL NOW PLACE THEM IN * 02052000 //* FILES THAT WERE PREVIOUSLY DELETED AND ARE NOW EMPTY, * 02052100 //* ASSUMING THAT THERE ARE ANY EMPTY FILES AVAILABLE * 02052200 //* * 02052300 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02052400 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02052500 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * 02052600 //* * 02052700 //* * 02052800 //* * 02052900 //***SECTION JCL SECTION * 02053000 //* * 02053100 //* THE FOLLOWING IS THE JCL THAT I USED TO BUILD THE TAPE * 02053200 //* IF YOU ARE LOOKING DOWN HERE FOR HOW TO DROP THE TAPE * 02053300 //* YOU SHOULD LOOK AT FILE 003 OF THE TAPE WHICH IS THE JCL * 02053400 //* TO DROP DOWN ALL THE DATA ON THE TAPE * 02053500 //* ARNIE * 02053600 //* * 02053700 //* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02053800 //* ++++ * 02053900 //* E X E C U T I O N S E C T I O N * 02054000 //* * 02054100 //* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02054200 //PANPAN PROC 02054300 //* 02054400 //* THIS IS THE ORIGINAL PAN FOR USE WITH FILES 1, 2, AND 3 02054500 //* 02054600 //PANPAN EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02054700 // DPRTY=(11,8),PARM='LINECNT=80' 02054800 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02054900 //SYSPUNCH DD UNIT=SYSDA,DSN=&PANDATA,DISP=(MOD,PASS), 02055000 // SPACE=(TRK,(10,10)) 02055100 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02055200 //PANDD2 DD UNIT=SYSDA,DSN=&WORK,DISP=(MOD,PASS), 02055300 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02055400 // PEND 02055500 //PAN PROC LAB=XXX 02055600 //COMP1 EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02055700 // DPRTY=(11,8),PARM='LINECNT=80' 02055800 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02055900 //SYSPUNCH DD DUMMY 02056000 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02056100 //PANDD2 DD UNIT=SYSDA,DSN=&COMP,DISP=(MOD,PASS), 02056200 // SPACE=(CYL,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02056300 //COMP2 EXEC PGM=CBT973,REGION=512K,COND=(4,LT), 02056400 // DPRTY=(11,8),PARM=COMPRESS 02056500 //INPUT DD DSN=&COMP,DISP=(OLD,DELETE) 02056600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS),DSN=QAQ, 02056700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),LABEL=(&LAB.,NL) 02056800 // PEND 02056900 //IEBCOPY PROC 02057000 //STEP01 EXEC PGM=IEBCOPY,REGION=512K,DPRTY=(13,0),COND=(4,LT) 02057100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02057200 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02057300 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02057400 // PEND 02057500 //IEBGENER PROC 02057600 //STEP01 EXEC PGM=IBMGENER,REGION=512K,COND=(4,LT) 02057700 //SYSPRINT DD DUMMY 02057800 //SYSIN DD DUMMY 02057900 // PEND 02058000 //STEP00A EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS1',COND=EVEN 02058100 //STEP00B EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS2',COND=EVEN 02058200 //STEP00C EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS3',COND=EVEN 02058300 //STEP00D EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS4',COND=EVEN 02058400 //STEP00E EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS5',COND=EVEN 02058500 //STEP00F EXEC PGM=CBT936,PARM='F SDSI,SETL,J=MVSMODS6',COND=EVEN 02058600 //STEP00G EXEC PGM=CBT002, 02058700 // PARM='*** MVSMODS1 YOU HAVE TO RUN MVSMODSD ***' 02058800 //STEP00H EXEC PGM=CBT002, 02058900 // PARM='*** MVSMODS1 TAPE IS X00155 OR X00156 ***' 02059000 //STEP000 EXEC PGM=CBT299VV,PARM='CBT.MODS1.PAN' 02059100 //STEP001 EXEC PGM=IEFBR14 02059200 //CBTMOD DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(3,3)), 02059300 // DSN=CBT.MODS1.PAN, 02059400 // DCB=(RECFM=FBA,LRECL=121,BLKSIZE=18997) 02059500 //STEP001 EXEC PANPAN NOT COMPRESSED 02059600 //PANDD2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02059700 // DCB=(DEN=4,RECFM=FB,LRECL=80,BLKSIZE=32720),DSN=QAQ,LABEL=(1,NL) 02059800 ++WRITE WORK,MVSMODS1 02059900 //STEP002 EXEC PANPAN NOT COMPRESSED 02060000 //PANDD2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02060100 // DCB=(DEN=4,RECFM=FB,LRECL=80,BLKSIZE=32720),DSN=QAQ,LABEL=(2,NL) 02060200 ++WRITE WORK,CBT973 02060300 //STEP003 EXEC PANPAN NOT COMPRESSED 02060400 //* 02060500 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02060600 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02060700 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02060800 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02060900 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061100 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061200 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061300 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061400 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061500 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061600 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02061700 //* 02061800 //* THIS IS THE JCL TO DROP DOWN THE TAPE 02061900 //* 02062000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062100 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062200 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062300 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062400 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062500 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062600 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062700 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062800 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02062900 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02063000 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02063100 //* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02063200 //PANDD2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02063300 // DCB=(DEN=4,RECFM=FB,LRECL=80,BLKSIZE=32720),DSN=QAQ,LABEL=(003,NL) 02063400 ++WRITE WORK,CBT736 02063500 //STEP004 EXEC PAN,LAB=004 02063600 ++INSERT WORK 02063700 ./ ADD NAME=$DOC 02063800 $DOC ....... THIS FILE 02063900 JCL ........ THE JCL I USE AT CBT TO RUN 02064000 KEYWORDS ... A FILE CONTAINING WORDS THAT SHOULD NOT BE KEYWORDED 02064100 PROGRAM .... THE ACTUAL CODE TO FORMAT FILE 001 INTO THE PROPER 02064200 FORMAT 02064300 ++INSERT WORK 02064400 ./ ADD NAME=KEYWORDS 02064500 ++WRITE WORK,CBT1342K 02064600 ++INSERT WORK 02064700 ./ ADD NAME=PROGRAM 02064800 ++WRITE WORK,CBT1342 02064900 ++INSERT WORK 02065000 ./ ADD NAME=JCL 02065100 ++WRITE WORK,CBT1342J 02065200 //STEP005 EXEC IEBGENER,REGION=768K 02065300 //SYSUT1 DD DSN=TEC.ARNIE.INFO.G3,DISP=SHR 02065400 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02065500 // LABEL=(005,NL),DSN=QAQ, 02065600 // DCB=(DEN=4,RECFM=VB,LRECL=255,BLKSIZE=3120) 02065700 //STEP006 EXEC PAN,LAB=006 02065800 ++WRITE WORK,CBT348 02065900 //STEP007 EXEC PAN,LAB=007 02066000 ++WRITE WORK,CBT202 02066100 //***SECTION STEP008 SECTION 02066200 //STEP008 EXEC PAN,LAB=008 02066300 ++INSERT WORK 02066400 02066500 ******************************************************************** 02066600 VERSION CLOCK C P U SRB V M COMPRESS L E N G T H 02066700 # MM.HM MM.SS.HS SS.HS Y/N Y/N 1600 6250 02066800 116 14.78 0.41.60 3.93 N N 02066900 117 25.93 1.15.19 5.19 N Y 02067000 118 19.99 1.15.01 5.97 N Y 02067100 119 29.96 1.28.09 11.24 Y Y 02067200 120 20.75 1.16.17 5.01 N Y 02067300 121 28.39 1.26.22 5.96 N Y 02067400 122 29.46 1.31.44 10.49 Y Y 02067500 123 20.96 1.19.85 5.20 N Y 02067600 124 27.92 1.48.96 13.00 Y Y 02067700 126 20.66 1.22.68 5.28 N Y 02067800 128 21.76 1.23.60 5.27 N Y 02067900 129 19.32 1.23.61 5.47 N Y 02068000 131 22.32 1.25.64 4.99 N Y 02068100 135 22.99 1.29.05 5.51 N Y 02068200 136 21.16 1.29.17 5.30 N Y 02068300 138 25.80 1.37.55 5.29 N Y 02068400 139 25.55 1.29.85 5.48 N Y 02068500 140 22.54 1.33.89 5.36 N Y 02068600 142 24.05 1.48.09 8.84 Y Y 1646'0" 0504'09" 02068700 143 32.38 1.51.20 9.09 Y Y 1654'0" 0506'10" 02068800 144 21.53 1.40.48 5.79 N Y 1663'6" ????'??" 02068900 145 25.55 1.44.38 6.32 N Y 1689'1" ????'??" 02069000 146 24.05 1.48.80 6.21 Y Y 1583'11" ????'??" 02069100 147 21.31 1.47.40 6.04 N Y 1635'10" ????'??" 02069200 149 21.46 1.48.59 6.15 N Y 1653'06" 0505'02" 02069300 150 22.36 1.49.76 6.16 N Y 1673'03" ????'??" 02069400 152 26.15 1.55.17 6.58 N Y 1683'00" ????'??" 02069500 153 22.75 1.55.26 6.94 N Y 1700'10" ????'??" 02069600 154 22.23 1.52.40 6.31 N Y 1713'00" ????'??" 02069700 155 23.97 1.54.58 6.50 N Y 1755'04" 0534'09" 02069800 02069900 VERSION CLOCK C P U SRB TOTAL NUMBER L E N G T H 02070000 # MM.HM MM.SS.HS SS.HS OF BYTES 1600 6250 02070100 02070200 156 23.53 1.57.27 6.42 30,359,309 1759'00" ????'??" 02070300 157 26.07 1.56.21 6.53 30,842,481 1785'00" 543'00" 02070400 158 24.24 1.57.38 6.53 30,978,757 1792'10" 543'00" 02070500 159 28.35 2.00.85 6.95 31,065,913 1797'11" 546'01" 02070600 160 24.29 1.57.00 6.43 31,356,185 1813'06" ????'??" 02070700 161 24.00 1.58.08 6.47 31,351,632 1813'03" ????'??" 02070800 162 23.73 1.58.27 6.60 31,559,374 1824'06" 553'11" 02070900 FOOTAGE INCORRECT BEFORE 02071000 163 25.18 1.58.41 6.63 31,652,689 2133.0' 555.7' 02071100 164 28.49 2.02.24 7.26 31,741,922 2138.8' ????'??" 02071200 165 28.15 2.00.68 6.96 31,742,633 568.4' 02071300 166 23.09 2.01.76 6.44 35,186,177 655.8' 02071400 167 23.71 1.59.87 6.46 35,192,387 655.8' 02071500 168 25.39 2.01.08 6.67 35,205,687 612.0' 02071600 169 33.83 2.03.02 6.77 34,056,545 2265.9 601.9 02071700 170 29.53 2.08.65 6.99 34,381,640 2285.4 607.8' 02071800 171 37.33 2.11.61 7.12 35,696,673 2363.2 627.5' 02071900 171+ 00.00 0.00.00 0.00 37,021,793 647.0' 02072000 172 25.73 1.81.17 7.25 38,186,098 2505.8 663.9' 02072100 173 25.99 2.26.33 7.58 54,364,804 890.1' 02072200 174 28.99 2.33.18 8.07 54,377,524 925.7' 02072300 175 27.44 2.39.39 7.87 54,418,857 STEPS=609 926.1' 02072400 175+ 00.00 0.00.00 0.00 59,473,375 3355.5 02072500 176 46.77 2.36.40 9.13 XX,XXX,XXX STEPS=610 000.0' 02072600 177 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 931.4' 02072700 178 26.86 2.30.77 8.17 54,282,636 STEPS=XXX 000.0' 02072800 179 29.00 2.30.47 7.96 54,388,378 STEPS=610 932.8' 02072900 180 29.38 2.35.69 9.40 56,124,660 STEPS=612 957.7' 02073000 181 35.97 2.36.29 9.89 56,297,451 STEPS=612 960.1' 02073100 182 31.15 2.44.36 10.30 57,530,260 STEPS=627 984.5' 02073200 183 31.01 2.47.83 9.98 57,840,691 STEPS=631 989.1' 02073300 184 00.00 0.00.00 0.00 XX,XXX,XXX 000.0' 02073400 185 64.98 10.18.16 46.97 59,449,335 STEPS=642 1017.6' 02073500 186 29.36 2.43.99 9.59 59,432,584 STEPS=642 000.0' 02073600 187 31.58 2.28.63 12.26 59,642,640 STEPS=648 1019.2' 02073700 188 34.08 2.29.92 10.73 59,929,704 STEPS=654 1025.0' 02073800 189 44.71 2.31.42 13.30 60,058,617 STEPS=658 1027.3' 02073900 190 39.84 2.47.48 14.88 65,292,156 STEPS=674 1114.8' 02074000 191 31.94 2.53.30 14.83 66,650,398 STEPS=683 1127.9' 02074100 192 30.51 2.47.56 14.86 67,381,856 STEPS=682 000.0' 02074200 193 31.68 2.55.44 15.64 68,234,629 STEPS=683 1154.3' 02074300 194 29.50 2.50.11 13.95 68,728,256 STEPS=683 1161.1' 02074400 195 32.21 3.17.96 13.83 68,825,855 STEPS=683 1160.5' 02074500 196 33.93 3.28.77 14.37 69,684,320 STEPS=682 1175.7' 02074600 197 38.12 3.38.56 14.75 71,997,453 STEPS=682 1209.5' 02074700 198 4HR38.70 15.09.01 69.49 72,258,732 STEPS=682 1212.7' 02074800 199 35.21 3.54.89 19.77 77,***,*** STEPS=685 1285.0' 02074900 200 35.53 3.50.36 18.78 77,362,630 STEPS=685 1286.0' 02075000 201 59.99 15.05.21 69.59 77,452,541 STEPS=685 1286.5' 02075100 202 44.74 4.03.03 19.59 77,XXX,XXX STEPS=684 0000.0' 02075200 203 32.62 3.57.42 19.58 77,318,403 STEPS=686 1298.9' 02075300 204 33.80 4.02.19 20.25 78,829,333 STEPS=691 1309.2' 02075400 205 1HR25.45 13.07.76 57.99 78,834,805 STEPS=691 1309.2' 02075500 206 33.88 3.59.38 20.36 79,066,412 STEPS=691 1307.6' 02075600 207 35.41 4.07.04 20.39 79,310,177 STEPS=739 1315.0' 02075700 208 37.43 4.08.73 21.06 79,480,656 STEPS=739 1317.3' 02075800 209 41.22 4.14.74 21.32 79,845,270 STEPS=739 1318.6' 02075900 210 43.70 4.09.32 20.11 79,584,527 STEPS=739 1318.6' 02076000 211 39.22 4.14.63 20.36 80,968,878 STEPS=748 1339.8' 02076100 212 37.45 4.17.97 23.00 81,138,972 STEPS=750 1343.0' 02076200 213 33.36 4.15.56 22.05 81,671,291 STEPS=762 1354.4' 02076300 214 34.30 3.03.32 13.56 73,025,266 STEPS=772 1206.8' 02076400 215 46.13 3.02.77 14.26 73,198,537 STEPS=780 1209.7' 02076500 216 48.57 3.08.42 14.12 74,121,592 STEPS=793 1224.4' 02076600 217 45.05 3.05.82 14.59 74,253,483 STEPS=800 1227.3' 02076700 218 37.82 3.09.86 15.18 76,139,490 STEPS=805 1257.2' 02076800 219 31.23 3.09.04 14.88 79,054,058 STEPS=807 1298.8' 02076900 220 01.39.38 15.16.83 64.92 80,194,216 STEPS=839 1316.0' 02077000 221 46.63 3.14.27 14.83 80,689,193 STEPS=839 1323.1' 02077100 222 42.60 3.14.42 13.52 81,467,502 STEPS=839 1334.1' 02077200 222 01.52.98 16.46.53 95.55 81,467,502 STEPS=839 1334.1' 02077300 223 36.42 3.25.26 16.09 82,824,781 STEPS=860 1352.9' 02077400 224 38.57 3.32.92 16.28 84,376,218 STEPS=889 1376.6' 02077500 225 33.73 3.31.96 15.36 84,589,564 STEPS=889 1380.7' 02077600 226 32.54 3.31.12 15.12 85,067,898 STEPS=889 1387.1' 02077700 227 55.27 7.38.53 22.42 85,046,476 STEPS=889 1387.0' 02077800 228 48.17 7.33.62 26.25 84,445,860 STEPS=889 1378.1' 02077900 229 50.83 7.36.56 36.60 85,079,821 STEPS=889 1388.2' 02078000 230 48.62 3.32.91 12.93 85,649,224 STEPS=889 1397.0' 02078100 231 33.74 3.36.08 14.14 86,123,942 STEPS=889 1403.9' 02078200 232 40.61 3.38.96 12.21 87,842,199 STEPS=889 1429.1' 02078300 233 67.02 8.01.30 25.78 91,148,893 STEPS=889 1479.9' 02078400 234 96.71 8.37.77 28.73 XX,XXX,XXX STEPS=889 0000.0' 02078500 235 85.11 3.57.01 14.60 92,777,903 STEPS=912 1504.6' 02078600 236 114.67 3.55.80 12.86 92,587,438 STEPS=912 1500.9' 02078700 237 217.95 3.53.41 13.89 92,639,964 STEPS=912 1501.7' 02078800 238 36.87 4.11.51 14.00 92,641,454 STEPS=912 1501.7' 02078900 239 2.48.86 3.40.19 12.61 92,674,677 STEPS=912 1502.1' 02079000 240 2.36.45 3.51.26 15.73 106,574,977 STEPS=953 1755.5' 02079100 241 52.82 4.18.69 17.93 106,668,795 STEPS=959 1757.5' 02079200 242 1.06.30 4.31.88 22.67 113,798,721 STEPS=957 1917.2' 02079300 243 1.21.58 4.06.92 17.82 114,032,958 STEPS=957 1920.8' 02079400 244 50.80 4.14.92 19.13 114,555,428 STEPS=957 1928.7' 02079500 245 41.49 4.09.85 18.25 115,513,651 STEPS=957 1934.9' 02079600 246 50.69 4.11.48 18.32 115,756,977 STEPS=957 1946.2' 02079700 247 53.28 5.20.51 20.39 115,774,756 STEPS=957 1946.9' 02079800 248 60.04 5 18.43 20.13 115,748,183 STEPS=957 1946.4' 02079900 02080000 249 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080100 250 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080200 251 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080300 252 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080400 253 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080500 254 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080600 255 00.00 0.00.00 0.00 XX,XXX,XXX STEPS=XXX 0000.0' 02080700 02080800 ******************************************************************** 02080900 //***SECTION JCL SECTION 02081000 //STEP009 EXEC PAN,LAB=009 02081100 ++WRITE WORK,CBT1518 02081200 //STEP010 EXEC PAN,LAB=010 02081300 ++WRITE WORK,CBT1394 /* GPSAM DOCUMENTATION */ 02081400 //STEP011 EXEC PAN,LAB=011 02081500 ++WRITE WORK,CBT1395 /* GPASM SOURCE */ 02081600 //STEP012 EXEC PAN,LAB=012 02081700 ++WRITE WORK,CBT1402 /* JOHN HANCOCK ISPF */ 02081800 //STEP013 EXEC PAN,LAB=013 02081900 ++WRITE WORK,CBT1107 02082000 //STEP014 EXEC PAN,LAB=014 02082100 ++WRITE WORK,CBT1108 02082200 //STEP015 EXEC PAN,LAB=015 02082300 ++WRITE WORK,CBT1040 02082400 //STEP016 EXEC PAN,LAB=016 02082500 ++WRITE WORK,CBT1089 02082600 //STEP017 EXEC PAN,LAB=017 02082700 ++WRITE WORK,CBT1111 02082800 //STEP018A EXEC PANPAN 02082900 ++WRITE WORK,CBT474 02083000 //STEP018B EXEC PGM=CBT381,PARM=C 02083100 //SYSPRINT DD SYSOUT=6 02083200 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02083300 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02083400 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(018,NL) 02083500 //STEP019 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02083600 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F019.VTAM 02083700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02083800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02083900 // DSN=QAQ,LABEL=(019,NL) 02084000 //STEP020 EXEC PAN,LAB=020 02084100 ++WRITE WORK,CBT1088 02084200 //STEP021 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02084300 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F021.DMS.JCL 02084400 // DD * 02084500 ******************************************************** 02084600 * * 02084700 * FOR LACK OF A BETTER PLACE TO PUT THIS HERE IT IS * 02084800 * * 02084900 * DMS WILL NOT BE SUPPORTED FOR MVS/SP 1.2, 1.3, XA, * 02085000 * AND BEYOND * 02085100 * * 02085200 * * 02085300 ******************************************************** 02085400 * 02085500 * Z A P S 02085600 * 02085700 * ZAPS 02085800 DMSZAP JOB 0,'IBM-CE',MSGLEVEL=(2,0),CLASS=I 02085900 STEP001 EXEC PGM=AMASPZAP 02086000 SYSPRINT DD SYSOUT=A 02086100 SYSLIB DD DSN= 02086200 SYSIN DD * 02086300 * 02086400 * ZAPS RECEIVED FROM IBM SWITZERLAND ON APRIL 24, 1980 02086500 * 02086600 * DMS CCW TRACE RELEATED PROBLMES 02086700 * ZAP TO DMS 3.3 02086800 NAME DMSUNT0 DMSUNT0 02086900 VER 0012 F061 02087000 REP 0012 F161 02087100 REP 00A4 91BF0045,4770 02087200 REP 073A 47F0B4F2 02087300 REP 0750 47F0B4F2 02087400 REP 0766 47F0B4F2 02087500 REP 080C BDF31012 02087600 REP 0818 5811F000 02087700 REP 0804 BDF31010 02087800 REP 03B2 4780B1B8 02087900 REP 0206 4770B1B8 02088000 * END OF ZAP IN DMSUNT0 02088100 * 02088200 * DMS DISCONNECTS AFTER A VARY PATH 02088300 ** ZAP FOR DMS 3.3 (WITHOUT MVS-SE) 02088400 NAME DMSMNTR 02088500 VER 0574 4780B210 02088600 REP 0574 4700B210 02088700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02088800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02088900 // DSN=QAQ,LABEL=(021,NL) 02089000 //STEP022 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02089100 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F022.DMS.DOC 02089200 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02089300 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02089400 // DSN=QAQ,LABEL=(022,NL) 02089500 //STEP023 EXEC PGM=OFFLOAD,REGION=256K 02089600 //SYSPRINT DD SYSOUT=6 02089700 //IN DD DISP=SHR,DSN=TEC.ARNIE.F023.DMS.NONSE.SOURCE 02089800 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&BB, 02089900 // SPACE=(CYL,(20,20)), 02090000 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02090100 O I=IN,O=OUTPUT,T=IEBUPDTE 02090200 //STEP023A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02090300 //INPUT DD DSN=&BB,DISP=(OLD,DELETE) 02090400 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02090500 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02090600 // DSN=QAQ,LABEL=(023,NL) 02090700 //STEP024 EXEC IEBCOPY 02090800 //IN DD DISP=SHR,DSN=TEC.ARNIE.F024.DMS.NONSE.LOAD 02090900 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02091000 // LABEL=(024,NL),DCB=DEN=4 02091100 COPY INDD=IN,OUTDD=OT 02091200 //STEP025 EXEC PGM=OFFLOAD,REGION=256K 02091300 //SYSPRINT DD SYSOUT=6 02091400 //IN DD DISP=SHR,DSN=TEC.ARNIE.F025.DMS.SE.SOURCE 02091500 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&CC, 02091600 // SPACE=(CYL,(20,20)), 02091700 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02091800 O I=IN,O=OUTPUT,T=IEBUPDTE 02091900 //STEP025A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02092000 //INPUT DD DSN=&CC,DISP=(OLD,DELETE) 02092100 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02092200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02092300 // DSN=QAQ,LABEL=(025,NL) 02092400 //STEP026 EXEC IEBCOPY 02092500 //IN DD DISP=SHR,DSN=TEC.ARNIE.F026.DMS.SE.LOAD 02092600 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02092700 // LABEL=(026,NL),DCB=DEN=4 02092800 COPY INDD=IN,OUTDD=OT 02092900 //STEP027 EXEC PAN,LAB=027 02093000 ++WRITE WORK,CBT1062 02093100 //STEP028 EXEC PAN,LAB=028 02093200 ++WRITE WORK,CBT276 02093300 ++WRITE WORK,CBT224 02093400 //STEP029 EXEC PAN,LAB=029 02093500 ++WRITE WORK,CBT276 02093600 ++WRITE WORK,CBT225 02093700 //STEP030 EXEC PAN,LAB=030 02093800 ++WRITE WORK,CBT320 02093900 //STEP031 EXEC PAN,LAB=031 02094000 ++WRITE WORK,CBT323 02094100 //STEP032 EXEC PAN,LAB=032 02094200 ++WRITE WORK,CBT1336 02094300 //STEP033 EXEC PAN,LAB=033 02094400 ++WRITE WORK,CBT1422 02094500 //STEP034 EXEC PAN,LAB=034 02094600 ++WRITE WORK,APEMAN3 02094700 //STEP035A EXEC PGM=CBT299VV 02094800 TEC.MODS.LOAD1 02094900 TEC.MODS.LOAD2 02095000 //STEP035B EXEC IEBCOPY 02095100 //IN1 DD DSN=SYS2.MLINKLIB,DISP=SHR 02095200 //IN2 DD DSN=TSO.GAMES,DISP=SHR 02095300 //IN3 DD DSN=TEC.ARNIE.F318.STATDIE.LOAD,DISP=SHR 02095400 //IN4 DD DSN=TEC.ARNIE.F320.PACKER.LOAD,DISP=SHR 02095500 //IN5 DD DSN=SYS2.CMD1.LOAD,DISP=SHR 02095600 //OUT DD DSN=TEC.MODS.LOAD1,DISP=(NEW,CATLG),UNIT=SYSDA, 02095700 // SPACE=(CYL,(20,1,140)),DCB=(RECFM=U,BLKSIZE=19069) 02095800 COPY INDD=IN1,OUTDD=OUT 02095900 S M=CPAGE STARTREK 02096000 S M=BPAGE STARTREK 02096100 S M=QTIME STARTREK 02096200 S M=QDATE STARTREK 02096300 S M=DEDUCT STARTREK 02096400 S M=RANKING STARTREK 02096500 S M=ST79INIT STARTREK 02096600 S M=SUPRTREK STARTREK 02096700 S M=((PDSXXX,PDS,R)) PDS VERSION 7.1 02096800 S M=((HOBART,CPU,R)) CPU COMMAND FROM HOBART 02096900 S M=((CBT899,RMFPRT,R)) RMF POST PROCESSOR 02097000 S M=((CBT473,TSUPDATE,R)) TSUPDATE FROM CONRAIL 02097100 S M=((CBT880,OFFLOAD,R)) OFFLOAD PROGRAM FROM FILE 225 02097200 S M=((CBT1215,TAPEMAP,R)) TAPEMAP PROGRAM 02097300 S M=((CBT1493,DYNABLD,R)) DYNAMIC BLDL FROM FILE 407 02097400 S M=VSAMADTL VSAMANAL 02097500 S M=VSAMAGET VSAMANAL 02097600 S M=VSAMAHLP VSAMANAL 02097700 S M=VSAMANAL VSAMANAL 02097800 S M=VSAMANDX VSAMANAL 02097900 S M=VSAMSIZE VSAMANAL 02098000 COPY INDD=IN2,OUTDD=OUT 02098100 S M=ADVENT ADVENTURE 02098200 COPY INDD=IN3,OUTDD=OUT 02098300 S M=ADL MODULES FOR STATDIE SYSTEM 02098400 S M=AMDPRSEG MODULES FOR STATDIE SYSTEM 02098500 S M=ASMTOZAP MODULES FOR STATDIE SYSTEM 02098600 S M=COMWAIT MODULES FOR STATDIE SYSTEM 02098700 S M=LINKER MODULES FOR STATDIE SYSTEM 02098800 S M=LOADPTR MODULES FOR STATDIE SYSTEM 02098900 S M=PLIMISC MODULES FOR STATDIE SYSTEM 02099000 S M=PTRIN MODULES FOR STATDIE SYSTEM 02099100 S M=PTROUT MODULES FOR STATDIE SYSTEM 02099200 S M=SDL MODULES FOR STATDIE SYSTEM 02099300 S M=STATDIE MODULES FOR STATDIE SYSTEM 02099400 S M=STATPOST MODULES FOR STATDIE SYSTEM 02099500 S M=STATSTDE MODULES FOR STATDIE SYSTEM 02099600 S M=STATUTL MODULES FOR STATDIE SYSTEM 02099700 S M=STCK MODULES FOR STATDIE SYSTEM 02099800 S M=SVC MODULES FOR STATDIE SYSTEM 02099900 S M=TCAPTR MODULES FOR STATDIE SYSTEM 02100000 S M=TODCNVRT MODULES FOR STATDIE SYSTEM 02100100 S M=TODCNVT MODULES FOR STATDIE SYSTEM 02100200 COPY INDD=IN4,OUTDD=OUT 02100300 S M=ANALYSIS MODULES FOR PACKER SYSTEM 02100400 S M=DIRECT MODULES FOR PACKER SYSTEM 02100500 S M=GENCNTS MODULES FOR PACKER SYSTEM 02100600 S M=LPAMAP MODULES FOR PACKER SYSTEM 02100700 S M=MODMAP MODULES FOR PACKER SYSTEM 02100800 //STEP035C EXEC IEBCOPY 02100900 //IN DD DSN=TEC.MODS.LOAD1,DISP=SHR 02101000 //OUT DD DSN=TEC.MODS.LOAD2,DISP=(NEW,CATLG),UNIT=SYSDA, 02101100 // SPACE=(CYL,(20,1,140),RLSE),DCB=(RECFM=U,BLKSIZE=19069) 02101200 COPY INDD=IN,OUTDD=OUT 02101300 //STEP035D EXEC IEBCOPY 02101400 //IN DD DSN=TEC.MODS.LOAD2,DISP=SHR 02101500 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02101600 // LABEL=(35,NL),DCB=DEN=4 02101700 COPY INDD=IN,OUTDD=OUT 02101800 //STEP035E EXEC PGM=CBT299VV 02101900 //SYSIN DD * 02102000 TEC.MODS.LOAD1 02102100 TEC.MODS.LOAD2 02102200 //STEP036 EXEC PAN,LAB=036 02102300 ++WRITE WORK,CBT582 02102400 //STEP037 EXEC PAN,LAB=037 02102500 ++WRITE WORK,CBT1386 02102600 //STEP038 EXEC PAN,LAB=038 02102700 ++WRITE WORK,CBT584 02102800 //STEP039 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02102900 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F039.WISCON 02103000 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02103100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02103200 // DSN=QAQ,LABEL=(039,NL) 02103300 //STEP040 EXEC PAN,LAB=040 02103400 ++WRITE WORK,CBT1343 02103500 //*TEP040 EXEC IEBCOPY 02103600 //*N DD DSN=MVS.APEMAN,DISP=SHR 02103700 //*UT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02103800 //* LABEL=(40,NL),DCB=DEN=4 02103900 //*COPY INDD=IN,OUTDD=OUT 02104000 //*S M=((APEMAN1,,R)) 02104100 //*S M=((APEMAN2,,R)) 02104200 //*S M=((APEMAN3,,R)) 02104300 //*S M=((DECVB,,R)) 02104400 //*S M=((INPUT,,R)) 02104500 //*S M=((ITIME,,R)) 02104600 //*S M=((MAIN1,,R)) 02104700 //*S M=((MAIN2,,R)) 02104800 //*S M=((MAIN3,,R)) 02104900 //*S M=((MONA,,R)) 02105000 //*S M=((MONAD,,R)) 02105100 //*S M=((MONLD,,R)) 02105200 //*S M=((MONP,,R)) 02105300 //*S M=((MONRD,,R)) 02105400 //*S M=((MONRUN,,R)) 02105500 //*S M=((MONS,,R)) 02105600 //*S M=((MONTIM,,R)) 02105700 //*S M=((MONZ,,R)) 02105800 //*S M=((PAGE,,R)) 02105900 //*S M=((STRTIM,,R)) 02106000 //*S M=((ZA01AS,,R)) 02106100 //*S M=((ZA06AS,,R)) 02106200 //*S M=((ZA09AS,,R)) 02106300 //*S M=((ZR02AS,,R)) 02106400 //*S M=((ZA06BS,,R)) 02106500 //*S M=((ZA06CS,,R)) 02106600 //STEP041 EXEC PAN,LAB=041 02106700 ++INSERT WORK 02106800 ./ ADD NAME=MVSECHMP 02106900 ++WRITE WORK,CBT593 02107000 ++INSERT WORK 02107100 ./ ADD NAME=CHIMP 02107200 ++WRITE WORK,CBT733 02107300 //STEP042 EXEC PAN,LAB=042 02107400 ++WRITE WORK,CBT964 02107500 //STEP043 EXEC PANPAN 02107600 ++WRITE WORK,CBT965 02107700 //STEP043A EXEC PGM=CBT381,PARM=C 02107800 //SYSPRINT DD SYSOUT=6 02107900 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02108000 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02108100 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(43,NL) 02108200 //STEP044 EXEC IEBCOPY 02108300 //IN DD DSN=CBT.ARNIE.KAISER.F044,DISP=SHR 02108400 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02108500 // LABEL=(044,NL),DCB=DEN=4 02108600 COPY INDD=IN,OUTDD=OT 02108700 //STEP045 EXEC PAN,LAB=045 02108800 ++WRITE WORK,CBT1274 02108900 //STEP046 EXEC PAN,LAB=046 02109000 ++WRITE WORK,CBT100 02109100 //STEP047 EXEC PAN,LAB=047 02109200 ++WRITE WORK,CBT949 02109300 //STEP048 EXEC PAN,LAB=048 02109400 ++WRITE WORK,CBT500 02109500 //STEP049 EXEC PAN,LAB=049 02109600 ++WRITE WORK,CBT501 02109700 //STEP050 EXEC PAN,LAB=050 02109800 ++WRITE WORK,CBT502 02109900 //STEP051 EXEC PAN,LAB=051 02110000 ++WRITE WORK,CBT503 02110100 //STEP052 EXEC PAN,LAB=052 02110200 ++WRITE WORK,CBT952 02110300 //STEP053 EXEC PAN,LAB=053 02110400 ++WRITE WORK,CBT510 02110500 //STEP054 EXEC PAN,LAB=054 02110600 ++WRITE WORK,CBT511 02110700 //STEP055 EXEC PAN,LAB=055 02110800 ++WRITE WORK,CBT512 02110900 //STEP056 EXEC PAN,LAB=056 02111000 ++WRITE WORK,CBT513 02111100 //STEP057 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02111200 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F057.PANSPOOL 02111300 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02111400 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02111500 // DSN=QAQ,LABEL=(057,NL) 02111600 //STEP058 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02111700 //INPUT DD DISP=SHR,DSN=TEC.ARNIE.F058.FLP.PDS 02111800 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02111900 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02112000 // DSN=QAQ,LABEL=(058,NL) 02112100 //STEP059 EXEC PGM=IBMGENER,REGION=512K 02112200 //SYSIN DD DUMMY 02112300 //SYSPRINT DD DUMMY 02112400 //SYSUT1 DD DSN=CBT.ARNIE.DCMSSE.F059,DISP=SHR 02112500 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02112600 // DCB=(DEN=4,RECFM=VBA,LRECL=137,BLKSIZE=32747), 02112700 // DSN=QAQ,LABEL=(059,NL) 02112800 //STEP060 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02112900 //INPUT DD DSN=CBT.ARNIE.DCMSSE.F060,DISP=SHR 02113000 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02113100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02113200 // DSN=QAQ,LABEL=(060,NL) 02113300 //STEP061 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02113400 //INPUT DD DSN=CBT.ARNIE.DCMSSE.F061,DISP=SHR 02113500 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02113600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02113700 // DSN=QAQ,LABEL=(061,NL) 02113800 //STEP062 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02113900 //INPUT DD * 02114000 THIS FILE SHOULD CONTAIN THE MVS/SRM MACROS FOR MVS/SE DCMS 02114100 BUT BECAUSE OF THE COPYRIGHT LAWS IT DOES NOT. IF YOU NEED 02114200 THESE MACROS YOU MUST GET THE OPTIONAL MATERIAL FOR MVS/SE 02114300 FROM IBM. YOU HAVE TO HAVE A LICENSE FOR MVS/SE (5740-XE1) 02114400 TO OBTAIN THIS DATA 02114500 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02114600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02114700 // DSN=QAQ,LABEL=(062,NL) 02114800 //STEP063 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02114900 //INPUT DD DSN=CBT.ARNIE.DCMSSE.F063,DISP=SHR 02115000 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02115100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02115200 // DSN=QAQ,LABEL=(063,NL) 02115300 //STEP064 EXEC IEBCOPY 02115400 //IN DD DSN=CBT.ARNIE.DCMSSE.F064,DISP=SHR 02115500 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02115600 // LABEL=(064,NL),DCB=DEN=4 02115700 COPY INDD=IN,OUTDD=OT 02115800 //STEP065 EXEC PGM=OFFLOAD,REGION=256K 02115900 //SYSPRINT DD SYSOUT=A 02116000 //IN DD DISP=SHR,DSN=TEC.ARNIE.F065.BFG.PGMS 02116100 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02116200 // SPACE=(CYL,(30,20)), 02116300 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02116400 O I=IN,O=OUTPUT,T=IEBUPDTE 02116500 //STEP065A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02116600 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02116700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02116800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02116900 // DSN=QAQ,LABEL=(065,NL) 02117000 //STEP066 EXEC PGM=OFFLOAD,REGION=256K 02117100 //SYSPRINT DD SYSOUT=A 02117200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F066.BFG.QUE 02117300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02117400 // SPACE=(CYL,(30,20)), 02117500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02117600 O I=IN,O=OUTPUT,T=IEBUPDTE 02117700 //STEP066A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02117800 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02117900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02118000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02118100 // DSN=QAQ,LABEL=(066,NL) 02118200 //STEP067 EXEC PGM=OFFLOAD,REGION=256K 02118300 //SYSPRINT DD SYSOUT=A 02118400 //IN DD DISP=SHR,DSN=TEC.ARNIE.F067.BFG.PANSPOOL 02118500 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02118600 // SPACE=(CYL,(30,20)), 02118700 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02118800 O I=IN,O=OUTPUT,T=IEBUPDTE 02118900 //STEP067A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02119000 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02119100 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02119200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02119300 // DSN=QAQ,LABEL=(067,NL) 02119400 //STEP068 EXEC PGM=OFFLOAD,REGION=256K 02119500 //SYSPRINT DD SYSOUT=A 02119600 //IN DD DISP=SHR,DSN=TEC.ARNIE.F068.BFG.INFO 02119700 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02119800 // SPACE=(CYL,(30,20)), 02119900 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02120000 O I=IN,O=OUTPUT,T=IEBUPDTE 02120100 //STEP068A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02120200 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02120300 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02120400 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02120500 // DSN=QAQ,LABEL=(068,NL) 02120600 //STEP069 EXEC PAN,LAB=069 02120700 ++WRITE WORK,CBT1013 02120800 //STEP070 EXEC PAN,LAB=070 02120900 ++WRITE WORK,CBT369 02121000 //STEP071 EXEC PAN,LAB=071 02121100 ++WRITE WORK,CBT370 02121200 //STEP072 EXEC PAN,LAB=072 02121300 ++WRITE WORK,CBT371 02121400 //STEP073 EXEC PAN,LAB=073 02121500 ++WRITE WORK,CBT958 02121600 //STEP074 EXEC PANPAN 02121700 ++WRITE WORK,CBT959 02121800 //STEP074A EXEC PGM=CBT381,PARM=C 02121900 //SYSPRINT DD SYSOUT=6 02122000 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02122100 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02122200 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(74,NL) 02122300 //STEP075 EXEC PAN,LAB=075 02122400 ++WRITE WORK,CBT1046 02122500 //STEP076 EXEC PAN,LAB=076 02122600 ++WRITE WORK,CBT394 02122700 //STEP077 EXEC PAN,LAB=077 02122800 ++WRITE WORK,CBT334 02122900 //STEP078 EXEC PAN,LAB=078 02123000 ++WRITE WORK,CBT335 02123100 //STEP079 EXEC PAN,LAB=079 02123200 ++WRITE WORK,APEMAN4 02123300 //STEP080 EXEC PAN,LAB=080 02123400 ++INSERT WORK 02123500 ./ ADD NAME=DOC 02123600 ++WRITE WORK,CBT540 02123700 ++INSERT WORK 02123800 ./ ADD NAME=JCL 02123900 ++WRITE WORK,CBT541 02124000 ++INSERT WORK 02124100 ./ ADD NAME=ZAP 02124200 ++WRITE WORK,CBT542 02124300 ++INSERT WORK 02124400 ./ ADD NAME=EWTR1 02124500 ++WRITE WORK,CBT543 02124600 ++INSERT WORK 02124700 ./ ADD NAME=EWTR2 02124800 ++WRITE WORK,CBT544 02124900 ++INSERT WORK 02125000 ./ ADD NAME=EWTR2SVS 02125100 ++WRITE WORK,CBT545 02125200 ++INSERT WORK 02125300 ./ ADD NAME=EWTR3SVS 02125400 ++WRITE WORK,CBT546 02125500 ++INSERT WORK 02125600 ./ ADD NAME=SYSMGR 02125700 ++WRITE WORK,CBT547 02125800 //STEP081 EXEC PAN,LAB=081 02125900 ++WRITE WORK,CBT380 02126000 //STEP082 EXEC PAN,LAB=082 02126100 ++WRITE WORK,CBT655 02126200 //STEP083 EXEC PAN,LAB=083 02126300 ++WRITE WORK,CBT656 02126400 //STEP084 EXEC PAN,LAB=084 02126500 ++WRITE WORK,CBT657 02126600 //STEP085 EXEC PAN,LAB=085 02126700 ++WRITE WORK,CBT658 02126800 //STEP086 EXEC PAN,LAB=086 02126900 ++WRITE WORK,CBT659 02127000 //STEP087 EXEC PAN,LAB=087 02127100 ++WRITE WORK,CBT941 02127200 //STEP088 EXEC IEBCOPY 02127300 //INPUT DD DSN=CBT.ARNIE.F088.COMPRESS,DISP=SHR 02127400 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02127500 // DSN=QAQ,LABEL=(088,NL),DCB=DEN=4 02127600 COPY INDD=INPUT,OUTDD=OUTPUT 02127700 //STEP089 EXEC PAN,LAB=089 02127800 ++WRITE WORK,CBT943 02127900 //STEP090 EXEC PAN,LAB=090 02128000 ++WRITE WORK,CBT944 02128100 //STEP091 EXEC PAN,LAB=091 02128200 ++WRITE WORK,CBT945 02128300 //STEP092 EXEC PAN,LAB=092 02128400 ++WRITE WORK,APEMANA1 02128500 //STEP093 EXEC PAN,LAB=093 02128600 ++WRITE WORK,APEMANA2 02128700 //STEP094 EXEC PAN,LAB=094 02128800 ++WRITE WORK,APEMANA3 02128900 //STEP095 EXEC PAN,LAB=095 02129000 ++WRITE WORK,APEMANA4 02129100 //STEP096 EXEC PANPAN 02129200 ++WRITE WORK,APEMANA5 02129300 //STEP096A EXEC PGM=CBT381,PARM=C 02129400 //SYSPRINT DD SYSOUT=6 02129500 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02129600 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02129700 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(96,NL) 02129800 //STEP097 EXEC PANPAN 02129900 ++WRITE WORK,APEMANA6 02130000 //STEP097A EXEC PGM=CBT381,PARM=C 02130100 //SYSPRINT DD SYSOUT=6 02130200 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02130300 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02130400 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(97,NL) 02130500 //STEP098 EXEC PAN,LAB=098 02130600 ++WRITE WORK,CBT1339 /* LINKLIST MASTER CAT ZAP */ 02130700 //STEP099 EXEC PAN,LAB=099 02130800 ++WRITE WORK,CBT1340 /* SAS PERFORMANCE ZAP */ 02130900 //STEPM1 EXEC PGM=CBT1071, 02131000 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02131100 //STEPM2 EXEC PGM=CBT1071, 02131200 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02131300 //STEPM3 EXEC PGM=CBT1071,COND=ONLY, 02131400 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TS15500)' 02131500 //STEPM4 EXEC PGM=CBT1071,COND=ONLY, 02131600 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TS15500)' 02131700 //STEPM5 EXEC PGM=CBT1071, 02131800 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02131900 //STEPM6 EXEC PGM=CBT1071, 02132000 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02132100 //STEPM7 EXEC PGM=CBT1071,COND=ONLY, 02132200 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TX15500)' 02132300 //STEPM8 EXEC PGM=CBT1071,COND=ONLY, 02132400 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TX15500)' 02132500 //STEPM9 EXEC PGM=CBT1071, 02132600 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02132700 //STEPM10 EXEC PGM=CBT1071, 02132800 // PARM='SEND ''MVSMODS1 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02132900 //STEPM11 EXEC PGM=CBT1071,COND=ONLY, 02133000 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TA15500)' 02133100 //STEPM12 EXEC PGM=CBT1071,COND=ONLY, 02133200 // PARM='SEND ''MVSMODS1 HAS ABENDED'',LOGON,USER=(TA15500)' 02133300 //STEPXXX EXEC PGM=CBT936,PARM='$H''MVSMODS1''',COND=EVEN 02133400 //STEPZZZ EXEC PGM=CBT936,PARM='$A''MVSMODS2''' 02133500 //MVSMODS2 JOB 527TEC000S0003,TEC,CLASS=0,MSGCLASS=1,PRTY=10, 02133600 // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 02133700 //* 02133800 //* THIS IS THE SECOND PART OF THE MVSMODS1 JOB 02133900 //* BECAUSE OF 3.8 AND EXCESS NUMBER OF EXECUTE STATEMENTS 02134000 //* 02134100 //PANPAN PROC 02134200 //* 02134300 //* THIS IS THE ORIGINAL PAN FOR USE WITH FILES 1, 2, AND 3 02134400 //* 02134500 //PANPAN EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02134600 // DPRTY=(11,8),PARM='LINECNT=80' 02134700 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02134800 //SYSPUNCH DD UNIT=SYSDA,DSN=&PANDATA,DISP=(MOD,PASS), 02134900 // SPACE=(TRK,(10,10)) 02135000 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02135100 //PANDD2 DD UNIT=SYSDA,DSN=&WORK,DISP=(MOD,PASS), 02135200 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02135300 // PEND 02135400 //PAN PROC LAB=XXX 02135500 //COMP1 EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02135600 // DPRTY=(11,8),PARM='LINECNT=80' 02135700 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02135800 //SYSPUNCH DD DUMMY 02135900 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02136000 //PANDD2 DD UNIT=SYSDA,DSN=&COMP,DISP=(MOD,PASS), 02136100 // SPACE=(CYL,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02136200 //COMP2 EXEC PGM=CBT973,REGION=512K,COND=(4,LT), 02136300 // DPRTY=(11,8),PARM=COMPRESS 02136400 //INPUT DD DSN=&COMP,DISP=(OLD,DELETE) 02136500 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS),DSN=QAQ, 02136600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),LABEL=(&LAB.,NL) 02136700 // PEND 02136800 //IEBCOPY PROC 02136900 //STEP01 EXEC PGM=IEBCOPY,REGION=512K,DPRTY=(13,0),COND=(4,LT) 02137000 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02137100 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02137200 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02137300 // PEND 02137400 //IEBGENER PROC 02137500 //STEP01 EXEC PGM=IBMGENER,REGION=512K,COND=(4,LT) 02137600 //SYSPRINT DD DUMMY 02137700 //SYSIN DD DUMMY 02137800 // PEND 02137900 //*TEP000 EXEC PGM=CBT299VV,PARM='CBT.MODS1.PAN' 02138000 //*TEP001 EXEC PGM=IEFBR14 02138100 //*BTMOD DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(3,3)), 02138200 //* DSN=CBT.MODS1.PAN, 02138300 //* DCB=(RECFM=FBA,LRECL=121,BLKSIZE=18997) 02138400 //STEP100 EXEC PAN,LAB=100 02138500 ++WRITE WORK,CBT1367 /* DELUXE ISPF/PDF MENUS */ 02138600 //STEP101 EXEC PAN,LAB=101 02138700 ++WRITE WORK,CBT1368 /* DELUXE ISPF/PDS CLISTS */ 02138800 //STEP102 EXEC PAN,LAB=102 02138900 ++WRITE WORK,CBT1369 /* INDEXED VTOC PGMS */ 02139000 //STEP103 EXEC PAN,LAB=103 02139100 ++WRITE WORK,APEMAN12 02139200 //STEP104 EXEC PANPAN 02139300 ++WRITE WORK,APEMAN13 02139400 //STEP104A EXEC PGM=CBT381,PARM=C 02139500 //SYSPRINT DD SYSOUT=6 02139600 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02139700 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02139800 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(104,NL) 02139900 //STEP105 EXEC PAN,LAB=105 02140000 ++WRITE WORK,APEMAN14 02140100 //STEP106 EXEC PAN,LAB=106 02140200 ++WRITE WORK,APEMAN15 02140300 //STEP107 EXEC PAN,LAB=107 02140400 ++WRITE WORK,APEMAN16 02140500 //STEP108 EXEC PAN,LAB=108 02140600 ++WRITE WORK,APEMAN17 02140700 //STEP109 EXEC PAN,LAB=109 02140800 ++WRITE WORK,CBT386 02140900 //STEP110 EXEC PAN,LAB=110 02141000 ++WRITE WORK,CBT455 02141100 //STEP111 EXEC PANPAN 02141200 ++WRITE WORK,CBT454 02141300 //STEP111A EXEC PGM=CBT381,PARM=C 02141400 //SYSPRINT DD SYSOUT=6 02141500 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02141600 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02141700 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(111,NL) 02141800 //STEP112 EXEC PAN,LAB=112 02141900 ++WRITE WORK,CBT1601 02142000 //STEP113 EXEC PAN,LAB=113 02142100 ++WRITE WORK,CBT1001 02142200 //STEP114 EXEC PANPAN 02142300 ++WRITE WORK,CBT1002 02142400 //STEP114A EXEC PGM=CBT381,PARM=C 02142500 //SYSPRINT DD SYSOUT=6 02142600 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02142700 //SYSUTO DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02142800 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718),DSN=QAQ,LABEL=(114,NL) 02142900 //STEP115 EXEC PAN,LAB=115 02143000 ++WRITE WORK,CBT1507 02143100 //STEP116 EXEC PAN,LAB=116 02143200 ++WRITE WORK,CBT1016 02143300 //STEP117 EXEC PAN,LAB=117 02143400 ++INSERT WORK 02143500 NAME IEHMAP MAPDEV 3350 SUPPORT 02143600 VER 0128 000C,000C,0001,0001,000C,20A0 02143700 REP 0128 001E,001E,0001,0001,001E,410A 02143800 NAME IEHMAP MAPDEV 3375 SUPPORT FROM ROYAL 02143900 VER 0134 FFFFFFFF 02144000 REP 0134 0CF3F3F7,F540C4C9,E2D240D7,C1C3D240,000C000C,00010001 02144100 REP 014C 000C2CF4,FFFFFFFF 02144200 */TS15500Z JOB 527TSO000S0008,TEC,CLASS=J,MSGCLASS=1 02144300 */ EXEC PGM=AMASPZAP 02144400 */SYSPRINT DD SYSOUT=1 02144500 */SYSLIB DD DSN=SYS2.MLINKLIB,DISP=SHR 02144600 */SYSIN DD * 02144700 * THE FOLLOWING MOD IS THE INFORMATION NEEDED FOR INCORPORATING A 02144800 * 3380 MAPPPING CAPABILITY INTO IEHMAP 02144900 * 02145000 * THE MODIFICATION WAS ACCOMPLISHED BY MODIFYING A DEVICE TAPE IN 02145100 * THE MAPDEV CSECT OF IEHMAP. 02145200 * 02145300 * EACH LEVEL OF THE TAPE IS MAPDEV IS FORMATTED AS FOLLOWS: 02145400 * 02145500 * FIELD NAME BYTES 02145600 * DEVICE TYPE 0 02145700 * DEVICE DESCRIPTION 1-15 02145800 * SCALE FACTORS FOR CCHH OF DEVICE 16-23 02145900 * NUMBER OF TRACKS PER CYLINDER 24-25 02146000 * MAX RELATIVE TRACK FOR DEVICE 26-27 02146100 * 02146200 * THE 28 BYTES GIVEN BELOW REPRESENT THE SPECIFIC INFORMATION REQUIRED 02146300 * BY IEHMAP TO MAP 3380 DASD. A TABLE ENTRY FOR A DEVICE NO LONGER IN 02146400 * USE WAS OVERLAID WITH THIS DATA, THEREBY ELIMINATING ANY NEED TO 02146500 * EXTEND THE TABLE 02146600 * 02146700 * BYTES HEX DEC 02146800 * 0 OE 02146900 * 1-15 F3F3F8F040C4C9E2D240D7C1C3D240 3380 DISK PACK 02147000 * 16-23 000F,000F,0001,0001 15,15,1,1 02147100 * 24-25 000F 15 02147200 * 26-27 33DB 13275 02147300 * 02147400 * THIS LEVEL WILL DELETE 2314 SUPPORT AND ADD 3380 SUPPORT 02147500 * 02147600 * 02147700 DUMPT IEHMAP MAPDEV 02147800 NAME IEHMAP MAPDEV 02147900 VER 001C 08 DEVICE TYPE 02148000 VER 001D F2F3F1F440 DEVICE DESCRIPTION 02148100 VER 002C 0000001400000001 SCAL FACTORS FOR CCHH OF DEVICE 02148200 VER 0034 0014 NUMBER OF TRACKS/PER CYL 02148300 VER 0036 0FA0 MAX RELATIVE TRACK FOR DEVICE 02148400 REP 001C 0E DEVICE TYPE 02148500 REP 001D F3F3F8F040 DEVICE DESCRIPTION 02148600 REP 002C 000F000F00010001 SCAL FACTORS FOR CCHH OF DEVICE 02148700 REP 0034 000F NUMBER OF TRACKS/PER CYL 02148800 REP 0036 33DB MAX RELATIVE TRACK FOR DEVICE 02148900 DUMPT IEHMAP MAPDEV 02149000 //STEP118 EXEC PAN,LAB=118 02149100 ++WRITE WORK,CBT1277 02149200 ++WRITE WORK,CBT1278 02149300 //STEP119 EXEC PAN,LAB=119 02149400 ++WRITE WORK,CBT1280 02149500 //STEP120 EXEC PAN,LAB=120 02149600 ++WRITE WORK,CBT1058 02149700 //STEP121 EXEC PAN,LAB=121 02149800 ++WRITE WORK,CBT1998 02149900 //STEP122 EXEC PAN,LAB=122 02150000 ++WRITE WORK,CBT1268 02150100 //STEP123 EXEC PAN,LAB=123 02150200 ++WRITE WORK,CBT1078 02150300 //STEP124 EXEC PGM=OFFLOAD,REGION=256K 02150400 //SYSPRINT DD SYSOUT=A 02150500 //IN DD DISP=SHR,DSN=TEC.ARNIE.F124.GPU.PDS 02150600 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&WK, 02150700 // SPACE=(CYL,(20,20)), 02150800 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02150900 O I=IN,O=OUTPUT,T=IEBUPDTE 02151000 //STEP124A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02151100 //INPUT DD DSN=&WK,DISP=(OLD,DELETE) 02151200 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02151300 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02151400 // DSN=QAQ,LABEL=(124,NL) 02151500 //STEP125 EXEC IEBGENER,REGION=768K 02151600 //SYSUT1 DD DSN=TEC.ARNIE.F125.GPU.SAMPLE,DISP=SHR 02151700 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02151800 // LABEL=(125,NL),DSN=QAQ, 02151900 // DCB=(DEN=4,RECFM=FB,LRECL=133,BLKSIZE=32718) 02152000 //STEP126 EXEC PAN,LAB=126 02152100 ++WRITE WORK,CBT1020 02152200 //STEP127 EXEC PAN,LAB=127 02152300 ++WRITE WORK,CBT1057 02152400 //STEP128 EXEC PAN,LAB=128 02152500 ++WRITE WORK,CBT962 02152600 //STEP129 EXEC PAN,LAB=129 02152700 //SYSIN DD DATA,DLM='==' 02152800 ++INSERT WORK 02152900 ''ZAP (IECIOSAM) /* THIS ZAP IS FOR PRIORITY I/O QUEUEING AND CHANNEL 02153000 ROTATE COMBINED INTO 1 FOR A 3.8 MVS NON-SE 02153100 SYSTEM - ALL LINES THAT ARE UNMARKED ARE 02153200 FOR PRIORITY I/O 02153300 THIS ZAP IS AT 3.8 8002 LEVEL */. 02153400 NAME IECIOSCN 02153500 VER 03D2 5020,B008 02153600 VER 042A 58A0,C010 CHANNEL ROTATE 02153700 VER 0DE0 58E0,1004 02153800 VER 0DE8 50BE,0000,50F0,B000,50B0,1004 02153900 VER 10F0 C9D6,E240,D7C1,E3C3,C800,0000,0000,0000 02154000 REP 03D2 47F0,80F0 02154100 REP 042A 45E0,813A CHANNEL ROTATE 02154200 REP 0DE0 47F0,8112 02154300 REP 0DE8 50B0,1004,50BE,0000,50F0,B000 02154400 REP 10F0 5020,B008 02154500 REP 10F4 48E0,2006 02154600 REP 10F8 89E0,0002 02154700 REP 10FC 58A0,0010 02154800 REP 1100 58A0,A22C 02154900 REP 1104 58AE,A20C 02155000 REP 1108 D200,B006,A028,47F0,53D6 02155100 REP 1112 959D,B006 THE 9D IS THE BYTE TO INDICATE DPRTY OF JOB02155200 * -- NECESSARY TO USE PRIORITY I/O, I.E. 02155300 * DPRTY=(9,13) MUST BE SPECIFIED TO USE 02155400 * PRIORITY I/O 02155500 REP 1116 4720,8122 02155600 REP 111A 58E0,1004 02155700 REP 111E 47F0,5DE4 02155800 REP 1122 D500,F006,B006 02155900 REP 1128 4740,5DEC 02156000 REP 112C 18EF 02156100 REP 112E BFFF,E000 02156200 REP 1132 4740,5DE8 02156300 REP 1136 47F0,8122 02156400 REP 113A 58A0,C010,9501,C014 CHANNEL ROTATE 02156500 REP 1142 078E,4860,A000 CHANNEL ROTATE 02156600 REP 1148 D201,A000,A002 CHANNEL ROTATE 02156700 REP 114E 4060,A002,07FE CHANNEL ROTATE 02156800 == 02156900 //STEP130 EXEC PAN,LAB=130 02157000 ++WRITE WORK,CBT556 02157100 //STEP131 EXEC PAN,LAB=131 02157200 ++WRITE WORK,CBT555 02157300 //STEP132 EXEC PAN,LAB=132 02157400 ++WRITE WORK,CBT1007 02157500 //STEP133 EXEC PAN,LAB=133 02157600 ++WRITE WORK,CBT1069 02157700 //STEP134 EXEC PAN,LAB=134 02157800 ++WRITE WORK,CBT1005 02157900 //STEP135 EXEC PAN,LAB=135 02158000 ++WRITE WORK,CBT1004 02158100 //STEP136A EXEC PGM=IEBCOPY 02158200 //SYSPRINT DD SYSOUT=6 02158300 //IN DD DSN=CBT.HELP,DISP=SHR 02158400 //OT DD DSN=&HELP,DISP=(NEW,PASS),SPACE=(CYL,(1,1,35)), 02158500 // UNIT=SYSDA, 02158600 // DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB) 02158700 COPY INDD=IN,OUTDD=OT 02158800 S M=((LETTERS,LETTERS#,R)) 02158900 S M=((DELALL,DELALL#,R)) 02159000 S M=((DSNAME,DSNAME#,R)) 02159100 S M=((TERMLIST,TERMLST#,R)) 02159200 S M=((TSOUSER,TSOUSER#,R)) 02159300 //STEP136B EXEC PGM=OFFLOAD 02159400 //SYSPRINT DD SYSOUT=6 02159500 //IN DD DSN=&HELP,DISP=(OLD,DELETE) 02159600 //OT DD DSN=&HALP,DISP=(NEW,PASS),SPACE=(CYL,(1,1)), 02159700 // UNIT=SYSDA, 02159800 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02159900 O I=IN,O=OT,T=IEBUPDTE 02160000 //STEP136C EXEC PAN,LAB=136 02160100 //SYSIN DD * 02160200 ++INSERT WORK 02160300 ./ ADD NAME=$DOC 02160400 $$DOC........THIS FILE 02160500 LETTERS......TSO CP TO CHANGE SCREEN SIZE UNDER TSO TCAM 02160600 LETTERS#.....HELP FOR LETTERS 02160700 DELALL.......TSO CP TO DELETE ALL OF A TSO USERS DATASETS 02160800 SOME OF THIS CODE IS INSTALLATION DEPENDENT 02160900 DELALL#......HELP FOR DELALL 02161000 DSNAME.......TSO CP TO SHOW ENQUES FOR MVS/SP1.3 02161100 DSNAME#......HELP FOR DSNAME 02161200 PROFLIST.....TSO CP TO SHOW TSOUSERS PROFILE - NEED TO HAVE 02161300 ACCOUNT AUTHORITY 02161400 TERMLIST.....TSO CP TO SHOW TERMINAL CHARACTERISTICS FOR TSO SESSION 02161500 HAS TO RUN AUTHORIZED 02161600 TERMLST#.....HELP FOR TERMLIST 02161700 TSOUSER......TSO CP TO SHOW CURRENTLY RUNNING TSO USERS 02161800 HAS TO RUN AUTHORIZED 02161900 TSOUSER#.....HELP FOR TSOUSER 02162000 ++INSERT WORK 02162100 ./ ADD NAME=PROFLIST 02162200 ++WRITE WORK,CBT1421 02162300 ++INSERT WORK 02162400 ./ ADD NAME=LETTERS 02162500 ++WRITE WORK,CBT1350 02162600 ++INSERT WORK 02162700 ./ ADD NAME=DSNAME 02162800 ++WRITE WORK,CBT1377 02162900 ++INSERT WORK 02163000 ./ ADD NAME=TERMLIST 02163100 ++WRITE WORK,CBT1356 02163200 ++INSERT WORK 02163300 ./ ADD NAME=TSOUSER 02163400 ++WRITE WORK,CBT1374 02163500 ++INSERT WORK 02163600 ./ ADD NAME=DELALL 02163700 ++WRITE WORK,CBT1338 02163800 ++INSERT WORK 02163900 // DD DSN=&HALP,DISP=(OLD,DELETE) 02164000 //STEP137 EXEC PAN,LAB=137 02164100 ++WRITE WORK,CBT391 02164200 //STEP138 EXEC PAN,LAB=138 02164300 ++WRITE WORK,CBT387 02164400 //STEP139 EXEC PAN,LAB=139 02164500 ++WRITE WORK,CBT947 02164600 //STEP140 EXEC PAN,LAB=140 02164700 ++WRITE WORK,CBT276 02164800 ++WRITE WORK,CBT383 02164900 //STEP141 EXEC PAN,LAB=141 02165000 ++WRITE WORK,CBT1330 02165100 //STEP142 EXEC PAN,LAB=142 02165200 ++WRITE WORK,CBT557 02165300 //STEP143 EXEC PAN,LAB=143 02165400 ++WRITE WORK,CBT1331 02165500 //STEP144 EXEC PAN,LAB=144 02165600 ++WRITE WORK,CBT1038 02165700 //STEP145 EXEC PAN,LAB=145 02165800 ++WRITE WORK,CBT1059 02165900 //STEP146 EXEC PAN,LAB=146 02166000 ++WRITE WORK,CBT682 02166100 //STEP147 EXEC PAN,LAB=147 02166200 ++WRITE WORK,CBT683 02166300 //STEP148 EXEC PAN,LAB=148 02166400 ++WRITE WORK,CBT1363 02166500 //STEP149 EXEC PAN,LAB=149 02166600 ++WRITE WORK,CBT1365 02166700 //STEP150 EXEC PAN,LAB=150 02166800 ++WRITE WORK,CBT692 02166900 //STEP151 EXEC PAN,LAB=151 02167000 ++WRITE WORK,CBT694 02167100 //STEP152 EXEC PAN,LAB=152 02167200 ++WRITE WORK,CBT1361 /* PCCW MONITOR */ 02167300 //STEP153 EXEC PAN,LAB=153 02167400 ++WRITE WORK,CBT1379 02167500 //STEP154 EXEC PAN,LAB=154 02167600 ++WRITE WORK,CBT697 02167700 //STEP155 EXEC PAN,LAB=155 02167800 ++WRITE WORK,CBT1448 02167900 //STEP156 EXEC PAN,LAB=156 02168000 ++WRITE WORK,CBT742 02168100 //STEP157 EXEC PAN,LAB=157 02168200 ++WRITE WORK,CBT830 02168300 //STEP158 EXEC PAN,LAB=158 02168400 ++WRITE WORK,CBT1533 /* DSPRINT CONN MUTUAL */ 02168500 //STEP159 EXEC PAN,LAB=159 02168600 ++WRITE WORK,CBT1500 /* CBT UCBFIND SUBROUTINE */ 02168700 //STEP160 EXEC PAN,LAB=160 02168800 ++WRITE WORK,CBT1538 /* COMM OF MASS TSO CP'S */ 02168900 //STEP161 EXEC PGM=OFFLOAD,REGION=256K 02169000 //SYSPRINT DD SYSOUT=A 02169100 //IN DD DISP=SHR,DSN=TEC.CBT.AIRFORCE.ISPF 02169200 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&KT, 02169300 // SPACE=(CYL,(20,20)), 02169400 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02169500 O I=IN,O=OUTPUT,T=IEBUPDTE 02169600 //STEP161A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02169700 //INPUT DD DSN=&KT,DISP=(OLD,DELETE) 02169800 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02169900 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02170000 // DSN=QAQ,LABEL=(161,NL) 02170100 //STEP162 EXEC PAN,LAB=162 02170200 ++WRITE WORK,CBT1574 /* COMNET XREFASM */ 02170300 //STEP163 EXEC PAN,LAB=163 02170400 ++WRITE WORK,CBT766 02170500 //STEP164 EXEC PAN,LAB=164 02170600 ++WRITE WORK,CBT767 02170700 //STEP165 EXEC PAN,LAB=165 02170800 ++WRITE WORK,CBT768 02170900 //STEP166 EXEC PAN,LAB=166 02171000 ++WRITE WORK,CBT769 02171100 //STEP167 EXEC PAN,LAB=167 02171200 ++WRITE WORK,CBT991 02171300 //STEP168 EXEC PAN,LAB=168 02171400 ++WRITE WORK,CBT992 02171500 //STEP169 EXEC PAN,LAB=169 02171600 ++WRITE WORK,CBT993 02171700 //STEP170 EXEC PAN,LAB=170 02171800 ++WRITE WORK,CBT1389 02171900 //STEP171A EXEC PANPAN 02172000 ++WRITE WORK,CBT1389 02172100 //STEP171B EXEC PGM=CBT299 02172200 TEC.FILE171.PDS 02172300 TEC.FILE171.LOAD 02172400 //STEP171C EXEC PGM=IEFBR14 02172500 //A DD DSN=TEC.FILE171.PDS,UNIT=SYSDA, 02172600 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200), 02172700 // SPACE=(CYL,(2,1,35)),DISP=(NEW,CATLG) 02172800 //B DD DSN=TEC.FILE171.LOAD,DISP=(NEW,CATLG), 02172900 // UNIT=SYSDA,SPACE=(CYL,(2,2,56),RLSE), 02173000 // DCB=(RECFM=U,BLKSIZE=19069) 02173100 //STEP171D EXEC PGM=IEBUPDTE,PARM=NEW 02173200 //SYSIN DD DSN=&WORK,DISP=(OLD,DELETE) 02173300 //SYSUT1 DD DSN=TEC.FILE171.PDS,DISP=SHR 02173400 //SYSUT2 DD DSN=TEC.FILE171.PDS,DISP=SHR 02173500 //SYSPRINT DD SYSOUT=6 02173600 //STEP171E EXEC PGM=IEWL,REGION=1024K,PARM='LIST,XREF,MAP' 02173700 //SYSPRINT DD SYSOUT=6 02173800 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,1)) 02173900 //SYSLIB DD DSN=SYS2.MLINKLIB,DISP=SHR 02174000 //SYSLMOD DD DSN=TEC.FILE171.LOAD,DISP=SHR 02174100 //A DD DSN=TEC.FILE171.PDS,DISP=SHR 02174200 //SYSLIN DD * 02174300 INCLUDE A(WMCOBJ) 02174400 NAME WJCJOB(R) 02174500 INCLUDE A(TSFOBJ) 02174600 ALIAS WMDROP 02174700 ALIAS WMSET 02174800 ALIAS WMUSE 02174900 NAME TSF(R) 02175000 /* 02175100 //STEP171F EXEC IEBCOPY 02175200 //IN DD DSN=TEC.FILE171.LOAD,DISP=SHR 02175300 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02175400 // LABEL=(171,NL),DCB=DEN=4 02175500 COPY INDD=IN,OUTDD=OT 02175600 //STEP171G EXEC PGM=CBT299 02175700 TEC.FILE171.PDS 02175800 TEC.FILE171.LOAD 02175900 //STEP172 EXEC PAN,LAB=172 02176000 ++WRITE WORK,CBT689 02176100 //STEP173 EXEC PAN,LAB=173 02176200 ++WRITE WORK,CBT688 02176300 //STEP174 EXEC PAN,LAB=174 02176400 ++WRITE WORK,CBT690 02176500 //STEP175 EXEC PAN,LAB=175 02176600 ++WRITE WORK,CBT1332 02176700 //STEP176 EXEC PAN,LAB=176 02176800 ++INSERT WORK 02176900 NAME IEHMAP MAPINIT 02177000 * SPACE FOR MULTIPLE VOLUMES 02177100 VER 08D0 47F0,C198,0700,0700 02177200 REP 08D0 4400,C9B4,47F0,C198 02177300 NAME IEHMAP MAPCAT3 02177400 * CAT DSN - MULTIPLE VOLUMES 1 MORE THAN CAT 02177500 VER 0398 5820,9098,1222 02177600 REP 0398 58E0,9098,12EE 02177700 VER 03A2 1892 02177800 REP 03A2 189E 02177900 //STEP177 EXEC PAN,LAB=177 02178000 ++INSERT WORK 02178100 * DO NOT RAISE TARGET UNLESS RUA > TARGET 02178200 NAME IRARMRMR 02178300 VER 023E 4740,C252 02178400 REP 023E 47D0,C252 02178500 * COUNT NS SPACES IN CURRENT MPL 02178600 NAME IRARMCTL 02178700 VER 063E 9190,4011 02178800 VER 066C 9122,4011 02178900 REP 063E 9110,4011 02179000 REP 066C 91A2,4011 02179100 //STEP178 EXEC PAN,LAB=178 02179200 ++WRITE WORK,CBT1346 02179300 //STEP179 EXEC PAN,LAB=179 02179400 ++WRITE WORK,CBT821 02179500 //STEP180 EXEC PAN,LAB=180 02179600 //SYSIN DD * 02179700 ++INSERT WORK 02179800 // DD DSN=SYS1.PROCLIB(CBT821),DISP=SHR 02179900 //STEP181 EXEC PAN,LAB=181 02180000 ++WRITE WORK,IKJEBEMV 02180100 //STEP182 EXEC PAN,LAB=182 02180200 ++WRITE WORK,CBT106A 02180300 //STEP183 EXEC PAN,LAB=183 02180400 ++WRITE WORK,CBT743V1 02180500 //STEP184 EXEC PAN,LAB=184 02180600 ++WRITE WORK,CBT276 02180700 ++WRITE WORK,CBT079 02180800 //STEP185 EXEC PAN,LAB=185 02180900 ++WRITE WORK,CBT276 02181000 ++WRITE WORK,CBT005 02181100 //STEP186 EXEC PAN,LAB=186 02181200 ++WRITE WORK,CBT942 02181300 //STEP187 EXEC PAN,LAB=187 02181400 ++WRITE WORK,CBT1018 02181500 //STEP188 EXEC PAN,LAB=188 02181600 ++WRITE WORK,CBT851 02181700 //STEP189 EXEC PAN,LAB=189 02181800 ++WRITE WORK,CBT852 02181900 //STEP190 EXEC PAN,LAB=190 02182000 ++WRITE WORK,CBT819 02182100 //STEP191 EXEC PAN,LAB=191 02182200 ++WRITE WORK,CBT738 02182300 //STEP192 EXEC PAN,LAB=192 02182400 ++WRITE WORK,CBT817 02182500 //STEP193 EXEC PAN,LAB=193 02182600 ++WRITE WORK,CBT818 02182700 //STEP194 EXEC PAN,LAB=194 02182800 ++WRITE WORK,CBT826 02182900 //STEP195 EXEC PAN,LAB=195 02183000 ++WRITE WORK,CBT276 02183100 ++WRITE WORK,CBT911 02183200 //STEP196 EXEC PAN,LAB=196 02183300 ++WRITE WORK,CBT827A 02183400 ++WRITE WORK,CBT827B 02183500 //STEP197 EXEC PAN,LAB=197 02183600 ++WRITE WORK,CBT822 02183700 //STEP198 EXEC PAN,LAB=198 02183800 ++WRITE WORK,CBT1060C 02183900 //STEP199 EXEC PAN,LAB=199 02184000 ++WRITE WORK,CBT1610 /* COMNET TSO CP'S */ 02184100 //STEP200 EXEC PAN,LAB=200 02184200 ++WRITE WORK,CBT1097 02184300 //STEPM1 EXEC PGM=CBT1071, 02184400 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02184500 //STEPM2 EXEC PGM=CBT1071, 02184600 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02184700 //STEPM3 EXEC PGM=CBT1071,COND=ONLY, 02184800 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TS15500)' 02184900 //STEPM4 EXEC PGM=CBT1071,COND=ONLY, 02185000 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TS15500)' 02185100 //STEPM5 EXEC PGM=CBT1071, 02185200 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02185300 //STEPM6 EXEC PGM=CBT1071, 02185400 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02185500 //STEPM7 EXEC PGM=CBT1071,COND=ONLY, 02185600 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TX15500)' 02185700 //STEPM8 EXEC PGM=CBT1071,COND=ONLY, 02185800 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TX15500)' 02185900 //STEPM9 EXEC PGM=CBT1071, 02186000 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02186100 //STEPM10 EXEC PGM=CBT1071, 02186200 // PARM='SEND ''MVSMODS2 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02186300 //STEPM11 EXEC PGM=CBT1071,COND=ONLY, 02186400 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TA15500)' 02186500 //STEPM12 EXEC PGM=CBT1071,COND=ONLY, 02186600 // PARM='SEND ''MVSMODS2 HAS ABENDED'',LOGON,USER=(TA15500)' 02186700 //STEPXXX EXEC PGM=CBT936,PARM='$H''MVSMODS2''',COND=EVEN 02186800 //STEPZZZ EXEC PGM=CBT936,PARM='$A''MVSMODS3''' 02186900 //MVSMODS3 JOB 527TEC000S0003,TEC,CLASS=0,MSGCLASS=1,PRTY=10, 02187000 // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 02187100 //* 02187200 //* THIS IS THE THIRD PART OF THE MVSMODS1 JOB 02187300 //* BECAUSE OF 3.8 AND EXCESS NUMBER OF EXECUTE STATEMENTS 02187400 //* 02187500 //PANPAN PROC 02187600 //* 02187700 //* THIS IS THE ORIGINAL PAN FOR USE WITH FILES 1, 2, AND 3 02187800 //* 02187900 //PANPAN EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02188000 // DPRTY=(11,8),PARM='LINECNT=80' 02188100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02188200 //SYSPUNCH DD UNIT=SYSDA,DSN=&PANDATA,DISP=(MOD,PASS), 02188300 // SPACE=(TRK,(10,10)) 02188400 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02188500 //PANDD2 DD UNIT=SYSDA,DSN=&WORK,DISP=(MOD,PASS), 02188600 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02188700 // PEND 02188800 //PAN PROC LAB=XXX 02188900 //COMP1 EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02189000 // DPRTY=(11,8),PARM='LINECNT=80' 02189100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02189200 //SYSPUNCH DD DUMMY 02189300 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02189400 //PANDD2 DD UNIT=SYSDA,DSN=&COMP,DISP=(MOD,PASS), 02189500 // SPACE=(CYL,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02189600 //COMP2 EXEC PGM=CBT973,REGION=512K,COND=(4,LT), 02189700 // DPRTY=(11,8),PARM=COMPRESS 02189800 //INPUT DD DSN=&COMP,DISP=(OLD,DELETE) 02189900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS),DSN=QAQ, 02190000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),LABEL=(&LAB.,NL) 02190100 // PEND 02190200 //IEBCOPY PROC 02190300 //STEP01 EXEC PGM=IEBCOPY,REGION=512K,DPRTY=(13,0),COND=(4,LT) 02190400 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02190500 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02190600 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02190700 // PEND 02190800 //IEBGENER PROC 02190900 //STEP01 EXEC PGM=IBMGENER,REGION=512K,COND=(4,LT) 02191000 //SYSPRINT DD DUMMY 02191100 //SYSIN DD DUMMY 02191200 // PEND 02191300 //*TEP000 EXEC PGM=CBT299VV,PARM='CBT.MODS1.PAN' 02191400 //*TEP001 EXEC PGM=IEFBR14 02191500 //*BTMOD DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(3,3)), 02191600 //* DSN=CBT.MODS1.PAN, 02191700 //* DCB=(RECFM=FBA,LRECL=121,BLKSIZE=18997) 02191800 //STEP201 EXEC PAN,LAB=201 02191900 ++WRITE WORK,CBT832D 02192000 //STEP202 EXEC PAN,LAB=202 02192100 ++WRITE WORK,CBT834 02192200 //STEP203 EXEC PAN,LAB=203 02192300 ++WRITE WORK,CBT749 02192400 //STEP204 EXEC PAN,LAB=204 02192500 ++WRITE WORK,CBT966 02192600 //STEP205 EXEC PAN,LAB=205 02192700 ++WRITE WORK,CBT1084 02192800 //STEP206 EXEC PAN,LAB=206 02192900 ++WRITE WORK,CBT996 02193000 //STEP207 EXEC PAN,LAB=207 02193100 ++WRITE WORK,CBT998 02193200 //STEP208 EXEC PAN,LAB=208 02193300 ++WRITE WORK,CBT859 02193400 //STEP209 EXEC PAN,LAB=209 02193500 ++WRITE WORK,CBT857 02193600 //STEP210 EXEC PAN,LAB=210 02193700 ++WRITE WORK,CBT858 02193800 //STEP211 EXEC PAN,LAB=211 02193900 ++WRITE WORK,CBT856 02194000 //STEP212 EXEC PAN,LAB=212 02194100 ++WRITE WORK,CBT814 02194200 //STEP213 EXEC PAN,LAB=213 02194300 ++WRITE WORK,CBT811 02194400 //STEP214 EXEC PAN,LAB=214 02194500 ++WRITE WORK,CBT813 02194600 //STEP215 EXEC PAN,LAB=215 02194700 ++WRITE WORK,CBT812 02194800 //STEP216 EXEC PAN,LAB=216 02194900 ++WRITE WORK,CBT838NXA 02195000 //STEP217 EXEC PAN,LAB=217 02195100 ++WRITE WORK,CBT839 02195200 //STEP218 EXEC PAN,LAB=218 02195300 ++WRITE WORK,CBT1269 02195400 //STEP219 EXEC PAN,LAB=219 02195500 ++WRITE WORK,CBT374 02195600 //STEP220 EXEC PAN,LAB=220 02195700 ++WRITE WORK,CBT845 02195800 //STEP221 EXEC PAN,LAB=221 02195900 ++WRITE WORK,CBT860 02196000 //STEP222 EXEC PAN,LAB=222 02196100 ++WRITE WORK,CBT1508 02196200 //STEP223 EXEC PAN,LAB=223 02196300 ++WRITE WORK,CBT957 02196400 //STEP224 EXEC PAN,LAB=224 02196500 //SYSIN DD * 02196600 ++WRITE WORK,CBT677 02196700 ++INSERT WORK 02196800 // DD DSN=SYS1.PROCLIB(CBT677),DISP=SHR 02196900 //STEP225 EXEC PAN,LAB=225 02197000 ++WRITE WORK,CBT880 02197100 //STEP226 EXEC PAN,LAB=226 02197200 ++WRITE WORK,CBT1532 02197300 //STEP227 EXEC PAN,LAB=227 02197400 ++WRITE WORK,CBT815 02197500 //STEP228 EXEC PAN,LAB=228 02197600 ++WRITE WORK,CBT882 02197700 //STEP229 EXEC PAN,LAB=229 02197800 ++WRITE WORK,CBT990 02197900 //STEP230 EXEC PAN,LAB=230 02198000 ++WRITE WORK,CBT887 02198100 //STEP231 EXEC PAN,LAB=231 02198200 ++WRITE WORK,CBT888 02198300 //STEP232 EXEC PAN,LAB=232 02198400 ++WRITE WORK,CBT889 02198500 //STEP233 EXEC PAN,LAB=233 /* PANSPOOL UPDATE GTE */ 02198600 ++WRITE WORK,CBT1511 02198700 //STEP234 EXEC PAN,LAB=234 02198800 ++WRITE WORK,CBT891 02198900 //STEP235 EXEC PAN,LAB=235 02199000 ++WRITE WORK,CBT739 02199100 //STEP236 EXEC PAN,LAB=236 02199200 ++WRITE WORK,CBT892 02199300 //STEP237 EXEC PAN,LAB=237 02199400 //SYSIN DD * 02199500 ++INSERT WORK 02199600 ./ ADD NAME=PDSCLIST 02199700 ++WRITE WORK,CBT840 02199800 ++WRITE WORK,CBT842 02199900 ++INSERT WORK 02200000 ./ ADD NAME=GETPDSDD 02200100 ++WRITE WORK,CBT840 02200200 ++WRITE WORK,CBT847 02200300 ++INSERT WORK 02200400 ./ ADD NAME=GETPDSDE 02200500 ++WRITE WORK,CBT840 02200600 ++WRITE WORK,CBT848 02200700 ++INSERT WORK 02200800 ./ ADD NAME=OBJECT 02200900 ++WRITE WORK,CBT816 02201000 ++INSERT WORK 02201100 ./ ADD NAME=JCL 02201200 // DD DSN=SYS1.PROCLIB(PDSXREF),DISP=SHR 02201300 //STEP238 EXEC PAN,LAB=238 02201400 ++WRITE WORK,CBT893 02201500 //STEP239 EXEC PAN,LAB=239 02201600 ++WRITE WORK,CBT831 02201700 //STEP240 EXEC PGM=IBMGENER,REGION=512K 02201800 //SYSIN DD DUMMY 02201900 //SYSPRINT DD DUMMY 02202000 //SYSUT1 DD DSN=CBT.ARNIE.DCMS.F240,DISP=SHR 02202100 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02202200 // DCB=(DEN=4,RECFM=VBA,LRECL=137,BLKSIZE=32747), 02202300 // DSN=QAQ,LABEL=(240,NL) 02202400 //STEP241 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02202500 //INPUT DD DSN=CBT.ARNIE.DCMS.F241,DISP=SHR 02202600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02202700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02202800 // DSN=QAQ,LABEL=(241,NL) 02202900 //STEP242 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02203000 //INPUT DD DSN=CBT.ARNIE.DCMS.F242,DISP=SHR 02203100 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02203200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02203300 // DSN=QAQ,LABEL=(242,NL) 02203400 //STEP243 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02203500 //INPUT DD DSN=CBT.ARNIE.DCMS.F243,DISP=SHR 02203600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02203700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02203800 // DSN=QAQ,LABEL=(243,NL) 02203900 //STEP244 EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02204000 //INPUT DD DSN=CBT.ARNIE.DCMS.F244,DISP=SHR 02204100 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02204200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02204300 // DSN=QAQ,LABEL=(244,NL) 02204400 //STEP245 EXEC IEBCOPY 02204500 //IN DD DSN=CBT.ARNIE.DCMS.F245,DISP=SHR 02204600 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02204700 // LABEL=(245,NL),DCB=DEN=4 02204800 COPY INDD=IN,OUTDD=OT 02204900 //STEP246 EXEC PAN,LAB=246 02205000 ++WRITE WORK,CBT994 02205100 //STEP247 EXEC PAN,LAB=247 02205200 ++WRITE WORK,CBT900 02205300 //STEP248 EXEC PAN,LAB=248 02205400 ++WRITE WORK,CBT898L 02205500 //STEP249 EXEC PAN,LAB=249 02205600 //SYSIN DD * 02205700 ++INSERT WORK 02205800 // DD DSN=SYS1.PROCLIB(SMFSPLIT),DISP=SHR ************************** 02205900 //STEP250 EXEC PAN,LAB=250 02206000 ++WRITE WORK,CBT1017 02206100 //STEP251 EXEC PAN,LAB=251 02206200 ++WRITE WORK,CBT895 02206300 //STEP252 EXEC PAN,LAB=252 02206400 //SYSIN DD * 02206500 ++INSERT WORK 02206600 ./ ADD NAME=$DOC 02206700 $DOC ..... THIS FILE 02206800 DYNALIST . NON-XA VER OF DYNALIST 02206900 DYNAXA ... XA VER OF DYNALIST 02207000 ++INSERT WORK 02207100 ./ ADD NAME=DYNALIST 02207200 ++WRITE WORK,CBT910V01 02207300 ++INSERT WORK 02207400 ./ ADD NAME=DYNAXA 02207500 ++WRITE WORK,CBT910 02207600 //STEP253 EXEC PAN,LAB=253 02207700 ++WRITE WORK,CBT912 02207800 //STEP254 EXEC PAN,LAB=254 02207900 ++WRITE WORK,CBT913 02208000 //STEP255 EXEC PAN,LAB=255 02208100 ++WRITE WORK,CBT899 02208200 //STEP256 EXEC PAN,LAB=256 02208300 ++WRITE WORK,CBT1096 02208400 //STEP257 EXEC PAN,LAB=257 02208500 ++WRITE WORK,CBT1050 02208600 //STEP258 EXEC PAN,LAB=258 02208700 ++WRITE WORK,CBT915 02208800 //STEP259 EXEC IEBCOPY 02208900 //IN DD DSN=CBT.ARNIE.KAISER.F259,DISP=SHR 02209000 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02209100 // LABEL=(259,NL),DCB=DEN=4 02209200 COPY INDD=IN,OUTDD=OT 02209300 //STEP260 EXEC PAN,LAB=260 02209400 ++WRITE WORK,CBT846 02209500 //STEP261 EXEC PAN,LAB=261 02209600 //SYSIN DD DATA,DLM='==' 02209700 ++INSERT WORK 02209800 //SMPPTFIN DD * 02209900 ''PTF (YYYYYYY) . 02210000 ''VER (Z037) PRE(UZ04674) /* 02210100 * 02210200 * 02210300 * THE PURPOSE OF THIS ZAP IS TO ALLOW THE SMF BUFFER SIZE TO 02210400 * BE GREATER THAN THE CURRENT LIMIT OF 4096 (8192/2). 02210500 * 02210600 * THE VALUE SUPPLIED AT INITIALIZATION IS MULTIPLIED BY 8 02210700 * BEFORE THE GETMAIN FOR BUFFERS IS DONE, AND BEFORE THIS 02210800 * VALUE IS DIVIDED BY 2 TO SET UP THE ACTUAL BUFFERS. 02210900 * 02211000 * FOR EXAMPLE: TO WRITE FULL TRACK SMF BUFFER RECORDS SPECIFY 02211100 * THE BUF= KEYWORD IN THE SMF INITIALIZATION 02211200 * MEMBER IN PARMLIB AS FOLLOWS: 02211300 * 02211400 * 3350 ---- BUF=4760 (4760*8/2) GIVES A 19000 BYTE BUFFER 02211500 * 3330 ---- BUF=3250 (3250*8/2) GIVES A 13000 BYTE BUFFER 02211600 * 02211700 * TO ARRIVE AT A VALUE TO SPECIFY IN THE SMF BUF= PARAMETER 02211800 * DECIDE UPON YOUR SMF BUFFER SIZE AND DIVIDE BY 4. 02211900 * 02212000 * FOR EXAMPLE: TO WRITE A -- 02212100 * 19K BUFFER ON A 3350 - 19K/4=4760 02212200 * 13K BUFFER ON A 3330 - 13K/4=3250 02212300 * 02212400 * LIBRARY: SYS1.LINKLIB 02212500 * 02212600 * 02212700 * MODULE LEVEL IS DATED 76209 02212800 * R12 IS BASE WITH X'1C' 02212900 * 02213000 * */. 02213100 ''ZAP (IEEMB822). 02213200 EXPAND IEEMB822(20) 02213300 NAME IEEMB822 02213400 * 02213500 * 02213600 * 02213700 * THE PURPOSE OF THIS ZAP IS TO ALLOW THE SMF BUFFER SIZE TO 02213800 * BE GREATER THAN THE CURRENT LIMIT OF 4096 (8192/2). 02213900 * 02214000 * THE VALUE SUPPLIED AT INITIALIZATION IS MULTIPLIED BY 8 02214100 * BEFORE THE GETMAIN FOR BUFFERS IS DONE, AND BEFORE THIS 02214200 * VALUE IS DIVIDED BY 2 TO SET UP THE ACTUAL BUFFERS. 02214300 * 02214400 * FOR EXAMPLE: TO WRITE FULL TRACK SMF BUFFER RECORDS SPECIFY 02214500 * THE BUF= KEYWORD IN THE SMF INITIALIZATION 02214600 * MEMBER IN PARMLIB AS FOLLOWS: 02214700 * 02214800 * 3350 ---- BUF=4760 (4760*8/2) GIVES A 19000 BYTE BUFFER 02214900 * 3330 ---- BUF=3250 (3250*8/2) GIVES A 13000 BYTE BUFFER 02215000 * 02215100 * TO ARRIVE AT A VALUE TO SPECIFY IN THE SMF BUF= PARAMETER 02215200 * DECIDE UPON YOUR SMF BUFFER SIZE AND DIVIDE BY 4. 02215300 * 02215400 * FOR EXAMPLE: TO WRITE A -- 02215500 * 19K BUFFER ON A 3350 - 19K/4=4760 02215600 * 13K BUFFER ON A 3330 - 13K/4=3250 02215700 * 02215800 * LIBRARY: SYS1.LINKLIB 02215900 * 02216000 * 02216100 * MODULE LEVEL IS DATED 76209 02216200 * R12 IS BASE WITH X'1C' 02216300 * 02216400 VER 0044 5810200C L REG1,SMCABUF(,SMCAPTR) 02216500 VER 0448 00000000 PATCH AREA 02216600 REP 0448 5810200C L REG1,SMCABUF(,SMCAPTR) 02216700 REP 044C 89100003 SLL REG1,3 TIMES 8 02216800 REP 0450 5010200C ST REG1,SMCABUF(,SMCAPTR) SAVE IN SMCABUF 02216900 REP 0454 07F4 BR R4 02217000 REP 0044 4540C42C BAL R4,PATCH BRANCH TO PATCH 02217100 DUMPT IEEMB820 IEEMB822 02217200 /* 02217300 == 02217400 //STEP262A EXEC PANPAN 02217500 ++WRITE WORK,MVSMODS1 02217600 //STEP262B EXEC PGM=CBT897 02217700 //SYSUTI DD DSN=&WORK,DISP=(OLD,DELETE) 02217800 //SYSUTO DD DSN=&ER,DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1)) 02217900 //STEP262C EXEC PGM=SORT,REGION=512K 02218000 //SYSOUT DD SYSOUT=D 02218100 //SYSPRINT DD SYSOUT=D 02218200 //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR 02218300 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 02218400 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 02218500 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 02218600 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 02218700 //SORTIN DD DSN=&ER,DISP=(OLD,DELETE) 02218800 //SORTOUT DD DSN=&EX,DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1)) 02218900 //SYSIN DD * 02219000 SORT FIELDS=(1,30,A),FORMAT=CH 02219100 /* 02219200 //STEP262D EXEC PGM=IBMGENER,REGION=512K 02219300 //SYSIN DD DUMMY 02219400 //SYSPRINT DD DUMMY 02219500 //SYSUT1 DD DSN=&EX,DISP=(OLD,PASS) 02219600 //SYSUT2 DD SYSOUT=D,COPIES=3 02219700 //STEP262E EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02219800 //INPUT DD DSN=&EX,DISP=(OLD,DELETE) 02219900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02220000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),DSN=QAQ,LABEL=(262,NL) 02220100 //STEP263 EXEC PAN,LAB=263 02220200 ++WRITE WORK,CBT919 02220300 //STEP264 EXEC PAN,LAB=264 02220400 ++WRITE WORK,CBT920 02220500 //STEP265 EXEC PAN,LAB=265 02220600 ++WRITE WORK,CBT1351 /* JES2 PERFORMANCE MONITOR */ 02220700 //STEP266 EXEC PAN,LAB=266 02220800 ++WRITE WORK,CBT5701 02220900 //STEP267A EXEC PGM=CBT299VV,PARM='MVS.MVSMODS.TAPE' 02221000 //STEP267B EXEC IEBCOPY 02221100 //INPUT DD DSN=SYS2.CMD1.LOAD,DISP=SHR 02221200 //OUTPUT DD DSN=MVS.MVSMODS.TAPE,DISP=(NEW,CATLG), 02221300 // UNIT=SYSDA,SPACE=(CYL,(5,2,56),RLSE), 02221400 // DCB=(RECFM=U,BLKSIZE=19069) 02221500 //SYSIN DD * 02221600 COPY INDD=INPUT,OUTDD=OUTPUT 02221700 E M=VTOC 02221800 E M=CBT684 02221900 E M=PDSA 02222000 E M=PDSB 02222100 E M=PDSC 02222200 //STEP267B EXEC TSOBG,SO=1 02222300 PDSBATCH 'MVS.MVSMODS.TAPE' 02222400 RENAME IEESA03D S3ESA03D 02222500 RENAME CSCSA03D S3CSA03D 02222600 RENAME XXESA03D IEESA03D 02222700 RENAME XXCSA03D CSCSA03D 02222800 RENAME IEESQ03D S3ESQ03D 02222900 RENAME CSCSQ03D S3CSQ03D 02223000 RENAME XXESQ03D IEESQ03D 02223100 RENAME XXCSQ03D CSCSQ03D 02223200 RENAME IEESJ03D S3ESJ03D 02223300 RENAME CSCSJ03D S3CSJ03D 02223400 RENAME XXESJ03D IEESJ03D 02223500 RENAME XXCSJ03D CSCSJ03D 02223600 RENAME IEESG03D S3ESG03D 02223700 RENAME CSCSG03D S3CSG03D 02223800 RENAME XXESG03D IEESG03D 02223900 RENAME XXCSG03D CSCSG03D 02224000 END 02224100 //TURKEY DD * COMMENTS FOR THE ABOVE 02224200 RENAME IEESA03D S3ESA03D MVS/SP1.3 #N FOR LPA TO S3 02224300 RENAME CSCSA03D S3CSA03D MVS/SP1.3 #N FOR TSO TO S3 02224400 RENAME XXESA03D IEESA03D NON MVS/SP1.3 #N FOR LPA 02224500 RENAME XXCSA03D CSCSA03D NON MVS/SP1.3 #N FOR TSO 02224600 RENAME IEESQ03D S3ESQ03D MVS/SP1.3 #Q FOR LPA TO S3 02224700 RENAME CSCSQ03D S3CSQ03D MVS/SP1.3 #Q FOR TSO TO S3 02224800 RENAME XXESQ03D IEESQ03D NON MVS/SP1.3 #Q FOR LPA 02224900 RENAME XXCSQ03D CSCSQ03D NON MVS/SP1.3 #Q FOR TSO 02225000 RENAME IEESJ03D S3ESJ03D MVS/SP1.3 #I FOR LPA TO S3 02225100 RENAME CSCSJ03D S3CSJ03D MVS/SP1.3 #I FOR TSO TO S3 02225200 RENAME XXESJ03D IEESJ03D NON MVS/SP1.3 #I FOR LPA 02225300 RENAME XXCSJ03D CSCSJ03D NON MVS/SP1.3 #I FOR TSO 02225400 RENAME IEESG03D S3ESG03D MVS/SP1.3 #R FOR LPA TO S3 02225500 RENAME CSCSG03D S3CSG03D MVS/SP1.3 #R FOR TSO TO S3 02225600 RENAME XXESG03D IEESG03D NON MVS/SP1.3 #R FOR LPA 02225700 RENAME XXCSG03D CSCSG03D NON MVS/SP1.3 #R FOR TSO 02225800 END 02225900 //STP267BA EXEC PGM=CBT299VV,PARM='TEC.MVSMODS.LOAD1' 02226000 //STP267BB EXEC IEBCOPY 02226100 //INPUT DD DSN=SYS1.LINKLIB,DISP=SHR 02226200 //OUTPUT DD DSN=TEC.MVSMODS.LOAD1,DISP=(NEW,CATLG), 02226300 // UNIT=SYSDA,SPACE=(CYL,(1,2,56),RLSE), 02226400 // DCB=(RECFM=U,BLKSIZE=19069) 02226500 //SYSIN DD * 02226600 COPY INDD=INPUT,OUTDD=OUTPUT 02226700 S M=((AMASPZAP,TEMPNAME,R)) 02226800 /* 02226900 //STEP267C EXEC PGM=TEMPNAME 02227000 //STEPLIB DD DSN=TEC.MVSMODS.LOAD1,DISP=SHR 02227100 //SYSPRINT DD SYSOUT=1 02227200 //SYSLIB DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02227300 //SYSIN DD * 02227400 NAME CSCGE03D 02227500 VER 0018 0AFD SVC 253 USER SVC (E) EXCEPTION DISPLAY 02227600 VER 16C0 0AFD SVC 253 USER SVC 02227700 REP 0018 0A6B SVC 107 MODESET SVC 02227800 REP 16C0 0A6B SVC 107 MODESET SVC 02227900 NAME CSCGA03D 02228000 VER 0018 0AFD SVC 253 USER SVC (A) JOB ACTIVITY 02228100 VER 138C 0AFD SVC 253 USER SVC 02228200 REP 0018 0A6B SVC 107 MODESET SVC 02228300 REP 138C 0A6B SVC 107 MODESET SVC 02228400 NAME CSCGO03D 02228500 VER 0018 0AFD SVC 253 USER SVC (O) I/O ACTIVITY 02228600 VER 0D00 0AFD SVC 253 USER SVC 02228700 REP 0018 0A6B SVC 107 MODESET SVC 02228800 REP 0D00 0A6B SVC 107 MODESET SVC 02228900 NAME CSCZC03D 02229000 VER 0010 0AFD SVC 253 USER SVC (##C) CHANNEL MONITOR 02229100 VER 0780 0AFD SVC 253 USER SVC 02229200 REP 0010 0A6B SVC 107 MODESET SVC 02229300 REP 0780 0A6B SVC 107 MODESET SVC 02229400 NAME IEEZC03D 02229500 VER 0010 0AFD SVC 253 USER SVC (##C) CHANNEL MONITOR 02229600 VER 0780 0AFD SVC 253 USER SVC 02229700 REP 0010 0A6B SVC 107 MODESET SVC 02229800 REP 0780 0A6B SVC 107 MODESET SVC 02229900 /* 02230000 //STEP267D EXEC IEBCOPY 02230100 //IN DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02230200 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02230300 // LABEL=(267,NL),DCB=DEN=4 02230400 COPY INDD=IN,OUTDD=OT 02230500 //STEP267E EXEC PGM=CBT299VV,PARM='MVS.MVSMODS.TAPE' 02230600 //STP267EA EXEC PGM=CBT299VV,PARM='TEC.MVSMODS.LOAD1' 02230700 //STEP267F EXEC PGM=IEFBR14 /* LETS SAVE OLD JCL */ 02230800 //SYSIN DD DATA,DLM='==' 02230900 //STEP267A EXEC PGM=CBT299VV,PARM='MVS.MVSMODS.TAPE' 02231000 //STEP267B EXEC IEBCOPY 02231100 //SYSUT1 DD DSN=SYS2.MLINKLIB,DISP=SHR 02231200 //INPUT DD DSN=SYS1.LINKLIB,DISP=SHR 02231300 //SYSUT2 DD DSN=MVS.MVSMODS.TAPE,DISP=(NEW,CATLG), 02231400 // UNIT=SYSDA,SPACE=(CYL,(5,2,56),RLSE), 02231500 // DCB=(RECFM=U,BLKSIZE=19069) 02231600 //SYSIN DD * 02231700 C I=INPUT,O=SYSUT2 02231800 S M=((CMDSBINT,,R)) INIT & MONITOR NOT LPA LINKLIST 02231900 S M=((CMDSBSYS,,R)) PROCESSOR NOT LPA LINKLIST 02232000 C I=SYSUT1,O=SYSUT2 02232100 S M=((CMDPRINT,,R)) DOCUMENTATION PRINTER ANY LIBRARY 02232200 S M=((CMDSBCSC,,R)) X-SYSTEM PGM NOT LPA LINKLIST AC=1 02232300 S M=((CMDSBMON,,R)) STANDALONE MON LINKLIST NOT RENT 02232400 S M=((CSCSA03D,,R)) #N ANY LIBRARY 02232500 S M=((CSCSC03D,,R)) #L ANY LIBRARY 02232600 S M=((CSCSD03D,,R)) #D ANY LIBRARY 02232700 S M=((CSCSE03D,,R)) #A ANY LIBRARY 02232800 S M=((CSCSF03D,,R)) #F ANY LIBRARY 02232900 S M=((CSCSG03D,,R)) #R ANY LIBRARY 02233000 S M=((CSCSH03D,,R)) #S ANY LIBRARY 02233100 S M=((CSCSI03D,,R)) #V ANY LIBRARY 02233200 S M=((CSCSJ03D,,R)) #I ANY LIBRARY 02233300 S M=((CSCSK03D,,R)) #C ANY LIBRARY 02233400 S M=((CSCSL03D,,R)) #J ANY LIBRARY 02233500 S M=((CSCSM03D,,R)) #H ANY LIBRARY 02233600 S M=((CSCSN03D,,R)) #T ANY LIBRARY 02233700 S M=((CSCSO03D,,R)) #M ANY LIBRARY 02233800 S M=((CSCSP03D,,R)) #P ANY LIBRARY 02233900 S M=((CSCSQ03D,,R)) #Q ANY LIBRARY 02234000 S M=((CSCSR03D,,R)) #O ANY LIBRARY 02234100 S M=((CSCSS03D,,R)) #E ANY LIBRARY 02234200 S M=((CSCZA03D,,R)) ##A ANY LIBRARY 02234300 S M=((CSCZB03D,,R)) ##B ANY LIBRARY 02234400 S M=((CSCZC03D,,R)) ##C ANY LIBRARY 02234500 S M=((CSCZJ03D,,R)) ##J ANY LIBRARY 02234600 S M=((CSCZP03D,,R)) ##P ANY LIBRARY 02234700 S M=((CSCZS03D,,R)) ##S ANY LIBRARY 02234800 /* 02234900 //STEP267C EXEC IEBCOPY 02235000 //SYSUT1 DD DSN=SYS2.MLINKLIB,DISP=SHR 02235100 //SYSUT2 DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02235200 //SYSIN DD * 02235300 C I=SYSUT1,O=SYSUT2 02235400 S M=((CSCSA03D,IEESA03D,R)) #N LPA LIBRARY 02235500 S M=((CSCSC03D,IEESC03D,R)) #L LPA LIBRARY 02235600 S M=((CSCSD03D,IEESD03D,R)) #D LPA LIBRARY 02235700 S M=((CSCSE03D,IEESE03D,R)) #A LPA LIBRARY 02235800 S M=((CSCSF03D,IEESF03D,R)) #F LPA LIBRARY 02235900 S M=((CSCSG03D,IEESG03D,R)) #R LPA LIBRARY 02236000 S M=((CSCSH03D,IEESH03D,R)) #S LPA LIBRARY 02236100 S M=((CSCSI03D,IEESI03D,R)) #V LPA LIBRARY 02236200 S M=((CSCSJ03D,IEESJ03D,R)) #I LPA LIBRARY 02236300 S M=((CSCSK03D,IEESK03D,R)) #C LPA LIBRARY 02236400 S M=((CSCSL03D,IEESL03D,R)) #J LPA LIBRARY 02236500 S M=((CSCSM03D,IEESM03D,R)) #H LPA LIBRARY 02236600 S M=((CSCSN03D,IEESN03D,R)) #T LPA LIBRARY 02236700 S M=((CSCSO03D,IEESO03D,R)) #M LPA LIBRARY 02236800 S M=((CSCSP03D,IEESP03D,R)) #P LPA LIBRARY 02236900 S M=((CSCSQ03D,IEESQ03D,R)) #Q LPA LIBRARY 02237000 S M=((CSCSR03D,IEESR03D,R)) #O LPA LIBRARY 02237100 S M=((CSCSS03D,IEESS03D,R)) #E LPA LIBRARY 02237200 S M=((CSCZA03D,IEEZA03D,R)) ##A LPA LIBRARY 02237300 S M=((CSCZB03D,IEEZB03D,R)) ##B LPA LIBRARY 02237400 S M=((CSCZC03D,IEEZC03D,R)) ##C LPA LIBRARY 02237500 S M=((CSCZJ03D,IEEZJ03D,R)) ##J LPA LIBRARY 02237600 S M=((CSCZP03D,IEEZP03D,R)) ##P LPA LIBRARY 02237700 S M=((CSCZS03D,IEEZS03D,R)) ##S LPA LIBRARY 02237800 /* 02237900 //STEP267D EXEC IEBCOPY 02238000 //SYSUT1 DD DSN=SYS2.MLINKLIB,DISP=SHR 02238100 //SYSUT2 DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02238200 //SYSIN DD * 02238300 C I=SYSUT1,O=SYSUT2 02238400 S M=((CMDTSO,,R)) TSO DRIVER ANY LIBRARY NO RENT 02238500 S M=((CMDSBTSO,,R)) TSO FULL SCREEN DRIVER ANY LIBRARY NO RENT 02238600 S M=((CSCGA03D,,R)) TSO ACTIVITY MONITOR ANY LIBRARY AC=1 02238700 S M=((CSCGE03D,,R)) TSO EXCEPTION GRAPH ANY LIBRARY AC=1 02238800 S M=((CSCGF03D,,R)) TSO FRAME USE GRAPH ANY LIBRARY 02238900 S M=((CSCGH03D,,R)) TSO HELP FOR GRAPHICS ANY LIBRARY 02239000 S M=((CSCGI03D,,R)) TSO JES2 INIT GRAPH ANY LIBRARY 02239100 S M=((CSCGO03D,,R)) TSO I/O ACTIVITY MONITOR ANY LIBRARY AC=1 02239200 S M=((CSCGQ03D,,R)) TSO QUE ANY LIBRARY 02239300 S M=((CSCGJ03D,,R)) TSO JOB CPU GRAPH ANY LIBRARY 02239400 S M=((CSCGS03D,,R)) TSO SYS. IND. GRAPH ANY LIBRARY 02239500 S M=((CSCGU03D,,R)) TSO DASD FREE SPACE GRAPH ANY LIBRARY 02239600 //STEP267E EXEC IEBCOPY 02239700 //SYSUT1 DD DSN=SYS1.LPALIB,DISP=SHR 02239800 //SYSUT2 DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02239900 //SYSIN DD * 02240000 C I=SYSUT1,O=SYSUT2 02240100 S M=((CMDDUMMY,,R)) CMDDUMMY MUST BE FIXED LPA AC=0,RENT,REUS 02240200 //STEP267F EXEC PGM=AMASPZAP 02240300 //SYSPRINT DD SYSOUT=1 02240400 //SYSLIB DD DSN=MVS.MVSMODS.TAPE,DISP=SHR 02240500 NAME CSCGE03D 02240600 VER 0018 0AFD SVC 253 USER SVC (E) EXCEPTION DISPLAY 02240700 VER 16AC 0AFD SVC 253 USER SVC 02240800 REP 0018 0A6B SVC 107 MODESET SVC 02240900 REP 16AC 0A6B SVC 107 MODESET SVC 02241000 NAME CSCGA03D 02241100 VER 0018 0AFD SVC 253 USER SVC (A) JOB ACTIVITY 02241200 VER 1374 0AFD SVC 253 USER SVC 02241300 REP 0018 0A6B SVC 107 MODESET SVC 02241400 REP 1374 0A6B SVC 107 MODESET SVC 02241500 NAME CSCGO03D 02241600 VER 0018 0AFD SVC 253 USER SVC (O) I/O ACTIVITY 02241700 VER 0CE8 0AFD SVC 253 USER SVC 02241800 REP 0018 0A6B SVC 107 MODESET SVC 02241900 REP 0CE8 0A6B SVC 107 MODESET SVC 02242000 NAME CSCZC03D 02242100 VER 0010 0AFD SVC 253 USER SVC (##C) CHANNEL MONITOR 02242200 VER 0768 0AFD SVC 253 USER SVC 02242300 REP 0010 0A6B SVC 107 MODESET SVC 02242400 REP 0768 0A6B SVC 107 MODESET SVC 02242500 NAME IEEZC03D 02242600 VER 0010 0AFD SVC 253 USER SVC (##C) CHANNEL MONITOR 02242700 VER 0768 0AFD SVC 253 USER SVC 02242800 REP 0010 0A6B SVC 107 MODESET SVC 02242900 REP 0768 0A6B SVC 107 MODESET SVC 02243000 NAME CMDSBSYS 02243100 VER 0036 95C4,A000 CLI 0(R10),C'D' CHECK FOR RIGHT VERSION 02243200 VER 003A 957B,A000 CLI 0(R10),C'#' CHECK FOR RIGHT VERSION 02243300 == 02243400 //STEP268 EXEC PAN,LAB=268 02243500 ++WRITE WORK,CBT929 02243600 //STEP269 EXEC PAN,LAB=269 02243700 ++WRITE WORK,CBT1388 02243800 //STEP270 EXEC PAN,LAB=270 /* WASHINGTON STATE */ 02243900 ++WRITE WORK,CBT1536 02244000 //STEP271 EXEC PAN,LAB=271 02244100 ++WRITE WORK,CBT1576 /* DYNAMIC PROCLIB */ 02244200 //STEP272 EXEC PAN,LAB=272 02244300 ++WRITE WORK,CBT1577 /* VTAM LOGON MOD */ 02244400 //STEP273 EXEC PAN,LAB=273 02244500 ++WRITE WORK,CBT1578 /* TSO/STC SEC. JES2 */ 02244600 //STEP274 EXEC PAN,LAB=274 02244700 ++WRITE WORK,CBT1572 /* ISPF 3.8 VERSION */ 02244800 //STEP275 EXEC PAN,LAB=275 02244900 ++WRITE WORK,CBT935 02245000 //STEP276 EXEC PAN,LAB=276 02245100 //SYSIN DD * 02245200 ++INSERT WORK 02245300 ./ ADD NAME=$DOC 02245400 $DOC.......THIS FILE 02245500 COMMAND....SVC 34 INTERFACE PROGRAM 02245600 SPY........SPY PROGRAM 02245700 SWAP.......SWAP PROGRAM 02245800 ++INSERT WORK 02245900 ./ ADD NAME=COMMAND 02246000 ++WRITE WORK,CBT1081 02246100 ++INSERT WORK 02246200 ./ ADD NAME=SPY 02246300 ++WRITE WORK,CBT1082 02246400 ++INSERT WORK 02246500 ./ ADD NAME=SWAP 02246600 ++WRITE WORK,CBT1083 02246700 //STEP277 EXEC PAN,LAB=277 02246800 ++WRITE WORK,CBT938 02246900 //STEP278 EXEC PAN,LAB=278 02247000 ++WRITE WORK,CBT575 02247100 //STEP279 EXEC PGM=OFFLOAD,REGION=256K 02247200 //SYSPRINT DD SYSOUT=A 02247300 //IN DD DISP=SHR,DSN=TEC.ARNIE.F279.WSRCC.PDS 02247400 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02247500 // SPACE=(CYL,(30,20)), 02247600 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02247700 O I=IN,O=OUTPUT,T=IEBUPDTE 02247800 //STEP279A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02247900 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02248000 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02248100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02248200 // DSN=QAQ,LABEL=(279,NL) 02248300 //STEP280 EXEC PGM=OFFLOAD,REGION=256K 02248400 //SYSPRINT DD SYSOUT=A 02248500 //IN DD DISP=SHR,DSN=TEC.ARNIE.F280.SCRIPT.DOC 02248600 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&EE, 02248700 // SPACE=(CYL,(30,20)), 02248800 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02248900 O I=IN,O=OUTPUT,T=IEBUPDTE 02249000 //STEP280A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02249100 //INPUT DD DSN=&&EE,DISP=(OLD,DELETE) 02249200 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02249300 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02249400 // DSN=QAQ,LABEL=(280,NL) 02249500 //STEP281 EXEC IEBCOPY 02249600 //IN DD DSN=TEC.ARNIE.F281.SCRIPT.LOAD,DISP=SHR 02249700 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02249800 // LABEL=(281,NL),DCB=DEN=4 02249900 COPY INDD=IN,OUTDD=OUT 02250000 //STEP282 EXEC PGM=OFFLOAD,REGION=256K 02250100 //SYSPRINT DD SYSOUT=A 02250200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F282.SCRIPT.MACLIB 02250300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&FF, 02250400 // SPACE=(CYL,(30,20)), 02250500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02250600 O I=IN,O=OUTPUT,T=IEBUPDTE 02250700 //STEP282A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02250800 //INPUT DD DSN=&&FF,DISP=(OLD,DELETE) 02250900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02251000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02251100 // DSN=QAQ,LABEL=(282,NL) 02251200 //STEP283 EXEC IEBCOPY 02251300 //IN DD DSN=TEC.ARNIE.F283.SCRIPT.MEMO,DISP=SHR 02251400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02251500 // LABEL=(283,NL),DCB=DEN=4 02251600 COPY INDD=IN,OUTDD=OUT 02251700 //STEP284 EXEC PGM=OFFLOAD,REGION=256K 02251800 //SYSPRINT DD SYSOUT=A 02251900 //IN DD DISP=SHR,DSN=TEC.ARNIE.F284.SCRIPT.SOURCE 02252000 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&GG, 02252100 // SPACE=(CYL,(30,20)), 02252200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02252300 O I=IN,O=OUTPUT,T=IEBUPDTE 02252400 //STEP284A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02252500 //INPUT DD DSN=&&GG,DISP=(OLD,DELETE) 02252600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02252700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02252800 // DSN=QAQ,LABEL=(284,NL) 02252900 //STEP285 EXEC PGM=IBMGENER,REGION=512K 02253000 //SYSIN DD DUMMY 02253100 //SYSPRINT DD DUMMY 02253200 //SYSUT1 DD DSN=TEC.ARNIE.F285.SCRIPT.HYPHEN,DISP=SHR 02253300 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02253400 // DCB=(DEN=4,RECFM=VB,LRECL=080,BLKSIZE=32720), 02253500 // DSN=QAQ,LABEL=(285,NL) 02253600 //STEP286 EXEC PGM=OFFLOAD,REGION=256K 02253700 //SYSPRINT DD SYSOUT=A 02253800 //IN DD DISP=SHR,DSN=TEC.ARNIE.F286.SCRIPT.OBJECT 02253900 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&HH, 02254000 // SPACE=(CYL,(30,20)), 02254100 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02254200 O I=IN,O=OUTPUT,T=IEBUPDTE 02254300 //STEP286A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02254400 //INPUT DD DSN=&&HH,DISP=(OLD,DELETE) 02254500 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02254600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02254700 // DSN=QAQ,LABEL=(286,NL) 02254800 //STEP287 EXEC PGM=OFFLOAD,REGION=256K 02254900 //SYSPRINT DD SYSOUT=A 02255000 //IN DD DISP=SHR,DSN=TEC.ARNIE.F287.SCRIPT.TSO 02255100 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&II, 02255200 // SPACE=(CYL,(30,20)), 02255300 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02255400 O I=IN,O=OUTPUT,T=IEBUPDTE 02255500 //STEP287A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02255600 //INPUT DD DSN=&&II,DISP=(OLD,DELETE) 02255700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02255800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02255900 // DSN=QAQ,LABEL=(287,NL) 02256000 //STEP288 EXEC PAN,LAB=288 02256100 ++WRITE WORK,CBT1327 02256200 //STEP289 EXEC PGM=OFFLOAD,REGION=256K 02256300 //SYSPRINT DD SYSOUT=A 02256400 //IN DD DISP=SHR,DSN=TEC.ARNIE.FSPLI.F289.SRC 02256500 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&JJ, 02256600 // SPACE=(CYL,(20,20)), 02256700 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02256800 O I=IN,O=OUTPUT,T=IEBUPDTE 02256900 //STEP289A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02257000 //INPUT DD DSN=&JJ,DISP=(OLD,DELETE) 02257100 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02257200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02257300 // DSN=QAQ,LABEL=(289,NL) 02257400 //STEP290 EXEC IEBCOPY 02257500 //IN DD DISP=SHR,DSN=TEC.ARNIE.FSPLI.F290.TEXT 02257600 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02257700 // LABEL=(290,NL),DCB=DEN=4,DSN=QAQ 02257800 COPY INDD=IN,OUTDD=OT 02257900 //STEP291 EXEC IEBCOPY 02258000 //IN DD DISP=SHR,DSN=TEC.ARNIE.FSPLI.F291.LIST 02258100 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02258200 // LABEL=(291,NL),DCB=DEN=4,DSN=QAQ 02258300 COPY INDD=IN,OUTDD=OT 02258400 //STEP292 EXEC PAN,LAB=292 02258500 ++WRITE WORK,CBT478 02258600 //STEP293 EXEC IEBGENER,REGION=768K 02258700 //SYSUT1 DD DSN=SYS2.US.TEXT,DISP=SHR 02258800 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02258900 // LABEL=(293,NL),DSN=QAQ, 02259000 // DCB=(DEN=4,RECFM=VB,LRECL=255,BLKSIZE=32644) 02259100 //STEP294 EXEC PAN,LAB=294 02259200 ++WRITE WORK,CBT1116 02259300 //STEP295 EXEC PAN,LAB=295 02259400 ++WRITE WORK,CBT1115 02259500 //STEP296 EXEC PAN,LAB=296 02259600 ++WRITE WORK,CBT486 02259700 //STEP297 EXEC PAN,LAB=297 02259800 ++WRITE WORK,CBT1514 /* LSPACE VTOC FOR XA */ 02259900 //STEP298 EXEC PAN,LAB=298 02260000 ++WRITE WORK,CBT2013 02260100 //STEP299 EXEC PAN,LAB=299 02260200 ++WRITE WORK,CBT1215 02260300 //STEPM1 EXEC PGM=CBT1071, 02260400 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02260500 //STEPM2 EXEC PGM=CBT1071, 02260600 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02260700 //STEPM3 EXEC PGM=CBT1071,COND=ONLY, 02260800 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TS15500)' 02260900 //STEPM4 EXEC PGM=CBT1071,COND=ONLY, 02261000 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TS15500)' 02261100 //STEPM5 EXEC PGM=CBT1071, 02261200 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02261300 //STEPM6 EXEC PGM=CBT1071, 02261400 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02261500 //STEPM7 EXEC PGM=CBT1071,COND=ONLY, 02261600 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TX15500)' 02261700 //STEPM8 EXEC PGM=CBT1071,COND=ONLY, 02261800 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TX15500)' 02261900 //STEPM9 EXEC PGM=CBT1071, 02262000 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02262100 //STEPM10 EXEC PGM=CBT1071, 02262200 // PARM='SEND ''MVSMODS3 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02262300 //STEPM11 EXEC PGM=CBT1071,COND=ONLY, 02262400 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TA15500)' 02262500 //STEPM12 EXEC PGM=CBT1071,COND=ONLY, 02262600 // PARM='SEND ''MVSMODS3 HAS ABENDED'',LOGON,USER=(TA15500)' 02262700 //STEPXXX EXEC PGM=CBT936,PARM='$H''MVSMODS3''',COND=EVEN 02262800 //STEPZZZ EXEC PGM=CBT936,PARM='$A''MVSMODS4''' 02262900 //MVSMODS4 JOB 527TEC000S0003,TEC,CLASS=0,MSGCLASS=1,PRTY=10, 02263000 // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 02263100 //* 02263200 //* THIS IS THE FOURTH PART OF THE MVSMODS1 JOB 02263300 //* BECAUSE OF 3.8 AND EXCESS NUMBER OF EXECUTE STATEMENTS 02263400 //* 02263500 //PANPAN PROC 02263600 //* 02263700 //* THIS IS THE ORIGINAL PAN FOR USE WITH FILES 1, 2, AND 3 02263800 //* 02263900 //PANPAN EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02264000 // DPRTY=(11,8),PARM='LINECNT=80' 02264100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02264200 //SYSPUNCH DD UNIT=SYSDA,DSN=&PANDATA,DISP=(MOD,PASS), 02264300 // SPACE=(TRK,(10,10)) 02264400 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02264500 //PANDD2 DD UNIT=SYSDA,DSN=&WORK,DISP=(MOD,PASS), 02264600 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02264700 // PEND 02264800 //PAN PROC LAB=XXX 02264900 //COMP1 EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02265000 // DPRTY=(11,8),PARM='LINECNT=80' 02265100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02265200 //SYSPUNCH DD DUMMY 02265300 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02265400 //PANDD2 DD UNIT=SYSDA,DSN=&COMP,DISP=(MOD,PASS), 02265500 // SPACE=(CYL,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02265600 //COMP2 EXEC PGM=CBT973,REGION=512K,COND=(4,LT), 02265700 // DPRTY=(11,8),PARM=COMPRESS 02265800 //INPUT DD DSN=&COMP,DISP=(OLD,DELETE) 02265900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS),DSN=QAQ, 02266000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),LABEL=(&LAB.,NL) 02266100 // PEND 02266200 //IEBCOPY PROC 02266300 //STEP01 EXEC PGM=IEBCOPY,REGION=512K,DPRTY=(13,0),COND=(4,LT) 02266400 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02266500 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02266600 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02266700 // PEND 02266800 //IEBGENER PROC 02266900 //STEP01 EXEC PGM=IBMGENER,REGION=512K,COND=(4,LT) 02267000 //SYSPRINT DD DUMMY 02267100 //SYSIN DD DUMMY 02267200 // PEND 02267300 //*TEP000 EXEC PGM=CBT299VV,PARM='CBT.MODS1.PAN' 02267400 //*TEP001 EXEC PGM=IEFBR14 02267500 //*BTMOD DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(3,3)), 02267600 //* DSN=CBT.MODS1.PAN, 02267700 //* DCB=(RECFM=FBA,LRECL=121,BLKSIZE=18997) 02267800 //STEP300 EXEC PGM=OFFLOAD,REGION=256K 02267900 //SYSPRINT DD SYSOUT=A 02268000 //IN DD DISP=SHR,DSN=TEC.ARNIE.CBT.AIRFORCE 02268100 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&KK, 02268200 // SPACE=(CYL,(20,20)), 02268300 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02268400 O I=IN,O=OUTPUT,T=IEBUPDTE 02268500 //STEP300A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02268600 //INPUT DD DSN=&KK,DISP=(OLD,DELETE) 02268700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02268800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02268900 // DSN=QAQ,LABEL=(300,NL) 02269000 //STEP301 EXEC PGM=OFFLOAD,REGION=256K 02269100 //SYSPRINT DD SYSOUT=A 02269200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F301.FEDNYTSO.PDS 02269300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02269400 // SPACE=(CYL,(20,20)), 02269500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02269600 O I=IN,O=OUTPUT,T=IEBUPDTE 02269700 //STEP301A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02269800 //INPUT DD DSN=&PP,DISP=(OLD,DELETE) 02269900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02270000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02270100 // DSN=QAQ,LABEL=(301,NL) 02270200 //STEP302 EXEC PAN,LAB=302 02270300 ++WRITE WORK,CBT1229 02270400 //STEP303 EXEC PAN,LAB=303 02270500 ++WRITE WORK,CBT589 02270600 //STEP304 EXEC PAN,LAB=304 02270700 ++WRITE WORK,CBT1353 02270800 //STEP305 EXEC PAN,LAB=305 02270900 ++WRITE WORK,CBT1230 02271000 //STEP306 EXEC PAN,LAB=306 02271100 ++WRITE WORK,CBT1237 02271200 //STEP307 EXEC PAN,LAB=307 02271300 ++WRITE WORK,CBT1240 02271400 //STEP308 EXEC PAN,LAB=308 02271500 ++WRITE WORK,CBT1244 02271600 //STEP309 EXEC PAN,LAB=309 02271700 ++WRITE WORK,CBT1254 02271800 //STEP310 EXEC PGM=OFFLOAD,REGION=256K 02271900 //SYSPRINT DD SYSOUT=A 02272000 //IN DD DISP=SHR,DSN=TEC.ARNIE.F310.NUSCO.SOURCE 02272100 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02272200 // SPACE=(CYL,(20,20)), 02272300 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02272400 O I=IN,O=OUTPUT,T=IEBUPDTE 02272500 //STEP310A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02272600 //INPUT DD DSN=&PP,DISP=(OLD,DELETE) 02272700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02272800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02272900 // DSN=QAQ,LABEL=(310,NL) 02273000 //STEP311 EXEC IEBCOPY 02273100 //IN DD DSN=TEC.ARNIE.F311.NUSCO.CLISTS,DISP=SHR 02273200 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02273300 // LABEL=(311,NL),DCB=DEN=4 02273400 COPY INDD=IN,OUTDD=OT 02273500 //STEP312 EXEC PAN,LAB=312 02273600 ++WRITE WORK,CBT1255 02273700 //STEP313 EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02273800 //INPUT DD DSN=TEC.ARNIE.F313.MEMOREX,DISP=SHR 02273900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02274000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02274100 // DSN=QAQ,LABEL=(313,NL) 02274200 //STEP314 EXEC PAN,LAB=314 * MVS/SP JES2 MODS TAPE * 02274300 ++WRITE WORK,CBT1366 02274400 //STEP315 EXEC PAN,LAB=315 02274500 ++WRITE WORK,CBT1265 02274600 //STEP316 EXEC PGM=IEBGENER 02274700 //SYSPRINT DD DUMMY 02274800 //SYSIN DD DUMMY 02274900 //SYSUT1 DD *,DCB=BLKSIZE=80 02275000 * 02275100 * TO SEE THE MOST RECENT VERSION OF TAPEMAP 02275200 * SEE FILE 299 OF THE CBT MODS TAPE FROM DAVE COLE 02275300 * AT COMNET 02275400 * 02275500 //SYSUT2 DD DISP=SHR,DSN=TEC.ARNIE.F316.AIR.PDS(TAPEMAP) 02275600 //STEP316 EXEC PGM=OFFLOAD,REGION=256K 02275700 //SYSPRINT DD SYSOUT=A 02275800 //IN DD DISP=SHR,DSN=TEC.ARNIE.F316.AIR.PDS 02275900 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02276000 // SPACE=(CYL,(20,20)), 02276100 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02276200 O I=IN,O=OUTPUT,T=IEBUPDTE 02276300 //STEP316A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02276400 //INPUT DD DSN=&PP,DISP=(OLD,DELETE) 02276500 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02276600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02276700 // DSN=QAQ,LABEL=(316,NL) 02276800 //STEP317 EXEC PGM=OFFLOAD,REGION=256K 02276900 //SYSPRINT DD SYSOUT=A 02277000 //IN DD DISP=SHR,DSN=TEC.ARNIE.F317.STATDIE.SRC 02277100 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02277200 // SPACE=(CYL,(20,20)), 02277300 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02277400 O I=IN,O=OUTPUT,T=IEBUPDTE 02277500 //STEP317A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02277600 //INPUT DD DSN=&PP,DISP=(OLD,DELETE) 02277700 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02277800 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02277900 // DSN=QAQ,LABEL=(317,NL) 02278000 //STEP318 EXEC PGM=OFFLOAD,REGION=256K 02278100 //SYSPRINT DD SYSOUT=A 02278200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F319.PACKER.SRC 02278300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02278400 // SPACE=(CYL,(20,20)), 02278500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02278600 O I=IN,O=OUTPUT,T=IEBUPDTE 02278700 //STEP318A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02278800 //INPUT DD DSN=&PP,DISP=(OLD,DELETE) 02278900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02279000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02279100 // DSN=QAQ,LABEL=(318,NL) 02279200 //STEP319 EXEC PAN,LAB=319 02279300 ++WRITE WORK,CBT1285 02279400 //STEP320 EXEC PAN,LAB=320 02279500 ++WRITE WORK,CBT1286 02279600 //STEP321 EXEC PAN,LAB=321 02279700 ++WRITE WORK,CBT1287 02279800 //STEP322 EXEC PAN,LAB=322 * JES2 QUE CP FOR SP1.3 * 02279900 ++WRITE WORK,CBT1370 02280000 //STEP323 EXEC PAN,LAB=323 /* GTE MVS 3.8 ZAPS */ 02280100 ++WRITE WORK,CBT1362 02280200 //STEP324 EXEC PAN,LAB=324 02280300 ++WRITE WORK,CBT1290 02280400 //STEP325 EXEC PAN,LAB=325 02280500 ++WRITE WORK,CBT1512 /* WELLS FARGO CODE */ 02280600 //STEP326 EXEC PAN,LAB=326 02280700 ++WRITE WORK,CBT1295 02280800 //STEP327 EXEC PAN,LAB=327 02280900 ++WRITE WORK,CBT1296 02281000 //STEP328 EXEC PAN,LAB=328 02281100 ++WRITE WORK,CBT1297 02281200 //STEP329 EXEC PAN,LAB=329 02281300 ++WRITE WORK,CBT1298 02281400 //STEP330 EXEC PGM=OFFLOAD,REGION=256K 02281500 //SYSPRINT DD SYSOUT=6 02281600 //IN DD DISP=SHR,DSN=TEC.ARNIE.F330.DMS.SP.SOURCE 02281700 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&CC, 02281800 // SPACE=(CYL,(20,20)), 02281900 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02282000 O I=IN,O=OUTPUT,T=IEBUPDTE 02282100 //STEP330A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02282200 //INPUT DD DSN=&CC,DISP=(OLD,DELETE) 02282300 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02282400 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02282500 // DSN=QAQ,LABEL=(330,NL) 02282600 //STEP331 EXEC IEBCOPY *DMS FOR SP1.1* 02282700 //IN DD DISP=SHR,DSN=TEC.ARNIE.F331.DMS.SP.LOAD 02282800 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02282900 // LABEL=(331,NL),DCB=DEN=4 02283000 COPY INDD=IN,OUTDD=OT 02283100 //STEP332 EXEC PAN,LAB=332 * JOB SCHEDULER * 02283200 ++WRITE WORK,CBT1300 02283300 //STEP333 EXEC PAN,LAB=333 * PTF HANDLER FROM BASEL * 02283400 ++WRITE WORK,CBT1301 02283500 //STEP334 EXEC PAN,LAB=334 * SAS FROM LA COUNTY * 02283600 ++WRITE WORK,CBT1302 02283700 //STEP335 EXEC PAN,LAB=335 * GTE DYN BLDL * 02283800 ++WRITE WORK,CBT1405 02283900 //STEP336 EXEC PGM=OFFLOAD,REGION=256K 02284000 //SYSPRINT DD SYSOUT=A 02284100 //IN DD DISP=SHR,DSN=TEC.ARNIE.RICE.PDS.F336 02284200 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&KK, 02284300 // SPACE=(CYL,(20,20)), 02284400 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02284500 O I=IN,O=OUTPUT,T=IEBUPDTE 02284600 //STEP336A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02284700 //INPUT DD DSN=&KK,DISP=(OLD,DELETE) 02284800 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02284900 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02285000 // DSN=QAQ,LABEL=(336,NL) 02285100 //STEP337 EXEC PAN,LAB=337 * # CMD1 FOR JES3 * 02285200 ++WRITE WORK,CBT1304 02285300 //STEP338 EXEC PAN,LAB=338 * SPY FOR 1.3 * 02285400 ++WRITE WORK,CBT1309 02285500 //STEP339 EXEC PAN,LAB=339 * JES2 # 5 EXIT * 02285600 ++WRITE WORK,CBT1531 02285700 //STEP340 EXEC PAN,LAB=340 * # DMN RCT SYS FOR 1.3 * 02285800 ++WRITE WORK,CBT1311 02285900 //STEP341 EXEC PAN,LAB=341 * DELUXE CK UTILITIES * 02286000 ++WRITE WORK,CBT1233 02286100 //STEP342 EXEC PAN,LAB=342 * DELUXE CK SPF * 02286200 ++WRITE WORK,CBT1312 02286300 //STEP343 EXEC PAN,LAB=343 * MELLON SPOOL SP1.3 * 02286400 ++WRITE WORK,CBT1313 02286500 //STEP344 EXEC PAN,LAB=344 * MELLON SPOOL SP1.3 * 02286600 ++WRITE WORK,CBT1314 02286700 //STEP345 EXEC PAN,LAB=345 * MELLON SPOOL SP1.3 * 02286800 ++WRITE WORK,CBT1315 02286900 //STEP346 EXEC PAN,LAB=346 * SP1.3 UPDATE SPOOL XFER * 02287000 ++WRITE WORK,CBT1316 02287100 //STEP347 EXEC PAN,LAB=347 * VSM TSO CP FROM HALLMARK * 02287200 ++WRITE WORK,CBT1393 02287300 //STEP348 EXEC PAN,LAB=348 * GDG PROCESSOR FROM LOUI * 02287400 ++WRITE WORK,CBT1319 02287500 //STEP349 EXEC PAN,LAB=349 * VTAM PGMS FROM ATARI * 02287600 ++WRITE WORK,CBT1326 02287700 //STEP350 EXEC PAN,LAB=350 * CLOCK SYNC * 02287800 ++WRITE WORK,CBT1321 02287900 //STEP351 EXEC PAN,LAB=351 * LOADER LOADGO ZAPS * 02288000 //SYSIN DD DATA,DLM='==' 02288100 ++INSERT WORK 02288200 //* 02288300 //* EC60007 SET LOADER DEFAULTS 02288400 //* CALL,PRINT,MAP,NORES,SIZE=1024K 02288500 //* 02288600 //SMP EXEC PUTSMP,TYPE=RECEIVE,AC= 02288700 //SMPPTFIN DD * 02288800 + USERMOD (EC60007) . 02288900 + VER (Z038) FMID(EPM1102) . 02289000 + ZAP (HEWLDIDY) . 02289100 NAME HEWLDDEF 02289200 VER 0018 0004,B000,1500 02289300 REP 0018 0010,0000,1600 02289400 /* 02289500 //SMPCNTL DD * 02289600 RECEIVE S(EC60007) . 02289700 APPLY S(EC60007) DIS(NO). 02289800 /* 02289900 //* 02290000 //* CHANGE LOADGO PROMPTER TO SUPPLY 'NO' DEFAULT FOR 02290100 //* THE RES/NORES OPTION. 02290200 //* 02290300 //SMP EXEC PUTSMP,TYPE=RECEIVE,AC= 02290400 //SMPPTFIN DD * 02290500 + USERMOD (EC60036) . 02290600 + VER (Z038) PRE(UZ34914) FMID(EST1102) . 02290700 + ZAP (AKJLKL01) . 02290800 DUMP AKJLKL01 LDPARSE 02290900 NAME AKJLKL01 LDPARSE 02291000 VER 014C 4800000A004802D9C5E2 02291100 REP 014C 40 02291200 DUMP AKJLKL01 LDPARSE 02291300 //SMPCNTL DD * 02291400 RECEIVE S(EC60036) . 02291500 APPLY S(EC60036) . 02291600 /* 02291700 // 02291800 == 02291900 //* * * * * * * * * * * * * * * * * * * * * * * * * * * 02292000 //STEP352 EXEC PGM=OFFLOAD,REGION=256K 02292100 //SYSPRINT DD SYSOUT=A 02292200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F352.INTEL.SOURCE 02292300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&FP, 02292400 // SPACE=(CYL,(50,20)), 02292500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02292600 O I=IN,O=OUTPUT,T=IEBUPDTE 02292700 //STEP352A EXEC PGM=CBT973,REGION=512K,PARM=COMPRESS 02292800 //INPUT DD DSN=&FP,DISP=(OLD,DELETE) 02292900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02293000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02293100 // DSN=QAQ,LABEL=(352,NL) 02293200 //STEP353 EXEC PAN,LAB=353 * MORTON-NORWICH * 02293300 ++WRITE WORK,CBT1418 02293400 //STEP354 EXEC PAN,LAB=354 * KAISER PGMS * 02293500 ++WRITE WORK,CBT1430 02293600 //STEP355 EXEC PAN,LAB=355 * PASSWORD C.P. * 02293700 ++WRITE WORK,CBT1431 02293800 //STEP356 EXEC PAN,LAB=356 * SPF BLKSIZE PANELS * 02293900 ++WRITE WORK,CBT1432 02294000 //STEP357 EXEC IEBCOPY 02294100 //IN DD DISP=SHR,DSN=TEC.ARNIE.F357.BLKSIZE 02294200 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02294300 // LABEL=(357,NL),DCB=DEN=4,DSN=QAQ 02294400 COPY INDD=IN,OUTDD=OT 02294500 E M=LIBSPOOL 02294600 //STEP358 EXEC PAN,LAB=358 * GA LABOR DEPT SOURCE* 02294700 ++WRITE WORK,CBT1424 02294800 //STEP359 EXEC PAN,LAB=359 * SYNTEC PROGRAMS * 02294900 ++WRITE WORK,CBT1613 02295000 //STEP360 EXEC PGM=OFFLOAD,REGION=256K 02295100 //SYSPRINT DD SYSOUT=A 02295200 //IN DD DISP=SHR,DSN=TEC.ARNIE.F360.WSRCC.PDS 02295300 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PW, 02295400 // SPACE=(CYL,(30,20)), 02295500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02295600 O I=IN,O=OUTPUT,T=IEBUPDTE 02295700 //STEP360A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02295800 //INPUT DD DSN=&&PW,DISP=(OLD,DELETE) 02295900 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02296000 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02296100 // DSN=QAQ,LABEL=(360,NL) 02296200 //STEP361 EXEC PAN,LAB=361 * REVLON PDF ALLOC CP * 02296300 ++WRITE WORK,CBT1426 02296400 //STEP362 EXEC PAN,LAB=362 * CNB IOSLOOK PROGRAM * 02296500 ++WRITE WORK,CBT1428 02296600 //STEP363 EXEC PAN,LAB=363 * CU UTILITIES * 02296700 ++WRITE WORK,CBT1436 02296800 //STEP364 EXEC PAN,LAB=364 * CU CATALOGED PROCS * 02296900 ++WRITE WORK,CBT1437 02297000 //STEP365 EXEC PAN,LAB=365 * CU SYNCSORT USER EXIT * 02297100 ++WRITE WORK,CBT1438 02297200 //STEP366 EXEC PAN,LAB=366 * CU DSSP FIXED * 02297300 ++WRITE WORK,CBT1439 02297400 //STEP367 EXEC IEBCOPY 02297500 //IN DD DSN=TEC.ARNIE.F367.CU.DATA,DISP=SHR 02297600 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02297700 // LABEL=(367,NL),DCB=DEN=4 02297800 COPY INDD=IN,OUTDD=OT 02297900 //STEP368 EXEC PAN,LAB=368 * SYSMON SMITH-BARNEY * 02298000 ++WRITE WORK,CBT1450 02298100 //STEP369 EXEC PAN,LAB=369 * IEF285I I/O COUNTS * 02298200 ++WRITE WORK,CBT1451 02298300 //STEP370 EXEC PAN,LAB=370 * TAPE ERASE PROGRAM * 02298400 ++WRITE WORK,CBT1452 02298500 //STEP371 EXEC PAN,LAB=371 * GTE PDS FRONT END * 02298600 ++WRITE WORK,CBT1453 02298700 //STEP372 EXEC PAN,LAB=372 * NERDC USER MODS * 02298800 ++WRITE WORK,CBT1455 02298900 //STEP373 EXEC PAN,LAB=373 * GTE LABS TSO CPS * 02299000 ++WRITE WORK,CBT1443 02299100 //STEP374 EXEC PAN,LAB=374 * TRACE PGM FROM POSTA * 02299200 ++WRITE WORK,CBT1445 02299300 //STEP375 EXEC PAN,LAB=375 * TCAM QUEUE FORMATER * 02299400 ++WRITE WORK,CBT1446 02299500 //STEP376 EXEC PAN,LAB=376 * RAINIER BANK MODS * 02299600 ++WRITE WORK,CBT1447 02299700 //STEP377 EXEC PGM=OFFLOAD,REGION=256K 02299800 //SYSPRINT DD SYSOUT=A 02299900 //IN DD DISP=SHR,DSN=TEC.ARNIE.F377.LIBSPOOL 02300000 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PP, 02300100 // SPACE=(CYL,(30,20)), 02300200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02300300 O I=IN,O=OUTPUT,T=IEBUPDTE 02300400 //STEP377A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02300500 //INPUT DD DSN=&&PP,DISP=(OLD,DELETE) 02300600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02300700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02300800 // DSN=QAQ,LABEL=(377,NL) 02300900 //STEP378 EXEC IEBCOPY 02301000 //IN DD DISP=SHR,DSN=TEC.ARNIE.F357.BLKSIZE 02301100 //OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02301200 // LABEL=(378,NL),DCB=DEN=4,DSN=QAQ 02301300 COPY INDD=IN,OUTDD=OT 02301400 S M=LIBSPOOL 02301500 //STEP379 EXEC PAN,LAB=379 * JCL/PROC XREF PGM * 02301600 ++WRITE WORK,CBT1456 02301700 //STEP380 EXEC PAN,LAB=380 * ZAP SPEED MAT BUF * 02301800 ++INSERT WORK 02301900 * 02302000 * THE ZAP TO DEACTIVATE THE SPPED MATCHING BUFFERS 02302100 * 02302200 NAME IEANUC01 IECDINIT 02302300 VER 0098 94F0,2010 NI DCEFEAT1(@02),X'F0' 02302400 VER 00A0 91C0,4003 TM SNSCKDEX(@04),X'C0' 02302500 VER 00A4 47E0,C048 BNO @RF00033 (CORONADO) 02302600 REP 0098 9400,2010 02302700 REP 00A4 47F0,C048 02302800 //STEP381 EXEC PAN,LAB=381 * NORTHWESTERN MODS * 02302900 ++WRITE WORK,CBT1462 02303000 //STEP382 EXEC PAN,LAB=382 * DELUXE XMISSION PGM * 02303100 ++WRITE WORK,CBT1457 02303200 //STEP383 EXEC IEBCOPY * TECHINFO FROM INTEL * 02303300 //IN DD DSN=TEC.ARNIE.F383.INTEL.TECHINFO,DISP=SHR 02303400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02303500 // LABEL=(383,NL),DCB=DEN=4 02303600 COPY INDD=IN,OUTDD=OUT 02303700 //STEP384 EXEC PGM=OFFLOAD,REGION=256K 02303800 //SYSPRINT DD SYSOUT=A 02303900 //IN DD DISP=SHR,DSN=TEC.ARNIE.F384.CCDPDS 02304000 //OUTPUT DD UNIT=SYSDA,DISP=(NEW,PASS),DSN=&PI, 02304100 // SPACE=(CYL,(30,20)), 02304200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02304300 O I=IN,O=OUTPUT,T=IEBUPDTE 02304400 //STEP384A EXEC PGM=CBT973,PARM=COMPRESS,REGION=512K 02304500 //INPUT DD DSN=&&PI,DISP=(OLD,DELETE) 02304600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02304700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716), 02304800 // DSN=QAQ,LABEL=(384,NL) 02304900 //STEP385 EXEC PAN,LAB=385 * LPA COMPARE PGM * 02305000 ++WRITE WORK,CBT1467 02305100 //STEP386 EXEC PAN,LAB=386 * 1ST NAT ATL - ZAP PGM * 02305200 ++WRITE WORK,CBT1472 02305300 //STEP387 EXEC PAN,LAB=387 * CITI-TRUST PGMS * 02305400 ++WRITE WORK,CBT1475 02305500 //STEP388 EXEC PAN,LAB=388 * SCHEDULER FRM COMNET * 02305600 ++WRITE WORK,CBT1477 02305700 //STEP389 EXEC PAN,LAB=389 * LOGSCAN FROM CAPITAL * 02305800 ++WRITE WORK,CBT1478 02305900 //STEP390 EXEC PAN,LAB=390 * ANR QUE JES2 1.3.3 * 02306000 ++WRITE WORK,CBT1470 02306100 //STEP391 EXEC PAN,LAB=391 * OAK RIDGE QUE 1.3.0 * 02306200 ++WRITE WORK,CBT1473 02306300 //STEP392 EXEC PAN,LAB=392 * TEX EMP COMM Q 1.3.3 * 02306400 ++WRITE WORK,CBT1476 02306500 //STEP393 EXEC PAN,LAB=393 * U OF FLA Q 1.3.3/4 * 02306600 ++WRITE WORK,CBT1509N 02306700 //STEP394 EXEC PAN,LAB=394 * * 02306800 ++WRITE WORK,CBT950 02306900 //STEP395 EXEC PAN,LAB=395 * * 02307000 ++WRITE WORK,CBT950 02307100 //STEP396 EXEC PAN,LAB=396 * * 02307200 ++WRITE WORK,CBT950 02307300 //STEP397 EXEC PAN,LAB=397 * * 02307400 ++WRITE WORK,CBT950 02307500 //STEP398 EXEC PAN,LAB=398 * * 02307600 ++WRITE WORK,CBT950 02307700 //STEP399 EXEC PAN,LAB=399 * * 02307800 ++WRITE WORK,CBT950 02307900 /* 02308000 //STEPM1 EXEC PGM=CBT1071, 02308100 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02308200 //STEPM2 EXEC PGM=CBT1071, 02308300 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02308400 //STEPM3 EXEC PGM=CBT1071,COND=ONLY, 02308500 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TS15500)' 02308600 //STEPM4 EXEC PGM=CBT1071,COND=ONLY, 02308700 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TS15500)' 02308800 //STEPM5 EXEC PGM=CBT1071, 02308900 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02309000 //STEPM6 EXEC PGM=CBT1071, 02309100 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02309200 //STEPM7 EXEC PGM=CBT1071,COND=ONLY, 02309300 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TX15500)' 02309400 //STEPM8 EXEC PGM=CBT1071,COND=ONLY, 02309500 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TX15500)' 02309600 //STEPM9 EXEC PGM=CBT1071, 02309700 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02309800 //STEPM10 EXEC PGM=CBT1071, 02309900 // PARM='SEND ''MVSMODS4 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02310000 //STEPM11 EXEC PGM=CBT1071,COND=ONLY, 02310100 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TA15500)' 02310200 //STEPM12 EXEC PGM=CBT1071,COND=ONLY, 02310300 // PARM='SEND ''MVSMODS4 HAS ABENDED'',LOGON,USER=(TA15500)' 02310400 //STEPXXX EXEC PGM=CBT936,PARM='$H''MVSMODS4''',COND=EVEN 02310500 //STEPXXX EXEC PGM=CBT936,PARM='$A''MVSMODS5''' 02310600 //MVSMODS5 JOB 527TEC000S0003,TEC,CLASS=0,MSGCLASS=1,PRTY=10, 02310700 // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 02310800 //* 02310900 //* THIS IS THE FIFTH PART OF THE MVSMODS1 JOB 02311000 //* BECAUSE OF 3.8 AND EXCESS NUMBER OF EXECUTE STATEMENTS 02311100 //* 02311200 //PANPAN PROC 02311300 //* 02311400 //* THIS IS THE ORIGINAL PAN FOR USE WITH FILES 1, 2, AND 3 02311500 //* 02311600 //PANPAN EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02311700 // DPRTY=(11,8),PARM='LINECNT=80' 02311800 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02311900 //SYSPUNCH DD UNIT=SYSDA,DSN=&PANDATA,DISP=(MOD,PASS), 02312000 // SPACE=(TRK,(10,10)) 02312100 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02312200 //PANDD2 DD UNIT=SYSDA,DSN=&WORK,DISP=(MOD,PASS), 02312300 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02312400 // PEND 02312500 //PAN PROC LAB=XXX 02312600 //COMP1 EXEC PGM=PAN#1,REGION=192K,COND=(4,LT), 02312700 // DPRTY=(11,8),PARM='LINECNT=80' 02312800 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02312900 //SYSPUNCH DD DUMMY 02313000 //PANDD1 DD DISP=SHR,DSN=CBT.PANLIB 02313100 //PANDD2 DD UNIT=SYSDA,DSN=&COMP,DISP=(MOD,PASS), 02313200 // SPACE=(CYL,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040) 02313300 //COMP2 EXEC PGM=CBT973,REGION=512K,COND=(4,LT), 02313400 // DPRTY=(11,8),PARM=COMPRESS 02313500 //INPUT DD DSN=&COMP,DISP=(OLD,DELETE) 02313600 //OUTPUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS),DSN=QAQ, 02313700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716),LABEL=(&LAB.,NL) 02313800 // PEND 02313900 //IEBCOPY PROC 02314000 //STEP01 EXEC PGM=IEBCOPY,REGION=512K,DPRTY=(13,0),COND=(4,LT) 02314100 //SYSPRINT DD DSN=CBT.MODS1.PAN,DISP=(MOD,PASS) 02314200 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02314300 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) 02314400 // PEND 02314500 //IEBGENER PROC 02314600 //STEP01 EXEC PGM=IBMGENER,REGION=512K,COND=(4,LT) 02314700 //SYSPRINT DD DUMMY 02314800 //SYSIN DD DUMMY 02314900 // PEND 02315000 //*TEP000 EXEC PGM=CBT299VV,PARM='CBT.MODS1.PAN' 02315100 //*TEP001 EXEC PGM=IEFBR14 02315200 //*BTMOD DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(3,3)), 02315300 //* DSN=CBT.MODS1.PAN, 02315400 //* DCB=(RECFM=FBA,LRECL=121,BLKSIZE=18997) 02315500 //STEP400 EXEC PAN,LAB=400 * XA DYNAMASK SECURITY * 02315600 ++WRITE WORK,CBT1615 02315700 //STEP401 EXEC PAN,LAB=401 * XA CODE FROM M * 02315800 ++WRITE WORK,CBT1479 02315900 //STEP402 EXEC PAN,LAB=402 * DASD MAN. FROM DEAN * 02316000 ++WRITE WORK,CBT1482 02316100 //STEP403 EXEC PAN,LAB=403 * COCA COLA OPER ZAP * 02316200 ++WRITE WORK,CBT1484 02316300 //STEP404 EXEC PAN,LAB=404 * MVSMON FROM FLA POWER * 02316400 ++WRITE WORK,CBT1486 02316500 //STEP405 EXEC PAN,LAB=405 * SAFECOPY FROM GTE * 02316600 ++WRITE WORK,CBT1488 02316700 //STEP406 EXEC PAN,LAB=406 * CQX AND FIND CDS INC * 02316800 ++WRITE WORK,CBT1487 02316900 //STEP407 EXEC PAN,LAB=407 * DYNABLDL - COMNET * 02317000 ++WRITE WORK,CBT1493 02317100 //STEP408 EXEC PAN,LAB=408 * MACROS - COMNET * 02317200 ++WRITE WORK,CBT1494 02317300 //STEP409 EXEC PAN,LAB=409 * #D #T -BF GOODRICH * 02317400 ++WRITE WORK,CBT1495 02317500 //STEP410 EXEC PAN,LAB=410 * BLUE X -INSTALL * 02317600 ++WRITE WORK,CBT1506 02317700 //STEP411 EXEC PAN,LAB=411 * BLUE X -SOURCE * 02317800 ++WRITE WORK,CBT1501 02317900 //STEP412 EXEC PAN,LAB=412 * BLUE X PANEL * 02318000 ++WRITE WORK,CBT1502 02318100 //STEP413 EXEC PAN,LAB=413 * BLUE X MESSAGES * 02318200 ++WRITE WORK,CBT1503 02318300 //STEP414 EXEC PAN,LAB=414 * BLUE X SKELTON * 02318400 ++WRITE WORK,CBT1504 02318500 //STEP415 EXEC PAN,LAB=415 * BLUE X PROCEDURE * 02318600 ++WRITE WORK,CBT1505 02318700 //STEP416 EXEC PAN,LAB=416 * DELUXE NEW CODE * 02318800 ++WRITE WORK,CBT1498 02318900 //STEP417 EXEC PAN,LAB=417 * XA # CMD1 * 02319000 ++WRITE WORK,CBT5001 02319100 //STEP418 EXEC PAN,LAB=418 * XA DIDOCS - ACF2 * 02319200 ++WRITE WORK,CBT1499 02319300 //STEP419 EXEC PAN,LAB=419 * XA DIDOCS 2.1.2 * 02319400 ++WRITE WORK,CBT1575 02319500 //STEP420 EXEC PAN,LAB=420 * XA SAS FROM CNB * 02319600 ++WRITE WORK,CBT1573 02319700 //STEP421 EXEC PAN,LAB=421 * XACORZAP - NAS * 02319800 ++WRITE WORK,CBT1616 02319900 //STEP422 EXEC PAN,LAB=422 * MAY & SPEH * 02320000 ++WRITE WORK,CBT1622 02320100 //STEP423 EXEC PAN,LAB=423 * BROIDO COMPUTER CONS * 02320200 ++WRITE WORK,CBT1647 02320300 //STEP424 EXEC PAN,LAB=424 * * 02320400 ++WRITE WORK,CBT950 02320500 //STEP425 EXEC PAN,LAB=425 * * 02320600 ++WRITE WORK,CBT950 02320700 //STEP426 EXEC PAN,LAB=426 * * 02320800 ++WRITE WORK,CBT950 02320900 //STEP427 EXEC PAN,LAB=427 * * 02321000 ++WRITE WORK,CBT950 02321100 //STEP428 EXEC PAN,LAB=428 * * 02321200 ++WRITE WORK,CBT950 02321300 //STEP429 EXEC PAN,LAB=429 * * 02321400 ++WRITE WORK,CBT950 02321500 //STEP430 EXEC PAN,LAB=430 * * 02321600 ++WRITE WORK,CBT950 02321700 //STEP431 EXEC IEBGENER,REGION=1024K 02321800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK01.F431,DISP=SHR 02321900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02322000 // LABEL=(431,NL),DSN=QAQ, 02322100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02322200 //STEP432 EXEC IEBCOPY 02322300 //IN DD DSN=TEC.ARNIE.ROCK02.F432,DISP=SHR 02322400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02322500 // LABEL=(432,NL),DCB=DEN=4 02322600 COPY INDD=IN,OUTDD=OUT 02322700 //STEP433 EXEC IEBGENER,REGION=1024K 02322800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK03.F433,DISP=SHR 02322900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02323000 // LABEL=(433,NL),DSN=QAQ, 02323100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02323200 //STEP434 EXEC IEBCOPY 02323300 //IN DD DSN=TEC.ARNIE.ROCK04.F434,DISP=SHR 02323400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02323500 // LABEL=(434,NL),DCB=DEN=4 02323600 COPY INDD=IN,OUTDD=OUT 02323700 //STEP435 EXEC IEBGENER,REGION=1024K 02323800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK05.F435,DISP=SHR 02323900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02324000 // LABEL=(435,NL),DSN=QAQ, 02324100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02324200 //STEP436 EXEC IEBGENER,REGION=1024K 02324300 //SYSUT1 DD DSN=TEC.ARNIE.ROCK06.F436,DISP=SHR 02324400 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02324500 // LABEL=(436,NL),DSN=QAQ, 02324600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02324700 //STEP437 EXEC IEBGENER,REGION=1024K 02324800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK07.F437,DISP=SHR 02324900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02325000 // LABEL=(437,NL),DSN=QAQ, 02325100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02325200 //STEP438 EXEC IEBGENER,REGION=1024K 02325300 //SYSUT1 DD DSN=TEC.ARNIE.ROCK08.F438,DISP=SHR 02325400 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02325500 // LABEL=(438,NL),DSN=QAQ, 02325600 // DCB=(DEN=4,RECFM=FB,LRECL=100,BLKSIZE=32700) 02325700 //STEP439 EXEC IEBGENER,REGION=1024K 02325800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK09.F439,DISP=SHR 02325900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02326000 // LABEL=(439,NL),DSN=QAQ, 02326100 // DCB=(DEN=4,RECFM=FB,LRECL=132,BLKSIZE=32604) 02326200 //STEP440 EXEC IEBGENER,REGION=1024K 02326300 //SYSUT1 DD DSN=TEC.ARNIE.ROCK10.F440,DISP=SHR 02326400 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02326500 // LABEL=(440,NL),DSN=QAQ, 02326600 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02326700 //STEP441 EXEC IEBGENER,REGION=1024K 02326800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK11.F441,DISP=SHR 02326900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02327000 // LABEL=(441,NL),DSN=QAQ, 02327100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02327200 //STEP442 EXEC IEBCOPY 02327300 //IN DD DSN=TEC.ARNIE.ROCK12.F442,DISP=SHR 02327400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02327500 // LABEL=(442,NL),DCB=DEN=4 02327600 COPY INDD=IN,OUTDD=OUT 02327700 //STEP443 EXEC IEBGENER,REGION=1024K 02327800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK13.F443,DISP=SHR 02327900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02328000 // LABEL=(443,NL),DSN=QAQ, 02328100 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02328200 //STEP444 EXEC IEBCOPY 02328300 //IN DD DSN=TEC.ARNIE.ROCK14.F444,DISP=SHR 02328400 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02328500 // LABEL=(444,NL),DCB=DEN=4 02328600 COPY INDD=IN,OUTDD=OUT 02328700 //STEP445 EXEC PGM=CBT1599,REGION=1024K 02328800 //SYSUT1 DD DSN=TEC.ARNIE.ROCK15.F445,DISP=SHR 02328900 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02329000 // LABEL=(445,NL),DSN=QAQ, 02329100 // DCB=(DEN=4,RECFM=VB,LRECL=84,BLKSIZE=32000) 02329200 //SYSPRINT DD DUMMY 02329300 //STEP446 EXEC IEBGENER,REGION=1024K 02329400 //SYSUT1 DD DSN=TEC.ARNIE.ROCK16.F446,DISP=SHR 02329500 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02329600 // LABEL=(446,NL),DSN=QAQ, 02329700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02329800 //STEP447 EXEC IEBGENER,REGION=1024K 02329900 //SYSUT1 DD DSN=TEC.ARNIE.ROCK17.F447,DISP=SHR 02330000 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02330100 // LABEL=(447,NL),DSN=QAQ, 02330200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02330300 //STEP448 EXEC IEBGENER,REGION=1024K 02330400 //SYSUT1 DD DSN=TEC.ARNIE.ROCK18.F448,DISP=SHR 02330500 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02330600 // LABEL=(448,NL),DSN=QAQ, 02330700 // DCB=(DEN=4,RECFM=FB,LRECL=100,BLKSIZE=32700) 02330800 //STEP449 EXEC IEBGENER,REGION=1024K 02330900 //SYSUT1 DD DSN=TEC.ARNIE.ROCK19.F449,DISP=SHR 02331000 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02331100 // LABEL=(449,NL),DSN=QAQ, 02331200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02331300 //STEP450 EXEC IEBGENER,REGION=1024K 02331400 //SYSUT1 DD DSN=TEC.ARNIE.ROCK20.F450,DISP=SHR 02331500 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02331600 // LABEL=(450,NL),DSN=QAQ, 02331700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02331800 //STEP451 EXEC IEBGENER,REGION=1024K 02331900 //SYSUT1 DD DSN=TEC.ARNIE.ROCK21.F451,DISP=SHR 02332000 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02332100 // LABEL=(451,NL),DSN=QAQ, 02332200 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02332300 //STEP452 EXEC IEBGENER,REGION=1024K 02332400 //SYSUT1 DD DSN=TEC.ARNIE.ROCK22.F452,DISP=SHR 02332500 //SYSUT2 DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02332600 // LABEL=(452,NL),DSN=QAQ, 02332700 // DCB=(DEN=4,RECFM=VB,LRECL=94,BLKSIZE=32716) 02332800 //STEP453 EXEC PAN,LAB=453 * PL1F & FORTRAN LIBS * 02332900 ++WRITE WORK,CBT1607 02333000 //STEP454 EXEC IEBCOPY 02333100 //IN DD DSN=TEC.ARNIE.AIRPL1.F454,DISP=SHR 02333200 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02333300 // LABEL=(454,NL),DCB=DEN=4 02333400 COPY INDD=IN,OUTDD=OUT 02333500 //STEP455 EXEC IEBCOPY 02333600 //IN DD DSN=TEC.ARNIE.AIRFORT.F455,DISP=SHR 02333700 //OUT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02333800 // LABEL=(455,NL),DCB=DEN=4 02333900 COPY INDD=IN,OUTDD=OUT 02334000 //STEP456 EXEC PAN,LAB=456 * * 02334100 ++WRITE WORK,CBT950 02334200 //STEP457 EXEC PAN,LAB=457 * * 02334300 ++WRITE WORK,CBT950 02334400 //STEP458 EXEC PAN,LAB=458 * * 02334500 ++WRITE WORK,CBT950 02334600 //STEP459 EXEC PAN,LAB=459 * * 02334700 ++WRITE WORK,CBT950 02334800 //STEP460 EXEC PAN,LAB=460 * * 02334900 ++WRITE WORK,CBT950 02335000 //LAST99 EXEC PGM=IBMGENER,REGION=512K 02335100 //SYSIN DD DUMMY 02335200 //SYSPRINT DD DUMMY 02335300 //SYSUT1 DD DSN=CBT.MODS1.PAN,DISP=(OLD,DELETE) 02335400 //SYSUT2 DD SYSOUT=1,DCB=(RECFM=FB,LRECL=121,BLKSIZE=121) 02335500 /* 02335600 //STEPM1 EXEC PGM=CBT1071, 02335700 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02335800 //STEPM2 EXEC PGM=CBT1071, 02335900 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TS15500)' 02336000 //STEPM3 EXEC PGM=CBT1071,COND=ONLY, 02336100 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TS15500)' 02336200 //STEPM4 EXEC PGM=CBT1071,COND=ONLY, 02336300 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TS15500)' 02336400 //STEPM5 EXEC PGM=CBT1071, 02336500 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02336600 //STEPM6 EXEC PGM=CBT1071, 02336700 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TX15500)' 02336800 //STEPM7 EXEC PGM=CBT1071,COND=ONLY, 02336900 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TX15500)' 02337000 //STEPM8 EXEC PGM=CBT1071,COND=ONLY, 02337100 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TX15500)' 02337200 //STEPM9 EXEC PGM=CBT1071, 02337300 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02337400 //STEPM10 EXEC PGM=CBT1071, 02337500 // PARM='SEND ''MVSMODS5 IS OKAY OKAY'',LOGON,USER=(TA15500)' 02337600 //STEPM11 EXEC PGM=CBT1071,COND=ONLY, 02337700 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TA15500)' 02337800 //STEPM12 EXEC PGM=CBT1071,COND=ONLY, 02337900 // PARM='SEND ''MVSMODS5 HAS ABENDED'',LOGON,USER=(TA15500)' 02338000 //STEPXXX EXEC PGM=CBT936,PARM='$H''MVSMODS5''',COND=EVEN 02338100 //*STEP363 EXEC IEBCOPY 02338200 //*IN DD DISP=SHR,DSN=TEC.ARNIE.F314.GRAPHICS 02338300 //*OT DD UNIT=TAPEHI,VOL=SER=MVSTAP,DISP=(OLD,PASS), 02338400 //* LABEL=(363,NL),DCB=DEN=4,DSN=QAQ 02338500 //* COPY INDD=IN,OUTDD=OT 02338600