Example 13 — Using Db2 dynamic SQL (DIRECT NO) and Db2 parallelism


This example illustrates using Db2 dynamic SQL and parallelism to unload data from multiple tables.

This job unloads multiple tables from the same table space into three different SYSREC output files.

  • The first SELECT statement shows a subselect query against two tables.
  • The second SELECT statement joins two tables on the EMPL_LNAME column of the two tables.
  • The third SELECT statement shows an example of column functions against a single table.

Message 50041I indicates the status of zIIP processing. For this example, the ZIIP installation option is ENABLED, but an SUF also known as XBM ) subsystem was not specified. UNLOAD PLUS automatically located an available SUF also known as XBM ) subsystem to provide zIIP processing.

The following table describes the key command options for this job:

Command options used in JCL

Description

DIRECT NO

Tells UNLOAD PLUS to use Db2 dynamic SQL to process the SELECT statements and read the table data

Using DIRECT NO allows you to unload data by using the full range of functionality that the Db2 SQL SELECT statement provides. This example illustrates the use of several SQL functions that are not available when you specify DIRECT YES.

CNTLCARDS DB2

Writes Db2 CREATE TABLE DDL and Db2 LOAD control statements to the SYSCNTL data set

CURRENTDEGREE

Tells UNLOAD PLUS to issue the SET CURRENT DEGREE command before executing your dynamically executed SELECT statements

This option allows Db2 to take advantage of parallelism where parallel processing is possible.

UNLOADDN SYSREC ACTIVE NO

Disables dynamic allocation for the primary unload data set, overriding the default in the installation options module

SELECT

Names the columns to unload

FROM

Names the table to unload

The following figure shows the JCL for example 13:

//      JOBCARD
//********************** ADUEX13 ************************************
//*******************************************************************
//*****  Using Db2 dynamic SQL (DIRECT NO) and Db2 parallelism  *****
//*******************************************************************
//*  Replace "DB2SYS" by your DB2 subsystem name.                   *
//*  Use your DB2 product install libraries for STEPLIBS :          *
//*     PRODUCT.LIBRARIES                                           *
//*     DB2.DSNEXIT                                                 *
//*     DB2.DSNLOAD                                                 *
//*********************************************************************
//UNLOAD13 EXEC PGM=ADUUMAIN,REGION=0M,
//         PARM=(DB2SYS,'ADUEX13','NEW ',,'MSGLEVEL(1)')
//*********************************************************************
//STEPLIB  DD DISP=SHR,DSN=PRODUCT.LIBRARIES
//         DD DSN=DB2.DSNEXIT,DISP=SHR
//         DD DSN=DB2.DSNLOAD,DISP=SHR
//SYSIN    DD   *
  UNLOAD
         DIRECT NO
         CNTLCARDS DB2
         CURRENTDEGREE ANY
         UNLOADDN SYSREC ACTIVE NO
*
    SELECT EMPL_LNAME,
           MAX(EMPL_SALARY)
           FROM BMC.SAL_EMPLS A
                GROUP BY EMPL_LNAME
           HAVING MAX(EMPL_SALARY) = (SELECT MAX(EMPL_SALARY_HRLY)
                                      FROM BMC.RET_EMPLS
                                      WHERE EMPL_LNAME= A.EMPL_LNAME);
*
    SELECT DISTINCT BMC.EMPLS.EMPL_LNAME,
                    SSN,
                    EMPL_ID
           FROM BMC.EMPLS INNER JOIN BMC.RET_EMPLS
     ON BMC.EMPLS.EMPL_LNAME = BMC.RET_EMPLS.EMPL_LNAME;
*
      SELECT EMPL_DEPT_NO,
             MAX(EMPL_HRLY_RATE),
             MIN(EMPL_HRLY_RATE)
        FROM BMC.HRLY_EMPLS
             GROUP BY EMPL_DEPT_NO;
