SSSS H H RRRRR SSSS PPPPP L S S H H R R S S P P L S H H R R S P P L SSSS HHHHHH RRRRR SSSS PPPPP L S H H R R S P L S S H H R R S S P L SSSS H H R R SSSS P LLLLLL ************************************************************ ************************************************************ ************** ************** ************ ************ ********** ********** * * * * * GENERAL DESCRIPTION OF MELLON BANK * * SHARED SPOOL MODS * * * * * ********** ********** ************ ************ ************** ************** ************************************************************ ************************************************************ ************************************************************ * * * D I S C L A I M E R * * * ************************************************************ THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY AND TO THE BEST OF OUR KNOWLEDGE THEY ARE OPERATIONAL, HOWEVER NO WARRANTY IS MADE TO THE ACCURACY OF THE MODS AND NO RESPONSIBILITY IS ASSUMED FOR ANY MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF THE MODIFICATIONS. IT IS THE USERS RESPONSIBILITY TO EVALUATE THE USEFULLNESS OF THE MATERIAL. WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP TO DATE NOR DO WE GUARANTEE TO PROVIDE ANY CORRECTIONS OR EXTENSIONS MADE IN THE FUTURE. ************************************************************ ************************************************************ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ THE FOLLOWING IS A BRIEF EXPLANATION OF THE MELLON BANK MODS MADE TO JES2. IT IS INTENDED FOR THOSE WHO ARE UNFAMILIAR WITH PREVIOUS VERSIONS OF HASP OR JES2 SHARED SPOOL SUPPORT AND IS BEING PROVIDED IN LIEU OF THE FORMAL DOCUMENT ORIGINALLY DISTRIBUTED WITH THE HASP V4 MELLON MODIFICATIONS. IF THE WRITE-UP LEAVES YOU WITH SOME UNANSWERED QUESTIONS, YOU MAY GIVE US A CALL. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RESOURCE ROUTING CONTROL CARDS PROVIDES A FACILITY BY WHICH JOBS CAN BE ROUTED TO SPECIFIC CPUS DEPENDING ON THE AVAILABILITY OF A PARTICULAR RESOURCE NAME ASSIGNED TO A CPU. RESOURCE NAMES ARE USER DEFINED (SYSTEMS PROGRAMMER) AND SPECIFIED IN THE JES2 MACRO $RESTABL . ONCE DEFINED, THESE RESOURCE NAMES ATTACHED TO A CPU REMAIN IN EFFECT UNTIL THEY ARE DETACHED VIA THE $QD COMMAND, OR A COLD START IS DONE AND ALL RESOURCES ARE THEN UNASSIGNED. RESOURCES SPECIFIED IN THE $RESTABL MACRO CAN DEFINE PHYSICAL I/O GEAR WHICH MAY BE ATTACHED TO ONLY ONE CPU AT A TIME, OR POSSIBLY A SOFTWARE NAME WHICH MAY ONLY PERTAIN TO ONE PARTICULAR CPU. SPECIFICATION ... IN $RESTABL MACRO ASSIGNMENT....... $QA,RESOURCE NAME ATTACHES A RESOURCE NAME FROM THE TABLE TO THIS CPU. $QD,RESOURCE NAME REMOVE RESOURCE NAME FROM THIS CPU USE............... /*ROUTE XEQ RESOURCE NAME... FOLLOWING JOBCARD JOB WILL AUTOMATICALLY BE SCHEDULED TO THE CPU(S) BEARING THIS RESOURCE NAME IN ITS QSE EXAMPLE: SYSTEM # RESOURCES ATTACHED ________ __________________ 1 DUALD,IMS 2 3525 3 IMS,TSO,NOINQ //BSPROUT JOB (,,7551,429),'TEST RESOURCE',MSGLEVEL=(1,1),CLASS=A /*ROUTE XEQ IMS //S1 EXEC PGM=IEFBR14 THIS JOB WILL BE SCHEDULED TO EITHER SYSTEM #1 OR SYSTEM #3 THE $DC COMMAND IS USED TO DISPLAY THOSE JOBS WHICH HAVE USED THE /*ROUTE XEQ RESOURCE CONTROL CARD AND NO CPUS HAVE THAT RESOURCE NAME ATTACHED.... FOR EXAMPLE, USING THE ABOVE LIST, IF A JOB WERE SUBMITTED WITH A /*ROUTE XEQ SCANNER CONTROL CARD, THE JOB WOULD NEVER EXECUTE NO MATTER HOW MANY INITIATORS WERE AVAILABLE UNTIL A SYSTEM IN THE COMPLEX WOULD ISSUE A $QA,SCANNER. THIS WOULD BE DETECTABLE BY ISSUING A $DC COMMAND WHICH WOULD DISPLAY THOSE JOBS WAITING FOR RESOURCE NAMES. THE $DR COMMAND WILL LIST THE RESOURCE ATTACHED TO EACH CPU. EXAMPLE $DR NO OPERANDS DEFAULTS THIS CPU $DR,&SID LIST SPECIFIC CPU RESOURCES. OTHER /*ROUTE CONTROL CARD FORMATS......... /*ROUTE XEQ HERE JOB WILL BE SCHEDULED FOR EXECUTION ON THE CPU WHICH READ THE JCL. (CONTROLLING THE CARD READER) /*ROUTE XEQ CPUX (WHERE X IS A NUMBER FROM 1 TO 7 ) JOB WILL BE SCHEDULE TO THE CPU NUMBER SPECIFIED BY COMPARING ALL CPU ID'S IN THE QSE. --------------------------------------------------------------- /*CNTL CARDS................ THIS FEATURE PROVIDES THE ABILITY TO SINGLE-THREAD JOBS THROUGH EXECUTION WHICH NEED A DEVICE OF WHICH THERE IS ONLY ONE AND MUST BE USED SERIALLY. SOME EXAMPLES WOULD BE THE 3525, DUALD DENSITY DRIVE AND THE OCR SCANNER. BY USING THE /*CNTL CARD, YOU CAN DEFINE A RESOURCE NAME THAT YOU NEED EXCLUSIVE CONTROL OF. IF ANY OTHER JOBS COME INTO THE SYSTEM WITH THE SAME CONTROL NAME, THEY WILL NOT EXECUTE SIMULTANEOUSLY ON THE SAME OR OTHER CPUS IN THE COMPLEX. THIS PROVIDES BETTER CONTROL OVER THE RESOURCES WE HAVE THAT MUST BE USED SERIALLY. THIS DOES NOT AFFECT JOBS RUNNING WITHOUT THE /*CNTL CARD OR RUNNING IN A SYSTEM WITHOUT SHARED SPOOL. THE FORMAT FOR RESURCE CONTROL IS : /*CNTL RESOURCE,EXC OR /*CNTL RESOURCE,SHR (DEFAULT SHR) USERS MAY ALSO PROTECT DATASETS FROM BEING BEING UPDATED BY DIFFERENT JOBS ON THE SAME OR DIFFERENT CPUS BY USING THE /*CNTL CARD. EACH /*CNTL CARD MAY HAVE A 1 TO 8 CHARACTER CONTROL NAME AND AN EXC OR SHR SPECIFICATION. JOBS WITH THE SAME CNTROL NAME WILL NOT EXECUTE SIMUTANEOUSLY IF ONE OF THE JOBS HAS AN EXC CONTROL SPECIFICATION. JOBS WITH SHR MAY EXECUTE SIMUTANEOUSLY ON ANY CPU. EXAMPLES: //JOB1 JOB /*CNTL MASTER,EXC //JOB2 JOB /*CNTL MASTER,SHR IN THE ABOVE EXAMPLE, WHICHEVER JOB BEGAN EXECUTION FIRST, WOULD LOCKOUT THE OTHER JOB FROM BEGINNING UNTIL IT HAS COMPLETED. //JOB1 JOB /*CNTL MASTER,SHR //JOB2 JOB /*CNTL MASTER //JOB3 JOB /*CNTL MASTER,SHR IN THE ABOVE EXAMPLE, ALL 3 JOBS COULD RUN SIMULTANEOUSLY AS THEY ALL SPECIFY THE SHR OPTION. ________________________________________________________________ BEFORE AND AFTER CONTROL CARDS FORMAT : /*BEFORE JOB1 /*AFTER JOB1 PROVIDES A MEANS TO SCHEDULE JOBS BEFORE OR AFTER ANOTHER. FOLLOWS JOB CARD OR ANY OTHER JES CONTROL CARDS (ROUTE - CNTL ). IF THE BEFORE OR AFTER JOBNAME IS NOT IN THE JOBQ, THERE IS NO ACTION TAKEN ON PREVENTING THE JOB FROM BEGINNING. EXAMPLE : /*PRIORITY 13 //BSPTEST JOB (,,7551,429),RUSBASAN,MSGLEVEL=(1,1),CLASS=A /*ROUTE XEQ MSS /*AFTER BSPFIRST //S1 EXEC PGM=IEFBR14 /* /*PRIORITY 2 //BSPFIRST JOB (,,7551,429),RUSBASAN,MSGLEVEL=(1,1),CLASS=A /*ROUTE XEQ CPU2 /*CNTL DUALD,EXC //SA EXEC PGM=IEFBR14 /* IN THE ABOVE EXAMPLE, JOB BSPTEST WOULD NOT EXECUTE UNTIL JOB BSPFIRST HAS FINISHED EXECUTION, EVEN THOUGH BSPTEST HAS A HIGHER PRIORITY. ******************************************************************** ******************************************************************** EXAMPLES OF ALLOWABLE -MULTI- CONTROL AND ROUTE CARDS COMBINATIONS COMBINATION 1. ** ONE AFTER CARD ** ** ONE BEFORE CARD ** ** NONE TO TWO CNTL CARDS ** /*AFTER JOBNAME /*BEFORE JOBNAME /*CNTL NAME,DISP /*CNTL NAME,DISP COMBINATION 2. ** ONE AFTER CARD ** ** NONE TO THREE CNTL CARDS ** /*AFTER JOBNAME /*CNTL NAME,DISP /*CNTL NAME,DISP /*CNTL NAME,DISP COMBINATION 3. ** ONE BEFORE CARD ** ** NONE TO THREE CNTL CARDS ** /*BEFORE JOBNAME /*CNTL NAME,DISP /*CNTL NAME,DISP /*CNTL NAME,DISP COMBINATION 4. ** ONE TO FOUR CNTL CARD ** /*CNTL NAME,DISP /*CNTL NAME,DISP /*CNTL NAME,DISP /*CNTL NAME,DISP ***************************************************************** SSSS U U 2222 555555 S S U U 2 2 5 S U U 2 5 SSSS U U 2 55555 S U U 2 5 S S U U 2 5 5 SSSS UUUU 222222 5555 ***************************************************************** * * * MELLON BANK N.A. SHARED SPOOL FOR JES2 REL 4.1 (SU25) * THIS CODE HAS BEEN INSTALLED ON PID TAPE 7905 * DUAL CHECKPOINT CODE FOR 3.7............... * * CHANGES FROM STANDARD JES2 AND HASP....... * * $ HASP $DN AND DQ COMMANDS. * MELLON MODS NO LONGER DELETE THE ORIGINAL IBM * SOURCE CODE. THE MELLON DN AND DQ COMMANDS ARE ADDED * TO HASPCOMM. THE IBM DN AND DQ LABELS ARE RENAMED TO * AVOID ASSEMBLY ERRORS................................. * * * $ HASP $OJ IS JES2 $QJ * * $QJ WILL WORK FOR JOBS IN ALL STAGES.... * JOBS EXECUTING OR AWAITING EXECUTION WILL SHOW JES2 * CONTROL CARDS...ROUTE..CNTL..ETC. * * JOBS PRINTING OR AWAITING PRINT WILL SHOW # OF LINES TO * PRINT AND OR CARDS TO PUNCH. * * * $ THE FOLLOWING COMMAND WILL CAUSE JES TO ABEND 0C1 * * $DN,0,$0C1 * * WE HAVE FOUND THIS VERY USEFUL IN TESTING JES MODS * OR GETTING JES2 OUT TO BRING UP A NEW VERSION WITHOUT IPL. * * * $ HASPCOMM, STATEMENT NOS. K1426183 K1426184 AND K1426185. * THEY SHOULD BE CHANGED TO FIT YOUR $NUMRJE VALUE * (OR $NUMRJE+1) AND SHOULD BE CHANGED IF YOU ALSO * CHANGE $NUMRJE LATER ON DOWN THE ROAD. * * * * $ BECAUSE OF ADDRESSABILITY REASONS..$QGET IS NOW A SEPARATE * CSECT IN HASPNUC. * * * * $ THE FOLLOWING MODULES, MACROS, AND CONTROL BLOCK ARE CHANGED. * * $HCT, $JQE, $QGET, $QSE, $RDRWORK......... * HASPCOMM, HASPNUC, HASPRDR................ * * * $ THE ASSEMBLER COPY FUNCTION IS ALSO USED TO INTERGRATE SOME * OF THE MODS INTO HASP SOURCE CODE AT ASSEMBLY TIME. THIS IS * DONE TO REDUCE MELLON MOD EXPOSURE TO IBM UPDATES. THE * FOLLOWING SOURCE MEMBERS WILL BE ADDED TO HASPSRC. * * $RESTABL, MBDNDQ, MBDB, MBQJ, MBMULT, MBQGET..... * ................................................. * * * $ TAPE FORMAT IS: * * DOCUMENTATION RECFM=FB * LRECL=80 * BLKSIZE=3200 * DEN=3 (1600 BPI) * LABEL=(,NL) * VOL=SER=SU25TP * * MODIFICATIONS RECFM=FB * LRECL=80 * BLKSIZE=3200 * DEN=3 (1600 BPI) * LABEL=(2,NL) * VOL=SER=SU25TP * * * $ PLEASE DIRECT ANY INQUIRIES, PROBLEMS ETC TO: * * DAVID SCHAEFER MELLON BANK N.A. * ROOM 424 * MELLON SQUARE * PITTSBURGH, PA. 15230 * PHONE (412) 232-4203 * * DON GREB MELLON BANK N.A. * PHONE (412) 232-5985 * * * * ***************************************************************** ***************************************************************** GGGG OOOO OOOO DDDD L U U CCCC K K G G O O O O D D L U U C C K K G O O O O D D L U U C K K G GGG O O O O D D L U U C KKK G G O O O O D D L U U C K K G G O O O O D D L U U C C K K GGGG OOOO OOOO DDDDD LLLLLL UUUU CCCC K K * *