前言
Oracle EBS的二次开发主要针对Forms开发和Package开发（报表、公共包、逻辑包等），因此移植程序也主要针对Forms（.fmb）和Package（.pck）。但是我们知道，在移植Forms的时候，如果有用户在界面上，那么该用户就会被强制剔除（包括同时打开多个界面的情况），这样会造成用户可能在处理单据，或者录入数据，造成数据未保存，或者数据状态处于不一致状态;Package的移植虽然不会把用户剔除，但是如果Froms引用了该Package，Forms也会报错，无法继续操作。
因此作为技术开发员移植程序一般需要等到晚上的时候才能移植。
Oracle EBS的请求除了可以调用PLsql包代码，还可以调用JAVA代码。我们可以通过JAVA代码遍历某个目录，调用LINUX SHELL脚本的方式来实现程序定时每日自动编译程序。
步骤
1.新建JAVA代码
JAVA代码的作用是遍历某个目录，处理.fmb,.pck扩展名的文件，然后调用对应的SHELL脚本进行编译。
package oracle.apps.fnd.cp.request.cux;
import java.io.BufferedReader;
import java.io.File;
import java.io.IOException;
import java.io.InputStreamReader;
import java.util.Calendar;
import oracle.apps.fnd.cp.request.*;
public class CuxCompile implements JavaConcurrentProgram {
public void runProgram(CpContext ctx) {
String path = "/u01/prod/apps/apps_st/appl/cux/12.0.0/forms/programs/DAYCOMPILE";
Boolean sucFlag;
// get reference to Out and Log files
OutFile out = ctx.getOutFile();
LogFile log = ctx.getLogFile();
out.writeln("文件路径：" + path);
out.writeln("!-----------------------------------------------------!");
File fileDir = new File(path);
File[] files = fileDir.listFiles();
Calendar cd = Calendar.getInstance();
int fileNum = 0;
for (File file : files) {
if (file.isFile() && file.getName().indexOf(".fmb") > 0) {
int dot = file.getName().lastIndexOf('.');
String command = "sh " + path + "/compile.sh "
+ file.getName().substring(0,dot);
fileNum++;
sucFlag = false;
try {
out.writeln("编译文件" + fileNum + ":"+file.getName());
log.writeln("编译文件" + fileNum + ":\n" + command,log.STATEMENT);
Process pr = Runtime.getRuntime().exec(command);
//输出信息
InputStreamReader ir = new InputStreamReader(
pr.getInputStream());
BufferedReader input = new BufferedReader(ir);
String line;
while ((line = input.readLine()) != null) {
if (line.indexOf("Created form file /u01/prod/apps/apps_st/appl/cux") >=0){
sucFlag = true;
out.writeln("编译文件" + fileNum + ":"+file.getName()+"成功。");
}
log.writeln(line,log.STATEMENT);
}
//错误信息
ir = new InputStreamReader(pr.getErrorStream());
input = new BufferedReader(ir);
while ((line = input.readLine()) != null) {
if (line.indexOf("Created form file /u01/prod/apps/apps_st/appl/cux") >=0){
sucFlag = true;
out.writeln("编译文件" + fileNum + ":"+file.getName()+"成功。");
}
out.writeln(fileNum+line);
}
log.writeln("编译文件" + fileNum + ":"+file.getName()+"结束。",log.STATEMENT);
} catch (IOException e) {
// TODO Auto-generated catch block
log.writeln("编译文件" + fileNum + ":"+file.getName()+"结束。",log.STATEMENT);
e.printStackTrace();
}finally{
if (!sucFlag){
out.writeln("<b>ERROR:编译文件" + fileNum + ":"+file.getName()+"失败！</b>");
}
out.writeln("!-----------------------------------------------------!");
}
}
}
int sucNum;
//编译package
for (File file : files) {
if (file.isFile() && file.getName().indexOf(".pck") > 0) {
int dot = file.getName().lastIndexOf('.');
String command = "sh " + path + "/package.sh "
+ file.getName();
fileNum++;
sucNum = 0;
try {
out.writeln("编译文件" + fileNum + ":"+file.getName());
log.writeln("编译文件" + fileNum + ":\n" + command,log.STATEMENT);
Process pr = Runtime.getRuntime().exec(command);
//输出信息
InputStreamReader ir = new InputStreamReader(
pr.getInputStream());
BufferedReader input = new BufferedReader(ir);
String line;
while ((line = input.readLine()) != null) {
if (line.indexOf("Package created.") >=0){
sucNum++;
}
if (line.indexOf("Package body created.") >=0 && sucNum==1){
sucNum++;
out.writeln("编译文件" + fileNum + ":"+file.getName()+"成功。");
}
log.writeln(line,log.STATEMENT);
}
//错误信息
ir = new InputStreamReader(pr.getErrorStream());
input = new BufferedReader(ir);
while ((line = input.readLine()) != null) {
if (line.indexOf("Package created.") >=0){
sucNum++;
}
if (line.indexOf("Package body created.") >=0 && sucNum==1){
sucNum++;
out.writeln("编译文件" + fileNum + ":"+file.getName()+"成功。");
}
out.writeln(fileNum+line);
}
log.writeln("编译文件" + fileNum + ":"+file.getName()+"结束。",log.STATEMENT);
e.printStackTrace();
}finally{
if (sucNum!=2){
out.writeln("<b>ERROR:编译文件" + fileNum + ":"+file.getName()+"失败！</b>");
}
out.writeln("!-----------------------------------------------------!");
}
}
}
// get concurrent program Request Details
ReqDetails rDet = ctx.getReqDetails();
String userName = rDet.getUserInfo().getUserName();
// write username to the Out File
// out.writeln("User Name = " + userName);
// Success message to the Concurrent Manager
ctx.getReqCompletion().setCompletion(ReqCompletion.NORMAL,"Completed");
}
public static void main(String[] args) {
File file = new File("");
File[] files = file.listFiles();
}
}
注释：
1.通过输出字符串是否包含Created form file /u01/prod/apps/apps_st/appl/cux判断编译Forms是否成功。
2.通过字符串“Package created.”与“Package body created.”来判断Package是否编译成功。
3.把java代码复制到$JAVA_TOP/oracle/apps/fnd/cp/request/cux/下，并编译。
2.Forms编译代码
compile.sh
source ~/.bash_profile
cd $CUX_TOP/forms/programs/DAYCOMPILE
export FORMS_PATH=.:$FORMS_PATH:$AU_TOP/forms/ZHS
frmcmp_batch $CUX_TOP/forms/programs/DAYCOMPILE/$1.fmb apps/apps output_file=$CUX_TOP/forms/US/$1.fmx
cp $CUX_TOP/forms/US/$1.fmx $CUX_TOP/forms/ZHS/$1.fmx
#删除文件到HIS文件夹
mv $CUX_TOP/forms/programs/DAYCOMPILE/$1.fmb ./hisfmb/
cp $CUX_TOP/forms/US/$1.fmx $CUX_TOP/forms/programs/DAYCOMPILE/hisfmx/
3.Package编译代码
package.sh
source ~/.bash_profile
cd $CUX_TOP/forms/programs/DAYCOMPILE
expect compilepck.sh $1
mv $CUX_TOP/forms/programs/DAYCOMPILE/$1 $CUX_TOP/forms/programs/DAYCOMPILE/hispck/
compilepck.sh
#!/usr/bin/expect
set timeout 20
spawn sqlplus apps/apps
expect "sql> "
send "set define off\n"
expect "sql> "
send "@[lindex $argv 0]\n"
expect "sql> "
send "exit\n"
interact
注释：
1.把以上文件复制到应用服务器$CUX_TOP/forms/programs/DAYCOMPILE目录。
2.要移植的fmb,pck文件也放到该目录下（注意pck的编码，我这边使用UTF8 无BOM）。
4.新建并发程序
