Professional Web Applications Themes

Help an os/390 db2 newbie, please! - IBM DB2

I have been installing DB2 for a couple of daya, I'm a member of the Partnerword IBM group so we get these cool prebuilt systems on CD, one CD just contains DB2 and related stuff, I unzip the file to one of my MP3000 drives, connect the catalog, add aliases, and viola, instant DB2 7.1, so I fire it up, and spend the morning happiliy doing "GRANT SYSADM to user" using steplibs to the new libs. Then I IPL to add the entries ti linklist (yea, I know you can dynam that stuff, but I wanted a nice clean clpa, ...

  1. #1

    Default Help an os/390 db2 newbie, please!

    I have been installing DB2 for a couple of daya, I'm a member of the
    Partnerword IBM group so we get these cool prebuilt systems on CD, one
    CD just contains DB2 and related stuff, I unzip the file to one of my
    MP3000 drives, connect the catalog, add aliases, and viola, instant
    DB2 7.1, so I fire it up, and spend the morning happiliy doing "GRANT
    SYSADM to user" using steplibs to the new libs. Then I IPL to add the
    entries ti linklist (yea, I know you can dynam that stuff, but I
    wanted a nice clean clpa, clean CSA, etc)

    after that all my Grant attempts just get this mess:

    Rollback done
    SQLCODE : -805 DSNTIAR
    CODE : 0

    DSNT408I SQLCODE = -805, ERROR: DBRM OR PACKAGE NAME
    S390LOC..ADBMAIN.16524BA-
    D043195D0 NOT FOUND IN PLAN ADB. REASON 03
    DSNT418I SQLSTATE = 51002 SQLSTATE RETURN CODE
    DSNT415I SQLERRP = DSNXEPM SQL PROCEDURE DETECTING ERROR
    DSNT416I SQLERRD = -250 0 0 -1 0 0 SQL DIAGNOSTIC INFORMATION
    DSNT416I SQLERRD = X'FFFFFF06' X'00000000' X'00000000'
    X'FFFFFFFF'
    X'00000000' X'00000000' SQL DIAGNOSTIC INFORMATION

    All I changed was PROG00 and the list of HFS data mounts, just like
    the parmlib on the prebuilt system shows, and note the s390loc and
    adbmain have two dots between them.

    I then reloaded the db2 pack, no difference, put the old parmlib
    changes back, no help... HELP!!!!!

    TIA
    Larry

    Larry Guest

  2. #2

    Default Re: Help an os/390 db2 newbie, please!

    "Larry Williams" <netcom.com> wrote in message
    news:com... 

    The DB2 package name with the problem is D043195D0, which may also be the
    program name if you can figure out what the program is, it might help.

    Note for future reference that the reason code is 03.

    You can look up -805 (reason code 03) in the Messages and Codes manual. It
    should be on your CD in PDF format, but if you don't have one, it can be
    downloaded from the IBM site. I looked at it and I doubt you can fix it if
    you are not familiar with DB2 and the application.

    I assume you have IBM support with this software, so I would call them.


    Mark Guest

  3. #3

    Default Re: Help an os/390 db2 newbie, please! WARNING LONG!

    On Sat, 11 Oct 2003 01:54:37 GMT, Larry Williams
    <netcom.com> wrote:
     
    After MUCH digging encountered a DB2 PM lib called ADB410.SADBSAMP.
    It in fact contained two sample jobs: ADBBIND and ADBCHKPT. Both had
    been updated by IBMUSER. These two members contained all my missing
    plans (ADB, ADBMAIN, etc.) - One small problem! The jobs don't work.


    16.09.43 JOB00871 ---- TUESDAY, 14 OCT 2003 ----
    16.09.43 JOB00871 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
    16.09.43 JOB00871 ICH70001I IBMUSER LAST ACCESS AT 15:59:19 ON
    TUESDAY, OCTOBER 14, 2003
    16.09.43 JOB00871 $HASP373 ADBBIND STARTED - INIT 1 - CLASS A -
    SYS M390
    16.09.43 JOB00871 IEF403I ADBBIND - STARTED - TIME=16.09.43
    16.09.54 JOB00871 -
    --TIMINGS (MINS.)-- ----PAGING COUNTS---
    16.09.54 JOB00871 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN
    TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
    16.09.54 JOB00871 -ADBBIND BIND 04 260 11
    ..12 .00 .1 22048 1 0 0 0 0
    16.09.54 JOB00871 IEF404I ADBBIND - ENDED - TIME=16.09.54
    16.09.54 JOB00871 -ADBBIND ENDED. NAME-IBMUSER TOTAL
    TCB CPU TIME= .12 TOTAL ELAPSED TIME= .1
    16.09.54 JOB00871 XYZ107I JOB ENDED: ADBBIND IBMUSER
    16.09.54 JOB00871 $HASP395 ADBBIND ENDED
    0------ JES2 JOB STATISTICS ------
    - 14 OCT 2003 JOB EXECUTION DATE
    - 208 CARDS READ
    - 789 SYSOUT PRINT RECORDS
    - 0 SYSOUT PUNCH RECORDS
    - 32 SYSOUT SPOOL KBYTES
    - 0.18 MINUTES EXECUTION TIME
    1 //ADBBIND JOB (20,FB3),IBMUSER,MSGLEVEL=(1,1),TIME=20,
    JOB00871
    // CLASS=A,MSGCLASS=H,NOTIFY=IBMUSER,REGION=6M
    //*

    //************************************************** ****************
    //* ADBBIND - SAMPLE JOB TO BIND DB2 ADMIN
    *
    //* DATABASE 2 ADMINISTRATION TOOL.
    *
    //* CUSTOMIZE THE JOB TO MEET YOUR LOCAL STANDARDS.
    *
    //* WHEN RUNNING THIS JOB ON A DB2 V5 SYSTEM, BIND WILL
    ISSUE *
    //* ERROR MESSAGES FOR DB2 CATALOG TABLES THAT DO NOT
    EXIST *
    //* IN A DB2 V5 SYSTEM. THESE MESSAGES CAN BE IGNORED.
    *
    //*
    *
    //* EXPECTED RETURN CODES: STEP NAME RETURN CODE
    *
    //* 1 BIND 0 OR 4
    *
    //*
    *

    //************************************************** ****************
    //*
    *
    //* START_COPYRIGHT
    *
    //* STATEMENT:
    *
    //* DATABASE 2 ADMINISTRATION TOOL
    *
    //* 5655-I23
    *
    //* (C) COPYRIGHT IBM CORP. 1995, 2002 - ALL RIGHTS
    RESERVED *
    //* LICENSED MATERIALS - PROPERTY OF IBM
    *
    //* US GOVERNMENT USERS RESTRICTED RIGHTS - USE,
    *
    //* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA ADP
    *
    //* SCHEDULE CONTRACT WITH IBM CORP.
    *
    //*
    *
    //* STATUS: VERSION 4 RELEASE 1
    *
    //*
    *
    //* CHANGE ACTIVITIES:
    *
    //*
    *
    //* V4 - USE THE SAME PACKAGE LIST FOR ADBTEP2
    *
    //* - SUPPORT USE OF THE PLAN NAME SPECIFIED ON
    THE *
    //* ADBL INVOCATION FOR ADBTEP2.
    *
    //* D PACKAGE(ADBL) /* THE QUALIFIER SHOULD MATCH THE
    OWNER */ -
    //* MEMBER(ADBTEP2) /* OF THE CHECKPOINT TABLE
    ADBCHKPT */ -
    //* QUALIFIER(ADB) /* DEFINED IN MEMBER
    SADBSAMP(ADBCHKPT) */ -
    //* VALIDATE(BIND) /* THE OWNER WILL BE THE CURRENT
    SQLID */ -
    //* ISOLATION(CS) /* IN THAT MEMBER
    */ -
    //*
    *
    //* END_COPYRIGHT
    *
    //*
    *

    //************************************************** ****************
    //* BIND DB2 ADMIN

    //************************************************** ********************
    //* SEARCH FOR "<===" ON LINES THAT REQUIRE
    CUSTOMIZATION *

    //************************************************** ********************
    2 //BIND EXEC PGM=IKJEFT01,DYNAMNBR=100
    3 //STEPLIB DD DSN=DSN710.RUNLIB.LOAD,DISP=SHR
    4 // DD DSN=DSN710.SDSNEXIT,DISP=SHR
    5 // DD DSN=DSN710.SDSNLOAD,DISP=SHR
    6 //DBRMLIB DD DISP=SHR,DSN=ADB410.SADBDBRM
    7 //SYSTSPRT DD SYSOUT=*
    8 //SYSPRINT DD SYSOUT=*
    9 //SYSUDUMP DD SYSOUT=*
    10 //SYSTSIN DD *
    11 //SYSIN DD * FOR DSNTIAD
    ICH70001I IBMUSER LAST ACCESS AT 15:59:19 ON TUESDAY, OCTOBER 14,
    2003
    IEF236I ALLOC. FOR ADBBIND BIND
    IEF237I 0A86 ALLOCATED TO STEPLIB
    IEF237I 0A86 ALLOCATED TO
    IEF237I 0A86 ALLOCATED TO
    IEF237I 0A86 ALLOCATED TO DBRMLIB
    IEF237I JES2 ALLOCATED TO SYSTSPRT
    IEF237I JES2 ALLOCATED TO SYSPRINT
    IEF237I JES2 ALLOCATED TO SYSUDUMP
    IEF237I JES2 ALLOCATED TO SYSTSIN
    IEF237I JES2 ALLOCATED TO SYSIN
    IEF142I ADBBIND BIND - STEP WAS EXECUTED - COND CODE 0004
    IEF285I DSN710.RUNLIB.LOAD KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I DSN710.SDSNEXIT KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I DSN710.SDSNLOAD KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I IBMUSER.ADBBIND.JOB00871.D0000103.? SYSOUT
    IEF285I IBMUSER.ADBBIND.JOB00871.D0000104.? SYSOUT
    IEF285I IBMUSER.ADBBIND.JOB00871.D0000105.? SYSOUT
    IEF285I IBMUSER.ADBBIND.JOB00871.D0000101.? SYSIN
    IEF285I IBMUSER.ADBBIND.JOB00871.D0000102.? SYSIN
    IEF285I ADB410.SADBDBRM KEPT
    IEF285I VOL SER NOS= S4DB21.
    XYZ120I
    ------------------------------------------------------------------------
    S t e p E n d S t a t i s t i c s

    Step Name: BIND Cond Code: 0004 Start: 14-Oct-2003
    04:09:43 PM
    Step Num: 1 PGM Name: IKJEFT01 End: 14-Oct-2003
    04:09:54 PM
    CPU (TCB): 00:00:07.56 Storage below 16M:
    428k
    CPU (SRB): 00:00:00.01 Storage above 16M:
    140k
    Trans Act: 00:00:11.20 Service Units:
    22,048
    Tape Mnts: 0 Total EXCPs:
    260

    Unit-- DDName-- EXCP Count-- Blksize Unit-- DDName-- EXCP
    Count-- Blksize
    0A86 D STEPLIB 5 6,233 0A86 D DBRMLIB
    32 27,920


    Total DASD EXCPs: 37 Total Tape EXCPs:
    0

    XYZ121I
    ------------------------------------------------------------------------
    IEF373I STEP/BIND /START 2003287.1609
    IEF374I STEP/BIND /STOP 2003287.1609 CPU 0MIN 07.56SEC SRB
    0MIN 00.01SEC VIRT 428K SYS 368K EXT 140K SYS 10084K
    XYZ120I
    ------------------------------------------------------------------------
    J o b E n d S t a t i s t i c s

    Job Name: ADBBIND System ID: M390 Submit: 14-Oct-2003
    04:09:43 PM
    Job JESID: JOB00871 MVS level: SP6.1.0 Start: 14-Oct-2003
    04:09:43 PM
    Job Class: A End: 14-Oct-2003
    04:09:54 PM
    CPU (TCB): 00:00:07.56 Storage below 16M:
    428k
    CPU (SRB): 00:00:00.01 Storage above 16M:
    140k
    Trans Act: 00:00:11.20 Service Units:
    22,048
    Tape Mnts: 0 Total EXCPs:
    260

    ---------------Paging---------------
    ---------------Paging---------------
    VIO In: 0 VIO Out:
    0
    Pages In: 0 Pages Out:
    0
    Common (LPA+CSA): 0 Hiperspace:
    0
    VIO Reclaims: 0 Pages Stolen:
    0

    ACF2 User: IBMUSER Programmer: IBMUSER
    Acct Info: 20,FB3

    XYZ122I
    ------------------------------------------------------------------------
    IEF375I JOB/ADBBIND /START 2003287.1609
    IEF376I JOB/ADBBIND /STOP 2003287.1609 CPU 0MIN 07.56SEC SRB
    0MIN 00.01SEC
    1READY
    DSN SYSTEM(DSN1)
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADBMAIN) VALIDATE(BIND)
    ISOLATION(CS) RELEASE(C) EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBMAIN.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER IBMUSER
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBMAIN.()
    SQLERROR NOPACKAGE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADBMAIN.()
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2CON) VALIDATE(BIND)
    ISOLATION(CS) RELEASE(C) EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2CON.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER IBMUSER
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2CON.()
    SQLERROR NOPACKAGE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    1 ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2CON.()
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2GET) VALIDATE(BIND)
    ISOLATION(CS) RELEASE(C) EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2GET.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER IBMUSER
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2GET.()
    SQLERROR NOPACKAGE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2GET.()
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2REE) QUALIFIER(SYSIBM)
    SQLERROR(CONTINUE) VALIDATE(BIND) ISOLATION(CS)
    RELEASE(COMMIT) EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2REE.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER SYSIBM
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2REE.()
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    1 NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2REE.()
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2PRP) SQLERROR(CONTINUE)
    VALIDATE(BIND) ISOLATION(CS) RELEASE(COMMIT)
    EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2PRP.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER IBMUSER
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2PRP.()
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2PRP.()
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2ZP) SQLERROR(CONTINUE)
    VALIDATE(BIND) ISOLATION(CS) RELEASE(COMMIT)
    EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2ZP.(1)
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER IBMUSER
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    1 PACKAGE = S390LOC.ADBL.ADB2ZP.(1)
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2ZP.(1)
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB27AC) QUALIFIER(SYSIBM)
    SQLERROR(CONTINUE) VALIDATE(BIND) ISOLATION(CS)
    RELEASE(COMMIT) EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB27AC.(1)
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER SYSIBM
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB27AC.(1)
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB27AC.(1)
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADBTEP2) QUALIFIER(ADB)
    VALIDATE(BIND) ISOLATION(CS) RELEASE(C) SQLER
    ROR(CONTINUE) EXPLAIN(NO)
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=2174
    1 SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=2239
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=2338
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=2860
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=4699
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=4782
    SQLCODE=-204
    1 SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=7364
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNX200I -DSN1 BIND SQL ERROR
    USING IBMUSER AUTHORITY
    PLAN=(NOT APPLICABLE)
    DBRM=ADBTEP2
    STATEMENT=7380
    SQLCODE=-204
    SQLSTATE=42704
    TOKENS=ADB.ADBCHKPT
    CSECT NAME=DSNXOTL
    RDS CODE=-500
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBTEP2.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER ADB
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBTEP2.()
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADBTEP2.()
    DSN
    DSN
    1 BIND PACKAGE(ADBL) MEMBER(ADBASW) QUALIFIER(SYSIBM)
    VALIDATE(BIND) ISOLATION(CS) RELEASE(C) EXP
    LAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBASW.(1)
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER SYSIBM
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE COMMIT
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADBASW.(1)
    SQLERROR NOPACKAGE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADBASW.(1)
    DSN
    DSN
    BIND PLAN(ADB) PKLIST(*.ADBL.*) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) RELEASE(COMMIT) EXPLA
    IN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    1 ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADB SUCCESSFUL
    DSN
    DSN
    BIND PLAN(ADB2GEN) PKLIST(*.ADBL.*) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) RELEASE(COMMIT) EX
    PLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2GEN
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2GEN
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADB2GEN SUCCESSFUL
    DSN
    DSN
    BIND PLAN(ADB27AC) PKLIST(*.ADBL.*) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) RELEASE(COMMIT) EX
    PLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB27AC
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB27AC
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    1 DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADB27AC SUCCESSFUL
    DSN
    DSN
    BIND PLAN(ADBTEP2) PKLIST(*.ADBL.ADBTEP2) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) RELEASE(COMMIT)
    EXPLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADBTEP2
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADBTEP2
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADBTEP2 SUCCESSFUL
    DSN
    DSN
    BIND PLAN(ADBTEPA) PKLIST(*.ADBL.ADBASW, *.ADBL.ADBTEP2)
    VALIDATE(BIND) ISOLATION(CS) ACQUIRE(USE) REL
    EASE(COMMIT) EXPLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADBTEPA
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADBTEPA
    NODEFER PREPARE
    1 CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADBTEPA SUCCESSFUL
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2RIP) QUALIFIER(SYSIBM)
    SQLERROR(CONTINUE) VALIDATE(BIND) ISOLATION(CS)
    EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2RIP.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER SYSIBM
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2RIP.()
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2RIP.()
    DSN
    DSN
    BIND PLAN(ADB2RIP) PKLIST(*.ADBL.*) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) EXPLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2RIP
    ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    1 RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2RIP
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADB2RIP SUCCESSFUL
    DSN
    DSN
    BIND PACKAGE(ADBL) MEMBER(ADB2WCL) QUALIFIER(SYSIBM)
    SQLERROR(CONTINUE) VALIDATE(BIND) ISOLATION(CS)
    EXPLAIN(NO)
    DSNT254I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2WCL.()
    ACTION REPLACE
    OWNER IBMUSER
    QUALIFIER SYSIBM
    VALIDATE BIND
    EXPLAIN NO
    ISOLATION CS
    RELEASE
    COPY
    DSNT255I -DSN1 DSNTBCM2 BIND OPTIONS FOR
    PACKAGE = S390LOC.ADBL.ADB2WCL.()
    SQLERROR CONTINUE
    CURRENTDATA YES
    DEGREE 1
    DYNAMICRULES
    DEFER
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT232I -DSN1 SUCCESSFUL BIND FOR
    PACKAGE = S390LOC.ADBL.ADB2WCL.()
    DSN
    DSN
    BIND PLAN(ADB2WCL) PKLIST(*.ADBL.*) VALIDATE(BIND)
    ISOLATION(CS) ACQUIRE(USE) EXPLAIN(NO)
    DSNT252I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2WCL
    1 ACTION REPLACE
    OWNER IBMUSER
    VALIDATE BIND
    ISOLATION CS
    ACQUIRE USE
    RELEASE COMMIT
    EXPLAIN NO
    DYNAMICRULES RUN
    DSNT253I -DSN1 DSNTBCM1 BIND OPTIONS FOR PLAN ADB2WCL
    NODEFER PREPARE
    CACHESIZE 1024
    QUALIFIER IBMUSER
    CURRENTSERVER
    CURRENTDATA YES
    DEGREE 1
    SQLRULES DB2
    DISCONNECT EXPLICIT
    NOREOPT VARS
    KEEPDYNAMIC NO
    IMMEDWRITE NO
    DBPROTOCOL DRDA
    OPTHINT
    ENCODING EBCDIC(00037)
    PATH
    DSNT200I -DSN1 BIND FOR PLAN ADB2WCL SUCCESSFUL
    DSN
    DSN
    RUN PROGRAM(DSNTIAD) PLAN(DSNTIA71)
    DSN
    END
    READY
    END
    DSNTIAD - SAMPLE DYNAMIC SQL PROGRAM 2.0
    0
    GRANT EXECUTE ON PLAN ADB TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADB2GEN TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADB27AC TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADBTEP2 TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADBTEPA TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADB2RIP TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    0
    GRANT EXECUTE ON PLAN ADB2WCL TO PUBLIC
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION

    SECOND JOB:


    16.11.35 JOB00872 ---- TUESDAY, 14 OCT 2003 ----
    16.11.35 JOB00872 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
    16.11.35 JOB00872 ICH70001I IBMUSER LAST ACCESS AT 16:09:43 ON
    TUESDAY, OCTOBER 14, 2003
    16.11.35 JOB00872 $HASP373 ADBCHKPT STARTED - INIT 1 - CLASS A -
    SYS M390
    16.11.35 JOB00872 IEF403I ADBCHKPT - STARTED - TIME=16.11.35
    16.11.38 JOB00872 -
    --TIMINGS (MINS.)-- ----PAGING COUNTS---
    16.11.38 JOB00872 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN
    TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
    16.11.38 JOB00872 -ADBCHKPT CRETAB 08 220 10
    ..00 .00 .0 694 1 0 0 0 0
    16.11.38 JOB00872 IEF404I ADBCHKPT - ENDED - TIME=16.11.38
    16.11.38 JOB00872 -ADBCHKPT ENDED. NAME-CREATE CHECK PT TOTAL
    TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
    16.11.38 JOB00872 XYZ107I JOB ENDED: ADBCHKPT CREATE CHECK PT
    16.11.38 JOB00872 $HASP395 ADBCHKPT ENDED
    0------ JES2 JOB STATISTICS ------
    - 14 OCT 2003 JOB EXECUTION DATE
    - 105 CARDS READ
    - 218 SYSOUT PRINT RECORDS
    - 0 SYSOUT PUNCH RECORDS
    - 12 SYSOUT SPOOL KBYTES
    - 0.04 MINUTES EXECUTION TIME
    1 //ADBCHKPT JOB (ACCT-INFO),'CREATE CHECK PT',
    JOB00872
    // CLASS=A,
    00002002
    // MSGCLASS=H,
    00003002
    // REGION=0M,
    00004002
    // NOTIFY=&SYSUID
    00005002

    //************************************************** ****************
    00006002
    //* ADBCHKPT - SAMPLE JOB TO CREATE DB2 ADMIN BATCH
    CHECKPOINT * 00007002
    //* TABLE
    * 00007102
    //*
    * 00007202
    //* DATABASE 2 ADMINISTRATION TOOL.
    * 00007302
    //* CUSTOMIZE THE JOB TO MEET YOUR LOCAL STANDARDS
    * 00007402
    //*
    * 00007502
    //* REFER TO THE DB2 ADMIN PROGRAM DIRECTORY FOR
    INSTRUCTIONS * 00007602
    //* ABOUT HOW TO MODIFY THIS JOB FOR YOUR INSTALLATION.
    * 00007702
    //*
    * 00007802
    //* EXPECTED RETURN CODES: STEP NAME RETURN CODE
    * 00007902
    //* 1 CRECAT 0
    * 00008002
    //*
    * 00008102

    //************************************************** ****************
    00008202
    //*
    * 00008302
    //* START_COPYRIGHT
    * 00008402
    //* STATEMENT:
    * 00008502
    //* DATABASE 2 ADMINISTRATION TOOL
    * 00008602
    //* 5655-E64
    * 00008702
    //* (C) COPYRIGHT IBM CORP. 1995, 2000 - ALL RIGHTS
    RESERVED * 00008802
    //* LICENSED MATERIALS - PROPERTY OF IBM
    * 00008902
    //* US GOVERNMENT USERS RESTRICTED RIGHTS - USE,
    * 00009002
    //* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA ADP
    * 00009202
    //* SCHEDULE CONTRACT WITH IBM CORP.
    * 00009402
    //*
    * 00009602
    //* STATUS: VERSION 3 RELEASE 1
    * 00009802
    //*
    * 00010002
    //* END_COPYRIGHT
    * 00010202
    //*
    * 00010402

    //************************************************** ****************
    00010602
    //* CREATE TABLE
    00010802

    //************************************************** ********************00011002
    IEFC653I SUBSTITUTION JCL - (ACCT-INFO),'CREATE CHECK
    PT',CLASS=A,MSGCLASS=H,REGION=0M,NOTIFY=IBMUSER
    2 //CRETAB EXEC PGM=IKJEFT01,DYNAMNBR=100
    00011202
    3 //STEPLIB DD DSN=DSN710.RUNLIB.LOAD,DISP=SHR
    00011402
    4 // DD DSN=DSN710.SDSNEXIT,DISP=SHR
    00011502
    5 // DD DSN=DSN710.SDSNLOAD,DISP=SHR
    00011602
    6 //SYSTSPRT DD SYSOUT=*
    00011702
    7 //SYSPRINT DD SYSOUT=*
    00011802
    8 //SYSUDUMP DD SYSOUT=*
    00011902
    9 //SYSTSIN DD *
    00012002
    10 //SYSIN DD *
    00012402
    ICH70001I IBMUSER LAST ACCESS AT 16:09:43 ON TUESDAY, OCTOBER 14,
    2003
    IEF236I ALLOC. FOR ADBCHKPT CRETAB
    IEF237I 0A86 ALLOCATED TO STEPLIB
    IEF237I 0A86 ALLOCATED TO
    IEF237I 0A86 ALLOCATED TO
    IEF237I JES2 ALLOCATED TO SYSTSPRT
    IEF237I JES2 ALLOCATED TO SYSPRINT
    IEF237I JES2 ALLOCATED TO SYSUDUMP
    IEF237I JES2 ALLOCATED TO SYSTSIN
    IEF237I JES2 ALLOCATED TO SYSIN
    IEF142I ADBCHKPT CRETAB - STEP WAS EXECUTED - COND CODE 0008
    IEF285I DSN710.RUNLIB.LOAD KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I DSN710.SDSNEXIT KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I DSN710.SDSNLOAD KEPT
    IEF285I VOL SER NOS= S4DB21.
    IEF285I IBMUSER.ADBCHKPT.JOB00872.D0000103.? SYSOUT
    IEF285I IBMUSER.ADBCHKPT.JOB00872.D0000104.? SYSOUT
    IEF285I IBMUSER.ADBCHKPT.JOB00872.D0000105.? SYSOUT
    IEF285I IBMUSER.ADBCHKPT.JOB00872.D0000101.? SYSIN
    IEF285I IBMUSER.ADBCHKPT.JOB00872.D0000102.? SYSIN
    XYZ120I
    ------------------------------------------------------------------------
    S t e p E n d S t a t i s t i c s

    Step Name: CRETAB Cond Code: 0008 Start: 14-Oct-2003
    04:11:35 PM
    Step Num: 1 PGM Name: IKJEFT01 End: 14-Oct-2003
    04:11:38 PM
    CPU (TCB): 00:00:00.17 Storage below 16M:
    672k
    CPU (SRB): 00:00:00.00 Storage above 16M:
    640k
    Trans Act: 00:00:02.41 Service Units:
    694
    Tape Mnts: 0 Total EXCPs:
    220

    Unit-- DDName-- EXCP Count-- Blksize Unit-- DDName-- EXCP
    Count-- Blksize
    0A86 D STEPLIB 17 6,233

    Total DASD EXCPs: 17 Total Tape EXCPs:
    0

    XYZ121I
    ------------------------------------------------------------------------
    IEF373I STEP/CRETAB /START 2003287.1611
    IEF374I STEP/CRETAB /STOP 2003287.1611 CPU 0MIN 00.17SEC SRB
    0MIN 00.00SEC VIRT 672K SYS 336K EXT 640K SYS 10040K
    XYZ120I
    ------------------------------------------------------------------------
    J o b E n d S t a t i s t i c s

    Job Name: ADBCHKPT System ID: M390 Submit: 14-Oct-2003
    04:11:35 PM
    Job JESID: JOB00872 MVS level: SP6.1.0 Start: 14-Oct-2003
    04:11:35 PM
    Job Class: A End: 14-Oct-2003
    04:11:38 PM
    CPU (TCB): 00:00:00.17 Storage below 16M:
    672k
    CPU (SRB): 00:00:00.00 Storage above 16M:
    640k
    Trans Act: 00:00:02.41 Service Units:
    694
    Tape Mnts: 0 Total EXCPs:
    220

    ---------------Paging---------------
    ---------------Paging---------------
    VIO In: 0 VIO Out:
    0
    Pages In: 0 Pages Out:
    0
    Common (LPA+CSA): 0 Hiperspace:
    0
    VIO Reclaims: 0 Pages Stolen:
    0

    ACF2 User: IBMUSER Programmer: CREATE CHECK
    PT
    Acct Info: ACCT-INFO

    XYZ122I
    ------------------------------------------------------------------------
    IEF375I JOB/ADBCHKPT/START 2003287.1611
    IEF376I JOB/ADBCHKPT/STOP 2003287.1611 CPU 0MIN 00.17SEC SRB
    0MIN 00.00SEC
    1READY
    DSN SYSTEM(DSN1)
    DSN
    RUN PROGRAM(DSNTEP2) PLAN(DSNTEP71)
    DSN
    END
    READY
    END
    1
    1PAGE 1
    -- STOGROUP ADBGCH CHANGE
    -- VCAT DSN710 IF
    -- DATABASE ADBDCH NEEDED
    -- TABLESPACE ADBSCH ..
    -- OBJECT OWNER ADB ..
    ***INPUT STATEMENT:
    SET CURRENT SQLID='IBMUSER';
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    SET SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    DROP DATABASE "ADBDCH";
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    DROP SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    COMMIT;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    COMMIT SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    DROP STOGROUP "ADBGCH";
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    DROP SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    COMMIT;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    COMMIT SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    CREATE STOGROUP "ADBGCH"
    VOLUMES(S4DB21)
    VCAT DB2;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    CREATE SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    COMMIT;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    COMMIT SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    CREATE DATABASE "ADBDCH"
    STOGROUP "ADBGCH" CCSID EBCDIC;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    CREATE SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    COMMIT;
    RESULT OF SQL STATEMENT:
    DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    COMMIT SUCCESSFUL
    1PAGE 1
    ***INPUT STATEMENT:
    CREATE TABLESPACE "ADBSCH"
    IN "ADBDCH"
    USING STOGROUP "ADBGCH"
    PRIQTY 40 SECQTY 40
    LOCKSIZE ROW;
    SQLERROR ON CREATE COMMAND, EXECUTE FUNCTION
    RESULT OF SQL STATEMENT:
    DSNT408I SQLCODE = -904, ERROR: UNSUCCESSFUL EXECUTION CAUSED BY AN
    UNAVAILABLE RESOURCE. REASON 00D70025, TYPE OF RESOURCE
    00000220, AND RESOURCE NAME
    DB2.DSNDBC.ADBDCH.ADBSCH.I0001.A001
    DSNT418I SQLSTATE = 57011 SQLSTATE RETURN CODE
    DSNT415I SQLERRP = DSNXICTS SQL PROCEDURE DETECTING ERROR
    DSNT416I SQLERRD = 105 0 0 -1 0 0 SQL DIAGNOSTIC INFORMATION
    DSNT416I SQLERRD = X'00000069' X'00000000' X'00000000'
    X'FFFFFFFF' X'00000000' X'00000000' SQL DIAGNOSTIC
    INFORMATION

    Larry Guest

  4. #4

    Default Re: Help an os/390 db2 newbie, please! WARNING LONG!


    "Larry Williams" <netcom.com> wrote in message
    news:com... 
    > After MUCH digging encountered a DB2 PM lib called ADB410.SADBSAMP.
    > It in fact contained two sample jobs: ADBBIND and ADBCHKPT. Both had
    > been updated by IBMUSER. These two members contained all my missing
    > plans (ADB, ADBMAIN, etc.) - One small problem! The jobs don't work.
    >
    > < big snip>
    > ***INPUT STATEMENT:
    > CREATE STOGROUP "ADBGCH"
    > VOLUMES(S4DB21)
    > VCAT DB2;
    > RESULT OF SQL STATEMENT:
    > DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    > CREATE SUCCESSFUL
    > 1PAGE 1
    > ***INPUT STATEMENT:
    > COMMIT;
    > RESULT OF SQL STATEMENT:
    > DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    > COMMIT SUCCESSFUL
    > 1PAGE 1
    > ***INPUT STATEMENT:
    > CREATE DATABASE "ADBDCH"
    > STOGROUP "ADBGCH" CCSID EBCDIC;
    > RESULT OF SQL STATEMENT:
    > DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    > CREATE SUCCESSFUL
    > 1PAGE 1
    > ***INPUT STATEMENT:
    > COMMIT;
    > RESULT OF SQL STATEMENT:
    > DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
    > COMMIT SUCCESSFUL
    > 1PAGE 1
    > ***INPUT STATEMENT:
    > CREATE TABLESPACE "ADBSCH"
    > IN "ADBDCH"
    > USING STOGROUP "ADBGCH"
    > PRIQTY 40 SECQTY 40
    > LOCKSIZE ROW;
    > SQLERROR ON CREATE COMMAND, EXECUTE FUNCTION
    > RESULT OF SQL STATEMENT:
    > DSNT408I SQLCODE = -904, ERROR: UNSUCCESSFUL EXECUTION CAUSED BY AN
    > UNAVAILABLE RESOURCE. REASON 00D70025, TYPE OF RESOURCE
    > 00000220, AND RESOURCE NAME
    > DB2.DSNDBC.ADBDCH.ADBSCH.I0001.A001
    > DSNT418I SQLSTATE = 57011 SQLSTATE RETURN CODE
    > DSNT415I SQLERRP = DSNXICTS SQL PROCEDURE DETECTING ERROR
    > DSNT416I SQLERRD = 105 0 0 -1 0 0 SQL DIAGNOSTIC INFORMATION
    > DSNT416I SQLERRD = X'00000069' X'00000000' X'00000000'
    > X'FFFFFFFF' X'00000000' X'00000000' SQL DIAGNOSTIC
    > INFORMATION
    >[/ref]
    Reason code = An access method services request failed.
    Type of resource = dataset
    Resource name = DB2.DSNDBC.ADBDCH.ADBSCH.I0001.A001

    Looks like it could not create that dataset on volume S4DB21. You may have a
    DASD problem. Do you have any MVS diagnostics that can run against that
    volume?

    I would try it again where it left off at CREATE TABLESPACE "ADBSCH"
    Do not rerun the entire job since all things before that were COMMITed.

    If there is a problem with the volume or you just want to change volumes,
    you need to:
    - DROP DATABASE "ADBDCH"
    - DROP STOGROUP "ADBGCH"
    - COMMIT

    Then rerun the job from the CREATE STOGROUP "ADBGCH" statement, but change
    the volume number.


    Mark Guest

  5. #5

    Default Re: Help an os/390 db2 newbie, please! WARNING LONG!


    Got the DASD cleaned up as soon as you pointed it out.

    You have been a man of few words, but great help!
    On one last point, (I'm hoping you can help with)

    The bind comes up with "PACKAGE = S390LOC.ADBL.ADBMAIN.()" (which
    looks fine)

    the 508 error shows(see below) S390LOC..ADBMAIN.nnnnnnn.nnnnnn in
    other words the "ADBL" is missing! I've never seen a resource with
    "dot dot" - how do I get the system to get that ADBL in there? I
    think it will work fine then. I don't think I can generate a "dot
    dot" plan!

    Thanks!

    On Tue, 14 Oct 2003 18:32:25 -0600, "Mark A" <net>
    wrote:
     [/ref][/ref]

    Larry Guest

Similar Threads

  1. A newbie with a newbie question
    By dusty_davis@adobeforums.com in forum Adobe Acrobat Macintosh
    Replies: 5
    Last Post: October 14th, 07:54 AM
  2. From Help For Newbie...
    By chuk looper in forum Macromedia Dynamic HTML
    Replies: 2
    Last Post: December 5th, 09:49 PM
  3. Replies: 5
    Last Post: December 3rd, 10:44 AM
  4. Newbie Newbie Needs Help with starting
    By Rick in forum PHP Development
    Replies: 5
    Last Post: December 17th, 11:20 PM
  5. Help (Newbie)
    By liksi in forum Macromedia Flash
    Replies: 2
    Last Post: November 28th, 11:53 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139