Hello, DSNACCOX troubles

Ansicht von 7 Beiträgen - 1 bis 7 (von insgesamt 7)
  • Author
    Posts
  • 1. April 2012 um 16:18 Uhr #4151

    Anonym
    Inaktiv

    Hello

    I need your help. I read your site about DSNACCOX

    https://ruban.de/wp/899/codezos/rexx-script-xmpaccox-execute-db2-v9-zos-datab
    ases-using-dsnaccox-stored-procedure/

    , but the procedure is not work. I think that my batch job JCL is written is
    not correct (value are not correct).
    Please send text your batch job JCL for submit this Rexx script.
    Thanks!!!

    1. April 2012 um 18:18 Uhr #4292

    Anonym
    Inaktiv

    Hello Viktor,

    at line 144 ff of XMPACCOX  you will find a mechanism to allocate DB2’s DSNLOAD:
    [tt]/*********************************************************************/
    /* If DB2 Load Library is not part of z/OS LINKLIST: */
    /* Allocate SDSNLOAD using CA TSOPLUS (or any other which adds the */
    /* DB2 load libray dynamically to the STEPLIB). */
    /*********************************************************************/
    address TSO
    "FREE FI(STEPLIBX) DA(‚SAMPLE."ssid".SDSNLOAD‘)"
    "ALLOC FI(STEPLIBX) DA(‚SAMPLE."ssid".SDSNLOAD‘) SHR REUSE"
    if rc <> 0
    then do
    say "DB2 SDSNLOAD library for SSID="ssid" is not available!"
    say "Check z/OS LINKLIST or allocate to STEPLIB in advance!"
    signal error
    end [/tt]

    If your LINKLIST already provides the SDSNLOAD you don’t need that code lines. If you provide the SDSNLOAD via DD-Name //STEPLIB in you JCL, you don’t nedd the lines either.

    Regards
    Gernot

    PS: Still problems? Please provide yout JCL and JES and job error messages.

    2. April 2012 um 7:24 Uhr #4392

    Anonym
    Inaktiv

    Thanks!!! Problem is solved!
    but I have another question 😉
    How to present the result information in a better form for analysis.
    For example in the table,

    |–DB–|–TS–|–REORG–|–RUNSTAT–|–COPY (INC,FULL)–|–  EXTENTS–|
     

    Thanks!!!
          

    2. April 2012 um 7:26 Uhr #4458

    Anonym
    Inaktiv

    I’m sorry 🙂
    I’m not a professional and a novice at DB2

    5. April 2012 um 8:20 Uhr #4495

    Anonym
    Inaktiv

    Hello Viktor,

    sorry the code provided at https://ruban.de/wp/899/codezos/rexx-script-xmpaccox-execute-db2-v9-zos-databases-using-dsnaccox-stored-procedure/ is just one example of how deploy DB2 stored procedures (i.e. DSNACCOX) in TSO/E REXX.

    If you have particular requirements, you have to adapt the code to your personal needs.  :'(

    Regards
    Gernot

    PS: If you finally got your solution, please let us know – I will publish your code at this site, if you want.  😀

    10. April 2012 um 7:46 Uhr #4518

    Anonym
    Inaktiv

    Gotcha! The script works as I needed!

    My JOB Batch

    //DSNTIST EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
    //SYSEXEC DD DISP=SHR,DSN=SSDVI.EDUC
    //SYSTSPRT DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*
    //SYSUDUMP DD SYSOUT=*
    //SYSTSIN DD *
    %DSNACCTB MPP
    //*

    (DSNACCTB this is Rexx script, MPP this is name our subsystem, DSN=SSDVI.EDUC this is path to Rexx script)

    I changed your script in this line

    …
    do while sqlcode = 0
    if OBJECTTYPE /= "ALL"
    then do
    /************************************/
    /* Set up SQL statements to insert */
    /* into table. */
    /************************************/
    sqlstmt2 = "INSERT INTO DSNACC.TS_GTT VALUES(?,?,?,?,?,?,?,?)"
    ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"
    ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :SQLSTMT2"
    /************************************************/
    /* Extract messages from variable and insert */
    /* them into the table. */
    /************************************************/
    ADDRESS DSNREXX "EXECSQL EXECUTE S1 USING",
    ":DBNAME,:NAME,:OBJECTTYPE,:IMAGECOPY,",
    ":RUNSTATS,:REORG,:EXTENTS,:TOTALEXTENTS"
    end /* end while */
    ….

    (DSNACC.TS_GTT VALUES this is my table for results)


    10. April 2012 um 18:42 Uhr #4533

    Anonym
    Inaktiv

    Hello Viktor,

    great job, thanx for your contribution!

    [smiley=dankk2.gif]
    Gernot

  • Author
    Posts
Ansicht von 7 Beiträgen - 1 bis 7 (von insgesamt 7)

You must be logged in to reply to this topic.