//SY20ZR13 JOB 1,TMVT801,CLASS=A,MSGLEVEL=(1,1) //* //* PROBLEM DESCRIPTION(S): //* TMVT801 - //* Modify IEAANIP (NIP stage 2 sysgen macro) to: //* * Increase base master scheduler region size //* from 12K to 18K //* * Restrict SMARTNIP processing to tape and DASD //* * Skip location 80 timer working check //* * Fix initialization problem with 16MB of storage //* * Force default if "RAM=" not specified at IPL //* to be "RAM=00,11" instead of "RAM=00" (read both //* IEAIGG00 and IEAIGG11 for resident routine names). //* //* COMPONENT: 360S-CI505-EBB2218 //* //* APARS FIXED: TMVT801 //* //* SPECIAL CONDITIONS: //* IOGEN: An I/O generation is required for implementation //* of the functionality added by this usermod. //* GENTYPE = IO //* //* COMMENTS: //* LAST CHANGE: 2007/08/06 //* //* THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD: //* //* MACROS //* IEAANIP //* //TMVT801 EXEC PGM=IEBUPDTE,REGION=128K,PARM=MOD //SYSPRINT DD SYSOUT=A //SYSUT1 DD DISP=SHR,DSN=SYS1.MODGEN2 //SYSUT2 DD DISP=SHR,DSN=SYS1.MODGEN2 //SYSIN DD DATA ./ CHANGE NAME=IEAANIP IEAMSLNT EQU 9 - Master scheduler region @TMVT801 02604020 * base size (9 * 2K = 18K) @TMVT801 02605020 CLI UCBTYP+2(R9),X80 - Is device tape? @TMVT801 12490200 BNE IEAUCB1 - Skip SMARTNIP if not tape @TMVT801 12490400 NOP TMRNOPR - Skip timer-not-working code @TMVT801 14154020 LTR 9,9 - WRAPAROUND? @TMVT801 14345020 BC 8,IEASETKX - YES, 16 MB DONE @TMVT801 14347020 IEASETKX EQU * - @TMVT801 14360020 BNE IEASOFIX - Yes, suffixes supplied @TMVT801 43358020 MVC IEARAMLS(4),IEARMDEF - Else set default 00,11 @TMVT801 43359299 B IEASOFIX - Go process @TMVT801 43359499 IEARMDEF DC C'0011' - Default RAM suffixes @TMVT801 43359699 ./ ENDUP /* //