*
/*
//SYSCNTL  DD DSN=ADU.EXAMPL13.SYSCNTL,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSREC01 DD DSN=ADU.EXAMPL13.SYSREC01,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSREC02 DD DSN=ADU.EXAMPL13.SYSREC02,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSREC03 DD DSN=ADU.EXAMPL13.SYSREC03,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSPRINT DD DSN=ADU.EXAMPL13.SYSPRINT,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)

SYSPRINT for example 13

The following figure shows the SYSPRINT for example 13:

1                               *****  B M C   U N L O A D   P L U S   F O R   D B 2    V13R1.00 *****
                                             (C) COPYRIGHT 1991 - 2022 BMC SOFTWARE, INC.
-BMC50001I UTILITY EXECUTION STARTING    1/25/2022    8:36:21 ...
 BMC50002I UTILITY ID = 'ADUXM13'.  DB2 SUBSYSTEM ID = 'DEMO'.  OPTION MODULE = 'ADU$OPTS'.
 BMC50471I z/OS 2.4.0,PID=HBB77C0,DFSMS FOR Z/OS=2.4.0,DB2=13.1.501
 BMC50471I REGION=0M,BELOW 16M=8.6M,ABOVE 16M=1,006.6M,IEFUSI=NO,CPUs=7,GPs=5,zIIPs=2
 BMC50471I MEMLIMIT=15.9E,AVAILABLE=15.9E,MEMLIMIT SET BY:REGION=0
 BMC50471I SMFID=DB2B,JOBID=J0940548,JOB=ADUEX13,STEP=UNLOAD13,CPU=8561-615 (z15)/1.71,72.0G
0
 BMC50471I UNLOAD PLUS FOR DB2--V13.01.00 BASE
 BMC50471I   NO MAINTENANCE TO REPORT
 BMC50471I DB2 UTILITIES COMMON CODE--V13.01.00 BASE
 BMC50471I   NO MAINTENANCE TO REPORT
 BMC50471I SOLUTION COMMON CODE--V13.01.00 BASE
 BMC50471I   MAINT: BPJ1541  BPJ1713  BPJ2211
 BMC50471I BMCSORT ENGINE--V02.04.01
 BMC50471I   MAINT: BPJ0691  BPJ0718  BPJ0881  BPJ0922  BPJ0996  BPJ1164  BPJ1309  BPJ1386  BPJ1497  BPJ1594  BPJ1724  BPJ1809
 BMC50471I          BPJ1833  BPJ1891  BPJ1905  BPJ2109  BPJ2232  BPJ2297
 BMC50471I BMC STATS API--V13.01.00 BASE
 BMC50471I   NO MAINTENANCE TO REPORT
 BMC50471I EXTENDED BUFFER MANAGER--V06.02.01
 BMC50471I   MAINT: BPE0443  BPE0445  BPE0447  BPE0449  BPE0450  BPE0451  BPE0452  BPE0455  BPE0456  BPE0457  BPE0460  BPE0463
 BMC50471I          BPE0467  BPE0468  BPE0469  BPE0473  BPE0474  BPE0475  BPE0479  BPE0480  BPE0482  BPE0487  BPE0488  BPE0489
 BMC50471I          BPE0493  BPE0497  BPE0498  BPE0501  BPE0503  BPE0507  BPE0512  BPE0513  BPE0517  BPE0518  BPE0519  BPE0523
 BMC50471I          BPE0524  BPE0527  BPE0528  BPE0530  BPE0531  BPE0534  BPE0535  BPE0540  BPE0541  BPE0542  BPE0545  BPE0549
 BMC50471I          BPE0551  BPE0552  BPE0555  BPE0557  BPE0560
0
 BMC50471I ANALYZE=(DB2STATS,NOLIMIT)              FORCE=NONE                              SORTNUM=32
 BMC50471I CENTURY=(1950,2049)                     HISTORY=YES                             SQLDELAY=3
 BMC50471I CHANGE_CONSISTENT=NO                    IBUFFS=25                               SQLRETRY=100
 BMC50471I CHANGE_QUIESCE=NO                       INLINE=NO                               SSREPORT=REPORT_SWITCH
 BMC50471I CMAX=16                                 LOADDECP=NO                             TAPEDISP=DELETE
 BMC50471I CMRATIO=50                              LOCKROW=YES                             TASKMAX=200%
 BMC50471I CONSTRULES=BMC                          MAXP=5                                  UBUFFS=25
 BMC50471I CURRENTDEGREE=NONE                      MSGLEVEL=1                              UNLDMAX=200%
 BMC50471I DELFILES=NO                             NULLCHAR=X'6F'                          UNLOADDN_ACTIVE=(NO,NO)
 BMC50471I DRNDELAY=3                              NULLTYPE=T1                             UNLOADDN=(SYSREC,SYSRED)
 BMC50471I DRNRETRY=10                             OPNDB2ID=YES                            USELRECL=NO
 BMC50471I DRNWAIT=UTIL                            PLAN=ADU1310T                           UXSTATE=SUP
 BMC50471I DSPLOCKS=NONE                           RECFM=AUTO                              WORKUNIT=SYSALLDA
 BMC50471I EXCLDUMP=(X37,X22,X06)                  ROWSETSZ=100                            XBMID=XBMDB2V
 BMC50471I FILEREFDN=SYSREF                        SDUMP=YES                               ZIIP=ENABLED
 BMC50471I FILL=NO                                 SHRLEVEL=REFERENCE                      ZONEDDECOVP=(C,D)
 BMC50471I FORCE_AT=(START,3)                      SMAX=16
 BMC50471I FORCE_RPT=NO                            SMCORE=(0K,0K)
0
0
 BMC50471I TAPES=NONE
0
 BMC50470I OUTPUT   = SYSREC                             SYSRED                               SYSREF
 BMC50470I UNIT     = SYSALLDA                           SYSALLDA                             SYSALLDA
 BMC50470I VOLCNT   = 25                                 25                                   25
 BMC50470I GDGLIMIT = 5                                  5                                    5
 BMC50470I GDGEMPTY = NO                                 NO                                   NO
 BMC50470I GDGSCRAT = NO                                 NO                                   NO
 BMC50470I STORCLAS = NONE                               NONE                                 NONE
 BMC50470I DATACLAS = NONE                               NONE                                 NONE
 BMC50470I MGMTCLAS = NONE                               NONE                                 NONE
 BMC50470I UNITCNT  = 0                                  0                                    0
 BMC50470I SPACE    = CYL                                CYL                                  CYL
 BMC50470I PCTPRIM  = AUTO                               AUTO                                 AUTO
 BMC50470I MAXPRIM  = 0                                  0                                    0
 BMC50470I MAXSECD  = 0                                  0                                    0
 BMC50470I FILESZPCT  100                                100                                  100
 BMC50470I NBRSECD  = AUTO                               AUTO                                 AUTO
 BMC50470I DISKRETN = NONE                               NONE                                 NONE
 BMC50470I DISKEXPD = NONE                               NONE                                 NONE
 BMC50470I RETPD    = NONE                               NONE                                 NONE
 BMC50470I EXPDT    = 99000                              99000                                99000
 BMC50470I TRTCH    = NONE                               NONE                                 NONE
 BMC50470I DSNTYPE  = NONE                               NONE                                 PDS
 BMC50483I SYSREC     VOLUMES=NONE
 BMC50483I SYSRED     VOLUMES=NONE
 BMC50483I SYSREF     VOLUMES=NONE
0
 BMC50483I SYSREC     DSNAME=&USERID.&TYPE.S&SELNUM
 BMC50483I SYSRED     DSNAME=&USERID.&TYPE.S&SELNUM
 BMC50483I SYSREF     DSNAME=&USERID.&TYPE.S&SELNUM.P&POSNUM
0

 BMC50471I DB2 DSNHDECP MODULE SETTINGS:
 BMC50471I VERSION                 = 1310
 BMC50471I SUBSYSTEM DEFAULT       = DEMO
 BMC50471I CHARACTER SET           = ALPHANUM
 BMC50471I DATE FORMAT             = USA
 BMC50471I TIME FORMAT             = USA
 BMC50471I LOCAL DATE LENGTH       = 0
 BMC50471I LOCAL TIME LENGTH       = 0
 BMC50471I DECIMAL POINT           = PERIOD
 BMC50471I DECIMAL ARITHMETIC      = 15
 BMC50471I DELIMITER               = DEFAULT
 BMC50471I SQL DELIMITER           = DEFAULT
 BMC50471I ENCODING SCHEME         = EBCDIC
 BMC50471I APPL. ENCODING SCHEME   = EBCDIC
 BMC50471I MIXED                   = NO
 BMC50471I EBCDIC CCSID            = (37,65534,65534)
 BMC50471I ASCII CCSID             = (819,65534,65534)
 BMC50471I UNICODE CCSID           = (367,1208,1200)
 BMC50471I IMPLICIT TIME ZONE      = CURRENT (-06:00)


 BMC50658I DB2 CURRENT FUNCTION LEVEL IS V13R1M501
 BMC50659I DB2 CATALOG LEVEL IS V13R1M501
 BMC50660I DB2 HIGHEST ACTIVATED FUNCTION LEVEL IS V13R1M501
 BMC50661I DB2 CODE LEVEL IS V13R1M501

 BMC50471I BMC_BMCUTIL       ='BMCUTIL.CMN_BMCUTIL'
 BMC50471I BMC_BMCSYNC       ='BMCUTIL.CMN_BMCSYNC'
 BMC50471I BMC_BMCHIST       ='BMCUTIL.CMN_BMCHIST'
 BMC50471I BMC_BMCXCOPY      ='BMCUTIL.CMN_BMCXCOPY'
 BMC50471I BMC_BMCSMARTSWITCH='BMCUTIL.CMN_BMCSWITCH'
 BMC50471I BMC_BMCSSTRACKING ='BMCUTIL.CMN_BMCSSTRACK'
0
0
 BMC50102I   UNLOAD
 BMC50102I          DIRECT NO
 BMC50102I          CNTLCARDS DB2
 BMC50102I          CURRENTDEGREE ANY
 BMC50102I          UNLOADDN SYSREC ACTIVE NO
 BMC50102I *
 BMC50102I     SELECT EMPL_LNAME,
 BMC50102I            MAX(EMPL_SALARY)
 BMC50102I            FROM BMC.SAL_EMPLS A
 BMC50102I                 GROUP BY EMPL_LNAME
 BMC50102I            HAVING MAX(EMPL_SALARY) = (SELECT MAX(EMPL_SALARY_HRLY)
 BMC50102I                                       FROM BMC.RET_EMPLS
 BMC50102I                                       WHERE EMPL_LNAME= A.EMPL_LNAME);
 BMC50102I *
 BMC50102I     SELECT DISTINCT BMC.EMPLS.EMPL_LNAME,
 BMC50102I                     SSN,
 BMC50102I                     EMPL_ID
 BMC50102I            FROM BMC.EMPLS INNER JOIN BMC.RET_EMPLS
 BMC50102I      ON BMC.EMPLS.EMPL_LNAME = BMC.RET_EMPLS.EMPL_LNAME;
 BMC50102I *
 BMC50102I       SELECT EMPL_DEPT_NO,
 BMC50102I              MAX(EMPL_HRLY_RATE),
 BMC50102I              MIN(EMPL_HRLY_RATE)
 BMC50102I         FROM BMC.HRLY_EMPLS
 BMC50102I              GROUP BY EMPL_DEPT_NO;
 BMC50102I *

 BMC51654I DIRECT NO IN EFFECT

 BMC50109I 'DIRECT NO' OPTION SPECIFIED.  OPTION 'SHRLEVEL' IGNORED
 BMC50004I UTILINIT PHASE COMPLETE.  ELAPSED TIME = 00:00:00

 BMC51684I TABLE "BMC.SAL_EMPLS" IS IN TS "BMCEXDB.BMCEXBTS"

 BMC54000I SMARTSWITCH NOT SUPPORTED - NO BMC AMI UTILITIES VERSION FOUND
 BMC54003I SMARTSWITCH RULE: FORCE_NO_SWITCH  COMMENT: SMARTSWITCH NOT ACTIVATED, TABLE/ALIAS DOES NOT EXIST

 BMC50199I UNLOAD PLUS PROCESSING CONTINUES

 BMC51689I ESTIMATED ROWS FOR SELECT 1 IS 0
 BMC51689I ESTIMATED ROWS FOR SELECT 2 IS 0
 BMC51689I ESTIMATED ROWS FOR SELECT 3 IS 0

 BMC51639I FOR DDNAME 'SYSREC01' DSN=ADU.EXAMPL13.SYSREC01,DCB=(RECFM=VB,BLKSIZE=27998,LRECL=27)
 BMC51639I FOR DDNAME 'SYSREC02' DSN=ADU.EXAMPL13.SYSREC02,DCB=(RECFM=VB,BLKSIZE=27998,LRECL=33)
 BMC51639I FOR DDNAME 'SYSREC03' DSN=ADU.EXAMPL13.SYSREC03,DCB=(RECFM=FB,BLKSIZE=27984,LRECL=16)
 BMC50041I 0: ZIIP  ENABLED (0) USING XBM SUBSYSTEM XV2B
 BMC50474I BELOW 16M = 8468K, ABOVE 16M = 1022932K, CPUS = 5
 BMC51702I MAX TASKS = 3
 BMC51685I CURRENT QUERY ACCELERATION = 'NONE'
 BMC51685I CURRENT QUERY ACCELERATION = 'NONE'
 BMC51664I 1: SELECT STATEMENT NO. 1, ROWS = 8
 BMC51685I CURRENT QUERY ACCELERATION = 'NONE'
 BMC51664I 3: SELECT STATEMENT NO. 3, ROWS = 10
 BMC51664I 2: SELECT STATEMENT NO. 2, ROWS = 20
 BMC50476I DDNAME = SYSREC01, I/OS = 1, I/O WAITS = 1, RDB LOCK WAITS = 0
 BMC50476I DDNAME = SYSREC02, I/OS = 1, I/O WAITS = 1, RDB LOCK WAITS = 0
 BMC50476I DDNAME = SYSREC03, I/OS = 1, I/O WAITS = 1, RDB LOCK WAITS = 0
 BMC51676I UNLOAD STATISTICS:  8 ROWS PROCESSED FOR SELECT STATEMENT NO. 1, 0 DISCARDED
 BMC51676I UNLOAD STATISTICS:  20 ROWS PROCESSED FOR SELECT STATEMENT NO. 2, 0 DISCARDED
 BMC51676I UNLOAD STATISTICS:  10 ROWS PROCESSED FOR SELECT STATEMENT NO. 3, 0 DISCARDED
 BMC51674I UNLOAD STATISTICS:  8 RECORDS WRITTEN TO DDNAME 'SYSREC01'
 BMC51674I UNLOAD STATISTICS:  20 RECORDS WRITTEN TO DDNAME 'SYSREC02'
 BMC51674I UNLOAD STATISTICS:  10 RECORDS WRITTEN TO DDNAME 'SYSREC03'
 BMC51675I UNLOAD STATISTICS:  0 RECORDS DISCARDED DUE TO ERRORS
 BMC50041I 0: ZIIP NOT ENABLED (0) USING XBM SUBSYSTEM XV2B
 BMC50004I UNLOAD PHASE COMPLETE.  ELAPSED TIME = 00:00:00


 BMC51639I FOR DDNAME 'SYSCNTL' DSN=ADU.EXAMPL13.SYSCNTL,DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
 BMC51801I DB2 CREATE TABLE AND LOAD TABLE STATEMENTS WRITTEN TO DDNAME 'SYSCNTL'
0
 BMC51805I CREATE TABLE
 BMC51809I BMCJXS.$TABLE1
 BMC51807I     ( EMPL_LNAME VARCHAR(15)  NOT NULL
 BMC51808I     , $COLUMN2 DECIMAL(9 , 2)
 BMC51809I )
 BMC51809I ;
 BMC51805I CREATE TABLE
 BMC51809I BMCJXS.$TABLE2
 BMC51807I     ( EMPL_LNAME VARCHAR(15)  NOT NULL
 BMC51807I     , SSN CHARACTER(9)  NOT NULL
 BMC51808I     , EMPL_ID DECIMAL(5 , 0) NOT NULL
 BMC51809I )
 BMC51809I ;
 BMC51805I CREATE TABLE
 BMC51809I BMCJXS.$TABLE3
 BMC51807I     ( EMPL_DEPT_NO CHARACTER(4)  NOT NULL
 BMC51808I     , $COLUMN2 DECIMAL(9 , 2)
 BMC51808I     , $COLUMN3 DECIMAL(9 , 2)
 BMC51809I )
 BMC51809I ;
0
 BMC51810I LOAD DATA INDDN SYSREC01
 BMC51940I      EBCDIC CCSID(37,65534,65534)
 BMC51811I   INTO TABLE
 BMC51809I BMCJXS.$TABLE1
 BMC51813I (EMPL_LNAME POSITION(1:*) VARCHAR
 BMC51813I ,$COLUMN2 POSITION(*:*+4) DECIMAL
 BMC51814I       NULLIF BMC_NULL1=X'6F'
 BMC51819I     ,     BMC_NULL1 POSITION(*) CHAR(1)
 BMC51809I )
 BMC51810I LOAD DATA INDDN SYSREC02
 BMC51940I      EBCDIC CCSID(37,65534,65534)
 BMC51811I   INTO TABLE
 BMC51809I BMCJXS.$TABLE2
 BMC51813I (EMPL_LNAME POSITION(1:*) VARCHAR
 BMC51815I ,SSN POSITION(*:*+8) CHAR  (9)
 BMC51813I ,EMPL_ID POSITION(*:*+2) DECIMAL
 BMC51809I )
 BMC51810I LOAD DATA INDDN SYSREC03
 BMC51940I      EBCDIC CCSID(37,65534,65534)
 BMC51811I   INTO TABLE
 BMC51809I BMCJXS.$TABLE3
 BMC51815I (EMPL_DEPT_NO POSITION(1:4) CHAR  (4)
 BMC51813I ,$COLUMN2 POSITION(5:9) DECIMAL
 BMC51814I       NULLIF BMC_NULL1=X'6F'
 BMC51819I     ,     BMC_NULL1 POSITION(10) CHAR(1)
 BMC51813I ,$COLUMN3 POSITION(11:15) DECIMAL
 BMC51814I       NULLIF BMC_NULL2=X'6F'
 BMC51819I     ,     BMC_NULL2 POSITION(16) CHAR(1)
 BMC51809I )
0
 BMC50476I DDNAME = SYSCNTL, I/OS = 1, I/O WAITS = 1, RDB LOCK WAITS = 0
0BMC50006I UTILITY EXECUTION COMPLETE, RETURN CODE = 0

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*