SoftwareMining - Business Rule Extraction and Documentation 

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

public void main_M940 (){
  iData.setWsDate(new ACMDate());
  //   - 
  //   Set year to 1999 
  //   - 
  iData.getWsDate().setYear(1999);
  //   - 
  //   Demonstrate equation of a date variable to a non-date variable 
  //   - 
  iData.setADay(iData.getWsDate().getDay());
  iData.setAMnth(iData.getWsDate().getMonth());
  iData.setAYr(iData.getWsDate().getYear());
  //   - 
  //   Add 50 years to ws-date (y2k problem) 
  //   - 
  iData.getWsDate().setYear(iData.getWsDate().getYear() + 50);
  iData.setBDay(iData.getWsDate().getDay());
  iData.setBMnth(iData.getWsDate().getMonth());
  iData.setBYr(iData.getWsDate().getYear());
  //   - 
  //   Day of week function 
  iData.setWsDow(ACMDate.getDayOfWeek());
  //   - 
  //   Day function 
  //   - 
  iData.setWsDayDow(ACMDate.getDayOfWeek());
  iData.setWsDayDoy(ACMDate.getDayOfYear());
  //   - 
  //   Time function 
  //   - 
  iData.setWsTime(new ACMTime());
  //   - 
  //   Transfer of data from time to a non time variable 
  //   - 
  iData.setAHr(iData.getWsTime().getHours());
  iData.setAMin(iData.getWsTime().getMinutes());
  iData.setASec(iData.getWsTime().getSeconds());
  //   - 
  //   Display time 
  //   - 
  //  - wait for keyboard return 
  //   - 
  //   And Exit 
  //   - 
  stop();
}