UNLOAD
1. UNLOAD JCL
//LEBRONJ JOB (12345678),LEBRON,MSGCLASS=H,
// MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
//UTIL EXEC DSNUPROC,SYSTEM=DB8G,UID='LEBRONJ',UTPROC=''
//DSNUPROC.SYSREC DD DSN=LEBRON.TABLE.DATA,
// DISP=(MOD,CATLG),
// SPACE=(16384,(20,20),,,ROUND),
// UNIT=SYSDA
//DSNUPROC.SYSPUNCH DD DSN=LEBRON.TABLE.RUN,
// DISP=(MOD,CATLG),
// SPACE=(16384,(20,20),,,ROUND),
// UNIT=SYSDA
//DSNUPROC.SYSIN DD *
UNLOAD FROM TABLE LEBRON.LBNTABLE
//
2. DSNUPROC.SYSREC
用来指明存放table数据的DataSet
3. DSNUPROC.SYSPUNCH
该dataset中存放load命令所需的control statement. See the example below,
LOAD DATA INDDN SYSREC ENFORCE NO
EBCDIC CCSID(00037,00000,00000)
INTO TABLE "LEBRON"."LBNTABLE"
WHEN(00001:00002 = X'0003')
( "ID"
POSITION( 00003:00022) CHAR(00020)
, "NAME"
POSITION( 00023:00042) CHAR(00020)
)