JCL code:
//STEP101 EXEC PGM=EZACFSM1
//SYSIN DD DSN=X.Y,DISP=SHR
//SYSOUT DD DSN=&&T,DISP=(,PASS),
// RECFM=FB,LRECL=80,BLKSIZE=0
//**
//STEP102 EXEC PGM=FTP
//OUTPUT DD SYSOUT=*
//INPUT DD DSN=&&T,DISP=(OLD,DELETE)
//*
- First step creates a temp FTP control card by passing current year, month and date (EZACFSM1 utility is used to pass the values.) and below is input for EZACFSM1 utility.
<Site address to FTP>
<id>
<pass>
CD /<destination library>
Txt
PUT ‘<sending dataset>’ ABCD_&YR4&MON&DAY..TXT
QUIT
- The destination file name will be like ABCD_20120327.TXT
- Second step FTP’s the data by using input control card.
//STEP101 EXEC PGM=EZACFSM1
//SYSIN DD DSN=X.Y,DISP=SHR
//SYSOUT DD DSN=&&T,DISP=(,PASS),
// RECFM=FB,LRECL=80,BLKSIZE=0
//**
//STEP102 EXEC PGM=FTP
//OUTPUT DD SYSOUT=*
//INPUT DD DSN=&&T,DISP=(OLD,DELETE)
//*
- First step creates a temp FTP control card by passing current year, month and date (EZACFSM1 utility is used to pass the values.) and below is input for EZACFSM1 utility.
<Site address to FTP>
<id>
<pass>
CD /<destination library>
Txt
PUT ‘<sending dataset>’ ABCD_&YR4&MON&DAY..TXT
QUIT
- The destination file name will be like ABCD_20120327.TXT
- Second step FTP’s the data by using input control card.
No comments:
Post a Comment