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.