SoftwareMining - Business Rule Extraction and Documentation 

Business Rule   
INVMENU.CBL
COBOL Documentation
INVMENU.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 
/**
 * c0000ProcessMasterMenu_M1170
 */

public void c0000ProcessMasterMenu_M1170 (){
  if (eib.getEibcalen().getAsInt() == 0) {
    menset1.getMenmap1o().setLowValues();
    iData.setSendFlag(iData.sendFlagSendErase[0].minString());
    perform("c1400SendMenuMap_M1220");
  } else if (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhclear()) == 0) {
      menset1.getMenmap1o().setLowValues();
      iData.setSendFlag(iData.sendFlagSendErase[0].minString());
      perform("c1400SendMenuMap_M1220");
    } 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)) {
          perform("c2000SendTerminationMessage_M1230");
          // ** Newly modified CICS support. Please doublecheck. PC_CICS_RETURN_CLASS. ** 
          cicsReturn();
        } else if (ACMUtil.compare(eib.getEibaid(), dfhaid.getDfhenter()) == 0) {
            perform("c1000ProcessMenuMap_M1180");
          } else {
            menset1.setMesageo("Invalid key pressed.");
            iData.setSendFlag(iData.sendFlagSendDataonlyAlarm[0].minString());
            perform("c1400SendMenuMap_M1220");
          }
  // ** Newly modified CICS support. Please doublecheck. PC_CICS_RETURN_CLASS. ** 
  cicsReturn( new ReturnDO()
    .setTransid("MENU")
    .setCommarea(iData.getCommunicationArea()));
}


/**
 * c1000ProcessMenuMap_M1180
 */

public void c1000ProcessMenuMap_M1180 (){
  perform("c1100ReceiveMenuMap_M1190");
  perform("c1200EditMenuData_M1200");
  if (ACMUtil.ACMCheck88Vars(iData.getValidDataSw(), iData.validDataSwValidData)) {
    iData.setActionSub(menset1.getActioni());
    perform("c1300BranchToProgram_M1210");
  }
  iData.setSendFlag(iData.sendFlagSendDataonlyAlarm[0].minString());
  perform("c1400SendMenuMap_M1220");
}


/**
 * c1100ReceiveMenuMap_M1190
 */

public void c1100ReceiveMenuMap_M1190 (){
}


/**
 * c1200EditMenuData_M1200
 */

public void c1200EditMenuData_M1200 (){
  if ((ACMUtil.compare(menset1.getActioni(), "1") != 0) && 
     ((ACMUtil.compare(menset1.getActioni(), "2") != 0) && 
       (ACMUtil.compare(menset1.getActioni(), "3") != 0))) {
    menset1.setActionh(attr.getAttrReverseValue());
    menset1.setMesageo("You must enter 1, 2, or 3.");
    iData.setValidDataSw("N");
  } else {
    menset1.getMesageo().fill(" ");
    iData.setValidDataSw("Y");
  }
}


/**
 * c1300BranchToProgram_M1210
 */

public void c1300BranchToProgram_M1210 (){
  // ** Newly modified CICS support. Please doublecheck. PC_CICS_XCTL_CLASS. ** 
  cicsXctl( new XctlDO()
    .setProgram(iData.getProgramName(iData.getActionSub().getAsInt() - 1))
    .setResp(iData.getResponseCode()));
  menset1.setMesageo("That program is not available.");
}


/**
 * c1400SendMenuMap_M1220
 */

public void c1400SendMenuMap_M1220 (){
  menset1.setTranido("MENU");
  if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendErase)) {
  } else if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendDataonly)) {
    } else if (ACMUtil.ACMCheck88Vars(iData.getSendFlag(), iData.sendFlagSendDataonlyAlarm)) {
      }
}


/**
 * c2000SendTerminationMessage_M1230
 */

public void c2000SendTerminationMessage_M1230 (){
}