-- ------------------------------------------------------------------- -- Upload this file to your Host and modify it to customize to your -- -- environment. -- -- You must to install DB2I2 V8 to run these ED macro in DB2I2 -- -- online mode. Select the desired lines with SS - SS and PASS=M -- -- command option to process them. -- -- Example: -- -- ED 'my.output.file(mymem)' PASS=M -- -- Use the following Db2I2 command line tO run these ED macro -- -- in batch mode in DB2I2 V7: -- -- ED 'my.output.file(mymem)' MACRO(IDD=LINEOBJ) -- -- and have desired macro lines under //LINEOBJ DD -- ---------------------------------------------------------------------- NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJCS)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !SCHEMA! NEW SCHEMA C '!SCHEMA!' '{SCHEMA}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL --******************************************************************** -- NAME = DSNTEJCS -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION - COMMON SAMPLE TABLES -- FUNCTION = USE THIS JCL TO CREATE AND POPULATE THE DB2 UDB COMMON -- SAMPLE TABLES WITHIN A USER-SPECIFIED SCHEMA. -- NOTES = IF THE TABLES ALREADY EXIST WITHIN THE SCHEMA, THEY -- WILL BE DROPPED AND RECREATED -- DEPENDENCIES = -- (1) YOUR PRIMARY AUTHORIZATION ID MUST BE AUTHORIZED TO USE THE -- SPECIFIED SCHEMA -- (2) THE SPECIFIED SCHEMA REQUIRES THE FOLLOWING AUTHORITIES: -- - CREATETAB, CREATETS ON DATABASE DSNDB04 -- - USE OF BUFFERPOOL BP0 -- - USE OF STOGROUP SYSDEFLT -- - USE OF TABLESPACE DSNDB04.SYSDEFLT -- - CREATEALIAS -- - DROP ON DATABASE DSNDB04 -- (3) PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (A) ADD A VALID JOB CARD -- (B) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- - '!CEE!' TO THE PREFIX OF YOUR TARGET LIBRARY FOR -- IBM LANGUAGE ENVIRONMENT -- - 'DSN!!0' TO THE PREFIX OF YOUR TARGET LIBRARY FOR DB2 -- - THE SUBSYSTEM NAME '!DSN!' TO THE NAME OF YOUR DB2 -- - !SCHEMA! TO THE SCHEMA WITHIN WHICH YOU WISH TO CREATE -- A COPY OF THE DB2 COMMON SAMPLE TABLES --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJMQ)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !SCHEMA! TO DB2MQ1C FOR SINGLE-PHASE COMMIT BY MQSERIES -- TO DB2MQ2C FOR TWO-PHASE COMMIT BY RRS C '!SCHEMA!' '{SCHEMA}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- THLQUAL HIGH LEVEL QUALIFIER OF THE MQSERIES TARGET LIBRARY C 'THLQUAL' '{THLQUAL}' ALL -- QUEUEMANAGER NAME OF THE QUEUE MANAGER C 'QUEUEMANAGER' '{QUEUEMANAGER}' ALL --********************************************************************* -- NAME = DSNTEJMQ -- DESCRIPTIVE NAME = VERIFY DB2 MQSERIES FUNCTIONS -- FUNCTION = THIS JCL VERIFY THE DB2 MQSERIES FUNCTIONS -- PSEUDOCODE = -- DSNTECU STEP CREATE THE LOCAL QUEUE -- DSNTEJS STEP TEST THE DB2 MQSERIES FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTEP!!' TO THE PLAN NAME FOR DSNTEP2 ON YOUR DB2 -- (C) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (D) 'THLQUAL' TO THE HIGH LEVEL QUALIFIER OF THE MQSERIES -- TARGET LIBRARY DATA SETS. -- (E) '!SCHEMA!' TO DB2MQ1C FOR SINGLE-PHASE COMMIT BY MQSERIES -- TO DB2MQ2C FOR TWO-PHASE COMMIT BY RRS -- (F) 'QUEUEMANAGER' TO THE NAME OF THE QUEUE MANAGER --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJSQ)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- THLQUAL HIGH LEVEL QUALIFIER OF THE MQSERIES TARGET LIBRARY C 'THLQUAL' '{THLQUAL}' ALL -- QUEUEMANAGER NAME OF THE QUEUE MANAGER C 'QUEUEMANAGER' '{QUEUEMANAGER}' ALL --******************************************************************** -- NAME = DSNTEJSQ -- DESCRIPTIVE NAME = CREATE NECESSARY QUEUES FOR PUB/SUB -- VERIFICATION JOB -- FUNCTION = THIS JCL CREATES NECESSARY QUEUES FOR RUNNING -- PUB/SUB VERIFICATION JOB. -- PSEUDOCODE = -- DSNTECU STEP CREATE THE FOLLOWING QUEUES : -- 1. AMT.SAMPLE.SUBSCRIBER.RECEIVER.QUEUE -- 2. SYSTEM.BROKER.DEFAULT.STREAM -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 -- (B) 'THLQUAL' TO THE HIGH LEVEL QUALIFIER OF THE MQSERIES -- TARGET LIBRARY DATA SETS. -- (C) 'QUEUEMANAGER' TO THE NAME OF THE QUEUE MANAGER --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJSV)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !SCHEMA! TO DB2MQ1C FOR SINGLE-PHASE COMMIT BY MQSERIES -- TO DB2MQ2C FOR TWO-PHASE COMMIT BY RRS C '!SCHEMA!' '{SCHEMA}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL --******************************************************************** -- NAME = DSNTEJSV -- DESCRIPTIVE NAME = VERIFY DB2 MQSERIES PUB/SUB FUNCTIONS -- FUNCTION = THIS JCL VERIFY THE DB2 MQSERIES FUNCTIONS -- PSEUDOCODE = -- DSNTEJS STEP TEST THE DB2 MQSERIES PUB/SUB FUNCTIONS -- DSNTEJC STEP TEST THE DB2 MQSERIES PUB/SUB CLOB FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTEP!!' TO THE PLAN NAME FOR DSNTEP2 ON YOUR DB2 -- (C) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 -- (D) '!SCHEMA!' TO DB2MQ1C FOR SINGLE-PHASE COMMIT BY MQSERIES -- TO DB2MQ2C FOR TWO-PHASE COMMIT BY RRS --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJWA)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL --******************************************************************** -- NAME = DSNTEJWA -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- FUNCTION = -- THIS JCL CREATES THE LOAD MODULE AND BINDS THE PLANS FOR: -- - DSNZSCH (DYNAMIC WORKLOAD COLLECTOR) -- - DSNZSCJ (DYNAMIC WORKLOAD DATA FORMATTER) -- PSEUDOCODE = -- PH0WAS01 STEP CREATE THE LOAD MODULE FOR DSNZSCH -- PH0AWS02 STEP BIND PLANS FOR DSNZSCH AND DSNZSCJ -- GRANT EXECUTE ACCESS TO PUBLIC -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE DB2 SUBSYSTEM ID -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD -- (C) 'CEE!!' TO THE PREFIX OF THE TARGET LIBRARY FOR IBM LE -- (D) 'DSN!!0' TO THE PREFIX OF THE DB2 SMP/E TARGET LIBRARY --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJWB)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- !BP! NAME OF THE BUFFERPOOL FOR THE TABLESPACE -- Q0317 TABLE WILL RESIDE. CHOOSE THE BUFFERPOOL -- ACCORDING TO THE MAXIMUM SQL STATEMENT TEXT LENGTH YOU -- ANTICIPATE FOR DYNAMIC SQL STATEMENTS: C '!BP!' '{BP}' ALL --******************************************************************** -- NAME = DSNTEJWB -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- FUNCTION = -- THIS JCL CREATES SAMPLE DATABASE DSN8DDWC, FOR DSNZSCH, THE -- SAMPLE DYNAMIC WORKLOAD COLLECTOR -- PSEUDOCODE = -- PH0WBS01 STEP DROP DSN8DDWC -- PH0WBS02 STEP CREATE DSN8DDWC -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE DB2 SUBSYSTEM ID -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD -- (C) 'DSN!!0' TO THE PREFIX OF THE DB2 SMP/E TARGET LIBRARY -- (D) '!BP!' TO THE NAME OF THE BUFFERPOOL FOR THE TABLESPACE -- Q0317 TABLE WILL RESIDE. CHOOSE THE BUFFERPOOL -- ACCORDING TO THE MAXIMUM SQL STATEMENT TEXT LENGTH YOU -- ANTICIPATE FOR DYNAMIC SQL STATEMENTS: -- BUFFERPOOL MAX LENGTH OF SQL STATEMENT TEXT -- --------------------- -------------------------------- -- 4K: BP0 - BP49 3,616 BYTES -- 8K: BP8K0 - BP8K9 7,698 BYTES -- 16K: BP16K0 - BP16K9 15,890 BYTES -- 32K: BP32K - BP32K9 32,274 BYTES --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJWC)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !N! THE NUMBER IFI READ/SYNCH CYCLES TO PERFORM C '!N!' '{N}' ALL -- !NNNNNNNN! THE NUMBER OF MICROSECONDS FOR -- DSNZSCH TO SLEEP BETWEEN CYCLES. FOR EXAMPLE, -- ENTER 00090000 TO SPECIFY A CYCLE TIME OF 90 SECONDS C '!NNNNNNNN!' '{NNNNNNNN} ALL --******************************************************************** -- NAME = DSNTEJWC -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- FUNCTION = -- THIS JCL RUNS DSNZSCH, THE SAMPLE DB2 DYNAMIC WORKLOAD -- COLLECTOR. -- PSEUDOCODE = -- PH0WCS01 STEP DELETE WORK DATA SETS -- PH0WCS02 STEP RUN DSNZSCH -- NOTES = -- (A) BEFORE RUNNING THIS JOB, VERIFY THAT: -- (1) DYNAMIC STATEMENT CACHING IS ENABLED ON YOUR SYSTEM -- (I.E. CACHEDYN=YES) -- (2) PREREQ JOBS DSNTEJWA AND DSNTEJWB HAVE COMPLETED -- SUCCESSFULLY. -- (B) PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING -- STRING AS INDICATED: -- (A) '!DSN!' TO THE DB2 SUBSYSTEM ID -- (B) 'DSN!!0' TO THE PREFIX OF THE DB2 SMP/E TARGET LIB -- (C) 'CEE!!' TO THE PREFIX OF THE IBM LE SMP/E TARGET LIB -- (D) '!N!' TO THE NUMBER IFI READ/SYNCH CYCLES TO PERFORM -- (E) '!NNNNNNNN!' TO THE NUMBER OF MICROSECONDS FOR -- DSNZSCH TO SLEEP BETWEEN CYCLES. FOR EXAMPLE, -- ENTER 00090000 TO SPECIFY A CYCLE TIME OF 90 SECONDS --******************************************************************** --SSID=!DSN! /* SUBSYSTEM ID */ --REPS=!N! /* # OF REPETITIONS OF READ SYNCH COMMAND */ --WAITTIME=!NNNNNNNN! /* # OF MICROSECONDS BETWEEN READS REPETITIONS*/ NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJWD)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- !BP! NAME OF THE BUFFERPOOL FOR THE TABLESPACE -- WHERE THE HOST_WORKLOAD TABLE WILL RESIDE. CHOOSE -- THE BUFFERPOOL ACCORDING TO THE MAXIMUM SQL STATEMENT -- TEXT LENGTH YOU ANTICIPATE FOR DYNAMIC SQL STATEMENTS: C '!BP!' '{BP}' ALL --******************************************************************** -- NAME = DSNTEJWD -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- FUNCTION = -- THIS JCL CREATES SAMPLE DATABASE DSN8DDWF, FOR DSNZSCJ, THE -- SAMPLE DYNAMIC WORKLOAD FORMATTER -- PSEUDOCODE = -- PH0WBS01 STEP DROP DSN8DDWF -- PH0WBS02 STEP CREATE DSN8DDWF -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE DB2 SUBSYSTEM ID -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD -- (C) 'DSN!!0' TO THE PREFIX OF THE DB2 SMP/E TARGET LIB -- (D) '!BP!' TO THE NAME OF THE BUFFERPOOL FOR THE TABLESPACE -- WHERE THE HOST_WORKLOAD TABLE WILL RESIDE. CHOOSE -- THE BUFFERPOOL ACCORDING TO THE MAXIMUM SQL STATEMENT -- TEXT LENGTH YOU ANTICIPATE FOR DYNAMIC SQL STATEMENTS: -- BUFFERPOOL MAX LENGTH OF SQL STATEMENT TEXT -- --------------------- -------------------------------- -- 4K: BP0 - BP49 3,616 BYTES -- 8K: BP8K0 - BP8K9 7,698 BYTES -- 16K: BP16K0 - BP16K9 15,890 BYTES -- 32K: BP32K - BP32K9 32,274 BYTES --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJWF)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !WKLDNAME! NAME USED TO GROUP THE WORKLOAD C '!WKLDNAME!' '{WKLDNAME}' ALL --******************************************************************** -- NAME = DSNTEJWF -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- FUNCTION = -- THIS JCL RUNS DSNZSCJ, THE SAMPLE DB2 DYNAMIC WORKLOAD -- FORMATTER. -- PSEUDOCODE = -- PH0WFS01 STEP RUN DSNZSCH -- NOTES = -- (A) BEFORE RUNNING THIS JOB, VERIFY THAT PREREQ JOBS DSNTEJWC AND -- DSNTEJWD HAVE COMPLETED SUCCESSFULLY. -- (B) PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING -- STRING AS INDICATED: -- (A) '!DSN!' TO THE DB2 SUBSYSTEM ID -- (B) 'DSN!!0' TO THE PREFIX OF THE DB2 SMP/E TARGET LIB -- (C) 'CEE!!' TO THE PREFIX OF THE IBM LE SMP/E TARGET LIB -- (D) '!WKLDNAME!' TO THE NAME USED TO GROUP THE WORKLOAD --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJX1)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- !SYS1! PREFIX OF THE C-LANGUAGE HEADER DATASET C '!SYS1!' '{SYS1}' ALL -- !SYS11! PREFIX OF THE LANGUAGE ENVIRONMENT LIB C '!SYS11!' '{SYS11}' ALL -- !XMLEXTENDERLOAD! NAME OF THE XMLEXTENDER LIBRARY -- IT SHOULD BE PREFIX.DXX.LOAD C '!XMLEXTENDERLOAD!' '{XMLEXTENDERLOAD}' ALL -- !XMLEXTENDERHEADER! NAME OF XML EXTENDER HEADER FILE DATA SET C '!XMLEXTENDERHEADER!' '{XMLEXTENDERHEADER}' ALL -- !DBRMLIB! NAME OF THE DATASET THAT WILL CONTAIN DBRM -- OF THE APPLICATION; IT CAN BE PREFIX.DBRMLIB.DATA C '!DBRMLIB!' '{DBRMLIB}' ALL -- !RUNLIBLOAD' NAME OF THE DATASET THAT WILL CONTAIN THE LOAD -- MODULE OF THE APPLICATION C '!RUNLIBLOAD!' '{RUNLIBLOAD}' ALL -- !P! 'ONE' TO TEST FOR ONE-PHASE COMMIT OR -- 'TWO' TO TEST FOR TWO-PHASE COMMIT C '!P!' '{P}' ALL --*********************************************************************0 -- NAME = DSNTEJX1 * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION FOR * -- XML MQSERIES STORED PROCEDURES. * -- FUNCTION = THIS JOB USE TO BUILD AN APPLICATION TO TEST -- XML MQSERIES STORED PROCEDURES * -- (SHRED MQXML AND INSERT MQXML) * -- !!!! IMPORTANT !!!! * -- IT IS A CASE SENSITIVE FILE. EDIT IT USING 'CAPS OFF' * -- NOTES = * -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM* -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (C) '!SYS1!' TO PREFIX OF THE C-LANGUAGE HEADER DATASET -- (D) '!SYS11!' TO THE PREFIX OF THE LANGUAGE ENVIRONMENT LIB -- (E) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (F) '!XMLEXTENDERLOAD!' TO THE XMLEXTENDER LIBRARY -- IT SHOULD BE PREFIX.DXX.LOAD -- (G) '!XMLEXTENDERHEADER!' TO -- THE XML EXTENDER HEADER FILE DATA SET -- (H) '!DBRMLIB!' TO THE DATASET THAT WILL CONTAIN DBRM * -- OF THE APPLICATION; IT CAN BE PREFIX.DBRMLIB.DATA * -- (I) '!RUNLIBLOAD!' TO THE DATASET THAT WILL CONTAIN THE LOAD -- MODULE OF THE APPLICATION -- (J) '!P!' TO 'ONE' TO TEST FOR ONE-PHASE COMMIT OR -- TO 'TWO' TO TEST FOR TWO-PHASE COMMIT --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJX2)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- !SYS1! PREFIX OF THE C-LANGUAGE HEADER DATASET C '!SYS1!' '{SYS1}' ALL -- !SYS11! PREFIX OF THE LANGUAGE ENVIRONMENT LIB C '!SYS11!' '{SYS11}' ALL -- !XMLEXTENDERLOAD! NAME OF THE XMLEXTENDER LIBRARY -- IT SHOULD BE PREFIX.DXX.LOAD C '!XMLEXTENDERLOAD!' '{XMLEXTENDERLOAD}' ALL -- !XMLEXTENDERHEADER! NAME OF XML EXTENDER HEADER FILE DATA SET C '!XMLEXTENDERHEADER!' '{XMLEXTENDERHEADER}' ALL -- !DBRMLIB! NAME OF THE DATASET THAT WILL CONTAIN DBRM -- OF THE APPLICATION; IT CAN BE PREFIX.DBRMLIB.DATA C '!DBRMLIB!' '{DBRMLIB}' ALL -- !RUNLIBLOAD' NAME OF THE DATASET THAT WILL CONTAIN THE LOAD -- MODULE OF THE APPLICATION C '!RUNLIBLOAD!' '{RUNLIBLOAD}' ALL -- !P! 'ONE' TO TEST FOR ONE-PHASE COMMIT OR -- 'TWO' TO TEST FOR TWO-PHASE COMMIT C '!P!' '{P}' ALL --*********************************************************************0 -- NAME = DSNTEJX2 * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION FOR * -- XML MQSERIES STORED PROCEDURES. * -- FUNCTION = THIS JOB USE TO BUILD AN APPLICATION TO TEST -- XML MQSERIES STORED PROCEDURES * -- (GENERATE MQXML AND RETRIEVE MQXML) * -- NOTES = * -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM* -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (C) '!SYS1!' TO PREFIX OF THE C-LANGUAGE HEADER DATASET -- (D) '!SYS11!' TO THE PREFIX OF THE LANGUAGE ENVIRONMENT LIB -- (E) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (F) '!XMLEXTENDERLOAD!' TO THE XMLEXTENDER LIBRARY * -- IT SHOULD BE PREFIX.DXX.LOAD * -- (G) '!XMLEXTENDERHEADER!' TO -- THE XML EXTENDER HEADER FILE DATA SET -- (H) '!DBRMLIB!' TO THE DATASET THAT WILL CONTAIN DBRM * -- OF THE APPLICATION; IT CAN BE PREFIX.DBRMLIB.DATA * -- (I) '!RUNLIBLOAD!' TO THE DATASET THAT WILL CONTAIN THE LOAD -- MODULE OF THE APPLICATION -- (J) '!P!' TO 'ONE' TO TEST FOR ONE-PHASE COMMIT OR -- TO 'TWO' TO TEST FOR TWO-PHASE COMMIT --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJX3)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- !DMQXML! DMQXML1C FOR SINGLE-PHASE COMMIT BY MQSERIE -- DMQXML2C FOR TWO-PHASE COMMIT BY RRS C 'DMQXML!' '{DMQXML}' ALL --******************************************************************** -- NAME = DSNTEJX3 -- DESCRIPTIVE NAME = VERIFY DB2 MQSERIES XML FUNCTIONS -- FUNCTION = THIS JCL VERIFY THE DB2 MQSERIES XML FUNCTIONS -- PSEUDOCODE = -- DSNTJS1 STEP TEST THE DB2 MQSERIES XML PUBLISH FUNCTIONS -- MAKE SURE TO START THE MQ BROKER FIRST, -- OTHERWISE MESSAGES PUBLISHED WILL STAY IN -- PUBLISHER'S QUEUE. RUN THIS STEP ONLY WHEN YOU -- HAVE MQ XML PUBISHING FUNCTIONS ENABLED. IF NOT -- USE RESTART=DSNTJS2 PARAMETER IN THE JOB CARD -- TO BYPASS THIS STEP. -- DSNTJS2 STEP COPY SAMPLE FILE FROM MVS TO HFS. -- DSNTJS3 STEP TEST THE DB2 MQSERIES XML FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTEP!!' TO THE PLAN NAME FOR DSNTEP2 ON YOUR DB2 -- (C) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (D) '!DMQXML!' TO DMQXML1C FOR SINGLE-PHASE COMMIT BY MQSERIE -- TO DMQXML2C FOR TWO-PHASE COMMIT BY RRS -- TEST DESCRIPTION --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ0)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL --*********************************************************************0 -- NAME = DSNTEJ0 * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 0 (LOCAL SYSTEM) * -- FUNCTION = THIS JCL PERFORMS THE PHASE 0 CLEANUP FOR THE SAMPLE * -- APPLICATIONS ON A LOCAL DB2 SYSTEM (A DB2 SYSTEM * -- WHICH CONTAINS THE ACTUAL SAMPLE TABLES). * -- NOTICE = * -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE * -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF * -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ1 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 1 (LOCAL SITE ONLY) -- FUNCTION = THIS JCL PERFORMS THE PHASE 1 SETUP FOR THE SAMPLE -- APPLICATIONS ON A LOCAL DB2 SYSTEM (A SYSTEM WHICH -- WILL CONTAIN THE ACTUAL SAMPLE TABLES). -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1I)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- !CSF! PREFIX OF TARGET LIBRARY FOR THE ICSF PROGRAM PRODUCT. C '!CSF!' '{CSF}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ1I -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION - ICSF / CRYPTO -- PHASE 1 (LOCAL SITE ONLY) -- FUNCTION = THIS JCL DOES THE FOLLOWING: -- - PREPARES A SAMPLE DB2 EDITPROC, DSN8ICSF, FOR ICSF -- (INTEGRATED CRYPTOGRAPHIC SERVICE FACILITY). THE -- DSN8ICSF EDITPROC CAN THEN BE USED TO ENCRYPT AND -- DECRYPT DATA STORED IN DB2. -- - CREATES A SAMPLE DATABASE, TABLESPACE, AND TABLE. -- THE TABLE USES THE ICSF EDITPROC -- - LOADS THE TABLE WITH DATA (ENCRYPTION) -- - DISPLAYS DATA IN THE TABLE WITH DATA (DECRYPTION) -- IN EXTERNAL AND HEX FORMATS. -- RESTRICTIONS = -- DO NOT RUN THIS JOB UNLESS YOUR SYSTEM HAS THE -- ICSF HARDWARE AND SOFTWARE SETUP. -- DEPENDENCIES = -- (1) RUN THIS JOB ONLY AFTER CREATING DSNTEP2, BY -- RUNNING EITHER JOB DSNTEJ1L OR JOB DSNTEJ1P -- (2) BEFORE RUNNING THIS JOB, LOCATE AND CHANGE THE -- STRING !CSF! TO THE PREFIX OF YOUR TARGET LIBRARY -- FOR THE ICSF PROGRAM PRODUCT. -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL -- PSEUDOCODE = -- PH01IS01 STEP ASSEMBLE THE ICSF EDITPROC -- PH01IS02 STEP LINKEDIT THE ICSF EDITPROC -- PH01IS03 STEP DROP OBJECTS CREATED BY PRIOR RUNS OF THIS JOB -- PH01IS04 STEP CREATE SAMPLE DATABASE OBJECTS FOR ICSF DEMO -- PH01IS05 STEP LOAD/ENCRYPT THE SAMPLE TABLE -- PH01IS06 STEP DISPLAY/DECRYPT THE SAMPLE DATA IN SOURCE -- AND HEX FORMATS --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1L)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ1L * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 1 * -- L/E * -- FUNCTION = THIS JCL CREATES THE DSNTEP2 LOAD MODULE FROM THE * -- SHIPPED OBJECT DECK, DSNTEP2L, AND LINKS THE * -- PACKAGE AND PLAN FOR THIS VERSION OF DSNTEP2. * -- = THIS JCL ALSO CREATES THE DSNTEP4 LOAD MODULE FROM * -- THE SHIPPED OBJECT DECK, DSNTEP4L, AND LINKS THE * -- PACKAGE AND PLAN FOR THIS VERSION OF DSNTEP4. * -- THIS JOB IS RUN AFTER DSNTEJ1. * -- NOTE: IF YOU RUN THIS JOB, YOU DO NOT NEED TO RUN THE SAMPLE * -- JOB DSNTEJ1P EXCEPT TO PREPARE CUSTOMIZED VERSIONS OF * -- THE DSNTEP2 AND DSNTEP4 SOURCE CODE (YOU NEED A PL/I * -- COMPILER TO RUN DSNTEJ1P SUCCESSFULLY). * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ1P * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 1 * -- PL/I * -- FUNCTION = THIS JCL PERFORMS THE PHASE 1 SETUP FOR SAMPLE * -- APPLICATIONS AT SITES WITH PL/I. * -- THIS JOB IS RUN AFTER DSNTEJ1. * -- 03/08/02 - ADD COMPILER OPTION TO SUPPORT PL/I POINTERADD * -- FUNCTION. ADD STACK(,,ANY) RUN TIME OPTION TO * -- ALLOW PROGRAM VARIABLES TO BE STORED ABOVE THE * -- 16M LINE. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1S)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- DSNHSP!! SCHEMA PROCESSOR PLAN C 'DSNHSP!!' '{DSNHSP}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ1S * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- FUNCTION = THIS JCL BINDS AND RUNS THE SCHEMA PROCESSOR. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1T)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ1T * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 1 (LOCAL SITE ONLY) * -- FUNCTION = THIS JCL LOADS THE SYSIBM.SYSSTRINGS TABLE WITH ROWS * -- WHICH DESCRIBE CODE PAGE CONVERSION FROM RS/6000 TO * -- DB2. * -- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -- * NOTE: DO -NOT- RUN THIS JOB AS PART OF THE DB2 INSTALLATION * * -- * VERIFICATION PROCESS (IVP). USE IT -ONLY- TO ADD * * -- * CODE PAGE CONVERSION DATA TO SYSIBM.SYSSTRINGS. SEE * * -- * SEE APPENDIX B OF THE DB2 INSTALLATION GUIDE FOR IN- * * -- * FORMATION ABOUT ADDING CODE PAGE CONVERSION DATA. * * -- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -- NOTICE = * -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE * -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF * -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ1U)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ1U -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION - UNICODE -- PHASE 1 (LOCAL SITE ONLY) -- FUNCTION = THIS JCL CREATES A DATABASE, TABLESPACE, AND TABLE -- WITH A UNICODE ENCODING SCHEME. THE TABLE IS THEN -- POPULATED FROM SOURCE DATA IN AN EBCDIC EXTERNAL -- FORMAT. FINALLY, THE CONTENTS OF THE TABLE ARE -- DISPLAYED IN EBCDIC EXTERNAL AND HEX FORMATS. -- RESTRICTIONS = -- DO NOT RUN THIS JOB UNLESS YOUR SYSTEM HAS THE -- PREREQUISITE OPERATING SYSTEM LEVEL FOR DB2 FOR OS/390 -- VERSION 7 UNICODE SUPPORT, AS DOCUMENTED IN THE DB2 FOR -- OS/390 VERSION 7 PROGRAM DIRECTORY, THE SECTION -- ENTITLED "FUNCTION-DEPENDENT PROGRAM REQUIREMENTS". -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL -- PSEUDOCODE = -- PH01US01 STEP DROP OBJECTS CREATED BY PRIOR RUNS OF THIS JOB -- PH01US02 STEP CREATE SAMPLE UNICODE OBJECTS -- PH01US03 STEP LOAD THE SAMPLE UNICODE TABLE -- PH01US04 STEP DISPLAY THE SAMPLE UNICODE DATA IN SOURCE -- AND HEX FORMATS --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2A)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2A * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- ASSEMBLER * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 SETUP FOR THE SAMPLE * -- APPLICATIONS. IT PREPARES AND RUNS THE SAMPLE * -- ASSEMBLER BATCH TABLE UNLOAD PROGRAM * -- THIS JOB IS RUN AFTER PHASE 1. * -- NOTICE = * -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE * -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF * -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2C)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2C * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- COBOL * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 COBOL SETUP FOR THE * -- SAMPLE APPLICATIONS. IT PREPARES AND EXECUTES * -- COBOL BATCH PROGRAMS. * -- THIS JOB IS RUN AFTER PHASE 1. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2D)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2D * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- C * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 C LANGUAGE SETUP FOR * -- THE SAMPLE APPLICATIONS. IT PREPARES AND EXECUTES * -- C BATCH PROGRAMS. * -- NOTES = ENSURE THAT LINE NUMBER SEQUENCING IS SET 'ON' IF * -- THIS JOB IS SUBMITTED FROM AN ISPF EDIT SESSION * -- THIS JOB IS RUN AFTER PHASE 1. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2E)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2E * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- C++ * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 C++ LANGUAGE SETUP FOR * -- THE SAMPLE APPLICATIONS. IT PREPARES AND EXECUTES * -- C++ BATCH PROGRAMS. * -- NOTES = ENSURE THAT LINE NUMBER SEQUENCING IS SET 'ON' IF * -- THIS JOB IS SUBMITTED FROM AN ISPF EDIT SESSION * -- THIS JOB IS RUN AFTER PHASE 1. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2F)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2F * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- FORTRAN * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH FORTRAN. IT PREPARES * -- AND EXECUTES THE FORTRAN BATCH PROGRAM. * -- THIS JOB IS RUN AFTER PHASE 1. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ2P * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 2 * -- PL/I * -- FUNCTION = THIS JCL PERFORMS THE PHASE 2 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH PL/I. IT PREPARES AND * -- EXECUTES THE PL/I BATCH PROGRAM. * -- THIS JOB IS RUN AFTER PHASE 1. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ2U)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ2U -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 2 -- USER DEFINED FUNCTIONS (C/C++) -- FUNCTION = THIS JCL PREPARES THE FOLLOWING DB2 USER-DEFINED -- FUNCTIONS (UDF'S) AND A DRIVER PROGRAM TO INVOKE THEM. -- NOTES = ENSURE THAT LINE NUMBER SEQUENCING IS SET 'ON' IF -- THIS JOB IS SUBMITTED FROM AN ISPF EDIT SESSION -- THIS JOB IS RUN AFTER PHASE 1. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ3C)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ3C * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 3 * -- COBOL, ISPF, CAF * -- FUNCTION = THIS JCL PERFORMS THE PHASE 3 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH COBOL. IT PREPARES THE * -- COBOL ISPF CAF TELEPHONE APPLICATION AND THE REMOTE * -- COBOL ORGANIZATION APPLICATION. * -- NOTE: DDF MUST BE UP FOR STEP PH03CS06 TO EXECUTE * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ3M)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ3M -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 3 -- MATERIALIZED QUERY TABLES -- FUNCTION = THIS JCL CREATES, POPULATES, AND PROCESSES A DATABASE -- THAT DEMONSTRATES THE USE OF DB2 MATERIALIZED QUERY -- TABLES (MQT'S). -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ3P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ3P * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 3 * -- PL/I, ISPF, CAF * -- FUNCTION = THIS JCL PERFORMS THE PHASE 3 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH PL/I. IT PREPARES THE * -- PL/I ISPF CAF TELEPHONE PROGRAM. * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ4C)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ4C * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 4 * -- COBOL, IMS * -- FUNCTION = THIS JCL PERFORMS THE PHASE 4 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH COBOL. IT PREPARES THE * -- COBOL IMS PROGRAM. * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ4P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ4P * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 4 * -- PL/I, IMS * -- FUNCTION = THIS JCL PERFORMS THE PHASE 4 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH PL/I. IT PREPARES THE * -- PL/I IMS PROGRAM. * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ5A)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ5A * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 5 * -- ASSEMBLE DSNTIAC * -- FUNCTION = THIS JOB: * -- 1) ASSEMBLES THE CICS FRONT END FOR THE SQLCA * -- FORMATTER ROUTINE, DSNTIAC * -- 2) OPTIONALLY ASSEMBLES A SAMPLE RESOURCE CONTROL TABLE* -- 3) OPTIONALLY BUILDS CICS CSD DEFINITIONS FOR THE DB2 * -- SAMPLES * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ5C)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ5C * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 5 * -- COBOL, CICS * -- FUNCTION = THIS JCL PERFORMS THE PHASE 5 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH COBOL. IT PREPARES THE * -- COBOL CICS PROGRAM. * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ5P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ5P * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 5 * -- PL/I, CICS * -- FUNCTION = THIS JCL PERFORMS THE PHASE 5 SETUP FOR THE SAMPLE * -- APPLICATIONS AT SITES WITH PL/I. IT PREPARES THE * -- PL/I CICS PROGRAM. * -- RUN THIS JOB ANYTIME AFTER PHASE 2. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ6 * -- DESCRIPTIVE NAME = DB2 REMOTE UNIT OF WORK SAMPLE APPLICATION * -- PHASE 6 * -- FUNCTION = RUN THIS JOB AT THE REMOTE LOCATION TO UPDATE THE * -- SAMPLE LOCATION IN DEPARTMENT TABLE * -- RUN THIS JOB ANYTIME AFTER PHASE 3. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6D)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ6D -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE CALLER: STORED PROCEDURE WITH RESULT SET -- C LANGUAGE -- FUNCTION = THIS JCL PREPARES AND EXECUTES A SAMPLE APPLICATION -- PROGRAM, DSN8ED1, THAT DEMONSTRATES HOW TO CALL A DB2 -- STORED PROCEDURE THAT RETURNS A RESULT SET. -- DSN8ED1 ACCEPTS A DB2 COMMAND FROM STANDARD INPUT -- (SYSIN) AND PASSES IT AS A PARAMETER TO THE STORED -- PROCEDURE WHICH RUNS ON A REMOTE DB2 SUBSYSTEM (SEE -- DSNTEJ6T FOR DETAILS). THE STORED PROCEDURE PLACES THE -- RESPONSES IN A RESULT SET AND DSN8ED1 EXTRACTS THEM AND -- PRINTS THEM TO STANDARD OUTPUT (SYSPRINT). -- DEPENDENCIES: -- (1) RUN SAMPLE JOB DSNTEJ6T AT THE SERVER SITE BEFORE RUNNING THIS -- JOB; DSNTEJ6T PREPARES THE SAMPLE STORED PROC W/ RESULT SET -- (2) RUN THIS JOB AT THE CLIENT SITE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6P)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ6P -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- FUNCTION = THIS JCL EXECUTES THE PHASE 6 STORED PROCEDURE -- SAMPLE APPLICATION. -- DEPENDENCIES: -- (1) RUN SAMPLE JOB DSNTEJ6S AT THE SERVER SITE BEFORE RUNNING THIS -- JOB; DSNTEJ6S PREPARES THE SAMPLE STORED PROC W/O RESULT SET -- (2) RUN THIS JOB AT THE CLIENT SITE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6R)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE CALLER OF STORED PROCEDURE - DSNUTILU -- C LANGUAGE -- FUNCTION = -- THIS JCL PREPARES AND EXECUTES DSN8ED8, A SAMPLE CALLER OF -- DSNUTILU, THE DB2 UTILITIES UNICODE PARSER STORED PROCEDURE. -- PSEUDOCODE = -- PH06RS00 STEP COPY REFORMATTED CUNHC MACRO -- PH06RS01 STEP PREPARE DSN8ED8 -- PH06RS02 STEP BIND THE PLAN AND PACKAGE FOR DSN8ED8 -- PH06RS03 STEP INVOKE DSN8ED8 -- DEPENDENCIES = -- - THIS JOB REQUIRES THE DB2-PROVIDED JCL PROCEDURE DSNHC -- - THIS JOB REQUIRES Z/OS UNICODE SERVICES -- NOTES = --******************************************************************** --JOBLIB DD DISP=SHR,DSN=DSN!!0.SDSNEXIT -- DD DISP=SHR,DSN=DSN!!0.SDSNLOAD -- DD DISP=SHR,DSN=CEE.V!R!M!.SCEERUN NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6S)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ6S -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- FUNCTION = THIS JCL PREPARES THE SAMPLE STORED PROCEDURE. -- DEPENDENCIES: -- (1) RUN THIS JOB AT THE SERVER SITE BEFORE RUNNING SAMPLE JOB -- DSNTEJ6P AT THE CLIENT SITE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6T)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE STORED PROCEDURE WITH RESULT SET -- C LANGUAGE -- FUNCTION = THIS JCL PREPARES AND EXECUTES A SAMPLE APPLICATION -- PROGRAM, DSN8ED2, THAT DEMONSTRATES A DB2 STORED -- PROCEDURE THAT RETURNS A RESULT SET. -- DSN8ED2 ACCEPTS A DB2 COMMAND PASSED AS AN INPUT -- PARAMETER FROM A CLIENT PROGRAM ON A REMOTE DB2 -- SUBSYSTEM. IT CALLS THE IFI UTILITY TO PROCESS THE -- COMMAND AND PLACES THE RESPONSES IN A TEMPORARY DB2 -- TABLE SO THEY CAN BE RETURNED AS A RESULT SET TO THE -- CLIENT. -- DEPENDENCIES: -- (1) RUN THIS JOB AT THE SERVER SITE BEFORE RUNNING SAMPLE JOB -- DSNTEJ6D AT THE CLIENT SITE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6U)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- UTILITY STORED PROCEDURE -- PL/I LANGUAGE -- FUNCTION = THIS JCL PREPARES AND EXECUTES A SAMPLE APPLICATION -- PROGRAM, DSN8EPU, THAT DEMONSTRATES THE DB2 UTILITY -- STORED PROCEDURE INKING A DB2 UTILITY. -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6V)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ6V -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- PHASE 6 (DB2 DISTRIBUTED SAMPLES) -- UTILITY STORED PROCEDURE (DSNUTILS) CALLER USING C++ -- FUNCTION = -- THIS JCL PREPARES AND EXECUTES A SAMPLE APPLICATION THAT -- DEMONSTRATES USING OBJECT-ORIENTED C++ TO INVOKE DSNUTILS, THE -- DB2 UTILITIES STORED PROCEDURE. THE APPLICATION CONSISTS OF -- TWO SAMPLE CLASSES AND A SAMPLE CLIENT: -- - DSN8EE0 IS AN EXCEPTION CLASS FOR HANDLING SQL ERRORS -- - DSN8EE1 IS A CLASS WITH CONSTRUCTORS AND METHODS FOR CREATING -- AND MANIPULATING DSNUTILS AS AN OBJECT -- - DSN8EE2 IS A CLIENT PROGRAM THAT DEMONSTRATES USING DSN8EE1 -- TO RUN THE DB2 CHECK INDEX UTILITY -- DEPENDENCIES = -- - THE FOLLOWING ARE REQUIRED TO RUN THIS JOB: -- - DB2 UDB FOR OS/390 -- - IBM C/C++ FOR OS/390 -- - DSNUTILS, THE DB2 UDB FOR OS/390 UTILITIES STORED PROCEDURE -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6W)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLMENV! WORK LOAD MANAGER NAME C '!WLMENV!' '{WLMENV}' ALL -- PARMS('!WLMENV! !DSN! !ID!') C '!ID!' '{ID}' -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- PHASE 6 -- SAMPLE CALLER FOR STORED PROCEDURE WLM_REFRESH -- IBM C/C++ FOR OS/390 -- FUNCTION = -- THIS JCL DOES THE FOLLOWING: -- * PREPARES AND EXECUTES DSN8ED6, A SAMPLE CALLER OF THE -- WLM_REFRESH STORED PROCEDURE. WLM_REFRESH REFRESHES A -- WLM ENVIRONMENT SPECIFIED AS AN INPUT PARAMETER. -- * CREATES AND POPULATES A RESOURCE PROFILE CALLED -- !DSN!.WLM_REFRESH.!WLMENV! -- IN RESOURCE CLASS DSNR. THIS RESOURCE PROFILE IS USED BY -- WLM_REFRESH TO DETERMINE WHETHER THE CURRENT SQLID OF THE -- CALLER IS PERMITTED TO REFRESH !WLMENV! -- ON !DSN!. -- PSEUDOCODE = -- PH06WS01 STEP CREATE AND POPULATE RESOURCE PROFILE !DSN!. -- WLM_REFRESH.!WLMENV! -- IN RESOURCE CLASS DSNR. -- PH06WS02 STEP PREPARE DSN8ED6 -- PH06WS03 STEP BIND THE PLAN AND PACKAGE FOR DSN8ED6 -- PH06WS04 STEP INVOKE DSN8ED6 -- DEPENDENCIES = -- (1) THIS JOB REQUIRES THE DB2-PROVIDED JCL PROCEDURES DSNHC -- (2) RUN THIS JOB ONLY AFTER RUNNING JOBS DSNTIJTM AND DSNTIJSG -- (3) THE USERID USED TO RUN THIS JOB REQUIRES AUTHORITY TO PERFORM -- THE RESOURCE PROFILE DEFINITION IN STEP PH06WS01. OTHERWISE, -- THIS OPERATION MUST BE PERFORMED BY THE SYSTEM SECURITY. --******************************************************************** -- STEP 3: INVOKE DSN8ED6 -- LIB('DSN!!0.RUNLIB.LOAD') - -- PARMS('!WLMENV! !DSN! !ID!') NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ6Z)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE CALLER OF STORED PROCEDURE - DSNWZP -- C LANGUAGE -- FUNCTION = -- THIS JCL PREPARES AND EXECUTES DSN8ED7, A SAMPLE CALLER OF -- DSNWZP, A DB2-PROVIDED STORED PROCEDURE THAT RETURNS THE -- CURRENT SETTINGS OF YOUR DB2 SUBSYSTEM PARAMETERS. AFTER -- CALLING DSNWZP, DSN8ED7 FORMATS THE RESULTS IN A REPORT FORMAT. -- PSEUDOCODE = -- PH06ZS01 STEP PREPARE DSN8ED7 -- PH06ZS02 STEP BIND THE PLAN AND PACKAGE FOR DSN8ED7 -- PH06ZS03 STEP INVOKE DSN8ED7 -- DEPENDENCIES = -- - THIS JOB REQUIRES THE DB2-PROVIDED JCL PROCEDURE DSNHC --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ61)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ61 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE STORED PROCEDURE FOR IMS ODBA -- COBOL LANGUAGE -- FUNCTION = THIS JCL CREATES A SAMPLE APPLICATION, DSN8EC1, THAT -- DEMONSTRATES A DB2 STORED PROCEDURE FOR IMS ODBA. -- DSN8EC1 CAN BE USED TO INSERT, RETRIEVE, UPDATE, -- AND DELETE ROWS IN THE IMS IVP TELEPHONE DIRECTORY -- DATABASE, DFSIVD1. -- DSN8EC1 HAS ONE INPUT-ONLY PARM, FIVE INPUT/OUTPUT -- PARMS, AND THREE OUTPUT-ONLY PARMS. -- - INPUT ONLY: -- (1) TDBCTLID : ID OF IMS SUBSYSTEM WHERE DATA RESIDES -- - INPUT/OUTPUT: -- (2) COMMAND : ACTION TO BE TAKEN, OR ACTION TAKEN -- - ADD: ADD AN ENTRY -- - DEL: DELETE AN ENTRY -- - DIS: RETRIEVE AN ENTRY -- - UPD: UPDATE AN ENTRY -- (3) LAST_NAME : OPERAND FOR, OR RESULT OF, COMMAND -- (4) FIRST_NAME: " " " " " " -- (5) EXTENSION : " " " " " " -- (6) ZIP-CODE : " " " " " " -- - OUTPUT ONLY: -- (7) AIBRETRN : RETURN CODE FROM IMS AIB -- (8) AIBREASN : REASON CODE FROM IMS AIB -- (9) ERROR-CALL: DL/I COMMAND EXECUTED -- DEPENDENCIES: -- (1) RUN THIS JOB AT THE SERVER SITE BEFORE RUNNING SAMPLE JOB -- DSNTEJ62 AT THE CLIENT SITE -- (2) THE SERVER SITE MUST HAVE AN IMS SUBSYSTEM RUNNING IMS/ESA V6 -- OR A SUBSEQUENT RELEASE -- (3) THIS IMS SUBSYSTEM MUST HAVE THE FOLLOWING IMS IVP PARTS -- AVAILABLE -- (A) DFSIVD1, THE IMS IVP TELEPHONE DIRECTORY DATABASE -- (B) DFSIVP64, THE IMS IVP COBOL PSB FOR BMP ACCESS TO DFSIVD1 -- (4) SPECIFY THE ID FOR THIS IMS SUBSYSTEM IN DB2 SAMPLE JOB -- DSNTEJ62, STEP PH062S03 -- (5) THE SERVER SITE MUST ALSO HAVE A WLM ENVIRONMENT STARTED BY -- A PROC THAT REFERENCES THE IMS RESLIB IN BOTH THE STEPLIB DD -- AND THE DFSRESLB DD. SEE THE DB2 INSTALLATION GUIDE FOR MORE -- INFORMATION. -- (6) BEFORE RUNNING THIS JOB, VERIFY THAT THIS WLM ENVIRONMENT IS -- THE ONE SPECIFIED IN THE CREATE PROCEDURE STATEMENT IN STEP -- PH061S01. --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ62)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ62 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE CLIENT: STORED PROCEDURE FOR IMS ODBA -- COBOL LANGUAGE -- FUNCTION = THIS JCL PREPARES AND EXECUTES A SAMPLE APPLICATION -- PROGRAM, DSN8EC2, THAT DEMONSTRATES HOW TO CALL A DB2 -- STORED PROCEDURE FOR IMS ODBA. THE RESULTS ARE -- DIRECTED TO THE SYSOUT DD. -- DSN8EC2 ACCEPTS A RUNTIME PARAMETER IN STEP PH062S03 -- THAT SPECIFIES -BOTH- THE DB2 SERVER LOCATION NAME -- WHERE THE STORED PROCEDURE IS REGISTERED -AND- THE ID -- OF THE IMS SUBSYSTEM WHERE THE ODBA ACTIVITY IS TO -- OCCUR. YOU MUST MODIFY THIS JOB TO PROVIDE THE IMS -- SUBSYSTEM ID. SEE STEP PH062S03 FOR DETAILS. -- DEPENDENCIES: -- (1) RUN SAMPLE JOB DSNTEJ61 AT THE SERVER SITE BEFORE RUNNING THIS -- JOB; DSNTEJ61 PREPARES THE SAMPLE STORED PROC FOR IMS ODBA -- (2) MODIFY THIS JOB AS DIRECTED IN STEP PH062S03 -- (3) RUN THIS JOB AT THE CLIENT SITE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ63)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ63 -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE SQL PROCEDURE -- SQL PROCEDURE LANGUAGE -- FUNCTION = -- THIS JCL PREPARES DSN8ES1, A SAMPLE SQL PROCEDURE THAT -- ACCEPTS A DEPARTMENT NUMBER AND RETURNS SALARY AND BONUS DATA -- FOR EMPLOYEES IN THAT DEPARTMENT FROM THE DB2 SAMPLE DATA BASE. -- PSEUDOCODE = -- PH063S01 STEP DROP OBJECTS CREATED BY PRIOR RUNS OF THIS JOB -- PH063S02 STEP PREPARE DSN8ES1 LOAD MODULE FROM DSN8ES1 SRC -- PH063S03 STEP BIND DSN8ES1 PACKAGE IN COLLECTION DSN8ES!! -- REGISTER THE STORED PROCEDURE USING GENERATED -- DDL FROM THE PRECOMPILER -- CREATE THE GLOBAL TEMPORARY TABLE REQUIRED BY -- THE RESULT SET -- DEPENDENCIES = -- (1) THIS JOB REQUIRES THE DB2-PROVIDED JCL PROCEDURE DSNHSQL -- (2) RUN THIS JOB PRIOR TO RUNNING THE CLIENT JOB DSNTEJ64 -- NOTES = --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ64)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ64 -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- PHASE 6 -- SAMPLE CALLER FOR SAMPLE SQL PROCEDURE DSN8ES1 -- C LANGUAGE -- FUNCTION = -- THIS JCL PREPARES AND EXECUTES DSN8ED3, A SAMPLE CALLER FOR THE -- SAMPLE SQL PROCEDURE DSN8ES1. DSN8ED3 PASSES A SAMPLE -- DEPARTMENT NUMBER TO DSN8ES1, THEN PROCESSES WHAT IS RETURNED: -- - PARAMETERS CONTAINING: -- - THE TOTAL EARNINGS (SALARIES AND BONUSES) OF EMPLOYEES IN -- THAT DEPARTMENT -- - THE NUMBER OF EMPLOYEES WHO GOT A BONUS -- - A RESULT SET CONTAINING A ROW OF DATA (SERIAL NO, FIRST AND -- LAST NAME, SALARY, AND BONUS) FOR EACH EMPLOYEE WHO GOT A -- BONUS -- PSEUDOCODE = -- PH064S01 STEP PREPARE DSN8ED3 LOAD MODULE FROM DSN8ED3 SRC -- PH064S02 STEP BIND DSN8ED3 PACKAGE IN COLLECTION DSN8ED!! -- BIND DSN8ED3 PLAN FROM DSN8ED!! AND DSN8ES!! -- COLLECTION IDS -- PH064S03 STEP RUN DSN8ED3 TO CALL STORED PROCEDURE DSN8ES1 -- DEPENDENCIES = -- (1) RUN SAMPLE JOB DSNTEJ63 PRIOR TO RUNNING THIS JOB -- (2) THIS JOB REQUIRES THE DB2-PROVIDED JCL PROCEDURE DSNHC -- NOTES = --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ65)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ65 -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- PHASE 6 -- - SAMPLE C CALLER FOR DB2 SQL PROCEDURES PROCESSOR (DSNTPSMP) -- - SAMPLE SQL PROCEDURE FOR DSNTPSMP TO PREPARE -- - SAMPLE C CALLER FOR SQL PROCEDURE PREPARED BY DSNTPSMP -- FUNCTION = -- THIS JCL DOES THE FOLLOWING: -- (1) PREPARES AND BINDS DSN8ED4, A SAMPLE CALLER FOR DSNTPSMP, -- THE DB2 STORED PROCEDURES PROCESSOR. -- (2) INVOKES DSN8ED4 TO PREQUALIFY THAT THE SERVER HAS DSNTPSMP -- AT THE PROPER INTERFACE LEVEL SUPPORTED BY THE THIS CLIENT -- (3) INVOKES DSN8ED4 TO PASS A SAMPLE SQL PROCEDURE, DSN8.DSN8ES2, -- TO DSNTPSMP FOR PREPARATION -- (4) PREPARES, BINDS, AND EXECUTES DSN8ED5, A SAMPLE CALLER FOR -- DSN8.DSN8ES2 -- PSEUDOCODE = -- PH065S01 STEP PREPARE DSN8ED4 (SAMPLE CALLER OF DSNTPSMP) -- PH065S02 STEP BIND DSN8ED4 -- PH065S03 STEP CALL DSN8ED4 TO REQUEST DSNTPSMP QUERYLEVEL -- PH065S04 STEP CALL DSN8ED4 TO PASS DSN8.DSN8ES2 TO DSNTPSMP -- PH065S05 STEP PREPARE DSN8ED5 (SAMPLE CALLER OF DSN8.DSN8ES2) -- PH065S06 STEP BIND DSN8ED5 -- PH065S07 STEP CALL DSN8ED5 TO CALL DSN8.DSN8ES2 -- DEPENDENCIES = -- (1) SAMPLE PROGRAM REQUIRES DSNTPSMP (THE DB2 SQL PROCEDURES -- PROCESSOR) -- NOTES = -- PQ43444 04/12/2001 REMOVE LEOPTS DD FROM PH065S03 -- PQ56601 03/14/2002 ADD REMINDER NOT TO USE CONTINUATION CHARACTERS -- IN BIND OPTIONS INPUT TO DSN8ED4 -- D55199 12/08/2003 ADD NEW STEP 3 TO PREQUALIFY DSNTPSMP LEVEL --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ7)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTEJ7 * -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION * -- PHASE 7 (LOCAL SITE ONLY) * -- FUNCTION = CREATES THE FOLLOWING OBJECTS FOR THE DB2 LOB SAMPLE * -- - DSN8!!0.EMP_PHOTO_RESUME: DB2 SAMPLE LOB TABLE * -- - EMPNO : EMPLOYEE SERIAL NO. (CHAR(6)) * -- - EMP_ROWID : ROWID: REQUIRED FOR LOB TABLES * -- - PSEG_PHOTO: EMP. PHOTO IN PSEG FORMAT (BLOB 500K) * -- - BMP_PHOTO : EMP. PHOTO IN BMP FORMAT (BLOB 100K) * -- - RESUME : EMP. RESUME (CLOB 5K) * -- - RESUME : EMP. RESUME (CLOB 5K) * -- - DSN8S!!B: BASE TABLESPACE FOR EMP_PHOTO_RESUME TABLE * -- - DSN8S!!L: AUXILIARY TABLESPACE FOR PSEG_PHOTO COLUMN * -- - DSN8S!!M: AUXILIARY TABLESPACE FOR BMP_PHOTO COLUMN * -- - DSN8S!!N: AUXILIARY TABLESPACE FOR RESUME COLUMN * -- - DSN8D!!L: DATABASE FOR SAMPLE LOB TABLESPACES AND * -- TABLES * -- THIS JCL ALSO INVOKES THE DB2 LOAD UTILITY TO POPULATE * -- THE EMPNO AND RESUME COLUMN. THE PSEG_PHOTO AND BMP_ * -- PHOTO COLUMNS ARE POPULATED BY A SAMPLE APPLICATION * -- PROGRAM PREPARED IN DSNTEJ71. * -- NOTICE = * -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE * -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF * -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ71)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ71 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: POPULATE, CHECK LOB TABLE -- C LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAMS IN SUPPORT -- OF THE DB2 LOB SAMPLE C APPLICATION: -- - DSN8DLPL: POPULATES THE PSEG AND BMP IMAGE COLUMNS -- IN THE DSN8!!0.EMP_PHOTO_RESUME SAMPLE LOB -- TABLE. THE INPUT DATA IS READ FROM A TSO -- DATA SET. THIS PROGRAM DEMONSTRATES HOW -- TO POPULATE LOB COLUMNS WITH MORE THAN 32 -- KB OF DATA. -- - DSN8DLTC: VALIDATES THE CONTENTS OF THE LOB COLUMNS -- IN THE DSN8!!0.EMP_PHOTO_RESUME TABLE. -- THIS IS DONE BY COMPARING THE DATA IN THE -- TABLE TO THE SOURCE DATA SETS. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ73)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ73 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: VIEW, MANIPULATE CLOB DATA -- C LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAMS IN SUPPORT -- OF THE DB2 LOB SAMPLE C APPLICATION: -- - DSN8SDM: CAF CONNECTION MANAGER (C LANGUAGE), USED -- TO INVOKE THE DB2 SAMPLE APPLICATIONS MENU -- UNDER ISPF AND TO MANAGE INVOKATION OF THE -- DB2 SAMPLE APPLICATION PROGRAMS, INCLUDING -- THE LOB SAMPLE RESUME AND PHOTO IMAGE -- VIEWERS. -- - DSN8DLRV: EXTRACTS A SPECIFIED EMPLOYEE'S RESUME IN -- CLOB FORMAT FROM DSN8!!0.EMP_PHOTO_RESUME. -- DB2 LOB LOCATOR FUNCTIONS ARE USED TO PARSE -- DATA FROM CLOB FORMAT INTO ISPF FIELDS AND -- THE RESULT IS DISPLAYED TO THE USER. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ75)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ75 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: VIEW, MANIPULATE BLOB DATA -- C LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAM IN SUPPORT -- OF THE DB2 LOB SAMPLE C APPLICATION: -- - DSN8DLPV: EXTRACTS A SPECIFIED EMPLOYEE'S PSEG PHOTO -- IMAGE IN BLOB FORMAT FROM THE SMAPLE TABLE -- DSN8!!0.EMP_PHOTO_RESUME. THE DATA IS -- HANDED OFF TO GDDM FOR CONVERSION FOR CON- -- VERSION AND DISPLAY. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ76)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ76 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: POPULATE, CHECK LOB TABLE -- COBOL LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING COBOL PROGRAMS IN -- SUPPORT OF THE DB2 LOB SAMPLE APPLICATION: -- - DSN8CLPL: POPULATES THE PSEG AND BMP IMAGE COLUMNS -- IN THE DSN8!!0.EMP_PHOTO_RESUME SAMPLE LOB -- TABLE. THE INPUT DATA IS READ FROM A TSO -- DATA SET. THIS PROGRAM DEMONSTRATES HOW -- TO POPULATE LOB COLUMNS WITH MORE THAN 32 -- KB OF DATA. -- - DSN8CLTC: VALIDATES THE CONTENTS OF THE LOB COLUMNS -- IN THE DSN8!!0.EMP_PHOTO_RESUME TABLE. -- THIS IS DONE BY COMPARING THE DATA IN THE -- TABLE TO THE SOURCE DATA SETS. --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ77)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ77 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: VIEW, MANIPULATE CLOB DATA -- COBOL LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAM IN SUPPORT -- OF THE DB2 LOB SAMPLE COBOL APPLICATION: -- - DSN8CLRV: EXTRACTS A SPECIFIED EMPLOYEE'S RESUME IN -- CLOB FORMAT FROM DSN8!!0.EMP_PHOTO_RESUME. -- DB2 LOB LOCATOR FUNCTIONS ARE USED TO PARSE -- DATA FROM CLOB FORMAT INTO ISPF FIELDS AND -- THE RESULT IS DISPLAYED TO THE USER. --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ78)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTEJ78 -- DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION -- PHASE 7 -- SAMPLE APPLICATIONS: VIEW, MANIPULATE BLOB DATA -- COBOL LANGUAGE -- FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAM IN SUPPORT -- OF THE DB2 LOB SAMPLE COBOL APPLICATION: -- - DSN8CLPV: EXTRACTS A SPECIFIED EMPLOYEE'S PSEG PHOTO -- IMAGE IN BLOB FORMAT FROM THE SMAPLE TABLE -- DSN8!!0.EMP_PHOTO_RESUME. THE DATA IS -- HANDED OFF TO GDDM FOR CONVERSION FOR CON- -- VERSION AND DISPLAY. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ8)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************D -- NAME = DSNTEJ8 * -- DESCRIPTIVE NAME = DB2/ODBC SAMPLE APPLICATION JCL * -- C++ APPLICATION * -- FUNCTION = THIS ODBC SAMPLE JCL COMPILES, PRELINKS, LINKEDITS * -- AND EXCUTES THE ODBC APPLICATIONS. * -- THIS IS SAMPLE JCL TO SUPPORT THE ODBC GUIDE AND * -- AND REFERENCE SECTION 'APPLICATION EXECUTION' * -- THIS JCL IS INITIALLY SET TO EXECUTE THE ODBC 2.0 SAMPLE * -- INSTALL VERIFICATION APPLICATION DSN!!0.SDSNSAMP(DSN8OIVP). * -- THIS JCL CAN ALSO BE ALTERED TO EXECUTE THE ODBC 3.0 SAMPLE * -- INSTALL VERIFICATION APPLICATION DSN!!0.SDSNSAMP(DSN8O3VP). * -- THIS JCL ALSO USES THE ODBC SAMPLE INITIALZATION FILE (INI) * -- DSN!!0.SDSNSAMP(DSNAOINI). * -- DEPENDENCIES: REQUIRES DB2/ODBC V7 FOR OS/390 * -- REQUIRES IBM C/C++ FOR OS/390 V1R3 OR HIGHER * -- THIS SAMPLE JCL IS BASED ON COMPILER SAMPLE PROC * -- CBC.SCBCPRC(CBCCLG) * -- DATASET NAMES: * -- DSN!!0 - HIGH LEVEL QUALIFIER FOR DB2 FOR OS390 * -- CBC - HIGH LEVEL QUALIFIER FOR OS390 V1R3 * -- C/C++ COMPILER * -- CEE - HIGH LEVEL QUALIFIER FOR OS390 V1R3 * -- LANGUAGE ENVIRONMENT * -- ADMF001.CLI.INCLUDE - USER HEADER FILE LIBRARY * -- ADMF001.CLI.OBJ - USER APPLICTION OBJ LIBRARY * -- USER.RUNLIB.LOAD - USER LOAD LIBRARY * -- PRE-EXECUTEION CHANGES REQUIRED- BEFORE RUNNING THIS JOB: * -- -CHANGE ALL OCCURRENCES OF DSN!!0 TO THE PREFIX OF YOUR DB2 V6 * -- DATA SETS * -- -CHANGE ADMF001.CLI.OBJ TO USER TARGET OBJ LIBRARY * -- -CHANGE USERPATH(/ADMF001/CLI/INCLUDE) TO USER SOURCE INCLUDE * -- LIBRARY OR DELETE * -- -CHANGE USER.RUNLIB.LOAD OT USER LOAD LIBRARY * -- -TO EXECUTE THE ODBC 3.0 SAMPLE, CHANGE ALL OCCURENCES OF DSN8OIVP* -- TO DSN8O3VP * --*********************************************************************D NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTEJ80)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- NAME = DSNTEJ80 -- DESCRIPTIVE NAME = -- DB2 SAMPLE APPLICATION -- PHASE 8 (ODBC) -- UTILITY STORED PROCEDURE (DSNUTILS) CALLER USING C AND ODBC -- FUNCTION = -- THIS JCL PREPARES AND EXECUTES DSN8OD1, A SAMPLE APPLICATION -- PROGRAM THAT DEMONSTRATES USING ODBC TO INVOKE DSNUTILS, THE -- DB2 UTILITIES STORED PROCEDURE. -- DEPENDENCIES = -- - THE FOLLOWING ARE REQUIRED TO RUN THIS JOB: -- - DB2 UDB FOR OS/390 ODBC -- - IBM C/C++ FOR OS/390 -- - DSNUTILS, THE DB2 UDB FOR OS/390 UTILITIES STORED PROCEDURE -- - SDSNSAMP(DSNAOINI), THE ODBC SAMPLE INITIALIZATION FILE (INI) -- - ASSUMES THIS MEMBER HAS BEEN CUSTOMIZED FOR YOUR SYSTEM -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V6 -- (B) 'CEE!!' TO THE PREFIX OF YOUR TARGET LIBRARY FOR -- IBM C/C++ FOR OS/390 -- (C) 'CBC!!' TO THE PREFIX OF YOUR TARGET LIBRARY FOR -- IBM LANGUAGE ENVIRONMENT FOR OS/390 -- (D) '!SYS1.PROCLIB!' TO THE NAME OF THE SYSTEM PROCLIB FOR -- DB2 LANGUAGE PROCS -- (E) '!LOCATION!' TO THE LOCATION NAME OF THE DB2 WHERE THE -- ODBC CONNECTION SHOULD BE MADE -- NOTICE = -- THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE -- ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF -- A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL --********************************************************************* -- STEP 1: COMPILE DSN8OD1, SAMPLE ODBC CALLER OF DSNUTILS --STEPLIB DD DISP=SHR,DSN=CBC!!.SCBCCMP -- DD DISP=SHR,DSN=CEE!!.SCEERUN --SYSIN DD DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSN8OD1) --CCOPTS DD DISP=SHR,DSN=!SYS1.PROCLIB!(DSNHCPPS) -- STEP 2: PRELINK DSN8OD1 --STEPLIB DD DISP=SHR,DSN=CEE!!.SCEERUN --SYSMSGS DD DISP=SHR,DSN=CEE!!.SCEEMSGP(EDCPMSGE) --SYSLIB DD DISP=SHR,DSN=CEE!!.SCEECPP -- DD DISP=SHR,DSN=CBC!!.SCLBSID(IOSTREAM) -- DD DISP=SHR,DSN=CBC!!.SCLBSID(COMPLEX) -- DD DISP=SHR,DSN=CBC!!.SCLBSID(ASCCOLL) -- DD DISP=SHR,DSN=DSN!!0.SDSNMACS(DSNAOCLI) -- STEP 3: LINK DSN8OD1 --SYSLIB DD DISP=SHR,DSN=CEE!!.SCEELKED --SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD(DSN8OD1) -- STEP 4: RUN DSN8OD1 (CALL DSNUTILS) -- PARM='/!LOCATION!' --STEPLIB DD DISP=SHR,DSN=CEE!!.SCEERUN -- DD DISP=SHR,DSN=CBC!!.SCLBDLL -- DD DISP=SHR,DSN=DSN!!0.SDSNLOAD -- DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD --DSNAOINI DD DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSNAOINI) NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESA)' TYPE=A POS=* -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESC)' TYPE=A POS=* -- PLAN TABLE DDL C 'DSN8D!!A' '{DB}' ALL C 'DSN8S!!X' '{TS}' ALL C 'DSN8G!!0' '{SG}' ALL C 'DSN8!!0' '{CREATOR}' ALL C 'DSN8@@0' '{CREATORO} ALL C 'DSN8D@@A' '{DBO} ALL C 'DSN8S@@X' '{TSO}' ALL --THE FOLLOWING SQL STATEMENTS DEMONSTRATE HOW TO: --(1) CREATE A V8 SAMPLE PLAN_TABLE, DSN_FUNCTION_TABLE, AND -- DSN_STATEMNT_TABLE. --(2) CREATE AN INDEX FOR OPTIMIZATION HINTS ON THE SAMPLE PLAN_TABLE --(3) MIGRATE A V7 (51-COLUMN) SAMPLE PLAN_TABLE TO V8 FORMAT SO -- THAT EXISTING EXPLAIN DATA CAN BE USED FOR OPTIMIZATION HINTS. -- THIS SQL ALSO INDICATES HOW TO MIGRATE A V6 (49-COLUMN), V5 -- (46 COLUMN), V4 (43-COLUMN), V3 (34-COLUMN), OR V2.3 (30-COLUMN) -- SAMPLE PLAN_TABLE TO V8 FORMAT. --(4) MIGRATE A V7 DSN_FUNCTION_TABLE TO V8 --(5) MIGRATE A V7 DSN_STATEMNT_TABLE TO V8 --(6) DROP THE V7 SAMPLE PLAN_TABLE, DSN_FUNCTION_TABLE, AND -- DSN_STATEMNT_TABLE AFTER THEY HAVE BEEN MIGRATED TO V8 ----------------------------------------------------------------------- NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESD)' TYPE=A POS=* -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- TO TEST YOUR DATA SHARING SETUP, RUN SPUFI WITH THIS FILE AS -- -- INPUT ON EACH MEMBER OF YOUR DATA SHARING GROUP. -- -- TO AVOID THE POSSIBILITY OF DEADLOCKS ON THE PARTS TABLE WHEN -- -- MULTIPLE MEMBERS RUN THIS JOB CONCURRENTLY, LOCK THE TABLE IN -- -- EXCLUSIVE MODE: -- -- LOCK TABLE DSN8!!0.PARTS IN EXCLUSIVE MODE; -- DETERMINE THE NUMBER OF ROWS THE PARTS TABLE STARTS WITH: -- -- SELECT COUNT(*) AS ITEM_COUNT FROM DSN8!!0.PARTS; -- INSERT FIVE NEW ROWS: -- -- INSERT INTO DSN8!!0.PARTS -- INSERT INTO DSN8!!0.PARTS -- INSERT INTO DSN8!!0.PARTS -- INSERT INTO DSN8!!0.PARTS -- INSERT INTO DSN8!!0.PARTS -- DO A SELECT WITH AN ORDER BY CLAUSE TO VERIFY THAT YOUR DATA -- -- SHARING GROUP CAN ACCESS THE WORKFILE DATA BASE: -- -- SELECT * FROM DSN8!!0.PARTS ORDER BY COLOR; -- COUNT THE NUMBER OF ROWS AGAIN. IT SHOULD HAVE INCREASED BY FIVE: -- -- SELECT COUNT(*) AS ITEM_COUNT FROM DSN8!!0.PARTS; NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESE)' TYPE=A POS=* -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESP)' TYPE=A POS=* --********************************************************************** --* NAME = DSNTESP * --* DESCRIPTIVE NAME = DB2 PERFORMANCE QUERIES * --* FUNCTION = PROVIDE QUERIES THAT HELP DIAGNOSE DB2 PERFORMANCE * --* PROBLEMS. * --********************************************************************** -- QUERIES 1 THROUGH 4 HELP YOU DETERMINE THE TOTAL NUMBER OF DATA -- SETS IN YOUR DB2 SUBSYSTEM. YOU CAN USE THIS NUMBER AS AN ESTIMATE -- OF THE MAXIMUM NUMBER OF OPEN DATA SETS IN THE SUBSYSTEM (DSMAX). -- TO DETERMINE THE NUMBER OF DATA SETS IN THE SUBSYSTEM, DO THE -- FOLLOWING: -- 1. RUN QUERIES 1 THROUGH 4. THESE QUERIES GENERATE: -- THE NUMBER OF SIMPLE AND SEGMENTED TABLE SPACES (QUERY 1). -- THE NUMBER OF INDEXES FOR THE SIMPLE AND SEGMENTED -- TABLE SPACES (QUERY 2). -- THE NUMBER OF PARTITIONED TABLE SPACES AND THE TOTAL NUMBER -- OF PARTITIONS (QUERY 3). -- THE MAXIMUM NUMBER OF DATA SETS THAT YOUR INDEXES CAN HAVE -- (QUERY 4). -- 2. FOR THE FIRST QUERY RESULT SET, ADD THE COUNT(*) VALUES. CALL -- THE TOTAL S1. -- 3. FOR THE SECOND QUERY RESULT SET, ADD THE COUNT(*) VALUES. CALL -- THE TOTAL S2. -- 4. FOR THE THIRD QUERY RESULT SET, ADD THE SUM(PARTITIONS) VALUES. -- CALL THE TOTAL SP. -- 5. FOR THE FOURTH QUERY RESULT SET, ADD THE MAX_NUM_OF_PIECES VALUES. -- CALL THE TOTAL MI. -- 6. THE MAXIMUM NUMBER OF DATA SETS IN THE SUBSYSTEM IS S1+S2+2*SP+MI. -- QUERY 1 -- QUERY 2 -- QUERY 3 -- QUERY 4 -- QUERIES 5 THROUGH 10 SHOW YOU HOW TO RETRIEVE SOME OF THE -- IMPORTANT STATISTICS FOR ACCESS PATH SELECTION. -- SEE "TUNING QUERIES" IN SECTION 5 OF THE DB2 ADMINISTRATION -- GUIDE FOR INFORMATION ABOUT HOW THESE STATISTICS ARE -- USED IN ACCESS PATH SELECTION. -- BEFORE YOU RUN THESE QUERIES, YOU NEED TO MAKE THE FOLLOWING -- SUBSTITUTIONS: -- REPLACE 'XXX' WITH THE NAME OF THE DATABASE FOR WHICH YOU NEED -- ACCESS PATH INFORMATION. -- REPLACE 'VVV' WITH THE NAME OF THE TABLE OWNER FOR WHICH YOU NEED -- ACCESS PATH INFORMATION. -- REPLACE 'TTT' WITH THE NAME OF THE TABLE FOR WHICH YOU NEED -- ACCESS PATH INFORMATION. -- QUERY 5 -- QUERY 6 -- QUERY 7 -- QUERY 8 -- QUERY 9 -- QUERY 10 -- QUERIES 11 THROUGH 14 BUILD SQL STATEMENTS THAT YOU CAN USE TO -- UPDATE CATALOG STATISTICS ON A TEST SYSTEM USING THE STATISTICS -- FROM YOUR PRODUCTION SYSTEM. YOU CAN THEN RUN EXPERIMENTS ON -- YOUR TEST SYSTEM TO SEE WHAT ACCESS PATHS THE PRODUCTION SYSTEM -- WILL USE. -- BEFORE YOU RUN THESE QUERIES ON YOUR PRODUCTION SYSTEM, DO THE -- FOLLOWING: -- - RUN RUNSTATS ON YOUR PRODUCTION TABLES TO GET CURRENT -- STATISTICS FOR ACCESS PATH SELECTION. -- - SUBSTITUTE A LIST OF DELIMITED TABLE NAMES SEPARATED BY -- COMMAS FOR 'TABLE LIST', AND A LIST OF DELIMITED TABLE -- CREATOR NAMES SEPARATED BY COMMAS FOR 'CREATOR LIST'. -- QUERY 11 -- QUERY 12 -- QUERY 13 -- QUERY 14 -- QUERIES 15 THROUGH 21 PROVIDE INFORMATION ON WHEN YOU SHOULD RUN -- THE REORG UTILITY TO REORGANIZE A TABLE SPACE. -- - QUERY 15 RETURNS A LIST OF TABLE SPACES THAT ARE CANDIDATES -- FOR REORGANIZATION. -- - QUERY 16 RETURNS A LIST OF INDEX SPACES THAT ARE CANDIDATES -- FOR REORGANIZATION. -- - QUERY 17 RETURNS THE NUMBER OF VARYING-LENGTH ROWS IN A TABLE -- SPACE THAT WERE RELOCATED TO OTHER PAGES BECAUSE OF AN UPDATE. -- THIS GIVES AN INDICATION OF HOW WELL DASD SPACE IS BEING USED. -- - QUERY 18 RETURNS THE PERCENTAGE OF UNUSED SPACE IN A -- NONSEGMENTED TABLE SPACE. IN NONSEGMENTED -- TABLE SPACES, THE SPACE USED BY DROPPED TABLES IS NOT -- RECLAIMED UNTIL YOU REORGANIZE THE TABLE SPACE. -- - QUERY 19 DETERMINES WHETHER THE ROWS OF A TABLE ARE STORED IN -- THE SAME ORDER AS THE ENTRIES OF ITS CLUSTERING INDEX. -- A LARGE VALUE OF FAROFFPOS INDICATES THAT CLUSTERING IS -- DEGENERATING. A LARGE VALUE OF NEAROFFPOS MIGHT ALSO INDICATE -- THAT THE TABLE SPACE NEEDS REORGANIZING, BUT THE VALUE OF -- FAROFFPOS IS A BETTER INDICATOR. -- - QUERY 20 RETURNS LEAFDIST, WHICH IS THE THE AVERAGE DISTANCE -- (MULTIPLIED BY 100) BETWEEN SUCCESSIVE LEAF PAGES DURING -- SEQUENTIAL ACCESS OF AN INDEX. IF LEAFDIST INCREASES OVER -- TIME, THE INDEX SHOULD BE REORGANIZED. -- - QUERY 21 LISTS THE LOB TABLE SPACES THAT SHOULD BE REORGANIZED. -- A VALUE OF ORGRATIO GREATER THAN 2 GENERALLY INDICATES A LOB -- LOB TABLE SPACE THAT NEEDS REORGANIZATION. -- BEFORE YOU RUN THESE QUERIES, YOU NEED TO DO THE FOLLOWING: -- - RUN RUNSTATS TO GET CURRENT CATALOG STATISTICS. -- - MAKE THE FOLLOWING SUBSTITUTIONS: -- - REPLACE 'XXX' WITH A DATABASE NAME. -- - REPLACE 'YYY' WITH A TABLE SPACE NAME. -- - REPLACE 'ZZZ' WITH THE NAME OF AN INDEX CREATOR. -- - REPLACE 'WWW' WITH THE NAME OF AN INDEX. -- QUERY 15 -- QUERY 16 -- QUERY 17 -- QUERY 18 -- QUERY 19 -- QUERY 20 -- QUERY 21 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESQ)' TYPE=A POS=* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESS)' TYPE=A POS=* -- /*******************************************************************/ -- USE THE FOLLOWING SQL DATA DEFINITION STATEMENTS TO CREATE -- THE STATISTICS DATABASE, TABLE SPACE, TABLES AND INDEXES. -- THE NAMES AND DECLARED ATTRIBUTES OF THE OBJECTS MUST NOT BE CHANGED. -- HOWEVER, OTHER ATTRIBUTES CAN BE CHANGED. FOR EXAMPLE, -- COMPRESS YES CAN BE SPECIFIED. -- THE AMOUNT OF PRIMARY AND SECONDARY SPACE TO ALLOCATE CAN BE -- CALCULATED BY USING THE FORMULAS IN THE "ADMINISTRATION GUIDE". -- THE APPROXIMATE NUMBER OF ROWS IN THE TWO STATISTICS TABLES -- CAN BE DETERMINED BY THE FOLLOWING SQL STATEMENT. THE SAMPLE DDL -- USED 20,000 OBJECTS AS AN ESTIMATE TO DETERMINE THE AMOUNT OF -- SPACE TO REQUEST. -- SELECT C1 + C2 FROM -- (SELECT COUNT(*) AS C1 FROM SYSIBM.SYSTABLEPART) AS T1, -- (SELECT COUNT(*) AS C2 FROM SYSIBM.SYSINDEXPART) AS T2; NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTESU)' TYPE=A POS=* -- TEST CASES FOR DB2 SAMPLE USER DEFINED FUNCTIONS (UDFS) -- PROCESSED BY DB2 SAMPLE JOB DSNTEJ2U NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJCA)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJCA */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = DEFINE THE ICF CATALOG */ --********************************************************************/0 -- ( NAME(DSNC!!01.USER.CATALOG) - -- ( NAME(DSNC!!0) - -- RELATE(DSNC!!01.USER.CATALOG) ) NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJCC)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- JOB NAME = DSNTIJCC -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM 390 ENABLEMENT FOR -- MANAGEMENT TOOLS STORED PROCEDURES, USER- -- DEFINED FUNCTIONS AND BATCH PROGRAMS -- FUNCTION = DEFINE STORED PROCEDURES, DEFINE USER-DEFINED -- FUNCTIONS, CREATE TEMPORARY TABLES, -- BIND PACKAGES AND GRANT PRIVILEGES -- NOTES = -- BEFORE YOU RUN THIS JOB: -- - ADD A VALID JOB CARD FOR YOUR SYSTEM -- - CHANGE ALL OCCURRENCES OF DSN!!0 TO THE PREFIX OF YOUR DB2 V8 -- SDSNLOAD AND SDSNDBRM DATA SETS -- - CHANGE ALL SYSTEM(DSN) STATEMENTS TO MATCH YOUR DB2 V8.1 SSID -- - CHANGE ALL PLAN(DSNTIA!!) STATEMENTS TO THE PLAN NAME THAT WAS -- BOUND BY JOB SDSNSAMP(DSNTIJTM) FOR PROGRAM DSNTIAD -- - MODIFY LIBRARY('DSN!!0.RUNLIB.LOAD') TO IDENTIFY THE LIBRARY -- WHERE PROGRAM DSNTIAD IS LOCATED (SEE THE DB2 FOR Z/OS -- INSTALL GUIDE FOR MORE INFORMATION ABOUT DSNTIJTM) -- - TO RERUN THIS JOB, UNCOMMENT STEPS DSNCCMD0 AND DELALL TO -- REMOVE OLD DEFINITIONS -- - CREATE A WLM APPLICATION ENVIRONMENT WITH THE START PARAMETER -- NUMTCB SET TO 100 FOR THE STORED PROCEDURE DSNACCMO -- - IF YOU USE THE CONTROL CENTER SUBSYSTEM CLONING FUNCTION, -- UNCOMMENT THE CREATE INDEX SYSIBM.ACCAGX01 STATEMENT AND -- CHANGE !!USING-BLOCK!! ACCORDING TO YOUR ENVIRONMENT'S RULES -- FOR USER-DEFINED INDEXES ON THE CATALOG -- BEFORE YOU UNCOMMENT AND RUN STEP GRNTS390: -- - RUN SAMPLE JOB DSNTIJEX TO ENABLE RACF EXIT FOR -- SECONDARY AUTHORIZATIONS TIED TO RACF GROUP CCUSER -- - STOP AND RESTART DB2 -- - DEFINE RACF GROUP CCUSER -- - ADD RACF MEMBERS TO GROUP CCUSER TO ACQUIRE -- SECONDARY AUTHS -- - IFCID REQUIRES TRACE PRIVILEGE AND SYSOPR, SYSCTRL, -- OR SYSADM AUTHORIZATION: -- - SYSOPR ENABLES DISPLAY BUFFERPOOL ACTION -- - SYSOPR W/MONITOR1 ENABLES DISPLAY SUBSYSTEM PARMS -- PSEUDOCODE = -- DELALL - REMOVE CC TABLES AND DEFINITIONS -- CCTABLD - DEFINE DATABASE, TABLES, TABLESPACES FOR CC -- CCINSRTD - DEFINE SAMPLE TEMPLATES AND DEFAULTS -- GRNTS390 - MINIMUM PRIVILEGES SAMPLE TO SET UP -- SECONDARY AUTHORIZATIONS FOR CC -- DSNCCMD0 - REMOVE CC PROCEDURES, FUNCTIONS AND TABLES -- DSNCCMD1 - DEFINE PROC DSNACCMD, CREATE TEMP TABLES -- DSNCCMD2 - BIND DSNACCMD PACKAGE -- DSNCCQC1 - DEFINE PROC DSNACCQC -- DSNCCQC2 - BIND DSNACCQC PACKAGE -- DSNCCMG1 - DEFINE PROC DSNACCMG -- DSNCCAV1 - DEFINE PROC DSNACCAV, CREATE TEMP TABLES -- DSNCCAV2 - BIND DSNACCAV PACKAGE -- DSNCCDL1 - DEFINE PROC DSNACCDL, CREATE TEMP TABLE -- DSNCCDL2 - BIND DSNACCDL PACKAGE -- DSNCCDD1 - DEFINE PROC DSNACCDD -- DSNCCDR1 - DEFINE PROC DSNACCDR -- DSNCCDE1 - DEFINE PROC DSNACCDE -- DSNCCDS1 - DEFINE PROC DSNACCDS, CREATE TEMP TABLE -- DSNCCDS2 - BIND DSNACCDS PACKAGE -- DSNCCSS1 - DEFINE PROC DSNACCSS -- DSNCCSI1 - DEFINE PROC DSNACCSI -- DSNCCST1 - DEFINE PROC DSNACCST, CREATE TEMP TABLES -- DSNCCST2 - BIND DSNACCST PACKAGE -- DSNCCMO1 - DEFINE PROC DSNACCMO, CREATE TEMP TABLES -- DSNCCMO2 - BIND DSNACCMO PACKAGE -- DSNICUG1 - DEFINE FUNC DSNAICUG -- DSNCCC11 - BIND DSNACCC1 PACKAGE -- DSNCCC41 - BIND DSNACCC4 PACKAGE -- DSNCCC51 - BIND DSNACCC5 PACKAGE -- DSNCCC81 - BIND DSNACCC8 PACKAGE -- DSNCCC1 - BIND DSNACCC PLAN -- DSNCCMB1 - BIND DSNACCMB PACKAGE -- DSNCCMB2 - BIND DSNACCMB PLAN -- DSNCCJF1 - DEFINE PROC DSNACCJF, CREATE TEMP TABLE -- DSNCCJF2 - BIND DSNACCJF PACKAGE -- DSNCCJP1 - DEFINE PROC DSNACCJP -- DSNCCJQ1 - DEFINE PROC DSNACCJQ -- DSNCCJS1 - DEFINE PROC DSNACCJS, CREATE TEMP TABLE -- DSNCCJS2 - BIND DSNACCJS PACKAGE -- DSNCCUC1 - DEFINE PROC DSNACCUC, CREATE TEMP TABLE -- DSNCCUC2 - BIND DSNACCUC PACKAGE -- DSNCCGRT - GRANT EXECUTE ON PACKAGES, PROCEDURES, -- FUNCTIONS AND PLANS -- DEPENDENCIES = NONE XXX --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJCL)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJCL */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = SAMPLE CLI BIND */ -- PSEUDOCODE = */ -- BINDCLI STEP BIND CLI DEFAULT PACKAGES AND PLAN */ -- DEPENDENCIES = */ -- CLI MUST BE INSTALLED */ -- MEMBER DSNCLIQR CAN ONLY BE BOUND SUCCESSFULLY TO DRDA SERVERS */ -- THAT SUPPORT QUERY RESULT SET SQL (I.E. DESCRIBE PROCEDURE). */ -- CURRENTLY THAT IS DB2 FOR OS/390 V5. */ -- NOTES = */ -- BEFORE RUNNING THIS JOB: */ -- - CHANGE ALL OCCURRENCES OF DSN!!0 TO THE PREFIX OF YOUR DB2 V5.1 */ -- SDSNLOAD AND SDSNDBRM DATA SETS */ -- - CHANGE THE SYSTEM(DSN) STATEMENT TO MATCH YOUR DB2 V5.1 SSID */ -- CLI CAN BE BOUND TO REMOTE SERVERS BY INCLUDING THE LOCATION NAME.*/ -- FOR REMOTE SERVERS OTHER THAN DB2 FOR OS/390, ALSO ADD THE */ -- APPROPRIATE BIND PACKAGE MEMBER STATEMENTS, LISTED BELOW, */ -- BASED ON THE SERVER TYPE: */ -- BIND PACKAGE (.DSNAOCLI) - */ -- MEMBER(DSNCLIV1) */ -- BIND PACKAGE (.DSNAOCLI) - */ -- MEMBER(DSNCLIV2) */ -- BIND PACKAGE (.DSNAOCLI) - */ -- MEMBER(DSNCLIAS) */ -- BIND PACKAGE (.DSNAOCLI) - */ -- MEMBER(DSNCLIVM) */ -- ALSO INCLUDE ANY ADDED PACKAGE NAMES TO THE PKLIST KEYWORD OF */ -- BIND PLAN STATEMENT FOLLOWING THE BIND PACKAGE STATEMENTS. */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJCM)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************* -- JOB NAME = DSNTIJCM -- DESCRIPTIVE NAME = MIGRATION JOB STREAM FOR 390 ENABLEMENT -- FUNCTION = MIGRATE 390 ENABLEMENT OBJECTS TO VERSION 8 LEVEL. -- BIND ALL 390 ENABLEMENT PACKAGES. -- NOTES = -- BEFORE YOU RUN THIS JOB: -- - ADD A VALID JOB CARD FOR YOUR SYSTEM -- - CHANGE ALL OCCURRENCES OF DSN!!0 TO THE PREFIX OF YOUR DB2 V8 -- SDSNLOAD AND SDSNDBRM DATA SETS -- - CHANGE ALL SYSTEM(DSN) STATEMENTS TO MATCH YOUR DB2 V8.1 SSID -- - CHANGE ALL PLAN(DSNTIA!!) STATEMENTS TO THE PLAN NAME THAT WAS -- BOUND BY JOB SDSNSAMP(DSNTIJTM) FOR PROGRAM DSNTIAD -- - MODIFY LIBRARY('DSN!!0.RUNLIB.LOAD') TO IDENTIFY THE LIBRARY -- WHERE PROGRAM DSNTIAD IS LOCATED (SEE THE DB2 FOR Z/OS -- INSTALL GUIDE FOR MORE INFORMATION ABOUT DSNTIJTM) -- - UPDATE ALL DSNUPROC PARAMETER VALUES -- - CHANGE ALL &HLQ. TO THE HIGH LEVEL QUALIFIER OF YOUR -- INSTALLATION -- - TO RERUN STEP CCU71134, UNCOMMENT STEP UND71134 TO REMOVE -- OLD DEFINITIONS -- - CREATE A WLM APPLICATION ENVIRONMENT WITH THE START PARAMETER -- NUMTCB SET TO 100 FOR THE STORED PROCEDURE DSNACCMO -- - REPLACE WLMENV100 WITH THE NAME OF THE APPLICATION ENVIRONMENT -- YOU HAVE CREATED FOR THE STORED PROCEDURE DSNACCMO -- - REPLACE WLMENV1 WITH THE NAME OF THE APPLICATION ENVIRONMENT -- YOU HAVE DEFINED FOR THE DB2 390 ENABLEMENT STORED PROCEDURES -- - DEPENDING ON THE SERVICE LEVEL OF THE PREVIOUS RELEASE -- OF 390 ENABLEMENT (VERSION 7) ON YOUR INSTALLATION, EDIT -- THIS JCL FURTHER AS FOLLOWS: -- A) IF YOU HAD NOT APPLIED ANY SERVICE -- - FURTHER EDITING IS NOT REQUIRED -- - STEPS CCLOAD1 AND CCLOAD2 WILL PUT THE TABLE SPACE -- CC390.UTRSTRT IN COPY-PENDING STATUS. FOR -- INFORMATION ON HOW TO RESET THE COPY-PENDING -- STATUS, PLEASE REFER TO THE SECTION "RESETTING -- THE COPY-PENDING STATUS" IN THE DB2 UDB FOR Z/OS -- UTILITY GUIDE AND REFERENCE MANUAL. -- B) IF THE MOST RECENT PTF YOU HAVE APPLIED IS UQ56630 -- (APAR PQ50056): -- - COMMENT OUT THE FOLLOWING STEPS: -- 1) CCU56630 - REDEFINE GLOBAL TEMP TABLE -- - STEPS CCLOAD1 AND CCLOAD2 WILL PUT THE TABLE SPACE -- CC390.UTRSTRT IN COPY-PENDING STATUS. FOR -- INFORMATION ON HOW TO RESET THE COPY-PENDING -- STATUS, PLEASE REFER TO THE SECTION "RESETTING -- THE COPY-PENDING STATUS" IN THE DB2 UDB FOR Z/OS -- UTILITY GUIDE AND REFERENCE MANUAL. -- C) IF THE MOST RECENT PTF YOU HAVE APPLIED IS UQ71134 -- (APAR PQ57439): -- - COMMENT OUT THE FOLLOWING STEPS: -- 1) CCU56630 - REDEFINE GLOBAL TEMP TABLE -- 2) CCUNLD1 - UNLOAD TABLE DSNACC.UTRESTART -- 3) CCUNLD2 - UNLOAD TABLE DSNACC.UTRESTART2 -- 4) CCCHGRST - CHANGE DEFINITION OF CC390 RESTART TABLES -- 5) CCLOAD1 - LOAD TABLE DSNACC.UTRESTART -- 6) CCLOAD2 - LOAD TABLE DSNACC.UTRESTART2 -- 7) CCU71134 - DEFINE PROCS AND UDF, CREATE TEMP TABLES -- DEFINE SAMPLE TEMPLATES AND DEFAULTS -- 8) GRT71134 - GRANT EXECUTE PRIVILEGES -- PSEUDOCODE = -- 1) CCU56630 - REDEFINE GLOBAL TEMP TABLE -- 2) CCUNLD1 - UNLOAD TABLE DSNACC.UTRESTART -- 3) CCUNLD2 - UNLOAD TABLE DSNACC.UTRESTART2 -- 4) CCCHGRST - CHANGE DEFINITION OF CC390 RESTART TABLES -- 5) CCLOAD1 - LOAD TABLE DSNACC.UTRESTART -- 6) CCLOAD2 - LOAD TABLE DSNACC.UTRESTART2 -- 7) UND71134 - REMOVE CC PROCEDURES, FUNCTIONS, -- GLOBAL TEMP TABLES AND SAMPLE TEMPLATES -- INTRODUCED BY UQ71134 -- 8) CCU71134 - DEFINE PROCS AND UDF, CREATE TEMP TABLES -- DEFINE SAMPLE TEMPLATES AND DEFAULTS -- 9) CCBIND - BIND PROCEDURES AND BATCH PROGRAMS -- 10) GRT71134 - GRANT EXECUTE PRIVILEGES -- DEPENDENCIES = NONE --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJCX)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJCX -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = CHECK MIGRATION OF INDEXES FOR DB2 CATALOG AND DIRECTORY -- PSEUDOCODE = -- DSNCX1 STEP CHECK INDEXES FOR THE DB2 CATALOG (DSNDB06) -- DSNCX2 STEP CHECK INDEXES FOR DB2 SKELETON CURSOR AND -- SKELETON PACKAGES TABLE SPACES -- DSNCX3 STEP CHECK FIRST INDEX FOR DB2 SYSTEM UTILITIES -- TABLE SPACE -- DSNCX3B STEP CHECK SECOND INDEX FOR DB2 SYSTEM UTILITIES -- TABLE SPACE -- DSNCX4 STEP CHECK INDEXES FOR DB2 LOG RANGE TABLE SPACE --******************************************************************** -- CHECK INDEXES IN THE DB2 CATALOG (DSNDB06) -- CHECK INDEXES FOR DB2 SKELETON CURSOR AND PACKAGES TABLE SPACES -- CHECK FIRST INDEX FOR DB2 SYSTEM UTILITIES TABLE SPACE -- CHECK SECOND INDEX FOR DB2 SYSTEM UTILITIES TABLE SPACE -- CHECK INDEXES FOR DB2 LOG RANGE TABLE SPACE NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJDE)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJDE */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = DELETE DATA SETS TO RERUN DSNTIJIN AND DSNTIJTM */ -- WARNING! - THIS JOB DELETES ALL CATALOG AND USER DATA! */ -- USER DATA SETS MUST BE DELETED SEPARATELY. */ -- PSEUDOCODE = */ -- DSNTIC PROC FOR INVOKING AMS */ -- DSNTINV STEP DELETES NON VSAM DATA SETS */ -- DSNTIBS STEP DELETES BOOTSTRAP AND LOG DATA SETS */ -- DSNTIDC STEP DELETES DIRECTORY AND CATALOG DATA SETS */ -- DSNTIVC STEP DELETES A USER CATALOG */ --********************************************************************/0 -- ***************************************************************** */ -- DIRECTORY/CATALOG AMS INVOCATION INSTREAM JCL PROCEDURE */ -- ***************************************************************** */ -- DELETE (DSN!!0.DBRMLIB.DATA) -- DELETE (DSN!!0.RUNLIB.LOAD) -- DELETE (DSN!!0.SRCLIB.DATA) -- (DSNC!!0.BSDS01) - -- CATALOG(DSNC!!0) -- (DSNC!!0.BSDS02) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY1.DS01) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY1.DS02) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY1.DS03) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY2.DS01) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY2.DS02) - -- CATALOG(DSNC!!0) -- (DSNC!!0.LOGCOPY2.DS03) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DBD01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.SCT02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNSCT02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.SPT01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNSPT01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNSPT02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.SYSLGRNX.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNLLX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNLLX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.SYSUTILX.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNLUX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB01.DSNLUX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSCOPY.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNUCH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNUCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSDBASE.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDCX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDLX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDTX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDTX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDSX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDXX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDXX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDYX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNATX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNATX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNATX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDKX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDXX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDRX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDRX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDPX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDRH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDXX04.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDPX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDTX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNATX04.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDLX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNACX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSDBAUT.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNADH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNADX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDDH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDDX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSGPAUT.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAGH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAGX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSGROUP.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSSH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSPKAGE.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKLX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKLX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKKX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKKX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKSX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKDX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKDX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKDX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKAX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKAX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKAX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNKYX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSPLAN.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNGGX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAPH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNPPH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSSTR.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSSX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSDX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCHX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSUSER.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAUH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNAUX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSVIEWS.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNVTH01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNGGX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNGGX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNVVX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNGGX04.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSSTATS.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNTNX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNTCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNTXX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNTPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNTTX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNLNX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSDDF.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFNX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFEX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFLX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFLX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFMX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFDX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNFPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDUX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSOBJ.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOXX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOXX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCCX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNODX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNODX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOPX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOPX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOPX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOAX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOAX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOAX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX04.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX05.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX06.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX07.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOFX08.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSKX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSKX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOTX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOTX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNOTX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCUX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCNX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNCNX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSSEQ.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSQX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSQX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSSEQ2.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSRX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNSRX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNWCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNWCX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNWCX03.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSHIST.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHFX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHEX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHGX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHHX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHHX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHIX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHJX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHDX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNHBX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSGRTNS.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNROX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNRSX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNRSX02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSJAVA.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNJCX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNJOX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSJAUXA.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNJDX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNJVX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSJAUXB.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNJSX01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSALTER.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDOB01.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.DSNDOB02.I0001.A001) - -- CATALOG(DSNC!!0) -- (DSNC!!0.DSNDBC.DSNDB06.SYSEBCDC.I0001.A001) - -- CATALOG(DSNC!!0) -- DELETE (DSNC!!0) ALIAS -- DELETE (DSNC!!01.USER.CATALOG) USERCATALOG NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJEN)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJEN -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = CHANGE FROM NEW FUNCTION MODE (NFM) -- TO ENABLING NEW FUNCTION MODE (ENFM) -- TO DISABLE USE OF NEW RELEASE FUNCTION -- PSEUDOCODE = -- TIJEN010 STEP CALL CATENFM TO CHANGE FROM NFM TO ENFM -- NOTES = -- (1) RUN THIS JOB TO CHANGE FROM NFM TO ENFM TO PREVENT NEW -- RELEASE FUNCTION FROM BEING USED. -- (2) AFTER RUNNING THIS JOB, RUN JOB DSNTIJUZ TO REBUILD YOUR -- DSNHDECP MODULE - BE SURE THAT DSNHDECM SPECIFIES NEWFUN=NO --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJEX)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- CEE.V!R!M!.SCEEMAC LE MACROS LIBRARY C 'CEE.V!R!M!.SCEEMAC' '{LEMAC}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJEX */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = PREPARE THE AUTHORIZATION EXITS */ -- PSEUDOCODE = */ -- ASMPROC PROC - ASSEMBLE AND LINK AN ASSEMBLY LANGUAGE PROGRAM */ -- JEX0001 STEP - INVOKE ASMPROC TO PREPARE SIGNON EXIT DSN3@SGN */ -- JEX0002 STEP - INVOKE ASMPROC TO PREPARE IDENTIFY EXIT DSN3@ATH */ -- JEX0003 STEP - INVOKE ASMPROC TO PREPARE ACCESS CONTROL */ -- AUTHORIZATION (ACA) EXIT DSNX@XAC */ -- JEX0004 PROC - ASSEMBLE AND LINK SAMPLE USER EXIT FOR DSNACICS */ -- STORED PROCEDURE */ -- NOTES = */ -- THIS JOB IS OPTIONAL. IT (OR AN EQUIVALENT) IS ONLY NEEDED IF */ -- YOU DO NOT INTEND TO USE THE DEFAULT AUTHORIZATION EXITS. */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJFT)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJFT */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = DATA SHARING DISABLING JOB TO CREATE DSNDB07 */ -- FOR THE NON-DATA SHARING ENVIRONMENT */ -- CAN ALSO BE USED FOR REENABLING DATA SHARING */ -- TO RECREATE DSNDB07 FOR THE DATA SHARING */ -- ENVIRONMENT */ -- NOTE = THIS JOB IS SET UP FOR DISABLING DATA SHARING. */ -- IT CAN BE EDITED FOR REENABLING IF DSNDB07 NEEDS TO BE */ -- RECREATED FOR THE DATA SHARING ENVIRONMENT: */ -- CHANGE "// DD DDNAME=DISABLE" TO */ -- "//* DD DDNAME=DISABLE" AND */ -- CHANGE "//* DD DDNAME=REENABLE" TO */ -- "// DD DDNAME=REENABLE" */ -- PSEUDOCODE = */ -- DSNTIC PROC FOR INVOKING AMS */ -- DSNTIAS STEP ISSUES A STOP FOR DSNDB07 THEN DROP */ -- DSNTICR STEP RUN PROGRAM TO CREATE DATA BASE */ -- FOR TEMPS (DSNDB07) */ -- DSNTTMP STEP AMS DEFINES FOR THE TEMPORARY */ -- TABLE SPACE DATA SETS */ -- DSNTIST STEP STOP DSNDB07, CREATE TEMPORARY TABLE */ -- SPACES, START DSNDB07 */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJFV)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- ! RELEASE INDICATOR EX. 81 C '!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJFV */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = FALL BACK JOBSTREAM TO RENAME PROCEDURES */ -- PSEUDOCODE = */ -- DSNTIFV STEP - FOR RENAMING PROCEDURES IN PROCLIB. */ -- FIRST RENAME CURRENT RELEASE PROCS TO XXX!XXXX, */ -- THEN RENAME PREVIOUS RELEASE (XXX@XXXX) PROCS TO BE */ -- CURRENT. NOTE THAT WHEN MIGRATING, JOB */ -- DSNTIJMV RENAMES PREVIOUS RELEASE PROCEDURES TO THE */ -- XXX@XXXX NAMES. */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJGF)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- DSNC!!0 VCAT FOR BSDS, LOG, DSNDB01, DSNDB06 C 'DSNC!!0' '{DSNC!!0}' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJGF */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = DATA SHARING DISABLE / REENABLE JOB */ -- INVOKES CHANGE LOG INVENTORY TO UPDATE BSDS TO REVERT */ -- TO A NON-DATA SHARING ENVIRONMENT OR TO REENABLE */ -- A DATA SHARING ENVIRONMENT */ -- WARNING!!! YOU SHOULD NOT RUN THIS JOB UNLESS YOU ARE CERTAIN */ -- YOU WANT TO DISABLE DATA SHARING. IN ORDER TO PREVENT */ -- INADVERTENTLY RUNNING THIS JOB, REQUIRED SYSUT1/SYSUT2 */ -- STATEMENTS ARE COMMENTED OUT BELOW. YOU MUST REMOVE */ -- THE COMMENTS TO RUN THE JOB. */ -- CHANGE: */ -- //* //SYSUT1 DD DISP=OLD,DSN=DSNC!!0.BSDS01 */ -- //* //SYSUT2 DD DISP=OLD,DSN=DSNC!!0.BSDS02 */ -- TO: */ -- //SYSUT1 DD DISP=OLD,DSN=DSNC!!0.BSDS01 */ -- //SYSUT2 DD DISP=OLD,DSN=DSNC!!0.BSDS02 */ -- WARNING!!! DO NOT CHANGE THE STARTRBA AND ENDRBA VALUES IN THE */ -- CRESTART RECORD BELOW. THEY ARE NOT REAL RBA VALUES. */ -- ALTERING THESE VALUES WILL CAUSE SERIOUS RECOVERY */ -- PROBLEMS. */ -- NOTE1 = THIS JOB IS SET UP TO DISABLE A DATA SHARING BSDS. */ -- TO REENABLE DATA SHARING: */ -- CHANGE "// DD DDNAME=DISABLE" TO */ -- "//* DD DDNAME=DISABLE" AND */ -- CHANGE "//* DD DDNAME=REENABLE" TO */ -- "// DD DDNAME=REENABLE */ -- NOTE2 = THE CHANGE LOG INVENTORY PARAMETERS SHOWN IN THIS JOB */ -- ARE FOR INTERNAL USE IN THIS JOB ONLY. */ -- PSEUDOCODE = */ -- DSNTLOG STEP UPDATE BSDS */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJIC)' TYPE=A POS=* --********************************************************************/0 -- JOB NAME = DSNTIJIC */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = CREATE IMAGE COPIES OF ALL THE SYSTEM CATALOG TABLES */ -- NOTES = */ -- THIS JOB CREATES IMAGE COPIES OF THE DB2 DIRECTORY AND CATALOG. */ -- THE IMAGE COPY FOR EACH TABLE SPACE IS DONE IN A SEPARATE STEP */ -- SO THAT THE JOB WILL EXECUTE SUCCESSFULLY WHEN AN IMAGE COPY */ -- OUTPUT DATA SET SPANS MORE THAN ONE VOLUME. EACH STEP'S DATA */ -- SET IS PASSED TO THE NEXT STEP SO THAT A TAPE WILL NOT HAVE TO */ -- BE DEMOUNTED AND REMOUNTED AFTER EVERY STEP. HOWEVER, WE ALSO */ -- RECOMMEND THAT THE IMAGE COPY TAPES BE MOUNTED AS PRIVATE */ -- VOLUMES TO PREVENT THIS PROBLEM. */ -- IF A FAILURE OCCURS IN ONE STEP, FIX THE PROBLEM AND RERUN THE */ -- JOB, BEGINNING WITH THE STEP THAT FAILED. */ -- IF YOU ARE REMIGRATING, YOU WILL NEED TO EITHER: */ -- 1) CHANGE THE NAMES OF THE DATA SETS IN WHICH THE */ -- NEW IMAGE COPIES WILL RESIDE (MIGRATION IMAGES */ -- COPIES ARE USING THE CURRENT DATA SET NAMES) OR */ -- 2) RUN THE MODIFY UTILITY TO REMOVE THE MIGRATION */ -- IMAGE COPIES */ -- THE SYSLGRNX STEP MUST BE THE NEXT TO LAST STEP IN THE JOB AND */ -- THE SYSCOPY STEP MUST BE THE LAST STEP IN THE JOB */ -- CHANGE LOG: */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJID)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJID */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = INITIALIZE DB2 CATALOG AND DIRECTORY DATASETS */ -- PSEUDOCODE = */ -- DSNTIN PROC FOR INITIALIZING TABLESPACES */ -- DSNTLG PROC FOR PREFORMATTING ACTIVE LOGS */ -- DSNTLOG STEP INVOKES CHANGE LOG TO NOTE LOGS */ -- DSNLG.. STEPS PREFORMAT EACH ACTIVE LOG */ -- DSNTU.. STEPS INITIALIZE CATALOG AND DIRECTORY */ -- DATA BASES FROM SDSNSAMP DATA. */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJIN)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- DSNC!!0 VCAT NAME FOR BSDS, LOG, DSNDB01, DSNDB06 C 'DSNC!!0' '{DSN810}' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJIN */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = DEFINE DB2 DATA SETS */ -- PSEUDOCODE = */ -- DSNTIC PROC FOR INVOKING AMS */ -- DSNTNOV STEP DEFINES NON VSAM DATA SETS */ -- DSNTDBL STEP DEFINES BOOTSTRAP DATA SETS */ -- AND ACTIVE LOG DATA SETS */ -- DSNTDIR STEP AMS DEFINES - DIRECTORY TABLE SPACES */ -- DSNTCOP STEP AMS DEFINES - SYSCOPY TABLE SPACE */ -- DSNTDBS STEP AMS DEFINES - SYSDBASE TABLE SPACE */ -- DSNTDBA STEP AMS DEFINES - SYSDBAUT TABLE SPACE */ -- DSNTGPA STEP AMS DEFINES - SYSGPAUT TABLE SPACE */ -- DSNTGRP STEP AMS DEFINES - SYSGROUP TABLE SPACE */ -- DSNTPKG STEP AMS DEFINES - SYSPKAGE TABLE SPACE */ -- DSNTPLN STEP AMS DEFINES - SYSPLAN TABLE SPACE */ -- DSNTSTR STEP AMS DEFINES - SYSSTR TABLE SPACE */ -- DSNTUSR STEP AMS DEFINES - SYSUSER TABLE SPACE */ -- DSNTVTR STEP AMS DEFINES - SYSVIEWS TABLE SPACE */ -- DSNTSTA STEP AMS DEFINES - SYSSTATS TABLE SPACE */ -- DSNTDDF STEP AMS DEFINES - SYSDDF TABLE SPACE */ -- DSNTOBJ STEP AMS DEFINES - SYSOBJ TABLE SPACE */ -- DSNTSEQ STEP AMS DEFINES - SYSSEQ TABLE SPACE */ -- DSNTSEQ2 STEP AMS DEFINES - SYSSEQ2 TABLE SPACE */ -- DSNTHIST STEP AMS DEFINES - SYSHIST TABLE SPACE */ -- DSNTGRTN STEP AMS DEFINES - SYSGRTNS TABLE SPACE */ -- DSNTJAVA STEP AMS DEFINES - SYSJAVA TABLE SPACE */ -- DSNTJAXA STEP AMS DEFINES - SYSJAUXA TABLE SPACE */ -- DSNTJAXB STEP AMS DEFINES - SYSJAUXB TABLE SPACE */ -- DSNTALTR STEP AMS DEFINES - SYSALTER TABLE SPACE */ -- DSNEBCDC STEP AMS DEFINES - SYSEBCDC TABLE SPACE */ -- DSNTILC STEP LIST THE CATALOG ENTRIES */ -- NOTES = */ -- 1. THE INSTALL CLIST SHOULD DO MOST OF THE WORK, */ -- BUT THE INSTALLER MAY INSPECT THE AMS COMMANDS AND */ -- JCL AND EDIT THEM WHERE NECESSARY */ -- TO FIT LOCAL SITE REQUIREMENTS. */ -- 2. DSNAMES, CONTROL INTERVAL SIZE, RECORDSIZE, */ -- LINEAR, NONORDERED, AND SHAREOPTIONS */ -- MUST NOT BE CHANGED FOR DIRECTORY AND CATALOG DATA. */ -- 3. MANY PARAMETERS DO NOT APPLY, INCLUDING SPANNED, */ -- EXCEPTIONEXIT, SPEED, BUFFERSPACE, AND */ -- WRITECHECK FOR DIRECTORY AND CATALOG DATA. */ -- 4. DATA SET SIZES AND VOLUMES MAY BE CHANGED. */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJMC)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJMC -- DESCRIPTIVE NAME = -- DB2 INSTALLATION JOB STREAM -- FUNCTION = CONVERT JDBC AND ODBC METADATA METHODS -- FROM V8 COMPATIBILITY MODE TO V8 NEW-FUNCTION MODE -- PSEUDOCODE = -- DSNTIRU STEP CONVERT METADATA METHODS FOR V8 NFM -- - STOP PROCEDURE ON EACH METADATA METHOD -- - INSERT A ROW FOR MATERIALIZED QUERY TABLES -- INTO SYSIBM.SQLTABLETYPES -- - ALTER PROCEDURE FOR EACH METHOD TO SWITCH -- THE EXTERNAL NAME FROM THE V8 COMPATIBILITY -- MODE MODULE TO THE V8 NEW-FUNCTION MODE -- MODULE -- - BIND PACKAGE FOR EACH PROCEDURE USING THE -- V8 DBRM NAMES -- - START PROCEDURE FOR EACH METADATA METHOD -- DEPENDENCIES = -- NOTES = --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJMS)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- !WLMENV! NAME OF THE WLM APPLICATION C '!WLMENV!' '{WLMENV}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJMS -- DESCRIPTIVE NAME = -- DB2 INSTALLATION JOB STREAM -- FUNCTION = POST-INSTALL JOB TO CREATE OBJECTS REQUIRED FOR THE DB2 -- JDBC AND ODBC METADATA METHODS. -- PSEUDOCODE = -- DSNTICU STEP DROP OBJECTS FOR CLEANUP (OPTIONAL) -- DSNTIRU STEP CREATE DATABASE OBJECTS AND BIND PACKAGES -- DSNTIJS STEP REGISTER THE STORED PROCEDURES -- DSNTIJG STEP GRANT EXECUTE PRIVILEGE ON PROCEDURES AND -- PACKAGES TO PUBLIC -- DEPENDENCIES = -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) THE SUBSYSTEM NAME '!DSN!' TO THE NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLMENV!' TO THE NAME OF THE WLM APPLICATION -- ENVIRONMENT(S) FOR RUNNING THE JDBC AND OBDC METADATA -- STORED PROCEDURES. FOR BEST PERFORMANCE, THIS -- SHOULD BE A WLM APPLICATION ENVIRONMENT THAT IS -- DEFINED WITH A NUMTCB PARAMETER GREATER THAN 1. -- (D) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (3) IF YOU NEED TO FIRST DROP OLD VERSIONS OF THE OBJECTS -- CREATED BY A PREVIOUS EXECUTION OF THIS JOB, UNCOMMENT -- THE LINES IN STEP DSNTICU. -- (4) IN CERTAIN CASES, THE STORED PROCEDURES CREATED BY THIS -- JOB WILL USE DYNAMIC SQL TO ACCESS THE DB2 CATALOG TABLES -- THIS IS PARTICULARLY THE CASE ON DBCS-ENABLED SYSTEMS -- (MIXED=YES SPECIFIED ON THE PROGRAMMING DEFAULTS -- INSTALLATION PANEL). ALSO, WHEN CALLED FROM THE CLI -- DRIVER THAT IS PROVIDED BY DB2 CONNECT VERSION 8 AND -- CERTAIN CLI INSTALLATION OPTIONS ARE SPECIFIED. -- WHEN DYNAMIC SQL IS USED, THE INVOKER'S AUTHORIZATION ID -- MUST HAVE THE SELECT PRIVILEGE FOR ANY DB2 CATALOG TABLES -- ACCESSED BY THE PROCEDURES. IN THE FINAL STEP OF THIS -- JOB THERE IS A GRANT STATEMENT THAT IS COMMENTED OUT. -- IT LISTS ALL THE CATALOG TABLES THAT ARE ACCESSED BY THESE -- PROCEDURES. IF YOU WISH TO GRANT ACCESS TO THESE TABLES -- TO SPECIFIC USERS, OR TO PUBLIC, UNCOMMENT THE GRANT -- STATEMENT AND INSERT THE APPROPRIATE AUTHORIZATION ID'S -- INTO THE STATEMENT. -- WHEN RUN ON A DBCS-ENABLED SYSTEM A RETURN CODE 4 IS EXPECTED -- FROM STEP DSNTIRU. SQLCODE -130 WILL BE RECEIVED ON SOME OF -- THE BIND COMMANDS BUT WIL BE ALLOWED BY THE SQLERROR(CONTINUE) -- OPTION. -- THIS JOB CREATES SOME USER-DEFINED INDEXES ON THE DB2 CATALOG. -- THESE WILL BE CREATED IN DEFAULT STORAGE GROUP SYSDEFLT. IF -- YOUR SYSTEM NEEDS TO MANAGE THE STORAGE FOR THESE INDEXES -- DIFFERENTLY, MODIFY THE CREATE INDEX STATEMENTS IN MEMBER -- DSNATMMC IN PREFIX.SDSNSAMP. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJMV)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- DSNC!!0 VCAT NAME FOR BSDS, LOG, DSNDB01, DSNDB06 C 'DSNC!!0' '{DSN810}' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- DSN!!0.SDSNC.H C 'DSN!!0.SDSNC.H' {DSNC.H} ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- CEE.V!R!M!.SCEEMSGP C 'CEE.V!R!M!.SCEEMSGP' '{LEMSGP}' ALL -- CEE.V!R!M!.SCEECPP C 'CEE.V!R!M!.SCEECPP' '{LECPP}' ALL -- CBC.V!R!M!.SCLBCPP C 'CBC.V!R!M!.SCLBCPP' '{CBCCPP} ALL -- CEE.V!R!M!.SCEEH.H C 'CEE.V!R!M!.SCEEH.H' '{LEH.H}' ALL --********************************************************************/ -- JOB NAME = DSNTIJMV */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = MVS MODIFICATIONS */ -- PSEUDOCODE = */ -- DSNTIMP STEP FOR UPDATING SYS1.PARMLIB */ -- 1) SUBSYSTEM DEFINITION */ -- 2) LINK LIST UPDATE */ -- 3) APF LIST UPDATE */ -- DSNTIPM STEP FOR UPDATING THE MVS PROCLIB WITH DB2: */ -- 1) STARTUP PROCEDURES */ -- 2) PROGRAM PREPARATION PROCEDURES */ -- 3) UTILITY INVOCATION PROCEDURES */ -- NOTES = */ -- PLEASE CHECK THIS JOB CAREFULLY TO ENSURE THAT THE SYSTEM */ -- LIBRARY NAMES ARE THE CORRECT LIBRARY NAMES FOR YOUR SITE. */ --********************************************************************/ --************************************************************ -- JCL FOR RUNNING THE WLM-ESTABLISHED STORED PROCEDURES -- ADDRESS SPACE -- RGN -- THE MVS REGION SIZE FOR THE ADDRESS SPACE. -- DB2SSN -- THE DB2 SUBSYSTEM NAME. -- NUMTCB -- THE NUMBER OF TCBS USED TO PROCESS -- END USER REQUESTS. -- APPLENV -- THE MVS WLM APPLICATION ENVIRONMENT -- SUPPORTED BY THIS JCL PROCEDURE. --************************************************************ -- JCL FOR RUNNING THE WLM-ESTABLISHED STORED PROCEDURES -- ADDRESS SPACE FOR DSNACICS STORED PROCEDURE. OTHER -- STORED PROCEDURES CAN ALSO RUN IN THIS ADDRESS SPACE, -- BUT DSNACICS WILL EXECUTE FASTER IF IT IS THE ONLY -- STORED PROCEDURE USED IN THIS ADDRESS SPACE. -- RGN -- THE MVS REGION SIZE FOR THE ADDRESS SPACE. -- DB2SSN -- THE DB2 SUBSYSTEM NAME. -- NUMTCB -- THE NUMBER OF TCBS USED TO PROCESS -- END USER REQUESTS. THIS MUST NOT -- EXCEED 25 IF CICS 4.1 IS TO BE CALLED -- BY DSNACICS. -- IT MUST NOT EXCEED 100 FOR VERSIONS -- OF CICS NEWER THAN CICS 4.1. THE -- RECOMMENDED MAXIMUM VALUE IS 40. -- APPLENV -- THE MVS WLM APPLICATION ENVIRONMENT -- SUPPORTED BY THIS JCL PROCEDURE. -- THE DSNDUMP DD CARD SHOULD BE UNCOMMENTED IF THE -- INSTALLATION WOULD LIKE THE STORED PROCEDURE DSNACICS -- TO TAKE AN SVC WHENEVER IT IS GOING TO GENERATE AN -- ERROR MESSAGE. -- NOTE: ALL LIBRARIES IN THE STEPLIB CONCATENTATION -- MUST BE APF AUTHORIZED --************************************************************ -- JCL FOR PROCEDURE FOR THE STARTUP -- OF THE IRLM 2.2 LOCK MANAGER -- ADDRESS SPACE. -- THESE PARAMETERS ARE SET FOR DB2. FOR -- GLOBAL SHARING AND OTHER FACILITIES, -- USE THE IMS/VS IRLM PARAMETERS. -- NOTES FOR IRLM 2.2: -- (1) THE PC (CROSS MEMORY) PARM MUST -- BE SET TO YES. DO NOT MODIFY THE -- SETTING FOR PC. -- (2) THE MAXCSA (MAXIMUM ECSA SIZE) PARM -- IS IGNORED BUT IS REQUIRED FOR -- COMPATIBILITY. DO NOT MODIFY THE -- SETTING FOR MAXCSA. -- (3) THE MLMT PARAMETER SPECIFIES THE -- THE AMOUNT OF STORAGE AVAILABLE TO -- IRLM "ABOVE THE BAR", THAT IS THE -- Z/OS MEMLIMIT SETTING FOR THE IRLM -- ADDRESS SPACE. THE IRLM DEFAULT -- IS 2G; IRLM USES 2G IF YOU SPECIFY -- A VALUE OF LESS THAN 2G FOR MLMT. --******************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJMX)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLMN! NAME OF THE WLM FOR THE INSTALLATION SPS C '!WLMN!' '{WLMN}' ALL -- !WLMN1! NAME OF THE WLM FOR THE ONE PHASE -- XML MQSERIES SPS AND UDFS. C '!WLMN1!' '{WLMN1}' ALL -- !WLMN2! NAME OF THE WLM FOR THE TWO PHASE -- XML MQSERIES SPS AND UDFS. C '!WLMN2!' '{WLMN2}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************* -- NAME = DSNTIJMX * -- DESCRIPTIVE NAME = JOB TO BIND DBRM AND INSTALL UDFS AND * -- XML MQSERIES STORED PROCEDURES. * -- FUNCTION = THIS JOB USE TO SETUP THE INSTALLATION FOR UDFS AND * -- XML MQSERIES STORED PROCEDURES * -- !!!! IMPORTANT !!!! * -- IT IS A CASE SENSITIVE FILE. EDIT IT USING 'CAPS OFF' * -- CHECK THE OUTPUT LISTING OF THE STEP RG1PHASE & RG2PHASE * -- TO VERIFY THAT ALL UDFS AND SPS ARE CORRECTLY INSTALLED. * -- !!!! IMPORTANT !!!! * -- NOTES = * -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM* -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 -- (C) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (D) '!WLMN!' TO THE NAME OF THE WLM FOR THE INSTALLATION SPS -- (E) '!WLMN1!' TO THE NAME OF THE WLM FOR THE ONE PHASE -- XML MQSERIES SPS AND UDFS. -- (F) '!WLMN2!' TO THE NAME OF THE WLM FOR THE TWO PHASE -- XML MQSERIES SPS AND UDFS. -- (G) CREATE TEMPORARY DATABASE AND TABLESPACE. UNCOMMENT -- CREATDBT STEP IF YOUR SUBSYSTEM DOES NOT HAVE A TEMPORARY -- DATABASE AND TABLESPACE. --********************************************************************* NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJM1)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLM! NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS C '!WLM!' '{WLM}' ALL -- !SECURITY! TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER C '!SECURITY!' '{SECURITY}' ALL -- !ENSCHEME! ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) C '!ENSCHEME!' '{ENSCHEME}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJMQ -- DESCRIPTIVE NAME = REGISTER DB2 MQSERIES FUNCTIONS -- FUNCTION = THIS JCL REGISTERS THE DB2 MQSERIES FUNCTIONS -- PSEUDOCODE = -- DSNTICU STEP DROP DB2 MQSERIES FUNCTIONS -- DSNTIJS STEP CREATE DB2 MQSERIES FUNCTIONS -- WITH SINGLE-PHASE COMMIT FLAVOR -- DSNTIJG STEP GRANT ACCESS TO DB2 MQSERIES FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLM!' TO THE NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS -- (D) '!SECURITY!' TO THE TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER -- (E) '!ENSCHEME!' TO THE ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) -- (F) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJM2)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLM! NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS C '!WLM!' '{WLM}' ALL -- !SECURITY! TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER C '!SECURITY!' '{SECURITY}' ALL -- !ENSCHEME! ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) C '!ENSCHEME!' '{ENSCHEME}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJMQ -- DESCRIPTIVE NAME = REGISTER DB2 MQSERIES FUNCTIONS -- FUNCTION = THIS JCL REGISTERS THE DB2 MQSERIES FUNCTIONS -- PSEUDOCODE = -- DSNTICU STEP DROP DB2 MQSERIES FUNCTIONS -- DSNTIJS STEP CREATE DB2 MQSERIES FUNCTIONS -- WITH TWO-PHASE COMMIT FLAVOR -- DSNTIJG STEP GRANT ACCESS TO DB2 MQSERIES FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLM!' TO THE NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS -- (D) '!SECURITY!' TO THE TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER -- (E) '!ENSCHEME!' TO THE ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) -- (F) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 V7 --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJNE)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- DSNC!!0 VCAT NAME FOR BSDS, LOG, DSNDB01, DSNDB06 C 'DSNC!!0' '{DSNC!!0}' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJNE -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = ENABLE NEW FUNCTION MODE PROCESSING -- PSEUDOCODE = -- ENFM0000 STEP TERMINATE PENDING DSNENFM.* UTILITIES -- ENFM0001 STEP UPDATE THE CATALOG FOR NEW RELEASE -- ENFM0010 STEP CHECK THE NFM STATUS OF SYSVIEWS -- ENFM0011 STEP CLEAN UP WORK FILES FOR CONVERTING SYSVIEWS -- ENFM0013 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSVIEWS -- ENFM0017 STEP CONVERT SYSVIEWS TO NFM -- ENFM0019 STEP DELETE WORK FILES USED TO CONVERT SYSVIEWS -- ENFM0020 STEP CHECK THE NFM STATUS OF SYSDBASE -- ENFM0021 STEP CLEAN UP WORK FILES FOR CONVERTING SYSDBASE -- ENFM0023 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSDBASE -- ENFM0027 STEP CONVERT SYSDBASE TO NFM -- ENFM0029 STEP DELETE WORK FILES USED TO CONVERT SYSDBASE -- ENFM0030 STEP CHECK THE NFM STATUS OF SYSDBAUT -- ENFM0031 STEP CLEAN UP WORK FILES FOR CONVERTING SYSDBAUT -- ENFM0033 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSDBAUT -- ENFM0037 STEP CONVERT SYSDBAUT TO NFM -- ENFM0039 STEP DELETE WORK FILES USED TO CONVERT SYSDBAUT -- ENFM0040 STEP CHECK THE NFM STATUS OF SYSDDF -- ENFM0041 STEP CLEAN UP WORK FILES FOR CONVERTING SYSDDF -- ENFM0043 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSDDF -- ENFM0047 STEP CONVERT SYSDDF TO NFM -- ENFM0049 STEP DELETE WORK FILES USED TO CONVERT SYSDDF -- ENFM0050 STEP CHECK THE NFM STATUS OF SYSGPAUT -- ENFM0051 STEP CLEAN UP WORK FILES FOR CONVERTING SYSGPAUT -- ENFM0053 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSGPAUT -- ENFM0057 STEP CONVERT SYSGPAUT TO NFM -- ENFM0059 STEP DELETE WORK FILES USED TO CONVERT SYSGPAUT -- ENFM0060 STEP CHECK THE NFM STATUS OF SYSGROUP -- ENFM0061 STEP CLEAN UP WORK FILES FOR CONVERTING SYSGROUP -- ENFM0063 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSGROUP -- ENFM0067 STEP CONVERT SYSGROUP TO NFM -- ENFM0069 STEP DELETE WORK FILES USED TO CONVERT SYSGROUP -- ENFM0070 STEP CHECK THE NFM STATUS OF SYSGRTNS -- ENFM0071 STEP CLEAN UP WORK FILES FOR CONVERTING SYSGRTNS -- ENFM0073 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSGRTNS -- ENFM0077 STEP CONVERT SYSGRTNS TO NFM -- ENFM0079 STEP DELETE WORK FILES USED TO CONVERT SYSGRTNS -- ENFM0080 STEP CHECK THE NFM STATUS OF SYSHIST -- ENFM0081 STEP CLEAN UP WORK FILES FOR CONVERTING SYSHIST -- ENFM0083 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSHIST -- ENFM0087 STEP CONVERT SYSHIST TO NFM -- ENFM0089 STEP DELETE WORK FILES USED TO CONVERT SYSHIST -- ENFM0090 STEP CHECK THE NFM STATUS OF SYSJAVA -- ENFM0091 STEP CLEAN UP WORK FILES FOR CONVERTING SYSJAVA -- ENFM0093 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSJAVA -- ENFM0097 STEP CONVERT SYSJAVA TO NFM -- ENFM0098 STEP COPY SYSJAUXA AND SYSJAUXB -- ENFM0099 STEP DELETE WORK FILES USED TO CONVERT SYSJAVA -- ENFM0100 STEP CHECK THE NFM STATUS OF SYSOBJ -- ENFM0101 STEP CLEAN UP WORK FILES FOR CONVERTING SYSOBJ -- ENFM0103 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSOBJ -- ENFM0107 STEP CONVERT SYSOBJ TO NFM -- ENFM0109 STEP DELETE WORK FILES USED TO CONVERT SYSOBJ -- ENFM0110 STEP CHECK THE NFM STATUS OF SYSPKAGE -- ENFM0111 STEP CLEAN UP WORK FILES FOR CONVERTING SYSPKAGE -- ENFM0113 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSPKAGE -- ENFM0117 STEP CONVERT SYSPKAGE TO NFM -- ENFM0119 STEP DELETE WORK FILES USED TO CONVERT SYSPKAGE -- ENFM0120 STEP CHECK THE NFM STATUS OF SYSPLAN -- ENFM0121 STEP CLEAN UP WORK FILES FOR CONVERTING SYSPLAN -- ENFM0123 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSPLAN -- ENFM0127 STEP CONVERT SYSPLAN TO NFM -- ENFM0129 STEP DELETE WORK FILES USED TO CONVERT SYSPLAN -- ENFM0130 STEP CHECK THE NFM STATUS OF SYSSEQ -- ENFM0131 STEP CLEAN UP WORK FILES FOR CONVERTING SYSSEQ -- ENFM0133 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSSEQ -- ENFM0137 STEP CONVERT SYSSEQ TO NFM -- ENFM0139 STEP DELETE WORK FILES USED TO CONVERT SYSSEQ -- ENFM0140 STEP CHECK THE NFM STATUS OF SYSSEQ2 -- ENFM0141 STEP CLEAN UP WORK FILES FOR CONVERTING SYSSEQ2 -- ENFM0143 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSSEQ2 -- ENFM0147 STEP CONVERT SYSSEQ2 TO NFM -- ENFM0149 STEP DELETE WORK FILES USED TO CONVERT SYSSEQ2 -- ENFM0150 STEP CHECK THE NFM STATUS OF SYSSTATS -- ENFM0151 STEP CLEAN UP WORK FILES FOR CONVERTING SYSSTATS -- ENFM0153 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSSTATS -- ENFM0157 STEP CONVERT SYSSTATS TO NFM -- ENFM0159 STEP DELETE WORK FILES USED TO CONVERT SYSSTATS -- ENFM0160 STEP CHECK THE NFM STATUS OF SYSSTR -- ENFM0161 STEP CLEAN UP WORK FILES FOR CONVERTING SYSSTR -- ENFM0163 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSSTR -- ENFM0167 STEP CONVERT SYSSTR TO NFM -- ENFM0169 STEP DELETE WORK FILES USED TO CONVERT SYSSTR -- ENFM0170 STEP CHECK THE NFM STATUS OF SYSUSER -- ENFM0171 STEP CLEAN UP WORK FILES FOR CONVERTING SYSUSER -- ENFM0173 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSUSER -- ENFM0177 STEP CONVERT SYSUSER TO NFM -- ENFM0179 STEP DELETE WORK FILES USED TO CONVERT SYSUSER -- ENFM0180 STEP CHECK THE NFM STATUS OF SYSSPT01 -- ENFM0181 STEP CLEAN UP WORK FILES FOR CONVERTING SYSSPT01 -- ENFM0183 STEP ALLOCATE SHADOW DATA SETS FOR CONVERTING SYSSPT01 -- ENFM0187 STEP CONVERT SYSSPT01 TO NFM -- ENFM0189 STEP DELETE WORK FILES USED TO CONVERT SYSSPT01 -- ENFM9900 STEP TERMINATE PENDING DSNENFM.* UTILITIES -- NOTES = -- 1. THE INSTALL CLIST SHOULD DO MOST OF THE WORK, -- BUT THE INSTALLER MAY INSPECT THE AMS COMMANDS AND -- JCL AND EDIT THEM WHERE NECESSARY -- TO FIT LOCAL SITE REQUIREMENTS. -- 2. DSNAMES, CONTROL INTERVAL SIZE, RECORDSIZE, -- LINEAR, NONORDERED, AND SHAREOPTIONS -- MUST NOT BE CHANGED FOR DIRECTORY AND CATALOG DATA. -- 3. MANY PARAMETERS DO NOT APPLY, INCLUDING SPANNED, -- EXCEPTIONEXIT, SPEED, BUFFERSPACE, AND -- WRITECHECK FOR DIRECTORY AND CATALOG DATA. -- 4. DATA SET SIZES AND VOLUMES MAY BE CHANGED. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJNF)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJNF -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = TURN NEW FUNCTION MODE (NFM) ON -- PSEUDOCODE = -- ENFM9700 STEP END OF ENABLING NEW FUNCTION MODE (ENFM) -- NOTES = -- (1) DO NOT RUN THIS JOB UNTIL YOU HAVE COMPLETED JOB DSNTIJNE -- (2) AFTER RUNNING THIS JOB, RUN JOB DSNTIJNG TO REBUILD YOUR -- DSNHDECP MODULE - BE SURE THAT DSNHDECM SPECIFIES NEWFUN=YES --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJNG)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL -- '?SMPPRE?' PREFIX OF YOUR SMP LIBRARY NAME. C '?SMPPRE?' '{SMPPRE}' ALL -- '?SMPMLQ?' MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI C '?SMPMLQ?' '{SMPMLQ}' ALL --******************************************************************** -- JOB NAME = DSNTIJNG -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = UPDATE DSNHDECP FOR NEW FUNCTION MODE -- PSEUDOCODE = -- DSNTIZP STEP ASSEMBLE DSNHDECP DATA-ONLY LOAD MODULE -- DSNTIZQ STEP LINK EDIT DSNHDECP LOAD MODULE INTO SDSNEXIT -- DSNTIMQ STEP SMP/E PROCESSING FOR DSNHDECP -- NOTES = STEP DSNTIMQ MUST BE CUSTOMIZED FOR SMP. SEE THE NOTES -- NOTES PRECEDING STEP DSNTIMQ BEFORE RUNNING THIS JOB. -- BE SURE TO UPDATE YOUR CUSTOMIZED COPY OF DSNTIJUZ (AND -- OTHER JOBS YOU USE TO CREATE THE DSNHDECP) WITH THE -- APPROPRIATE SETTING FOR THE NEWFUN PARAMETER. --******************************************************************** --******************************************************************** -- DO SMP/E PROCESSING TO TRACK DSNHDECP CHANGES. * -- NOTE: THIS STEP MUST BE CUSTOMIZED AS FOLLOWS FOR SMP: * -- 1. LOCATE AND CHANGE THE FOLLOWING STRINGS TO THE VALUES YOU * -- SPECIFIED FOR THEM IN JOB DSNTIJAE: * -- A.'?SMPPRE?' TO THE PREFIX OF YOUR SMP LIBRARY NAME. * -- B.'?SMPMLQ?' TO THE MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI * -- 2. UPDATE SYSOUT CLASSES AS DESIRED (DEFAULT IS '*') * --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJNH)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJNH -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = HALT ENABLE NEW FUNCTION MODE PROCESSING -- PSEUDOCODE = -- TIJNH010 STEP CALL CATENFM TO HALT ENFM PROCESSING -- NOTES = -- 1. RUN THIS JOB TO REQUEST A HALT OF ENFM PROCESSING -- (JOB DSNTIJNE) -- 2. DSNTIJNE WILL CONTINUE TO RUN UNTIL THE -- CONVERSION OF THE CURRENT TABLE SPACE IS COMPLETED -- 3. NEVER USE ANY MEANS EXCEPT THIS JOB TO HALT ENFM PROCESSING --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJNR)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJNR -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = CONVERT THE RLST FOR V8 LONGNAME SUPPORT -- PSEUDOCODE = -- DSNTIRU STEP CONVERT THE RLST FOR LONGNAME SUPPORT -- NOTES = -- (1) USE THIS JOB TO CONVERT YOUR DSNRLST01 TABLE -- TO SUPPORT LONG NAMES FOR AUTHORIZATION ID, COLLECTION ID, -- AND PACKAGE ID -- (2) THIS JOB IS REQUIRED ONLY IF YOU HAVE ONE OR MORE -- RLST'S -AND- YOU PLAN TO USE LONG NAMES FOR AUTHORIZATION ID, -- COLLECTION ID, OR PACKAGE ID -- (2) THIS JOB CAN BE RUN AT ANY TIME AFTER DB2 HAS BEEN FULLY -- CONVERTED TO VERSION 8 NEW FUNCTION MODE -- (3) YOU CAN ADAPT THE DDL BELOW TO CONVERT OTHER RLSTS -- DEPENDENCIES = -- RUN THIS JOB WITH RESOURCE LIMIT FACILITY STOPPED --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJPM)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --*********************************************************************0 -- NAME = DSNTIJPM * -- DESCRIPTIVE NAME = DB2 INSTALL JOB * -- PHASE 2 * -- ASSEMBLER * -- FUNCTION = RUN THIS JOB ON DB2 VERSION 7 PRIOR * -- TO MIGRATION TO DB2 VERSION 8. IT QUERIES THE DB2 * -- CATALOG TO IDENTIFY CONDITIONS THAT WILL NEED TO BE * -- REMEDIED BEFORE YOU ATTEMPT TO MIGRATE TO DB2 VERSION * -- 8 OR THAT NEED TO BE ATTENDED TO AFTER YOU HAVE * -- MIGRATED TO DB2 VERSION 8. * -- THERE ARE THREE FORMS OF OUTPUT FROM THIS JOB: * -- (1) 23 REPORTS THAT IDENTIFY CONDITIONS ON DB2 * -- VERSION 7 THAT NEED TO BE REMEDIED BEFORE YOU * -- COMMENCE MIGRATION TO VERSION 8, OR THAT * -- NEED TO BE ATTENDED TO AFTER YOU HAVE MIGRATED * -- TO DB2 VERSION 8. * -- (2) A DATA SET OF 'ALTER INDEX' STATEMENTS THAT CAN * -- BE INPUT TO DSNTIAD TO CONVERT INDEXES FROM TYPE * -- 1 TO TYPE 2. BE SURE TO REVIEW THE CONTENTS OF * -- THIS DATA SETS CAREFULLY PRIOR TO PROCESSING IT. * -- (3) A DATA SET OF 'REBUILD INDEX' UTILITY STATEMENTS * -- THAT CAN BE INPUT TO DSNUPROC TO REBUILD INDEXES * -- AFTER THEY HAVE BEEN CONVERTED FROM TYPE 1 TO TYPE * -- 2. BE SURE TO REVIEW THE CONTENTS OF THIS DATA * -- SET CAREFULLY PRIOR TO PROCESSING IT. * -- PSEUDOCODE = * -- DELETE STEP REMOVE DATA SETS CREATED BY PREVIOUS RUNS * -- UNLOAD STEP CALL DSNTIAUL TO PROCESS SQL STATEMENTS * -- REPORTXX STEP GENERATE REPORTS 1 - 23 * -- NOTES = THE JCL SHOULD USE THE DSNTIAUL MODULE AND PLAN PRE- * -- PARED FOR THE DB2 ENVIRONMENT YOU ARE MIGRATING FROM. * -- THE FOLLOWING MANUAL TAILORING IS REQUIRED: * -- 1. ADD A VALID JOB CARD * -- 2. LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING * -- STRINGS AS INDICATED: * -- A. '!DSN! TO THE NAME OF THE DB2 SUBSYSTEM YOU ARE * -- PREPARING TO MIGRATE. * -- B. 'DSN!!0' TO THE PREFIX OF THE SDSNLOAD TARGET * -- LIBRARY NAME FOR THE DB2 SUBSYSTEM YOU ARE * -- PREPARING TO MIGRATE. * -- C. 'DSNTIB!! TO THE PLAN NAME FOR DSNTIAUL ON THE * -- DB2 SUBSYSTEM YOU ARE PREPARING TO MIGRATE. * --*********************************************************************0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJRC)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- '?SMPPRE?' PREFIX OF YOUR SMP LIBRARY NAME. C '?SMPPRE?' '{SMPPRE}' ALL -- '?SMPMLQ?' MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI C '?SMPMLQ?' '{SMPMLQ}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJRC */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = SMP/E RECEIVE FOR DB2 */ -- ALL RIGHTS RESERVED. */ -- US GOVERNMENT USERS RESTRICTED RIGHTS - */ -- USE, DUPLICATION OR DISCLOSURE RESTRICTED */ -- BY GSA ADP SCHEDULE CONTRACT WITH IBM CORP. */ -- NOTES = */ -- 1. ADD A VALID JOB CARD */ -- 2. LOCATE AND CHANGE THE FOLLOWING STRINGS TO THE VALUES YOU */ -- SPECIFIED FOR THEM IN JOB DSNTIJAE: */ -- A.'?SMPPRE?' TO THE PREFIX OF YOUR SMP LIBRARY NAME. */ -- B.'?SMPMLQ?' TO THE MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI */ -- 3. UPDATE SYSOUT CLASSES AS DESIRED (DEFAULT IS '*') */ -- 4. UPDATE TAPE DEVICE TYPE IF NECESSARY (DEFAULT IS UNIT=TAPE) */ -- 5. REMOVE STEP HIR2101 IF YOU DO NOT WANT TO RECEIVE IRLM */ -- 6. REMOVE OPTIONAL FMID HDB661A FROM THE RECEIVE SELECT LIST IN */ -- STEP HDB6610 IF YOU DO NOT WANT TO RECEIVE DB2 ONLINE HELP */ -- 7. REMOVE STEP H0AL211 IF YOU DO NOT WANT TO RECEIVE OPTIONAL */ -- FMID H0AL211 (TIVOLI GEM DB2 FOR OS/390 INSTRUMENTATION) */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJRX)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- JOB NAME = DSNTIJRX * -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM * -- FUNCTION = BIND REXX LANGUAGE SUPPORT * -- PSEUDOCODE = * -- DSNTIJR1 STEP BIND DSNREXX PACKAGE * -- AND GRANT EXECUTE TO PUBLIC * -- NOTES = */ -- PRIOR TO SUBMITTING, EDIT THIS JOB MANUALLY TO MAKE THE */ -- FOLLOWING CHANGES: */ -- 1. ADD A VALID JOB CARD */ -- 2. LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS */ -- AS INDICATED: */ -- A.THE SUBSYSTEM NAME 'DSN' TO THE NAME OF YOUR DB2 */ -- B.'DSN!!0' TO THE PREFIX OF YOUR TARGET LIBRARY NAME */ -- - RECOMMENDED VALUE: DSN810 */ -- C.'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 */ -- - RECOMMENDED VALUE: DSNTIA81 */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJSD)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLMENV! WORK LOAD MANAGER NAME C '!WLMENV!' '{WLMENV}' ALL -- PARMS('!WLMENV! !DSN! !ID!') C '!ID!' '{ID}' -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJSD -- DESCRIPTIVE NAME = -- DB2 INSTALLATION JOB STREAM -- FUNCTION = POST-INSTALL JOB TO CREATE OBJECTS REQUIRED FOR USING -- THE SQL DEBUGGER FOR LANGUAGE SQL STORED PROCEDURES -- PSEUDOCODE = -- DSNTICU STEP DROP OBJECTS FOR CLEANUP. -- DSNTIJS STEP REGISTER THE STORED PROCEDURES -- DSNTIJG STEP GRANT EXECUTE PRIVILEGE ON STORED PROCEDURES -- TO PUBLIC -- DEPENDENCIES = -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLMENV!' TO THE NAME OF THE WLM APPLICATION -- ENVIRONMENT FOR RUNNING THE SQL DEBUGGER STORED -- PROCEDURES. FOR BEST PERFORMANCE, THIS SHOULD BE -- A WLM APPLICATION ENVIRONMENT THAT IS DEFINED -- WITH A NUMTCB PARAMETER GREATER THAN 5. -- IT IS RECOMMENDED TO SHARE THE SAME WLM -- ENVIRONMENT DEFINED FOR THE JDBC AND ODBC METADATA -- METHODS (REFER TO POST-INSTALL JOB DSNTIJMS). -- (D) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR THE -- CURRENT DB2 RELEASE. --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJSG)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- COLLID DSNTWR!! C 'DSNTWR!!' '{DSNTWR}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJSG */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = CREATE USER MAINTAINED TABLES */ -- PSEUDOCODE = */ -- DSNTICU STEP CLEAN UP STEP TO PERMIT RERUNS */ -- DSNTIRU STEP CREATE STORAGE GROUPS. */ -- BIND DCLGEN, SPUFI AND FLAGGER FACILITIES */ -- CREATE RESOURCE LIMIT FACILITY OBJECTS. */ -- DSNTIJD STEP INITIALIZE COMMUNICATIONS DATA BASE */ -- DSNTIJS STEP CREATE STORED PROCEDURES */ -- ***********************************************/ -- * ATTENTION: BEFORE RUNNING THIS JOB, VERIFY */ -- * THE WLM ENVIRONMENT NAMES SPECIFIED IN THE */ -- * CREATE PROCEDURE STATEMENTS IN STEP DSNTIJS.*/ -- * IF YOU ARE DEPLOYING THE JAVA STORED PROCE- */ -- * DURE PROCESSOR, YOU NEED TO UPDATE THE PATH */ -- * NAME IN THE ENVAR PARM OF THE RUN OPTIONS */ -- * CLAUSE IN THE DSNTJSPP CREATE PROCEDURE */ -- * STATEMENT. */ -- ***********************************************/ -- DSNTIJR STEP CREATE DDL REGISTRATION DATA BASE */ -- DSNTIJG STEP PERMIT ACCESS TO NEW OBJECTS, PLANS. */ -- DEPENDENCIES = */ -- RUN THIS JOB WITH RESOURCE LIMIT FACILITY STOPPED */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJS1)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLM! NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS C '!WLM!' '{WLM}' ALL -- !SECURITY! TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER C '!SECURITY!' '{SECURITY}' ALL -- !ENSCHEME! ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) C '!ENSCHEME!' '{ENSCHEME}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJS1 -- DESCRIPTIVE NAME = REGISTER DB2 MQSERIES PUB/SUB FUNCTIONS -- FOR 1 PHASE COMMIT. -- FUNCTION = THIS JCL REGISTERS THE DB2 MQSERIES FUNCTIONS -- PSEUDOCODE = -- DSNTICU STEP DROP DB2 MQSERIES PUB/SUB FUNCTIONS -- DSNTIJS STEP CREATE DB2 MQSERIES PUB/SUB FUNCTIONS -- WITH ONE-PHASE COMMIT FLAVOR -- DSNTIJG STEP GRANT ACCESS TO DB2 MQSERIES PUB/SUB FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLM!' TO THE NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS -- (D) '!SECURITY!' TO THE TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER -- (E) '!ENSCHEME!' TO THE ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) -- (F) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJS2)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !WLM! NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS C '!WLM!' '{WLM}' ALL -- !SECURITY! TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER C '!SECURITY!' '{SECURITY}' ALL -- !ENSCHEME! ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) C '!ENSCHEME!' '{ENSCHEME}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --******************************************************************** -- NAME = DSNTIJS2 -- DESCRIPTIVE NAME = REGISTER DB2 MQSERIES FUNCTIONS -- FUNCTION = THIS JCL REGISTERS THE DB2 MQSERIES PUB/SUB FUNCTIONS -- PSEUDOCODE = -- DSNTICU STEP DROP DB2 MQSERIES PUB/SUB FUNCTIONS -- DSNTIJS STEP CREATE DB2 MQSERIES PUB/SUB FUNCTIONS -- WITH TWO-PHASE COMMIT FLAVOR -- DSNTIJG STEP GRANT ACCESS TO DB2 MQSERIES PUB/SUB FUNCTIONS -- NOTES = -- PRIOR TO RUNNING THIS JOB, CUSTOMIZE IT FOR YOUR SYSTEM: -- (1) ADD A VALID JOB CARD -- (2) LOCATE AND CHANGE ALL OCCURRENCES OF THE FOLLOWING STRINGS -- AS INDICATED: -- (A) '!DSN!' TO THE SUBSYSTEM NAME OF YOUR DB2 -- (B) 'DSNTIA!!' TO THE PLAN NAME FOR DSNTIAD ON YOUR DB2 -- (C) '!WLM!' TO THE NAME OF THE WLM APPLICATION ENVIRONMENT -- FOR RUNNING DB2 MQSERIES FUNCTIONS -- (D) '!SECURITY!' TO THE TYPE OF SECURITY FOR THE DB2 MQSERIES -- FUNCTIONS, EITHER DB2 OR USER -- (E) '!ENSCHEME!' TO THE ENCODING SCHEME FOR CHARACTER DATA -- PROCESSED BY THE DB2 MQSERIES FUNCTIONS -- (EBCDIC OR ASCII OR UNICODE) -- (F) 'DSN!!0' TO THE PREFIX OF THE TARGET LIBRARY FOR DB2 --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJTC)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJTC */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = TAILOR CATALOG BY ADDING TABLE SPACES, TABLES, */ -- INDEXES, COLUMNS, TABLE CHECK CONSTRAINTS, */ -- REFERENTIAL INTEGRITY, ETC. */ -- PSEUDOCODE = */ -- DSNTITC STEP INVOKE CATMAINT TO TAILOR CATALOG (DDL) */ -- NOTES = */ -- STEP DSNTITC CANNOT BE RERUN AFTER A SUCCESSFUL RUN (RC=0). */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJTM)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- CEE.V!R!M!.SCEEMAC LE MAC LIBRARY C 'CEE.V!R!M!.SCEEMAC' '{LEMAC}' ALL -- CEE.V!R!M!.SCEESPC LE SPC LIBRARY C 'CEE.V!R!M!.SCEESPC' '{LESPC}' ALL -- CEE.V!R!M!.SCEESPCO LE SPCO LIBRARY C 'CEE.V!R!M!.SCEESPCO' '{LESPCO}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJTM */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = CREATE TEMPORARY FILES FOR DB2 */ -- PSEUDOCODE = */ -- DSNTIC PROC FOR INVOKING AMS */ -- DSNTIAD STEP PRECOMPILE, ASSEMBLE, LINKEDIT */ -- DYNAMIC SQL PROGRAM */ -- DSNTWR STEP PRECOMPILE, ASSEMBLE, LINKEDIT */ -- WLM REFRESH STORED PROC PROGRAM */ -- DSNTIAB STEP DEFINE BUFFERPOOL SIZES */ -- WITH ALTER BUFFERPOOL COMMANDS */ -- DSNTIAS STEP ISSUES A STOP FOR DSNDB07 THEN DROP */ -- ALSO BINDS DYNAMIC SQL PROGRAM */ -- DSNTICR STEP RUN PROGRAM TO CREATE DATA BASE */ -- FOR TEMPS (DSNDB07) */ -- DSNTTMP STEP AMS DEFINES FOR THE TEMPORARY */ -- TABLE SPACE DATA SETS */ -- DSNTIST STEP STOP DSNDB07, CREATE TEMPORARY TABLE */ -- SPACES, START DSNDB07 */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJUT)' TYPE=A POS=* FGET {JOBCARD} TYPE=A POS=0 -- !CEE!.SCEERUN LE RUNTIME LIBRARY C '!CEE!.SCEERUN' '{LERUN}' ALL -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- !DSN! DB2 SUBSYSTEM ID C '!DSN!' '{SSID}' ALL -- SYSTEM(DSN) DB2 SUBSYSTEM ID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL -- DSNTIA!! DSNTIAD PLAN NAME C 'DSNTIA!!' '{DSNTIAD}' ALL -- DSNTIB!! DSNTIAUL PLAN NAME C 'DSNTIB!!' '{DSNTIAUL}' ALL -- DSNTEP!! DSNTEP2 PLAN NAME C 'DSNTEP!!' '{DSNTEP2}' ALL -- CEE.V!R!M!.SCEERUN LE RUNTIME LIBRARY C 'CEE.V!R!M!.SCEERUN' '{LERUN}' ALL -- CEE.V!R!M!.SCEELKED LE LINK LIBRARY C 'CEE.V!R!M!.SCEELKED' '{LELKED}' ALL -- !! RELEASE INDICATOR EX. 81 C '!!' '{}' ALL --********************************************************************/0 -- JOB NAME = DSNTIJUT */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = INSTALL UTILITY STORED PROCEDURE */ -- PSEUDOCODE = */ -- DSNTIJU0 STEP CLEAN UP STEP TO PERMIT RERUNS */ -- DSNTIJU1 STEP CREATE STORED PROCEDURE FOR DSNUTILS */ -- DSNTIJU2 STEP CREATE GLOBAL TEMPORARY TABLE FOR DSNUTILS */ -- DSNTIJU3 STEP BIND DSNUTILS PACKAGE */ -- AND GRANT EXECUTE TO PUBLIC */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJUZ)' TYPE=A POS=* -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL --SYSUT1 DD DISP=OLD,DSN=DSNC!!0.BSDS01 --SYSUT2 DD DISP=OLD,DSN=DSNC!!0.BSDS02 -- DSNC!!0 DATASET PREFIX FOR BSDS DATASET C 'DSNC!!0' '{DSNC!!0}' ALL -- A.'?SMPPRE?' TO THE PREFIX OF YOUR SMP LIBRARY NAME. C '?SMPPRE?' '{SMPPRE}' ALL -- B.'?SMPMLQ?' TO THE MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI C '?SMPMLQ?' '{SMPMLQ}' ALL --******************************************************************** -- JOB NAME = DSNTIJUZ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM -- FUNCTION = DSNZPARM AND DSNHDECP UPDATES -- PSEUDOCODE = -- DSNTIZA STEP ASSEMBLE DSN6.... MACROS, CREATE DSNZPARM -- DSNTIZL STEP LINK EDIT DSNZPARM -- DSNTIZP STEP ASSEMBLE DSNHDECP DATA-ONLY LOAD MODULE -- DSNTIZQ STEP LINK EDIT DSNHDECP LOAD MODULE INTO SDSNEXIT -- DSNTCIDA STEP ASSEMBLE DSNHMCID DATA-ONLY LOAD MODULE -- DSNTCIDE STEP LINK EDIT DSNHMCID LOAD MODULE INTO SDSNEXIT -- DSNTCIDL STEP LINK EDIT DSNHMCID LOAD MODULE INTO SDSNLOAD -- DSNTLOG STEP UPDATE PASSWORDS -- DSNTIMQ STEP SMP/E PROCESSING FOR DSNHDECP -- NOTES = STEP DSNTIMQ MUST BE CUSTOMIZED FOR SMP. SEE THE NOTES -- NOTES PRECEDING STEP DSNTIMQ BEFORE RUNNING THIS JOB. --******************************************************************** --******************************************************************** -- DO SMP/E PROCESSING TO TRACK DSNHDECP CHANGES. -- NOTE: THIS STEP MUST BE CUSTOMIZED AS FOLLOWS FOR SMP: -- 1. LOCATE AND CHANGE THE FOLLOWING STRINGS TO THE VALUES YOU -- SPECIFIED FOR THEM IN JOB DSNTIJAE: -- A.'?SMPPRE?' TO THE PREFIX OF YOUR SMP LIBRARY NAME. -- B.'?SMPMLQ?' TO THE MIDDLE LEVEL QUALIFIER OF YOUR SMP CSI -- 2. UPDATE SYSOUT CLASSES AS DESIRED (DEFAULT IS '*') --******************************************************************** NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTIJVC)' TYPE=A POS=* -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL --********************************************************************/0 -- JOB NAME = DSNTIJVC */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = */ -- MERGES EDITED CLISTS WITH ALL OTHER CLISTS INTO ONE LIBRARY */ -- CONVERTS CLISTS TO VARIABLE BLOCK FORMAT */ -- NOTES = */ -- FOR FIXED BLOCK OUTPUT, DO THE FOLLOWING: */ -- 1. CHANGE THE SYSIN DD STATEMENT TO //SYSIN DD DUMMY */ -- 2. CHANGE THE DCB ON THE DSNTIVB.SYSUT2 DD STATEMENT */ --********************************************************************/0 NUM OFF DELETE * * FGET 'DSN810.SDSNSAMP(DSNTJJCL)' TYPE=A POS=* -- DSN!!0 DATASET PREFIX FOR DB2 LIBRARIES C 'DSN!!0' 'DSN810' ALL -- CHANGE THE SYSTEM(DSN) STATEMENT TO MATCH YOUR DB2 V8 SSID C 'SYSTEM(DSN)' 'SYSTEM({SSID})' ALL --********************************************************************/0 -- JOB NAME = DSNTJJCL */ -- DESCRIPTIVE NAME = INSTALLATION JOB STREAM */ -- FUNCTION = SAMPLE JDBC BIND */ -- PSEUDOCODE = */ -- BINDJDBC STEP BIND JDBC DEFAULT PACKAGES AND PLAN */ -- DEPENDENCIES = */ -- JDBC MUST BE INSTALLED */ -- NOTES = */ -- BEFORE RUNNING THIS JOB: */ -- - ADD ANY NECESSARY JOB CARD INFORMATION */ -- - CHANGE ALL OCCURRENCES OF DSN!!0 TO THE PREFIX OF YOUR DB2 */ -- V8 SDSNLOAD AND SDSNDBRM DATA SETS */ -- - CHANGE THE SYSTEM(DSN) STATEMENT TO MATCH YOUR DB2 V8 SSID */ -- AFTER RUNNING THIS JOB: */ -- - GRANT EXECUTE PRIVILEGE FOR PLAN DSNJDBC TO PUBLIC. */ -- - GRANT EXECUTE PRIVILEGE FOR COLLECTIONID DSNJDBC TO PUBLIC. */ -- JDBC CAN BE BOUND TO REMOTE SERVERS BY ADDING ADDITIONAL BIND */ -- PACKAGE STATEMENTS THAT SPECIFY THE REMOTE LOCATION NAME, AS IN: */ -- BIND PACKAGE (LOC1.DSNJDBC) MEMBER(DSNJDBC1) ISOLATION(UR) */ -- AND THEN INCLUDING THOSE PACKAGES IN THE PKLIST FOR THE DSNJDBC */ -- PLAN. */ --********************************************************************/0