PGM=ICET00L

每天定时从Mainframe下载gdg文件再上传到ftp

今天要完成一个任务：

任务描述

Step1:从大机(mainframe)上下载指定的gdg最新的2个generation到本地C:\gdg目录下。
Step2:将这些下载下来的gdg文件发送到指定的ftp服务器的/topath/users-4/目录下面，每天新建一个目录yyyymmdd用来存放当天的gdg文件。
Step3:不用OPC等大机上面的scheduling工具，用windows的“计划任务”功能即可。

这里是实现以上任务的批处理脚本ftpscript.bat。放在C:\ftpscript.bat，之后在windows计划任务里面添加每天定时运行即可。 

@echo off
rem 指定mainframe的IP
set mfIP=xxx.xxx.xxx.xxx
rem 指定mainframe用户名
set mfUser=IBMUSER
rem 指定 ...
more ...

Local FTP Trigger JES job

随便写了一个搜索ABC字符串的JCL，保存到桌面:
C:\Documents and Settings\Foo\Desktop\IBMUSERJ.txt 

//IBMUSERJ JOB '000000000000000000CMP',      
//     CLASS=0,NOTIFY=IBMUSER,TIME=NOLIMIT,MSGCLASS=R                                           
//ONLINE  EXEC PGM=ISRSUPC,                  
//            PARM=(SRCHCMP,                 
//            'ANYC')   
//NEWDD  DD DSN=IBMUSER.PROCLIB,DISP=SHR  
//OUTDD  DD SYSOUT=*    
//SYSIN  DD *           
SRCHFOR  'ABC'       
//*

用ftp的方式将jcl送入JES系统执行。win+R打开cmd 

C:\Documents and Settings ...
more ...

FTP from windows to Mainframe

win+R打开cmd: 

C:\Documents and Settings\Foo\Desktop>ftp ftpserver  
/*Here please input username/password*/  
ftp> ascii
200 Representation type is Ascii NonPrint
ftp> quote site lrecl=80 blksize=16000 recfm=fb
200 SITE command was accepted
ftp> put test.txt 'ibmuser.test.psfile(+1)'
200 Port request OK ...
more ...