Rupesh.Kothari
Member of the Month
Joined: 27 Apr 2005 Posts: 463
|
|
|
|
Hi,
Quote: |
I need a JCL which FTPs the files from the server and loads it into the database. |
could you please elaborate menaing of " loads into database"
If u want to download file from server to flat file please find the JCL
Code: |
//FTP10 EXEC PGM=FTP,PARM='(TIMEOUT 720'
//OUTPUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//INPUT DD *
Ip address
userid
password
CD path
get server file name 'mainframe file naem' (REPLACE
QUIT |
I hope it helps
Regards
Rupesh |
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Code: |
//STEP0001 EXEC PGM=FTP,PARM='server.name (Exit=8'
//NETRC DD DISP=SHR,DSN=&SYSUID..NETRC
//OUTPUT DD SYSOUT=*
//T1 DD DSN=&&T1,DISP=(,PASS),
// UNIT=(SYSDA),SPACE=(CYL,(100,100),RLSE),
// RECFM=FB,LRECL=80
//Tn DD DSN=&&Tn,DISP=(,PASS),
// UNIT=(SYSDA),SPACE=(CYL,(100,100),RLSE),
// RECFM=FB,LRECL=80
//INPUT DD *
sendsite
ascii
cd directory
get filename1.ext //dd:T1
get filenamen.ext //dd:Tn
qui
/*
//*
//STEP0002 EXEC ORALDR,SSN=PGEN,PARM='PARFILE=/DD/PARMS'
//TNSNAMES DD *
XXXNN =
(DESCRIPTION =
(ADDRESS = (PROTOCOL = TCP)(HOST=hostname)(PORT = 1521))
(CONNECT_DATA =
(SERVICE_NAME = XXXXXXXX))
)
/*
//BADDD DD SYSOUT=*
//DSCDD DD SYSOUT=*
//LOGDD DD SYSOUT=*
//PARMS DD *
USERID=
USER/PASSWORD
CONTROL=/DD/LDRCTL LOG=/DD/LOGDD DIRECT=FALSE
/*
//LDRCTL DD *
LOAD DATA
INFILE /DD/LDRDATA
BADFILE /DD/BADDD
REPLACE
INTO TABLE table
(fld Position(01:80) Char)
/*
//LDRDATA DD DSN=&&T1,DISP=(OLD,DELETE)
// DD DSN=&&Tn,DISP=(OLD,DELETE)
//*
|
|
|