//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 <SVC 93 RECORDS FOR TUNING            *   01467800
//*    SYSCATLG   WRITE MEMBER SYSCATLG IN NUCLEUS                  *   01467900
//*    SYSMASTR   SPF SUBMENU FOR TECH SUPPORT TYPE APPLICATIONS    *   01468000
//*    TERMUSE3   TERMINAL %UTILIZATION STATISTICS. USED TO         *   01468100
//*               DETERMINE THE "DEADWOOD" OF YOUR TUBES.           *   01468200
//*               USES MEMBER VTAMEXIT AND SMFSTEP0.                *   01468300
//*    TSOCLEAN   DELETE UNCATALOGUED DATASETS ON TSO VOLUMES       *   01468400
//*    TSODSANL   STATISTICS ON AGES OF TSO DATASETS                *   01468500
//*    UPDPAN1    NUSCO TSO-PANVALET INTERFACE: UPDATE A PAN DATASET*   01468600
//*    VB2PAN     CONVERT A RECFM=VB DATASET TO A FORMAT FOR PANVALE*   01468700
//*    VSAMFIND   FIND OUT WHO HAS BEEN OPENING A VSAM DATASET      *   01468800
//*    VSTPLASM   SAS - VERSATEC PLOTTER INTERFACE                  *   01468900
//*    VSTPLOT3   SAS - VERSATEC PLOTTER INTERFACE                  *   01469000
//*    VTAMBUFR   TUNING STATS ON VTAM SMS BUFFERS FROM GTF         *   01469100
//*    VTAMEXIT   VTAM EXIT: PRODUCES AN SMF RECORD (TYPE 200).     *   01469200
//*               RECORDS TERMINAL NAME, APPLICATION, LOGON, LOGOFF,*   01469300
//*               AND TIME OF LOGON/LOGOFF ON SMF DATASET.          *   01469400
//*               THIS IS A TERMINAL USE ACCOUNTING EXIT.           *   01469500
//*               SMF RECORD IS READ BY SMFSTEP0. USED FOR FINDING  *   01469600
//*               OUT YOUR TERMINAL USES BY TUBE AND APPLICATION PGM*   01469700
//*    VTAMRNIO   READS GTF TRACE OUTPUT OF RNIO TO CREATE A        *   01469800
//*               ANALYSIS OF YOUR TERMINAL PIU LENGTHS.            *   01469900
//*                                                                 *   01470000
//***FILE 311 CONTAINS SEVERAL TSO CLISTS FROM NORTHEAST UTILITIES  *   01470100
//*           IN IEBCOPY FORMAT FOR USE WITH FILE 310 IT CONTAINS   *   01470200
//*           THE FOLLOWING                                         *   01470300
//*                                                                 *   01470400
//*    APLSPF     APL SPF INTERFACE                                 *   01470500
//*    SASSPF     SAS SPF INTERFACE                                 *   01470600
//*    SASMAIN    MAIN SAS SPF INTERFACE                            *   01470700
//*    PANADDS    PANVALET ADD SPF MENU INTERFACE                   *   01470800
//*    PAN....    OTHER PANVALET SPF MENUS                          *   01470900
//*    PROJ2SPF   PROJECT/2 SPF INTERFACE                           *   01471000
//*    FDRS       SPF/FDR INTERFACE                                 *   01471100
//*    SMPS       SMP / SPF BATCH INTERFACE                         *   01471200
//*    SPFDUMP    AMDPRDMP SPF BATCH INTERFACE                      *   01471300
//*                                                                 *   01471400
//***FILE 312 IS AN MVS-SE SIMULATOR FROM UNION CARBIDE. THIS CODE  *   01471500
//*          WAS TAKEN FROM VERSION 81-013 OF THE SPLA TAPE. THIS   *   01471600
//*          PROGRAM IS INTENDED TO FUNCTION AS A FRONT END TO THE  *   01471700
//*          PROGRAM CHECK FIRST LEVEL INTERRUPT HANDLER, IEAQPK00. *   01471800
//*          ITS PURPOSE IS TO INTERCEPT ALL PROGRAM CHECK RESULTING*   01471900
//*          FROM RUNNING MVS-SE ON A UNI-PROCESSOR THAT DOES NOT   *   01472000
//*          HAVE THE EXTENDED FACILITY HARDWARE INSTALLED.         *   01472100
//*          THIS MODULE INCLUDING INSTALLATION IS FULLY DOCUMENTED *   01472200
//*          IN THE SOURCE CODE.                                    *   01472300
//*                                                                 *   01472400
//*          ***************************************************    *   01472500
//*          *                                                 *    *   01472600
//*          *  THIS FILE ALSO CONTAINS THE INFORMATION AND    *    *   01472700
//*          *  ZAPS TO MAKE IT RUN UNDER MVS/SP RELEASE 1     *    *   01472800
//*          *                                                 *    *   01472900
//*          ***************************************************    *   01473000
//*                                                                 *   01473100
//*          THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND NOW CONTAINS *   01473200
//*          THE MVS/SP1.3 VERSION, WHICH WAS CONTRIBUTED BY        *   01473300
//*          CHESTER HOOD OF UNION CARBIDE. SEE THE MEMBER CALLED   *   01473400
//*          $$DOC FOR THE MVS/SP1.3 VERSION NAME. THERE IS         *   01473500
//*          INFORMATION IN THE CODE ABOUT RUNNING THE SIMULATOR    *   01473600
//*          UNDER MVS/SP1.3                                        *   01473700
//*                                                                 *   01473800
//***FILE 313 IS THE SOURCE OF UTILITIES, PROGRAMS, MODS, SMF EXITS *   01473900
//*          AND OTHER THINGS FROM MEMOREX. THIS FILE IS IN IEBUPDTE*   01474000
//*          SYSIN FORMAT AND CONTAINS OVER 100,000 RECORDS         *   01474100
//*                                                                 *   01474200
//***FILE 314 CONTAINS A COPY OF THE DOCUMENTATION FILE FROM THE    *   01474300
//*           MVS/SP1.3  VERSION OF THE JES2 MODIFICATION TAPE VER  *   01474400
//*           39 , DATED FEB 15 , 1985 . THERE IS NO CODE CONTAINED *   01474500
//*           IN THIS FILE . SEE FILE 120 FOR THE NON SP1.3 VERSION *   01474600
//*           OF THE JES2 MODIFICATION TAPE                         *   01474700
//*                                                                 *   01474800
//***FILE 315 IS AN EXPRESS COMPILER CONTROLLER FROM FEDERAL EXPRESS*   01474900
//*          THIS PROGRAM ATTACHES A COMPILER AND THE LINKAGE EDITOR*   01475000
//*          BASED ON CONTROL CARD INPUT. SPF STATS ARE STORED IN   *   01475100
//*          THE PDS DIRECTORY AND MODS HAVE BEEN MADE TO SPF TO    *   01475200
//*          ALLOW THE STATS TO BE SEEN WHEN BROWSING A MEMBER LIST.*   01475300
//*          SPF STATS INCLUDE THE VERSION AND MODIFICATION LEVEL   *   01475400
//*          FROM THE SOURCE, THE DATE AND TIME THE COMPILE WAS     *   01475500
//*          DONE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND        *   01475600
//*          AND CONTAINS ADDITIONAL INFORMATION FOR IMPLEMENTATION *   01475700
//*                                                                 *   01475800
//***FILE 316 CONTAINS SEVERAL UTILITIES FROM JIM MARSHALL OF THE   *   01475900
//*          U.S. AIRFORCE IN WASHINGTON D.C. THIS FILE IS IN       *   01476000
//*          IEBUPDTE SYSIN FORMAT. BELOW IS A SHORT SUMMARY OF     *   01476100
//*          SOME OF THE PGMS INCLUDED IN THIS FILE                 *   01476200
//*                                                                 *   01476300
//*            IF IT APPEARS YOU ARE MISSING SUFF ALSO CHECK AS IT  *   01476400
//*            MAY RESIDE IN FILE 300 OF THIS TAPE                  *   01476500
//*                                                                 *   01476600
//*     ASMBOX1    PUT A NICE LOOKING BOX AROUND YOUR ASSEMBLY      *   01476700
//*                LISTING OUTPUT. LINECT FOR ASSEMBLY              *   01476800
//*                LISTING IS 53. CODE IS 3800 DEPENDENT.           *   01476900
//*                                                                 *   01477000
//*     ASMHNOX    A PTF FOR AN ASSEMBLER H BUG.                    *   01477100
//*                AS YOU KNOW ASM H IS CLASS C NOW.                *   01477200
//*                                                                 *   01477300
//*     ASMR90     ROTATE 90 DEGREES ASSEMBLY LISTINGS              *   01477400
//*                ON THE 3800 TYPE PRINTERS.                       *   01477500
//*                                                                 *   01477600
//*     CATLIST    THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK       *   01477700
//*                PRINTERS. THIS WILL DO A VERY FAST LIST OF       *   01477800
//*                AN ICF CATALOG FOR GDG'S AND NONVSAM DSNS.       *   01477900
//*                LISTING IS IN THE SAME FORMAT AS IDCAMS          *   01478000
//*                (WE USED IT TO BUILD A TMC) BUT THE OUTPUT       *   01478100
//*                FORMAT WOULD BE VERY EASY TO CHANGE. SEE         *   01478200
//*                COMMEMTS IN THE CODE FOR AN EXPLANATION          *   01478300
//*                OF ITS SPEED AND RELATION TO RACF.               *   01478400
//*                                                                 *   01478500
//*     COPYFILE   POWERFUL COPY TAPE TYPE PROGRAM. IF YOU HAVE     *   01478600
//*                MULTIFILE SL TAPES WILL COPY SELECTED            *   01478700
//*                FILES VIA A CONTROL CARD.                        *   01478800
//*                                                                 *   01478900
//*     CT         AIR FORCE DEVELOPED HIGH SPEED TAPECOPY PGM.     *   01479000
//*                RUNS AT EXCP SPEED. COPIES LABELED OR UNLABLED   *   01479100
//*                SINGLE OR MULTIFILE, AND IF ONE ONE REEL AN      *   01479200
//*                AN OPTION TO VERIFY BYTE FOR BYTE. COPIES        *   01479300
//*                MULITVOLUME OR MULTIFILE & MULTIVOLUME WITH      *   01479400
//*                NO VERIFY FUNCTION.                              *   01479500
//*                                                                 *   01479600
//*     C3PO       BRIAN SCOTT OF THE US POSTAL SERVICE, TOPEKA     *   01479700
//*                KA WROTE C3PO TO BE THE SRB RECEIVER FOR R2D2.   *   01479800
//*                R2D2 NEEDS A TASK OF SOME KIND GOING TO BUMP     *   01479900
//*                THE SRB OFF OF. MOST PEOPLE HAVE BEEN USING      *   01480000
//*                #CMD SUBSYSTEM AND SOME OTHER BRAVE SOLES,       *   01480100
//*                JES2. PLUS NOW C3PO WILL TALK TO YOU IF YOU      *   01480200
//*                WANT. ANYONE WANTS TO INCREASE HIS VOCABULARY    *   01480300
//*                IS WELCOME. HAVE NOT INSTALLED IT THIS WAY       *   01480400
//*                BUT WILL WHEN I GO TO MVS/SP1.3.                 *   01480500
//*                                                                 *   01480600
//*     C3PO2      SAME AS ABOVE, BUT WITH A STIMER IN IT FOR       *   01480700
//*                PEOPLE WHO DO NOT WNAT TO RUN C3PO WITH          *   01480800
//*                TIME=1440.                                       *   01480900
//*                                                                 *   01481000
//*     DELINK0    SOURCE CARDS FOR IBM FE PROGRAM TO 'DELINK'      *   01481100
//*                WE RECONSTRUCTED THE SOURCE IMAGES WITH A        *   01481200
//*                DISASSEMBLER AND ALOT OF PATIENCE.  FUN !!!      *   01481300
//*                                                                 *   01481400
//*     DISKMAP    DISKMAP PROGRAM THAT HAS 3330 SUPPORT, 3350,     *   01481500
//*                3850 SUPPORT INCLUDED. GIVES SIMILIAR INFO       *   01481600
//*                TO A COMPAKTOR MAP. THIS NOW DOES NOT UPDATE     *   01481700
//*                LASTUSE DATE  FOR EVERY FILE ON THE PACK. NOT    *   01481800
//*                NOT REALLY TRUE FOR PDS'S,  SO STILL BEWARE.     *   01481900
//*                                                                 *   01482000
//*     EALSD095   EASTERN AIRLINES UPDATE OF THE STANDARD IBM      *   01482100
//*                BLOCK LETTER ROUTINE IEFSD095 WHICH WAS USED     *   01482200
//*                FOR BANNER PAGES. THE UPDATED VERSION HAS ALL    *   01482300
//*                THE SPECIAL CHARACTERS INCLUDED IN IT.           *   01482400
//*                                                                 *   01482500
//*     EXCPMOD    MOD (ZAP) TO SHOW EXCP COUNTS ON JCL LISTING.    *   01482600
//*                MVS/SP1.1                                        *   01482700
//*                                                                 *   01482800
//*     EXIMPORT   THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK       *   01482900
//*                PRINTERS. WILL CREATE 2 JCL FILES, A CLIST,      *   01483000
//*                AND A SYSPRINT LISTING. THE JCL FILES HAVE A     *   01483100
//*                SET OF EXPORT AND IMPORT JCL DESIGNED TO         *   01483200
//*                EXPORT (VSAM) AND IEBGENER (DSORG=PS) ALL        *   01483300
//*                DATASETS ON A VOLUME TO TAPE AND RESTORE THEM    *   01483400
//*                WITH IMPORT (VSAM) AND IEBGENER (DSORG=PS)       *   01483500
//*                FROM TAPE TO DISK. THE VSAM PORTION WORKS        *   01483600
//*                ONLY FOR UNIQUE DATASETS (DFEF) AND BASE         *   01483700
//*                CLUSTERS ONLY. SEE THE CODE FOR FURTHER          *   01483800
//*                EXPLANATIONS AND RESTRICTIONS.                   *   01483900
//*                                                                 *   01484000
//*     IEECVXIT   COMBINED VERSION OF 'IEECVXIT AND 'IEECR2D2'.    *   01484100
//*                CODED THE WAY IT SHOULD IF YOU A GENIUS. SCH-    *   01484200
//*                EDULES AN SRB TO GET AROUND THE FACT THE MOVED   *   01484300
//*                WQE CHAIN IN SP1.3. NEEDS SOMETHING RUNNING ALL  *   01484400
//*                THE TIME TO BUMP THE SRB OFF OF WHEN IEECR2D2    *   01484500
//*                REQUIRED. CODER USED THE #CMD SUBSYSTEM, YOU     *   01484600
//*                COULD HAVE USED JES2 HE SAYS. TIME DEPENDENT     *   01484700
//*                CODE HAS BEEN REMOVED AND WORKS IN ALL VERSIONS  *   01484800
//*                OF MVS/SP.    WE ARE SAVED !!                    *   01484900
//*                                                                 *   01485000
//*                AFDSC DEVELOPED 'MCS EXIT'. HAS THE CAPABILITY   *   01485100
//*                TO SUPPRESS OR CHNGE ROUTE CODES, DESC, CODES,   *   01485200
//*                ETC. BUT WITH THIS ONE WILL UTILITIZE 'R2D2'     *   01485300
//*                TO DO AUTOMATIC OPERATOR REPLIES AND STC'S       *   01485400
//*                BASED UPON WHAT COMES ACROSS CONSOLE. IS NOT     *   01485500
//*                DEPENDENT UPON THE OPERATOR BEING AWAKE.         *   01485600
//*                AFDSC DEVELOPED VERSION OF THE FAMOUS 'R2D2'.    *   01485700
//*                LITTLE CREATURE WILL DO AUTOMATIC START CMDS     *   01485800
//*                FOR THINGS THAT NEED TO BE STARTED BASED UPON    *   01485900
//*                WHAT COMES ACROSS SCREEN AND IS DETECTED BY      *   01486000
//*                IEECVXIT. R2D2 WILL DO THE AUTOMATIC REPLIES,    *   01486100
//*                RMF ( R XX,GO ), ALLOCATION ( R XX,NOHOLD )      *   01486200
//*                EVER HAD OPERATOR TURN YOUR 3081 MVS SYSTEM TO   *   01486300
//*                OS/MVT  SYSTEM BY LOCKING Q4 ( R XX,HOLD ).      *   01486400
//*                LITTLE CRITTER HAS ALOT OF POSSIBILITIES.        *   01486500
//*                                                                 *   01486600
//*     IEFUTL     IBM STANDARD SMF EXIT, IEFUTL. WAIT TIME AND     *   01486700
//*                CPU TIME EXCESSION FOR BATCH AND TSO. NOT MUCH   *   01486800
//*                CODE BUT ONE THING IT CAN DO IS TO ELIMINATE     *   01486900
//*                S522 ABENDS CAUSED BY OPERATORS.                 *   01487000
//*                                                                 *   01487100
//*     IEFU29     DETECT SMF SWITCH AND SCHEDULE A JOB THAT DUMPS  *   01487200
//*                SMF DATASETS. MOVED THESES FUNCTIONS FROM THE    *   01487300
//*                'MCS' EXIT TO THIS EXIT (WHERE IT SHOULD BE).    *   01487400
//*                                                                 *   01487500
//*     IEFU83     AFDSC DEVELOPED SMF EXIT, 'IEFU83'. HAS ALL      *   01487600
//*                STANDARD SUGGESTION FOR TYPE 40 RECS, 0 EXCP     *   01487700
//*                COUNTS, ETC. THIS ONE IS BRANCH TABLE DRIVEN,    *   01487800
//*                IS A GOOD PLACE TO BEGIN FOR THOSE WHO WANT TO   *   01487900
//*                EXPAND ON ITS CODE. ALSO LOOKS AT 14&15'S ETC.   *   01488000
//*                                                                 *   01488100
//*     INCORZAP   SOURCE FOR THE FAMOUS 'INCORZAP' THAT IS KNOWN   *   01488200
//*                ONLY IN OBJECT FORM. THANKS BILL GODFREY FOR     *   01488300
//*                DISASSEMBLY AND PATIENCE.                        *   01488400
//*                                                                 *   01488500
//*     IGG019WD   APPENDAGE FOR RECOVERY FROM WRONG DENSITY TAPE   *   01488600
//*                VOLUMES, USED BY TAPE UTLITIES                   *   01488700
//*                                                                 *   01488800
//*     IGG019WE   APPENDAGE TO PREVENT ERROR AT EOF, USED BY       *   01488900
//*                TAPE UTILITIES.                                  *   01489000
//*                                                                 *   01489100
//*     INCORZZP   ZAP TO THE 'INCORZAP' PROGRAM SO IT WILL         *   01489200
//*                RUN UNDER ANY NAME.                              *   01489300
//*                                                                 *   01489400
//*     JESX001    SP1.3 EXIT.  SEPARATOR (PRINT&PUNCH) FOR         *   01489500
//*                JES2. ALSO PRODUCES A RECEIPT ON AN IBM 3287     *   01489600
//*                TYPE PRINTER SO USER CAN SIGN RECEIPT AT PCS.    *   01489700
//*                USED IN CONJUNCTION WITH EXIT 10 AND 255.        *   01489800
//*                THANKS CAPT JIM CARTER AND LT PAUL FINDLEY.      *   01489900
//*                                                                 *   01490000
//*     JESX002    JES2/SP1.3 EXIT2. JOB CARD SCAN EXIT,            *   01490100
//*                ALSO HAS OTHER FEATURES. THANKS CAPT JIM         *   01490200
//*                CARTER AND LT PAUL FINDLEY.                      *   01490300
//*                                                                 *   01490400
//*     JESEX006   JES2/SP1.3 EXIT6. PRINT JES2 INTERNAL            *   01490500
//*                TEXT AT THE CONSOLE,   SINCE YOU HAVE INTERNAL   *   01490600
//*                TEXT, YOU CAN CHANGE IT. THANKS CAPT JIM         *   01490700
//*                CARTER AND LT PAUL FINDLEY                       *   01490800
//*                                                                 *   01490900
//*     JESEX010   JES2/SP1.3 EXIT10. SUPPRESS JES2 WTO MESGS       *   01491000
//*                JOB RECEIPT GENERATED FOR ALL PARTS OF A JOB     *   01491100
//*                THAT IS PRTED LOCALLY. IS BECAUSE JES EXIT       *   01491200
//*                1 PRODUCES RECEIPTS  TO A 3287                   *   01491300
//*                TYPE PRTER ALL PARTS OF A JOB PRINTED LOCALLY.   *   01491400
//*                THANKS CAPT JIM CARTER AND LT PAUL FINDLEY       *   01491500
//*                                                                 *   01491600
//*     JESEX255   JES2/SP1.3 USER EXIT 255. PRODUCES THE ACTUAL    *   01491700
//*                RECEIPTS FOR ALL PARTS OF A JOB PRTED LOCALLY.   *   01491800
//*                USERS MUST SIGN  FOR LOCALLY PICKED UP JOBS      *   01491900
//*                AT PCS. HIGHLY ENCOURAGES PEOPLE TO HOLD THERE   *   01492000
//*                OUTPUT FOR TSO AND DISPOSE OF IT ACCORDINGLY     *   01492100
//*                THANKS CAPT JIM CARTER AND LT PAUL FINDLEY.      *   01492200
//*                                                                 *   01492300
//*     JESXRDR    HURRAY BILL GODFREY, MY GENIUS. YOU CAN SUBMIT   *   01492400
//*                JOBS TO A SECONDARY JES2 LIKE JESX FROM          *   01492500
//*                THIS PGM. LOOK IN TSOSRC FILE YOU WILL FIND      *   01492600
//*                'SUBMITX' ALLOWS YOU TO SUBMIT FROM TSO TO A     *   01492700
//*                SECONDARY JES2. (ALSO YOU GET OUTPUTX,           *   01492800
//*                CANCELX, AND STATUSX) WITH SUBMITX.              *   01492900
//*                                                                 *   01493000
//*     JES0001    SMP USERMOD TO ALLOW YOU TO DO TSO IN            *   01493100
//*                SECONDARY JES,  ALSO STC'S ETC ETC.              *   01493200
//*                                                                 *   01493300
//*     LISTCTLG   LISTS OS CATALOGS EFFICIENTLY. UPDATED FOR       *   01493400
//*                3400 SERIES TAPE DRIVES, 3330 TYPE DISKS,        *   01493500
//*                3350'S AND, 3850 MSS. SEE THE COMMENTS IN THE    *   01493600
//*                CODE FOR ADDITIONAL CAPABILITIES OF THE PGM.     *   01493700
//*                                                                 *   01493800
//*     LISTIDR    IMPROVED GODDARD SPACE CENTER PROGRAM FOR        *   01493900
//*                LISTING 'IDR' RECORDS.                           *   01494000
//*                                                                 *   01494100
//*     LISTPDS    GODDARD SPACE FLIGHT CENTER, FAMOUS 'LISTPDS'    *   01494200
//*                PROGRAM. UPDATED SO WHEN YOU DO THE FUNCTION     *   01494300
//*                SIMILIAR TO IEHLIST, LISTPDS, IT GIVES YOU THE   *   01494400
//*                SPF STATS, LIKE SPF 3.1 DOES. SEE THE LISTPDS#   *   01494500
//*                FOR ALL OF ITS CAPABILITIES.                     *   01494600
//*                                                                 *   01494700
//*     LKEBOX1    PLACE NICE LOOKING BOX AROUND YOU LKED           *   01494800
//*                LISTING FOR USE IN CONJUNCTION WITH ASMBOX1.     *   01494900
//*                                                                 *   01495000
//*     LKEDMOD    LKED EDITOR ZAP, PUT TIME & DATE INTO LOAD       *   01495100
//*                MODULES MVS/3.8                                  *   01495200
//*                                                                 *   01495300
//*     LKEDMOD1   LKED EDITOR ZAP TO PUT TIME & DATE INTO LOAD     *   01495400
//*                MODULES MVS/SP1.1                                *   01495500
//*                                                                 *   01495600
//*     LKED90     ROTATE LKED OUTPUT ON AN IBM 3800 90 DEGREES     *   01495700
//*                AND GET 2 PAGES ONTO 1.                          *   01495800
//*                                                                 *   01495900
//*     MODREP     LPA MODULE REPLACEMENT PROGRAM OBTAINED FROM     *   01496000
//*                THE CBT TAPE. MODIFIED AT AFDSC SO IT WILL NOT   *   01496100
//*                ABEND WITH A S522. SEVERAL OTHER BUGS FIXED.     *   01496200
//*                                                                 *   01496300
//*     MSGWRITE   SUBROUTINE USED BY SOME OF THE UTILITIES.        *   01496400
//*                                                                 *   01496500
//*     MSSMOUNT   ZAP TO LET TSO USERS MOUNT MSS VOLUMES WITHOUT   *   01496600
//*                HAVING MOUNT ATTRIBUTE IN 'UADS'.                *   01496700
//*                                                                 *   01496800
//*                                                                 *   01496900
//*     OFFLOAD    UNLOAD A PDS TO A SEQUENTIAL IEBUPDTE DATASET.   *   01497000
//*                FIXED BUG ABEND 103-4C FOR UNBLOCKED PDS'ES.     *   01497100
//*                                                                 *   01497200
//*     PARMBLOC   TAKE THE PARM FROM THE EXEC CARD AND CREATE A    *   01497300
//*                BLOCK LETTER BANNER. HAS OPTIONS TO SLANT ETC.   *   01497400
//*                NICE FOR REPORTS.                                *   01497500
//*                                                                 *   01497600
//*     PDSGAS     ALLOW YOU FIND A 'GAS' MEMBER IN A PDS PRO-      *   01497700
//*                VIDED  YOU HAVE NOT COMPRESSED THE PDS. ASSIGNS  *   01497800
//*                MEMBER NAME OF $GASXXXX WHERE XXXX GOES FROM     *   01497900
//*                0001 TO 9999. THEN IT IS CALLED BRUTE FORCE      *   01498000
//*                TO GO IN WITH SPF 3.1 TO FIND IT. BUT !!         *   01498100
//*                                                                 *   01498200
//*     PDSLOAD    TAKE FILE WITH IEBUPDTE CONTROL CARDS IN THEM,   *   01498300
//*                RELOAD TO A PDS. WILL PUT IN SPF STATS AND       *   01498400
//*                USEFUL FOR FILES UNLOADED BY  OFFLOAD PGM        *   01498500
//*                TO FROM CBT TAPE. CAN CHANGE THE IMBEDDED '><'   *   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
