A Mainframe IDE Powered By Unix Technology [12] - Integrate submit JCL and compile with Vim

For integrate submit JCL and compile with Vim, we need some pre-works:

1. One shell script: use ftp and site command to submit JCL to jes, we call it ftpwj.sh, JCL file name is passed as parameter.

2. One shell script: generate JCL for compile programs, the compile mode and program name can be passed to shell as parameters. We call it comp2jes.sh

Use shc compile the two scripts to executable files, and move them to folder which in $PATH.

Now we can use vim's scirpt to call these executable files to submit JCL or compile programs:

Submit JCL:

1 function ! SubmitJCL( ... ) "{{{
2 if &ft== "jcl"
3 let s:sourceFile= substitute ( expand ( "%" ) ," // " ,"/" ,"g" )
4 else
5 echohl ErrorMsg | echo "Not a JCL file" | echohl NONE
6 return
7 endif
8 if a:0 == 1
9 let s:siteSys= a:1
10 if s:siteSys== "w"
11 exec "silent !ftpwj put " . s:sourceFile
12 elseif s:siteSys== "q"
13 exec "silent !ftpqj put " . s:sourceFile
14 endif
15 else
16 exec "silent !ftpwj put " . s:sourceFile
17 endif
18 endfunction "}}}

JCL file is the parameter passed to function SubmitJCL and then passed to ftpwj.exe, ftpwj.exe will put it to JES.

ftpqj is another application like ftpwj, they can send JCL to diffrent server.

Compile programs:

20 function ! CompFile( ... ) "{{{
21 if &ft== "pli"
22 let s:sourceFile= substitute ( expand ( "%" ) ," // " ,"/" ,"g" )
23 else
24 echohl ErrorMsg | echo "Not a source file" | echohl NONE
25 return
26 endif
27 if a:0 == 1
28 let s:sourceType= a:1
29 call FtpMput ()
30 if s:sourceType== "bat"
31 exec "!comp2jes " . s:sourceFile. " BAT"
32 elseif s:sourceType== "onl"
33 exec "!comp2jes " . s:sourceFile. " ONL"
34 endif
35 else
36 echohl ErrorMsg | echo "Parameter needed" | echohl NONE
37 endif
38 endfunction "}}}

BAT or ONL is the compilation mode as parm transfer to comp2jes.

Program name also is one parm. Here call FtpMput function to transfer source to server then compile.