SoftwareMining - Business Rule Extraction and Documentation 

Business Rule   
CUSTINQ1.CBL
COBOL Documentation
CUSTINQ1.html
Persistent Records:
Signature (From Linkage Section) 
Working Storage Section

 

Analyst's Description/Comments
Data Filters Applied to this rule:
  • None
Statement Category Filters:
  • Screen statements

Business Rule Code 
/**
 * c0000ProcessCustomerInquiry_M1240
 */

public void c0000ProcessCustomerInquiry_M1240 (){
  if (eib.getEibcalen().getAsInt() == 0) {
    inqset1.getInqmap1o().setLowValues();
    inqset1.setTranido("INQ1");
    iData.setSendFlag(iData.sendFlagSendErase[0].minString());
    perform("c1400SendCustomerMap_M1290");
  } else if (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhclear()) == 0) {
      inqset1.getInqmap1o().setLowValues();
      inqset1.setTranido("INQ1");
      iData.setSendFlag(iData.sendFlagSendErase[0].minString());
      perform("c1400SendCustomerMap_M1290");
    } else if ((ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhpa1()) == 0) || 
         ((ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhpa2()) == 0) || 
           (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhpa3()) == 0))) {
        ; // continue
      } else if ((ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhpf3()) == 0) || 
           (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhpf12()) == 0)) {
          // ** Newly modified CICS support. Please doublecheck. PC_CICS_XCTL_CLASS. ** 
          cicsXctl( new XctlDO()
            .setProgram("INVMENU"));
        } else if (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhenter()) == 0) {
            perform("c1000ProcessCustomerMap_M1250");
          } else {
            inqset1.getInqmap1o().setLowValues();
            inqset1.setMesageo("Invalid key pressed.");
            iData.setSendFlag(iData.sendFlagSendDataonlyAlarm[0].minString());
            perform("c1400SendCustomerMap_M1290");
          }
  // ** Newly modified CICS support. Please doublecheck. PC_CICS_RETURN_CLASS. ** 
  cicsReturn( new ReturnDO()
    .setTransid("INQ1")
    .setCommarea(iData.getCommunicationArea()));
}


/**
 * c1000ProcessCustomerMap_M1250
 */

public void c1000ProcessCustomerMap_M1250 (){
  perform("c1100ReceiveCustomerMap_M1260");
  perform("c1200EditCustomerData_M1270");
  if (ACMUtil.ACMCheck88Vars(iData.getValidDataSw(), iData.validDataSwValidData)) {
    perform("c1300GetCustomerRecord_M1280");
  }
  if (ACMUtil.ACMCheck88Vars(iData.getValidDataSw(), iData.validDataSwValidData)) {
    iData.setSendFlag(iData.sendFlagSendDataonly[0].minString());
    perform("c1400SendCustomerMap_M1290");
  } else {
    iData.setSendFlag(iData.sendFlagSendDataonlyAlarm[0].minString());
    perform("c1400SendCustomerMap_M1290");
  }
}


/**
 * c1100ReceiveCustomerMap_M1260
 */

public void c1100ReceiveCustomerMap_M1260 (){
}


/**
 * c1200EditCustomerData_M1270
 */

public void c1200EditCustomerData_M1270 (){
  if ((inqset1.getCustnol().getAsInt() == 0) || 
     (inqset1.getCustnoi().isFilled(' '))) {
    iData.setValidDataSw("N");
    inqset1.setMesageo("You must enter a customer number.");
  }
}


/**
 * c1300GetCustomerRecord_M1280
 */

public void c1300GetCustomerRecord_M1280 (){
  cicsRead( new ReadDO()
    .setFile("CUSTMAS")
    .setInto(iData.getCustomerMasterRecord())
    .setRidfld(inqset1.getCustnoi())
    .setResp(iData.getResponseCode()));
  if (iData.getResponseCode().getAsInt() == RESP_CODE_NORMAL) {
    inqset1.getMesageo().fill(" ");
    inqset1.setLnameo(iData.getCmLastNameValue());
    inqset1.setFnameo(iData.getCmFirstNameValue());
    inqset1.setAddro(iData.getCmAddressValue());
    inqset1.setCityo(iData.getCmCityValue());
    inqset1.setStateo(iData.getCmStateValue());
    inqset1.setZipcodeo(iData.getCmZipCodeValue());
  } else if (iData.getResponseCode().getAsInt() == RESP_CODE_NOTFND) {
      iData.setValidDataSw("N");
      inqset1.setMesageo("That customer does not exist.");
      inqset1.getZipcodeo().fill(" ");
      inqset1.getStateo().fill(" ");
      inqset1.getCityo().fill(" ");
      inqset1.getAddro().fill(" ");
      inqset1.getFnameo().fill(" ");
      inqset1.getLnameo().fill(" ");
    } else {
      // ** Newly modified CICS support. Please doublecheck. PC_CICS_ABEND_CLASS. ** 
      cicsAbend();
    }
}


/**
 * c1400SendCustomerMap_M1290
 */

public void c1400SendCustomerMap_M1290 (){
  if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendErase)) {
  } else if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendDataonly)) {
    } else if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendDataonlyAlarm)) {
      }
}