ULTIM language

ULTIM is basically a very high-level system designed to provide both the computer professional and the end user with an ideal alternative to traditional languages. It is a handy tool to substantially improve the productivity and cost-effectiveness in all departments.

ULTIM consists of a rich set of simple instructions and automatisms for many diversified uses such as file or database processing, screen handling, report generation, etc. It also automatically recovers from minor errors that should not change the expected results.

Here is an example of programming



 BEGIN   
DEMO.



 *       
DATA DESCRIPTION AND ACCESS

 FILES    CUSTOMER(F, PROD, ORACLE,

  
          
SELECT NAME,          
     ADDRESS-1,    
 ADDRESS-2,

 
 
                
CUST.ACCOUNT-NBR,    DIVISION,  
    LAST-PAYMENT,

      
      
       BALANCE (P, 5, 10, @ED:$)

           
  FROM   CUST, NAME

           
  WHERE  CUST.ACCOUNT-NBR = NAME.ACCOUNT-NBR AND
BALANCE NE 0).



 PROCESS 
GET EACH CUSTOMER WHERE LAST-PAYMENT < 20150301.



 *        TABULATED REPORT


 OPTIONS 
HEADINGS=AUTO, SPACING = 5.

 REPORT   DIVISION, NAME, ACCOUNT-NBR,
BALANCE(12,TOTAL), LAST-PAYMENT.

 TITLE    ACCOUNTS OUTSTANDING FOR
MORE THAN
2 MONTHS AS OF MAY 1, 2015

 CONTROL 
SUBTOTALS=1.



 END

Tabulated report produced by the REPORT, TITLE and CONTROL statements




     
         
 
     
        
   
         MAY  6,
2015    PAGE    1



      ACCOUNTS OUTSTANDING FOR MORE
THAN 2 MONTHS AS OF MAY
1, 2015



 DIVISION  
------NAME-----   ACCOUNT
NBR      
BALANCE    LAST PAYMENT



 N-EAST     LLOYD
&
SONS       
2369108         
$34.94      2015/02/21

  
        
THE LAMP
SHOP      
3246538        
$199.00      2014/12/15

   
       
THE
LIGHTHOUSE     
1071638      
$2,189.10      2015/01/06



 ........................................... 
$2,423.04



 N-WEST     MVC
INC.              
1387      
$4,189.95      2015/01/28

  
        
PLANT
LIGHTING     
9066489      
$1,450.49      2015/02/12

   
       
QUALITY
SWITCH     
9193257        
$469.20      2015/02/16

    
       ZEUSS
DISCOUNT     
1479380        
$964.99      2015/02/01

     
     
ZIGGER'S           
2102981      
$2,849.59      2014/11/01



 ........................................... 
$9,924.22



 S-EAST     ACME LITE
LTD.      
843896        
$360.47      2015/02/11

  
        
ELECTRIC
SHOP      
2225751        
$194.90      2014/12/21

   
       
LIGHTNING
LAMP     
3178456        
$475.20      2014/12/05

    
       RUSSELL
&
SONS      
386660        
$895.45      2015/01/12

     
      TOP
SERVICES       
3143486         
$10.00      2015/02/01



 ........................................... 
$1,936.02

 ...........................................
$14,283.28