//UCSA15UL JOB 'UNLOAD',NOTIFY=UCSA015
//STEPNA EXEC DSNUPROC,UID='SMPLUNLD',UTPROC='',SYSTEM='DB2A'
//SYSREC DD DSN=UCSA015.SMPLUNLD.SYSREC3,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LOAD DATA INDDN SYSREC LOG NO RESUME YES
EBCDIC CCSID(00037,00000,00000)
INTO TABLE "UCSA004"."EMP"
WHEN(00001:00002) = X'0005'
( "EMPNO"
POSITION( 00004:00007) INTEGER
NULLIF(00003)=X'FF'
, "ENAME"
POSITION( 00009:00009) CHAR(00001)
NULLIF(00008)=X'FF'
)
MainFrame