PGM=ICET00L

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 ...