by gauravfrankly » Tue Sep 01, 2015 11:16 am
getting ABENDED S806 U0000 CN on executi8ng following job card
//STEP010 EXEC PGM=DSNUTILB
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=C
//ABP710DD DD SYSOUT=*
//SYSREC DD DSN=INPUT DATA FILE,DISP=SHR
//SYSIN DD *
LOAD DATA
REPLACE
RESUME NO
INTO TABLE XXXX.TABLE1
( INDV_ID POSITION(1:10) INTEGER,
SURNAME POSITION(11:74) VARCHAR(64) STRIP BOTH,
FORENAME POSITION(79:138) VARCHAR(60) STRIP BOTH,
FORENAME_LEN POSITION(75:77) SMALLINT,
FORENAME_FCHAR POSITION(78:78) VARCHAR(1) STRIP BOTH,
MIDDLENAME POSITION(143:202) VARCHAR(60) STRIP BOTH,
MIDDLENAME_LEN POSITION(139:141) SMALLINT,
MIDDLENAME_FCHAR POSITION(142:142) VARCHAR(1) STRIP BOTH,
INDV_DOB POSITION(284:293) EXTERNAL(10) STRIP BOTH,
GENDER POSITION(203:203) VARCHAR(1) STRIP BOTH,
KEY_INFO POSITION(204:263) VARCHAR(60) STRIP BOTH,
CASE_REF POSITION(264:283) VARCHAR(20) STRIP BOTH,
LAST_UPDATE_DTTM CURRENT_TIMESTAMP TIMESTAMP EXTERNAL(26),
)