/* * * 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