/*
*
* TODO Для изменения шаблона этого сгенерированного файла выберите пункт меню
* Окно - Параметры - Java - Стиль кода - Шаблоны кода
*/
package sample.ims;
import com.ibm.connector2.ims.ico.*;
import javax.resource.cci.*;
/**
*
*
* TODO Для изменения шаблона этого сгенерированного типа выберите пункт меню
* Окно - Параметры - Java - Стиль кода - Шаблоны кода
*/
public class CCIApp {
public static void main(String[] args) {
Connection conn = null;
try{
IMSManagedConnectionFactory mcf = new IMSManagedConnectionFactory();
mcf.setHostName("yourHostName");
mcf.setPortNumber(new Integer(0));
mcf.setDataStoreName("yourDataStoreName");
ConnectionFactory cf = (ConnectionFactory) mcf.createConnectionFactory();
IMSConnectionSpec cSpec = new IMSConnectionSpec();
conn = cf.getConnection(cSpec);
Interaction interAction = conn.createInteraction();
IMSInteractionSpec iSpec = new IMSInteractionSpec();
iSpec.setInteractionVerb(1); // SEND_RECEIVE
iSpec.setImsRequestType(1); // TRANSACTION
iSpec.setCommitMode(1); // SEND_THEN_COMMIT
sample.ims.INPUTMSG input = new INPUTMSG();
input.setIn__ll((short) input.getSize());
input.setIn__zz((short) 0);
input.setIn__trcd("IVTNO");
input.setIn__cmd("DISPLAY");
input.setIn__name1("LAST1");
sample.ims.OUTPUTMSG output = new sample.ims.OUTPUTMSG();
interAction.execute(iSpec, input, output);
System.out.println(
"Output message is... " +
"\nMSG: " + output.getOut__msg() +
"\nNAME1: " + output.getOut__name1() +
"\nNAME2: " + output.getOut__name2() +
"\nEXTN: " + output.getOut__extn() +
"\nZIP: " + output.getOut__zip()
);
}
catch(Exception e)
{
System.out.println("Caught exception is: " + e.getMessage());
}
}
}
CCIApp.java - это простая двухуровневая прикладная программа на Java, работающая в режиме без управления. В ней используются привязки данных Java, sample.ims.INPUTMSG и sample.ims.OUTPUTMSG, созданные мастером привязок данных Java для CICS/IMS в Rational Application Developer. Откройте CCIApp.java и измените значения, используемые в операторах setHostName(), setPortNumber() и setDataStoreName(), в соответствии с применяемой средой.
Сообщение вывода... MSG: ENTRY WAS DISPLAYED NAME1: LAST1 NAME2: FIRST1 EXTN: 8-111-1111 ZIP: D01/R01