guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi,
IJKFT01: Here we used it to extract the data of ilf028vw in to
flat file.
Code: |
//STEP010 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=SYS1.DSNDB2A.SDSNLOAD,DISP=SHR
//SYSTSIN DD DISP=SHR,DSN=DB26.CARDLIB(RUNTIAUL)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSPUNCH DD DSN=RV01.ILF028VW.INPUT.DATA,
// DISP=(,CATLG),UNIT=3380,SPACE=(TRK,(2,1),RLSE)
//*
//SYSREC00 DD DISP=(,CATLG),UNIT=3380,SPACE=(TRK,(100,100),RLSE),
// DCB=(RECFM=VBA,LRECL=12030,BLKSIZE=12034),
// DSN=RV01.LOAD.ILF028VW.LIST
//*
//SYSIN DD *
DB26.ILF028VW;
/* |
You can also use DXTERM Utility |
|