Step 2. Load the DB2 table

The second step loads the DB2® table.
Figure 1. Export Step 2. Load DB2 table
  File  Options  Help                                                      
-----------------------------------------------------------------------
                             Export HDB Data Set                           
Command ===> __________________________________________________________
                                                                           
Select option                                                              
2  1. Create DDL to define table        2. Load data into table            
                                                                           
Create Options                          Load Options                       
_  Create Database                      1  1. Resume                       
_  Create Storage Group                    2. Replace                      
                                                                           
DB2 Settings:                                                              
 DB2 Subsystem ID . . . DB2P                                               
 DSNTIAD Plan Name  . . DSNTIA91                                           
 DB2 Load Library . . . 'DB2.V910.SDSNLOAD'___________________________     
 DB2 Exit Library . . . 'DB2.V910.SDSNEXIT'___________________________     
 DB2 RUNLIB Library . . 'DB2.V910.RUNLIB.LOAD'________________________     
 Database . . . . . . . CICSPA__  Storage Group  . . PROD____              
 VCAT Catalog name  . . USER____                                           
 Allocation: Primary    20______  Secondary  . . . . 20____                
                                                                           
Select option 2 Load data into table.
The load table JCL is generated and displayed in an edit session for review and submission.
Figure 2. Edit JCL to load DB2 table
EDIT       JCH.SPFTEMP3.CNTL                               Columns 00001 00072 
Command ===> SUB_____________________________________________ Scroll ===> PAGE 
****** ***************************** Top of Data ******************************
000001 //JCH#CPA JOB ,NOTIFY=&SYSUID                                          
000002 //* CICSPA V5R1 HDB - LOAD DATA INTO DB2 TABLE                         
000003 //DSNUPROC EXEC PGM=DSNUTILB,REGION=0M,                                
000004 //         PARM='DB2P'                                                 
000005 //STEPLIB  DD  DISP=SHR,DSN=DB2.V910.SDSNLOAD                          
000006 //         DD  DISP=SHR,DSN=DB2.V910.SDSNEXIT                          
000007 //SYSPRINT DD  SYSOUT=*                                                
000008 //UTPRINT  DD  SYSOUT=*                                                
000009 //SYSUDUMP DD  SYSOUT=*                                                
000010 //SYSREC   DD  DSN=SKU.#180203.D05049.T182306.HDB,                     
000011 //             DISP=SHR                                                
000012 //         DD  DSN=SKU.#180203.D05049.T182311.HDB,                     
000013 //             DISP=SHR                                                
000014 //         DD  DSN=SKU.#180203.D05049.T182316.HDB,                     
000015 //             DISP=SHR                                                
000016 //SYSUT1   DD  UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)                 
000017 //SORTOUT  DD  UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)                 
000018 //SYSIN    DD  *                                                       
000019 LOAD DATA RESUME YES                                                   
000020    INTO TABLE CICSPA.HST014B WHEN (70) = '014B' (                      
000021       START_DATE            POSITION(1)      DATE EXTERNAL(10),        
000022       START_TIME            POSITION(12)     TIME EXTERNAL(8),         
000023       APPLID                POSITION(20)     CHAR(8),                  
000024       MVSID                 POSITION(28)     CHAR(4),                  
000025       DSA_NAME              POSITION(77)     CHAR(8),                  
000026       DSA_LOCATION          POSITION(85)     CHAR(8),                  
000027       ACCESS                POSITION(93)     CHAR(8),                  
000028       DSA_INDEX             POSITION(101)    CHAR,                     
000029       DSA_SIZE_CUR          POSITION(102)    INTEGER,                  
000030       DSA_SIZE_PEAK         POSITION(106)    INTEGER,                  
000031       CUSHION_SIZE          POSITION(110)    INTEGER,                  
000032       GETMAIN_REQUESTS      POSITION(114)    INTEGER,                  
. . . 

Information Information

Feedback


Timestamp icon Last updated: Thursday, 7 November 2013


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic//guided-tours/cpaug294.htm