UNLOAD

                                  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)

 )