SoftwareMining - Business Rule Extraction and Documentation 

Business Rule   
MENU.CBL
COBOL Documentation
MENU.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 
// =========================================================== 
// === SECTION mainx_M950 
// =========================================================== 


/**
 * mainx_M950
 */

public void mainx_M950 (){
}


/**
 * main1_M960
 */

public void main1_M960 (){

  while ( true ){
    // termination condition 
    if(ACMUtil.ACMCheck88Vars(iData.getWsTerminate(), iData.wsTerminateWsYes))
      break;

    performThru("getOption_M970", "getOptionExit_M990");
  }
  stop();
}

// =========================================================== 
// === SECTION getOption_M970 
// =========================================================== 


/**
 * getOption_M970
 */

public void getOption_M970 (){
}


/**
 * getOption2_M980
 */

public void getOption2_M980 (){
  performThru("displayChoices_M1020", "dispSec02_M1040");
  if (iData.getWsEntry().getAsInt() == 1) {

    BaseService compSclBS;
    compSclBS = ServicesFactory.create("com.softwaremining.examples.clients.CompScl", this);
    compSclBS.execute();

    ServicesFactory.cancelService("com.softwaremining.examples.clients.CompScl");
  } else if (iData.getWsEntry().getAsInt() == 2) {

      BaseService compVwBS;
      compVwBS = ServicesFactory.create("com.softwaremining.examples.clients.CompVw", this);
      compVwBS.execute();

      ServicesFactory.cancelService("com.softwaremining.examples.clients.CompVw");
    } else if (iData.getWsEntry().getAsInt() == 3) {

        BaseService compCrBS;
        compCrBS = ServicesFactory.create("com.softwaremining.examples.clients.CompCr", this);
        compCrBS.execute();

        ServicesFactory.cancelService("com.softwaremining.examples.clients.CompCr");
      } else if (iData.getWsEntry().getAsInt() == 4) {
          iData.setWsTerminate("Y");
        } else {
          performThru("invalidOption_M1000", "invalidSect1_M1010");
        }
}


/**
 * getOptionExit_M990
 */

public void getOptionExit_M990 (){
}

// =========================================================== 
// === SECTION invalidOption_M1000 
// =========================================================== 


/**
 * invalidOption_M1000
 */

public void invalidOption_M1000 (){
}


/**
 * invalidSect1_M1010
 */

public void invalidSect1_M1010 (){
  iData.setWsErrMess("Invalid Option, Please Try again");
  iData.getWsErrMess().fill(" ");
}

// =========================================================== 
// === SECTION displayChoices_M1020 
// =========================================================== 


/**
 * displayChoices_M1020
 */

public void displayChoices_M1020 (){
}


/**
 * dispSec01_M1030
 */

public void dispSec01_M1030 (){
}


/**
 * dispSec02_M1040
 */

public void dispSec02_M1040 (){
}