Example 17 — Changing overpunch values in zoned decimal data


In this example, any data that is in zoned decimal format is assigned an overpunch value during the unload process.

UNLOAD PLUS formats zoned decimal values with the system default zone digit, which is ‘C’ for positive values and ‘B’ for negative values. You can use the ZONEDDECOVP option to assign overpunch values to zoned decimal numeric values. These values can be either positive or negative. Use this option when you plan to use the unloaded data with an application that requires a specific zone value that is not the traditional default.

The following table shows two examples of the values that are produced when you use the ZONEDDECOVP option. The first example in this table assigns an overpunch value of (C, D) (which is the default) and the second example assigns an overpunch value of (F, F).

Source

Value

Target

SYSREC value with overpunch C, D (default)

SYSREC value with overpunch F,F

Integer

21111

COL1 DECIMAL ZONED (12)

‘F0F0F0F0F0F0F0F2F1F1F1C1’

‘F0F0F0F0F0F0F0F2F1F1F1F1’

Integer

-21117

COL1 DECIMAL ZONED (12)

‘F0F0F0F0F0F0F0F2F1F1F1D7’

‘F0F0F0F0F0F0F0F2F1F1F1F7’

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

FORMAT EXTERNAL

Tells UNLOAD PLUS to use external format for all output data types

UNLOADDN SYSREC ACTIVE NO

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

ZONEDDECOVP (F, E)

Assigns an overpunch value of (F, E) to decimal-zoned numeric values

The overpunch values can be positive or negative. In this example, specifying ZONEDDECOVP (F, E) assigns positive overpunch values for any data that is in zoned decimal format.

FIXEDVARCHAR YES

Tells UNLOAD PLUS to convert output records that would normally be variable length to fixed length by padding variable-length columns with spaces

CNTLCARDS 'REPLACE COPYDDN (SYSCPY1)'

Tells UNLOAD PLUS to generate Db2 LOAD control cards (which is the default) and to add the REPLACE and COPYDDN (SYSCPY1) options to the Db2 LOAD control statement

SELECT *

Unloads all columns

INTO

Specifies names and characteristics of output fields

FROM

Names the table to unload

The following figure shows the JCL for example 17:

//    JOBCARD
//**********************ADUEX17B **************************************
//*********************************************************************
//**********  Unloading into ZONE DECIMAL   ***************************
//*********  Changing overpunch values in zoned decimal data    *******
//*********************************************************************
//*  Replace "DB2SYS" by your DB2 subsystem name.                     *
//*  Use your DB2 product install libraries for STEPLIBS :            *
//*     PRODUCT.LIBRARIES                                             *
//*     DB2.DSNEXIT                                                   *
//*     DB2.DSNLOAD                                                   *
//********************************************************************
//UNLOAD17 EXEC PGM=ADUUMAIN,
//         PARM='DB2SYS,ADUEX17,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           FORMAT EXTERNAL
    UNLOADDN SYSREC ACTIVE NO
    ZONEDDECOVP(F,E)
    FIXEDVARCHAR NO
    CNTLCARDS 'REPLACE COPYDDN (SYSCPY1)'
    SELECT *
      INTO
        COL1  DECIMAL ZONED (12)
       ,COL2  VARCHAR (10)
       ,COL3  DECIMAL ZONED (12)
       ,COL4  VARCHAR (10)
       ,COL5  DECIMAL ZONED (12)
       ,COL6  VARCHAR (10)
       ,COL7  DECIMAL ZONED (12)
       ,COL8  VARCHAR (10)
       ,COL9  DECIMAL ZONED (12)
       ,COL10 VARCHAR (10)
       ,COL11 DECIMAL ZONED (12)
       ,COL12 VARCHAR (10)
   FROM BMC.LONGNAME_TABLE_ON_EXAMPLE17_TBEXMP17
