ＩＫＤ殿、早速のご連絡ありがとうございます。
ソースを貼らせて戴きます。

宜しくお願い致します。

・DSPF
0026.00　　　　　　A　　　　　　　　　　R　RUNSQLW2　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0027.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　OVERLAY　　　　　　　　　　　　　　　　　　　
0028.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　　2'RUNSQLW2'　　　　　　　　　　　　　　　　
0029.00　　　　　　A　　　　　　　　　　　　PCOMP　　　　　　　　　　3A　　O　　1　12DSPATR(HI)　　　　　　　　　　　　　　　　
0030.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　DSPATR(UL)　　　　　　　　　　　　　　　　
0031.00　　　　　　A　　　　　　　　　　　　PCOMN　　　　　　　　　42A　　O　　1　18DSPATR(HI)　　　　　　　　　　　　　　　　
0032.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　DSPATR(UL)　　　　　　　　　　　　　　　　
0033.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　64DATE　　　　　　　　　　　　　　　　　　　　　　
0034.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　EDTCDE(Y)　　　　　　　　　　　　　　　　　
0035.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　73TIME　　　　　　　　　　　　　　　　　　　　　　
0036.00　　　　　　A　　　　　　　　　　　　W2CMD　　　　　　　　　　1A　　B　　4　12COLOR(BLU)　　　　　　　　　　　　　　　　
0037.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　4　15'1:SQL　/　2:SBMJOB(NO　PARM)
0038.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　OB(PARM)　/　4:SYSTEM'　　　　　　
0039.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　6　12'SOURCE　FILE　:'　　　　　　　　　　　
0040.00　　　　　　A　　　　　　　　　　　　W2SRC　　　　　　　　　10A　　B　　6　26COLOR(BLU)　　　　　　　　　　　　　　　　
0041.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　8　12'LIB　　　　　　　　　:'　　　　　　　　　　　
0042.00　　　　　　A　　　　　　　　　　　　W2LIB　　　　　　　　　10A　　B　　8　26COLOR(BLU)　　　　　　　　　　　　　　　　
0043.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　10　12'SRCMBR　　　　　　:'　　　　　　　
0044.00　　　　　　A　　　　　　　　　　　　W2MBR　　　　　　　　　10A　　B　10　26COLOR(BLU)　　　　　　　　　　　　
0045.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　12　12'PARM　　　　　　　　:'　　　　　　　
0046.00　　　　　　A　　　　　　　　　　　　W2PRM　　　　　　　　250A　　B　12　26COLOR(BLU)　　　　　　　　　　　　
0047.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　24　　2'　03:　終了　'　　　　　　　　　　
0048.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　DSPATR(HI)　　　　　　　　　　　　
0049.00　　　　　　A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　24　29'　ENTER:　実行　！！　　　　'　
・CLP
0075.00　　STEP02:　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0076.00　　SNDRCVF　RCDFMT(RUNSQLW2)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0077.00　　/*　Ｆ０３：終了　*/　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0078.00　　IF　　　　　　COND(&IN03　*EQ　'1')　THEN(GOTO　END)　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0079.00　/*　=================================================================　*/
省略
0328.00　　IF　　　　　　COND(&W2LIB　*EQ　'　　　　　　　　　　')　THEN(GOTO　STEP02)　　　　　　　　　　　　　　
0329.00　　IF　　　　　　COND(&W2MBR　*EQ　'　　　　　　　　　　')　THEN(GOTO　STEP02)　　　　　　　　　　　　　　
0330.00　　IF　　　　　　COND(&W2PRM　*EQ　*BLANK)　　　　　　　THEN(GOTO　STEP02)　　　　　　　　　　　　　　
0331.00　　IF　　　　　　COND(&LB00　　*EQ　'0')　THEN(DO)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0332.00　　　　　　　　　　SBMJOB　CMD(CALL　PGM(&W2LIB/&W2MBR)　PARM(&W2PRM))　JOBQ(QBATCH)
0333.00　　ENDDO