MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

loading columns in test db2 that dont exist in prod db2 yet

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Database
View previous topic :: View next topic  
Author Message
newcobol
Beginner


Joined: 20 Apr 2006
Posts: 88
Topics: 22
PostPosted: Thu Nov 21, 2013 3:36 pm    Post subject: loading columns in test db2 that dont exist in prod db2 yet Reply with quote
I unloaded records from prod to a data set of 185 getting prod syspunch.
i unloaded record from test to a data set of 209 getting test syspunch.(just to get the syspunch) for the load card.
i was told to copy the prod(185) data set to a test name of length 209.
i am writing a load job.
the fields in the data set should load positionally into test table up to column 185. the last 4 columns in the test table are decimal. positions 186 thru 209 in the sysrec00(file to be loaded) are spaces.
is there something i add to the load card to put 0's in the table if the file has spaces in those positions?
here is the load card from the syspunch from db2test:
Code:

(
PREM_ACCT_MONTH                        POSITION(       1         )
 SMALLINT                             ,
 PREM_ACCT_YR                           POSITION(       3         )
 SMALLINT                             ,
 PREM_POL_EFF_DT                        POSITION(       5         )
 DATE EXTERNAL(            10)        ,
 PREM_TRANS_EFF_DT                      POSITION(      15         )
 DATE EXTERNAL(            10)        ,
 PREM_TRANS_EXP_DT                      POSITION(      25         )
 DATE EXTERNAL(            10)        ,
 PREM_BRCH_REPORTNG                     POSITION(      35         )
 CHAR(                      3)        ,
 PREM_BRCH_PRODUCNG                     POSITION(      38         )
 CHAR(                      3)        ,
 PREM_REG_PRODUCNG                      POSITION(      41         )
 CHAR(                      2)        ,
 PREM_LOCAL_BRCH_CD                     POSITION(      43         )
 CHAR(                      2)        ,
 PREM_MCLASS_CD                         POSITION(      45         )
 CHAR(                      3)        ,
 PREM_DIV_NO                            POSITION(      48         )
 CHAR(                      3)        ,
 PREM_PRODUCT_NO                        POSITION(      51         )
 CHAR(                      7)        ,
 PREM_OGIS_CTRY_CD                      POSITION(      58         )
 CHAR(                      3)        ,
 PREM_GROSS_PRM_AMT                     POSITION(      61:      66)
 DECIMAL                              ,
 PREM_ORIG_GRSS_PRM                     POSITION(      67:      72)
 DECIMAL                              ,
 PREM_CEDED_IND                         POSITION(      73         )
DECIMAL                              ,
PREM_ORIG_CED_PRM                      POSITION(      80:      85)
DECIMAL                              ,
PREM_CURRENCY_CODE                     POSITION(      86         )
CHAR(                      3)        ,
PREM_COMM_AMT                          POSITION(      89:      94)
DECIMAL                              ,
PREM_ORIG_COMM                         POSITION(      95:     100)
DECIMAL                              ,
PREM_POL_NO                            POSITION(     101         )
CHAR(                     11)        ,
PREM_CO_NO                             POSITION(     112         )
CHAR(                      3)        ,
PREM_SOURCE_CD                         POSITION(     115         )
CHAR(                      2)        ,
PREM_OGIS_MGR_CD                       POSITION(     117         )
CHAR(                      2)        ,
PREM_REINS_TYPE                        POSITION(     119         )
CHAR(                      2)        ,
PREM_REINS_COMPANY                     POSITION(     121         )
CHAR(                      9)        ,
PREM_PROD_NO                           POSITION(     130         )
CHAR(                      9)        ,
PREM_PROD_SOURCE                       POSITION(     139         )
CHAR(                      2)        ,
PREM_LIMIT_LIAB                        POSITION(     141         )
CHAR(                      2)        ,
PREM_ATTACH_POINT                      POSITION(     143         )
CHAR(                      2)        ,
PREM_LAST_TRAN_CD                      POSITION(     145         )
CHAR(                      1)        ,
PREM_ORIG_LOC_NO                       POSITION(     146         )
INTEGER                              ,
PREM_ISS_COMPANY                       POSITION(     150         )
 CHAR(                      3)        ,
 PREM_ISS_COMP_NUM                      POSITION(     153         )
 INTEGER                              ,
 PREM_PRE_CLOSE_IND                     POSITION(     157         )
 CHAR(                      1)        ,
 PREM_ADB_UPDT_DT                       POSITION(     158         )
 DATE EXTERNAL(            10)        ,
 PREM_SYSTEM_ID                         POSITION(     168         )
 CHAR(                      3)        ,
 PREM_REIN_COMM_AMT                     POSITION(     171:     176)
 DECIMAL                              ,
 PREM_REIN_ORIG_COMM_AMT                POSITION(     177:     182)
 DECIMAL                              ,
 PREM_ORIG_OGIS_CTRY_CD                 POSITION(     183         )
 CHAR(                      3)        ,
 PREM_LVLC_REIN_PRM_AM                  POSITION(     186:     191)
 DECIMAL                              ,
 PREM_LVLC_REIN_ORIG_PRM_AM             POSITION(     192:     197)
 DECIMAL                              ,
 PREM_LVLC_COMM_PRM_AM                  POSITION(     198:     203)
 DECIMAL                              ,
 PREM_LVLC_COMM_ORIG_PRM_AM             POSITION(     204:     209)
 DECIMAL
)
Back to top
View user's profile Send private message
newcobol
Beginner


Joined: 20 Apr 2006
Posts: 88
Topics: 22
PostPosted: Thu Nov 21, 2013 4:45 pm    Post subject: Reply with quote
amendment. value in spaces 186 thru 209 does not appear to be spaces. in hex it is all 0
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Fri Nov 22, 2013 8:56 am    Post subject: Reply with quote
newcobol wrote:
amendment. value in spaces 186 thru 209 does not appear to be spaces. in hex it is all 0


Newcobol,

The last 4 fields are Decimal fields which relate to Packed decimal format. So if you Input has X'00' then you probably need to check the last nibble to see if it has a sign.

A value of 0 (zero) is stored as
Code:

000000
00000C


So check and see if you have C (positive value) D(negative value), then you need not do anything.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
newcobol
Beginner


Joined: 20 Apr 2006
Posts: 88
Topics: 22
PostPosted: Fri Nov 22, 2013 11:52 am    Post subject: Reply with quote
they were all zeroes in hex. i ran a sort to turn them all into real zeroes, as i was told it represented low values and not zeroes. the load executed correctly with no change to it
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Database All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group