/*
//SYSREC   DD DSN=ADU.EXAMPL17.SYSREC,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSCNTL  DD DSN=ADU.EXAMPL17.SYSCNTL,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SYSPRINT DD DSN=ADU.EXAMPL17.SYSPRINT,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)

SYSPRINT for example 17

The following figure shows the SYSPRINT for example 17:

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    2/21/2022    3:39:45 ...
 BMC50002I UTILITY ID = 'ADUXM17'.  DB2 SUBSYSTEM ID = 'DEND'.  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,003.4M,IEFUSI=NO,CPUs=7,GPs=5,zIIPs=2
 BMC50471I MEMLIMIT=15.9E,AVAILABLE=15.9E,MEMLIMIT SET BY:REGION=0
 BMC50471I SMFID=DB2B,JOBID=J0212370,JOB=ADUEX17,STEP=UNLOAD17,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  BPE0556  BPE0557  BPE0560
0
 BMC50471I ANALYZE=(DB2STATS,NOLIMIT)              FORCE_RPT=NO                            SMAX=16
 BMC50471I CENTURY=(1950,2049)                     FORCE=NONE                              SMCORE=(0K,0K)
 BMC50471I CHANGE_CONSISTENT=NO                    HISTORY=YES                             SORTNUM=32
 BMC50471I CHANGE_QUIESCE=NO                       IBUFFS=25                               SQLDELAY=3
 BMC50471I CMAX=16                                 INLINE=NO                               SQLRETRY=100
 BMC50471I CMRATIO=50                              LOADDECP=NO                             SSREPORT=REPORT_SWITCH
 BMC50471I CONSTRULES=BMC                          LOCKROW=YES                             TAPEDISP=DELETE
 BMC50471I CURRENTDEGREE=NONE                      MAXP=5                                  TASKMAX=200%
 BMC50471I DELFILES=NO                             MSGLEVEL=1                              UBUFFS=25
 BMC50471I DRNDELAY=3                              NULLCHAR=X'6F'                          UNLDMAX=200%
 BMC50471I DRNRETRY=10                             NULLTYPE=T1                             UNLOADDN_ACTIVE=(NO,NO)
 BMC50471I DRNWAIT=UTIL                            OPNDB2ID=YES                            UNLOADDN=(SYSREC,SYSRED)
 BMC50471I DSPLOCKS=NONE                           PLAN=ADU1310T                           USELRECL=NO
 BMC50471I EXCLDUMP=(X37,X22,X06)                  RECFM=AUTO                              UXSTATE=SUP
 BMC50471I FILEREFDN=SYSREF                        ROWSETSZ=100                            WORKUNIT=SYSALLDA
 BMC50471I FILL=NO                                 SDUMP=YES                               ZIIP=ENABLED
 BMC50471I FORCE_AT=(START,3)                      SHRLEVEL=REFERENCE                      ZONEDDECOVP=(C,D)
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       = DEND
 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
 BMC50102I   UNLOAD           FORMAT EXTERNAL
 BMC50102I     UNLOADDN SYSREC ACTIVE NO
 BMC50102I     ZONEDDECOVP(F,E)
 BMC50102I     FIXEDVARCHAR NO
 BMC50102I     CNTLCARDS 'REPLACE COPYDDN (SYSCPY1)'
 BMC50102I     SELECT *
 BMC50102I       INTO
 BMC50102I         COL1  DECIMAL ZONED (12)
 BMC50102I        ,COL2  VARCHAR (10)
 BMC50102I        ,COL3  DECIMAL ZONED (12)
 BMC50102I        ,COL4  VARCHAR (10)
 BMC50102I        ,COL5  DECIMAL ZONED (12)
 BMC50102I        ,COL6  VARCHAR (10)
 BMC50102I        ,COL7  DECIMAL ZONED (12)
 BMC50102I        ,COL8  VARCHAR (10)
 BMC50102I        ,COL9  DECIMAL ZONED (12)
 BMC50102I        ,COL10 VARCHAR (10)
 BMC50102I        ,COL11 DECIMAL ZONED (12)
 BMC50102I        ,COL12 VARCHAR (10)
 BMC50102I    FROM BMC.LONGNAME_TABLE_ON_EXAMPLE17_TBEXMP17

 BMC51654I DIRECT YES IN EFFECT

 BMC51687I ESTIMATED ROWS FOR TABLE SPACE DBEXMP17.TSEXMP17 PART 1 IS 8544 FROM HURBA
 BMC51688I ESTIMATED ROWS FOR TABLE     BMC.LONGNAME_TABLE_ON_EXAMPLE17_TBEXMP17 IS 8544 FROM TABLESPACE
 BMC50004I UTILINIT PHASE COMPLETE.  ELAPSED TIME = 00:00:00


 BMC54000I SMARTSWITCH NOT SUPPORTED - NO BMC AMI UTILITIES VERSION FOUND
 BMC54003I SMARTSWITCH RULE: FORCE_NO_SWITCH  COMMENT: SMARTSWITCH NOT ACTIVATED, NO ROWS ON POLICY TABLE

 BMC50199I UNLOAD PLUS PROCESSING CONTINUES

 BMC51689I ESTIMATED ROWS FOR SELECT 1 IS 8544

 BMC51639I FOR DDNAME 'SYSREC' DSN=ADU.EXAMPL17.SYSREC,DCB=(RECFM=VB,BLKSIZE=27998,LRECL=152)

 BMC50894I PAGE EXTERNALIZATION PROCESS STARTING AT   2/21/2022   3:39:45

 BMC50651I SPACE DBEXMP17.TSEXMP17 PART(0) PSID(0002)

 BMC50895I PAGE EXTERNALIZATION PROCESS COMPLETE.  ELAPSED TIME =  00:00:00

 BMC50877I POINT OF CONSISTENCY ESTABLISHED AT RBA/LRSN = 00000000002D80370700

 BMC50041I 0: ZIIP  ENABLED (0) USING XBM SUBSYSTEM XBMB
 BMC50474I BELOW 16M = 8328K, ABOVE 16M = 1017416K, CPUS = 5
 BMC51701I MAX TASKS = 1, MAX PARTITIONS PER TASK = 1, SORTWKS PER TASK = 0, MAX OPEN PARTITIONS PER TASK = 1
 BMC50477I 1: PARTITION =    1, ROWS/KEYS = 3, I/O WAITS = 2 ,DDNAME = SYS00008
 BMC50478I 1: RDB LOCK WAITS = 0
 BMC50476I DDNAME = SYSREC, I/OS = 1, I/O WAITS = 1, RDB LOCK WAITS = 0
 BMC51671I UNLOAD STATISTICS:  3 ROWS PROCESSED FROM PARTITION 1
 BMC51686I UNLOADING OF DATASET 'DENDCAT.DSNDBD.DBEXMP17.TSEXMP17.I0001.A001' READ 35 PAGES
 BMC51672I UNLOAD STATISTICS:  3 ROWS PROCESSED FROM SPACE 'DBEXMP17.TSEXMP17', 0 NOT SELECTED, 0 DISCARDED
 BMC51674I UNLOAD STATISTICS:  3 RECORDS WRITTEN TO DDNAME 'SYSREC'
 BMC51675I UNLOAD STATISTICS:  0 RECORDS DISCARDED DUE TO ERRORS
 BMC50041I 0: ZIIP NOT ENABLED (0) USING XBM SUBSYSTEM XBMB
 BMC50004I UNLOAD PHASE COMPLETE.  ELAPSED TIME = 00:00:00


 BMC51639I FOR DDNAME 'SYSCNTL' DSN=ADU.EXAMPL17.SYSCNTL,DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
 BMC51801I LOAD TABLE STATEMENTS WRITTEN TO DDNAME 'SYSCNTL'
0
 BMC51810I LOAD DATA INDDN SYSREC
 BMC51809I REPLACE COPYDDN (SYSCPY1)
 BMC51940I      EBCDIC CCSID(37,65534,65534)
 BMC51811I   INTO TABLE
 BMC51809I BMC.LONGNAME_TABLE_ON_EXAMPLE17_TBEXMP17
 BMC51813I (COL1 POSITION(1:12) DECIMAL ZONED
 BMC51814I       NULLIF BMC_NULL1=X'6F'
 BMC51819I     ,     BMC_NULL1 POSITION(13) CHAR(1)
 BMC51813I ,COL2 POSITION(14:*) VARCHAR
 BMC51813I ,COL3 POSITION(*:*+11) DECIMAL ZONED
 BMC51814I       NULLIF BMC_NULL2=X'6F'
 BMC51819I     ,     BMC_NULL2 POSITION(*) CHAR(1)
 BMC51813I ,COL4 POSITION(*:*) VARCHAR
 BMC51813I ,COL5 POSITION(*:*+11) DECIMAL ZONED
 BMC51813I ,COL6 POSITION(*:*) VARCHAR
 BMC51813I ,COL7 POSITION(*:*+11) DECIMAL ZONED
 BMC51813I ,COL8 POSITION(*:*) VARCHAR
 BMC51813I ,COL9 POSITION(*:*+11) DECIMAL ZONED
 BMC51814I       NULLIF BMC_NULL3=X'6F'
 BMC51819I     ,     BMC_NULL3 POSITION(*) CHAR(1)
 BMC51813I ,COL10 POSITION(*:*) VARCHAR
 BMC51813I ,COL11 POSITION(*:*+11) DECIMAL ZONED
 BMC51814I       NULLIF BMC_NULL4=X'6F'
 BMC51819I     ,     BMC_NULL4 POSITION(*) CHAR(1)
 BMC51813I ,COL12 POSITION(*:*) VARCHAR
 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*