Previous Topic: Enabled IBM OTENext Topic: EOJ_OK Support for the Multi-User Facility


SKIPLOAD Macro

The SKIPLOAD macro allows you to avoid the unnecessary attempted loads of non-existent URTs during startup and initialization only. The following is an example of coding SKIPLOAD macros in the DBCVTPR:

DBCVTPR USERS=3,MULTUSE=YES,MSTOPR=***,                  
      PREFIX=DBURT,MAXURTS=500,SCROLL=MANUAL,DYNPPT=YES, 
      DEFER=(70-100),SYSV=YES,INTRSIZE=50000000,         
      TRACE=(ON,1000),AUXTRCE=(ON,DCAX,DCBX),OPENAPI=YES,
      AUTO=(001,010,014,020,37,60-69),SYSRCV=NO          
DBCSID SIDNAME=DBDVM5,USERS=3,CONNECT=AUTO               
DBCSID SIDNAME=DBDVMS,USERS=6,CONNECT=AUTO               
DBCSID SIDNAME=DBDVMT,USERS=6,CONNECT=AUTO               
DBCSID SIDNAME=PRODMU2,USERS=3,CONNECT=DEFER             
DBCSID SIDNAME=DBDVMR,USERS=6,CONNECT=AUTO               
DBCSID SIDNAME=MUFW,USERS=6,CONNECT=AUTO                 
DBCSID SIDNAME=MUF1,USERS=3,CONNECT=DEFER                
DBCSID SIDNAME=MUF6,USERS=3,CONNECT=DEFER                
DBCSID SIDNAME=MUF7,USERS=3,CONNECT=DEFER                
SKIPLOAD SKIP_LOAD_FROM=4,SKIP_LOAD_TO=9                 
SKIPLOAD SKIP_LOAD_FROM=70,SKIP_LOAD_TO=95               
SKIPLOAD SKIP_LOAD_FROM=310,SKIP_LOAD_TO=399             
SKIPLOAD SKIP_LOAD_FROM=410,SKIP_LOAD_TO=499             

Added to the DBOC URT is a status for the URT’s that have been specified to be SKIPLOAD.

DBOC INQ=??? DELIM &

URT 0001(STD UNOPENED AUTO ) PRTY=07 TXNUD URT 0002(STD OPEN ) ACTIVE=000 RESRVD=000 PRTY=07 TXNUD URT 0003(STD UNOPENED ) OPEN FAILED RC46 046 PRTY=07 TXNUD=NO URT 0004-0009 INVALID, DISABLED, NOT LINK EDITED OR SKIPLOAD URT 0010(STD UNOPENED AUTO ) PRTY=07 TXNUD URT 0011-0013 HAVE NO CSD ENTRIES URT 0014(STD UNOPENED AUTO ) PRTY=07 TXNUD URT 0015 HAS NO CSD ENTRY URT 0016(STD UNOPENED ) OPEN FAILED RC02 052 PRTY=07 TXNUD=NO URT 0017-0019 HAVE NO CSD ENTRIES URT 0020(SQL UNOPENED AUTO ) PRTY=07 TXNUD URT 0021-0024 HAVE NO CSD ENTRIES URT 0025 INVALID, DISABLED, NOT LINK EDITED OR SKIPLOAD URT 0026-0034 HAVE NO CSD ENTRIES URT 0035-0037 INVALID, DISABLED, NOT LINK EDITED OR SKIPLOAD URT 0038-0049 HAVE NO CSD ENTRIES URT 0050-0052 INVALID, DISABLED, NOT LINK EDITED OR SKIPLOAD URT 0053-0059 HAVE NO CSD ENTRIES URT 0060(STD UNOPENED AUTO ) PRTY=07 TXNUD=NO URT 0061(STD UNOPENED AUTO ) PRTY=07 TXNUD

ENTER = NEXT PAGE CLEAR = END TRANS