252  A Guide to JES3 to JES2 Migration */*******************************************************************/* */* VALIDATE IF THE JOB IS USING THE MAXIMUM OF VOLUMES ALLOWED */* */*******************************************************************/* NEW_DAS_ENTRY EQU * CLC SPOOL_VOL_SET,#FENCE_VOLUMES BNL END_DAS_CHAIN TM DASFLAG,DASACTIV BNO NEXT_DAS_ENTRY */*******************************************************************/* */* VERIFY IF THE CURRENT VOLUME IS ALREADY IN USE BY JOB */* */*******************************************************************/* L R1,SPOOL_MASK_ADDRESS XR R15,R15 IC R15,BITMASK EX R15,TEST_BITMASK BO NEXT_DAS_ENTRY */*******************************************************************/* */* VERIFY IF THE CURRENT VOLUME HAVE SPACE TO BE USED BY JOB */* */*******************************************************************/* L R1,SPOOL_AVAIL_ADDRESS XR R15,R15 IC R15,BITMASK EX R15,TEST_BITMASK BNO NEXT_DAS_ENTRY */*******************************************************************/* */* VERIFY IF THE CURRENT VOLUME CAN BE USED BY JOB */* */*******************************************************************/* MVC SPOOL_VOLUME,DASVOLID PERFORM CHECK_VOLUME_ACCESS,R PERFORM RACF_CHECK_AUTH,R LTR R15,R15 BNZ NEXT_DAS_ENTRY */*******************************************************************/* */* ADD THE SPOOL VOLUME AS A VOLUME ALLOWED TO BE ALLOCATED */* */*******************************************************************/* ADD_SPOOL_VOLUME EQU * XR R1,R1 IC R1,SPOOL_VOL_SET LA R1,1(R1) STC R1,SPOOL_VOL_SET OI FLAG,FLAG_SPOOL */*******************************************************************/* */* SET A NEW BIT ON ALLOWED BITMASK FOR THE JOB */* */*******************************************************************/* L R1,SPOOL_MASK_ADDRESS OC 0(L'BITMASK,R1),BITMASK */*******************************************************************/* */* SEND MESSAGE TO CONSOLE WITH SPOOL VOLUME ADDED TO JOB */* */*******************************************************************/* GETMSG 3,WTO_MESSAGE,MESSAGES MVC WTO_MESSAGE+MSG3_VOLUME-MSG3(L'SPOOL_VOLUME),SPOOL_VOLUME MVC WTO_MESSAGE+MSG3_JOBNAME-MSG3(L'JOB_NAME),JOB_NAME MVC WTO_MESSAGE+MSG3_JOBTYPE-MSG3(L'RACF_JOB_TYPE),RACF_JOB_TYPE MVC WTO_MESSAGE+MSG3_VOLTYPE-MSG3(L'SPOOL_VOL_TYPE),SPOOL_VOL_TYPE PERFORM SEND_WTO,R