Verifying FOCUS Installation

Reference:

The Installation Verification Procedure (IVP) tests the FOCUS installation by creating the CAR database and running tests of several areas of FOCUS processing against it.

In order to run the IVP, you must have a member named CAR in your allocation for DDNAME MASTER. If you do not have the CAR Master File in a data set allocated to DDNAME MASTER, create the member and copy the following syntax into it prior to running the IVP.

FILENAME=CAR,SUFFIX=FOC                      
SEGNAME=ORIGIN,SEGTYPE=S1                    
 FIELDNAME=COUNTRY,COUNTRY,A10,FIELDTYPE=I,$ 
SEGNAME=COMP,SEGTYPE=S1,PARENT=ORIGIN        
 FIELDNAME=CAR,CARS,A16,$                    
SEGNAME=CARREC,SEGTYPE=S1,PARENT=COMP        
 FIELDNAME=MODEL,MODEL,A24,$                 
SEGNAME=BODY,SEGTYPE=S1,PARENT=CARREC        
 FIELDNAME=BODYTYPE,TYPE,A12,$               
 FIELDNAME=SEATS,SEAT,I3,$                   
 FIELDNAME=DEALER_COST,DCOST,D7,$            
 FIELDNAME=RETAIL_COST,RCOST,D7,$            
 FIELDNAME=SALES,UNITS,I6,$                  
SEGNAME=SPECS,SEGTYPE=U,PARENT=BODY          
 FIELDNAME=LENGTH,LEN,D5,$                   
 FIELDNAME=WIDTH,WIDTH,D5,$                  
 FIELDNAME=HEIGHT,HEIGHT,D5,$                
 FIELDNAME=WEIGHT,WEIGHT,D6,$                
 FIELDNAME=WHEELBASE,BASE,D6.1,$             
 FIELDNAME=FUEL_CAP,FUEL,D6.1,$       
 FIELDNAME=BHP,POWER,D6,$             
 FIELDNAME=RPM,RPM,I5,$               
 FIELDNAME=MPG,MILES,D6,$             
 FIELDNAME=ACCEL,SECONDS,D6,$         
SEGNAME=WARANT,SEGTYPE=S1,PARENT=COMP 
 FIELDNAME=WARRANTY,WARR,A40,$        
SEGNAME=EQUIP,SEGTYPE=S1,PARENT=COMP  
 FIELDNAME=STANDARD,EQUIP,A40,$       

By default, the IVP creates a temporary CAR file that is deleted when you exit the FOCUS session. You can retain the CAR database by allocating DDNAME CAR to a permanent physical sequential file with record length and blocksize 4096. The standard naming convention is to use the high-level qualifier for your FOCUS production data sets and the low-level qualifier CAR.FOCUS. After the CAR database is created, allocate it with the disposition SHR in batch or SHR REUSE in TSO.

You can run FOCUS interactively, using a CLIST, or in batch, using JCL. The following sections describe how to run the IVP in each of these environments.

Reference: Verifying FOCUS Installation Interactively

If you are running FOCUS interactively, execute the CLIST that was created by the ISETUP installation procedure as member FOCUSC in the install_hlq.CONF.DATA data set.

When the FOCUS prompt (>) displays, enter the following command in uppercase, and Press Enter.

EX CARTEST

The following messages display that show that the CAR Master File is valid and that the CAR database was created. The FOC486 message displays if you did not allocate DDNAME CAR to a permanent file.

 TEST THE CAR MASTER FOR ERRORS                   
FOCUS  7.7.06          CREATED 01/17/2018  SITE.ID     XXX 
 NUMBER OF ERRORS=     0                                   
 NUMBER OF SEGMENTS=   7  ( REAL=    7  VIRTUAL=   0 )     
 NUMBER OF FIELDS=    20  INDEXES=   1  FILES=     1       
 TOTAL LENGTH OF ALL FIELDS=  221                          
OK CAR MASTER                                              
(FOC486) A NEW FILE WAS DYNAMICALLY ALLOCATED              
CREATE THE CAR FILE NUMBER OF SEGMENTS TO BE INPUT =102    
 LOADING OF DATA COMPLETE                                  
SIMPLE TABLE ON CAR FILE OVERALL RATIO AT END= 1.21        
 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY  

Press Enter.

A basic TABLE request is executed next. The following output displays.

 PAGE     1                                                                  
                                                                             
                 TEST1 SIMPLE TABLE                                          
             AVE          AVE                                                
 COUNTRY     RETAIL_COST  DEALER_COST           RATIO   
 -------     -----------  -----------           -----  
 ENGLAND          11,330        9,463            1.20  
 FRANCE            5,610        4,631            1.21  
 ITALY            12,766       10,309            1.24  
 JAPAN             3,239        2,756            1.18  
 W GERMANY         9,247        7,795            1.19  
                                                      
 TOTAL            42,192       34,954            1.21 
                                                     
 BOTTOM OF PAGE                                      
                                                                             

   
   
   
   
   
                                END OF REPORT 

Press Enter to close the report output.

A test that creates a HOLD file and uses the TABLEF command is executed next. The following output displays.

TEST OF A HOLD FILE AND A TABLEF REPORT AFTER  
NUMBERS SHOULD BE SAME AS TEST1 WITHOUT RATIO       
 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY    

 PAGE     1                                                               
                                     
 TEST2 TABLEF FROM HOLD FILE         
             AVE          AVE        
 COUNTRY     RETAIL_COST  DEALER_COST
 -------     -----------  -----------
 ENGLAND          11,330        9,463
 FRANCE            5,610        4,631
 ITALY            12,766       10,309
 JAPAN             3,239        2,756
 W GERMANY         9,247        7,795

DEFINE TEST WITH REPORT .. TOTAL MARGIN SHOULD=99.50
FILE NAME            FIELD NAME                       FORMAT  SEGMENT   TYPE
CAR                  MARGIN                           D10.2         4  
 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY 

Press Enter to close the report output.

A test of the DEFINE command is executed next. The following output displays.

PAGE     1                                                                   
                                                                             
TEST3 DEFINE MARGIN                                                          
TOTAL SUM OF MARGIN =        99.50                                           
MODEL                           MARGIN                                       
-----                           ------                                       
INTERCEPTOR III                  19.48                                       
TR7                              18.83                                       
V12XKE AUTO                      19.54                                       
XJ12L AUTO                       20.52                                       
504 4 DOOR                       21.14                                       
                                                                             
TOTAL                            99.50                                       
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                               END OF REPORT                                 

Press Enter to close the report output.

A test of the SCAN command is executed next. The following output displays.

SCAN TEST  SEATS 2 CHANGED TO SEATS 4                                          
COUNTRY=ENGLAND    CAR=JAGUAR           MODEL=V12XKE AUTO              SEAT=  2
COUNTRY=ENGLAND    CAR=JAGUAR           MODEL=V12XKE AUTO              SEAT=  4
TESTING SML WITH SHORT MODEL                                                   
 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY                               

PAGE     1                                      
                                                
                                                
            AVE                                 
            RETAIL_COST                         
            -----------                         
MILAGE RANGE                                    
0 TO 12          16,495                         
13 TO 20         11,069                         
COMPARISON            1                         
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                                                
                               END OF REPORT    

Press Enter to close the report output.

A GRAPH request is executed next. The following output displays.

TESTING GRAPHS                                                                 
18 RECORDS SHOULD BE RETRIEVED AND PLOTTED                                     
 PAUSE..PLEASE ISSUE CARRIAGE RETURN WHEN READY                                

                                                                                
  R     40,000 +                                                                
  E            I                                                                
  T            I                                                                
  A            I                                                        *       
  I            I                                                  .             
  L            I                                           .                    
  _     20,000 +                                     .                          
  C            I                            .  *                                
  O            I                 . * ** . .                                     
  S            I           . * *                                                
  T            I   . *****                                                      
               I *                                                              
             0 +----+----+----+----+----+----+----+----+----+----+----+----+    
                                                                                
              2,000     6,000    10,000    14,000    18,000    22,000    26,000 
                   4,000     8,000    12,000    16,000    20,000    24,000      
                                                                                
                                       DEALER_COST                              
 AT END OF TEST MAJOR AREAS OK                                                  
 >  >                                                                           

These tests show that FOCUS is installed and operational. Enter the following command to exit FOCUS.

FIN

Reference: Verifying FOCUS Installation in Batch

If you are running FOCUS in batch, edit the FOCUS JCL that was created by ISETUP as member FOCUS in the install_hlq.CONF.DATA data set to add the installation verification procedure.

The installation verification procedure will be added in the allocation for DDNAME SYSIN. The FOCUS member in the install_hlq.CONF.DATA data set has the following JCL statements.

//SYSIN    DD *                  
Put your input here in uppercase 
FIN                              

Replace the line that says Put your input here in uppercase with the following command.

EX CARTEST

Edit the JOB card with your information and submit the job. The following output will appear in the SYSPRINT DDNAME of the FOCUS step. Note that the FOC486 message will display if you did not allocate DDNAME CAR to a permanent file.

FOCUS  7.7.06  11.16.57  07/27/2018  CARTEST   LINE   20  XXX
                                                               
 SET MSG=OFF                                                   
FOCUS  7.7.06          CREATED 01/17/2018  SITE.ID     XXX     
 NUMBER OF ERRORS=     0                                       
 NUMBER OF SEGMENTS=   7  ( REAL=    7  VIRTUAL=   0 )         
 NUMBER OF FIELDS=    20  INDEXES=   1  FILES=     1           
 TOTAL LENGTH OF ALL FIELDS=  221                              
OK CAR MASTER                                                  
(FOC486) A NEW FILE WAS DYNAMICALLY ALLOCATED                  
CREATE THE CAR FILE NUMBER OF SEGMENTS TO BE INPUT =102        
 LOADING OF DATA COMPLETE                                      
SIMPLE TABLE ON CAR FILE OVERALL RATIO AT END= 1.21            
 PAGE     1                                                    
                TEST1 SIMPLE TABLE                   
            AVE          AVE                         
COUNTRY     RETAIL_COST  DEALER_COST           RATIO 
-------     -----------  -----------           ----- 
ENGLAND          11,330        9,463            1.20 
FRANCE            5,610        4,631            1.21 
ITALY            12,766       10,309            1.24 
JAPAN             3,239        2,756            1.18 
W GERMANY         9,247        7,795            1.19 
                                                     
TOTAL            42,192       34,954            1.21 
                                                     
BOTTOM OF PAGE                                       

TEST OF A HOLD FILE AND A TABLEF REPORT AFTER                               
NUMBERS SHOULD BE SAME AS TEST1 WITHOUT RATIO                               
 PAGE     1                                                                 
                                                                            
TEST2 TABLEF FROM HOLD FILE          
            AVE          AVE         
COUNTRY     RETAIL_COST  DEALER_COST 
-------     -----------  ----------- 
ENGLAND          11,330        9,463 
FRANCE            5,610        4,631 
ITALY            12,766       10,309 
JAPAN             3,239        2,756 
W GERMANY         9,247        7,795 
                                                                            
DEFINE TEST WITH REPORT .. TOTAL MARGIN SHOULD=99.50                        
FILE NAME            FIELD NAME                       FORMAT  SEGMENT   TYPE
CAR                  MARGIN                           D10.2         4
 PAGE     1                                                          
                                                                     
 TEST3 DEFINE MARGIN                                                 
 TOTAL SUM OF MARGIN =        99.50                                  
 MODEL                           MARGIN                              
 -----                           ------                              
 INTERCEPTOR III                  19.48                              
 TR7                              18.83                              
 V12XKE AUTO                      19.54                              
 XJ12L AUTO                       20.52                              
 504 4 DOOR                       21.14                              
                                                                     
 TOTAL                            99.50                              
                                                                                
SCAN TEST  SEATS 2 CHANGED TO SEATS 4                                           
COUNTRY=ENGLAND    CAR=JAGUAR           MODEL=V12XKE AUTO              SEAT=  2 
COUNTRY=ENGLAND    CAR=JAGUAR           MODEL=V12XKE AUTO              SEAT=  4 
TESTING SML WITH SHORT MODEL                                                    
 PAGE     1                                                                     
                                                                                
                                                                                
             AVE                                                                
             RETAIL_COST                                                        
             -----------                                                        
 MILAGE RANGE                                                                   
 0 TO 12          16,495                                                        
 13 TO 20         11,069                                                        
 COMPARISON            1                                                        
                                                                     
                                                                     
TESTING GRAPHS                                                       
18 RECORDS SHOULD BE RETRIEVED AND PLOTTED                           
                                                                     
                                                                     
       35,000 +                                                      
              I                                                      
              I                                                      
              I                                                     *
       30,000 +                                                   .  
              I                                                 .    
              I                                              .       
              I                                            .         
 R     25,000 +                                          .           
 E            I                                        .             
 T            I                                      .  
 A            I                                    .    
 I     20,000 +                                 .       
 L            I                               .         
 _            I                             *           
 C            I                          .              
 O     15,000 +                       .                 
 S            I                 * **                    
 T            I                .                        
              I              .                          
       10,000 +             *                           
              I           * *                           
              I         .                               
              I     * *                                 
        5,000 +   **                                    
              **                                        
              I                                                        
              I                                                        
            0 +-----+-----+-----+-----+-----+-----+-----+-----+-----+  
                                                                       
            2,500       7,500      12,500      17,500      22,500      
                  5,000      10,000      15,000      20,000      25,000
                                                                       
                                   DEALER_COST                         
                                                                       
                                                                       
AT END OF TEST MAJOR AREAS OK                                          

This output shows that FOCUS is installed and operational.

Reference: Next Steps

In the next steps, you will customize your CLIST or JOB to add private data sets and to move FOCUS to production. After performing those steps, you can run the IVP again to make sure the customized version of FOCUS is still operational. If you run into any problems at that stage, review your customization steps.

You may have inadvertently:

  • Renamed required libraries so that they are not allocated correctly.
  • Erased the aliases so that the required name transformations cannot be completed correctly.
  • Moved members in the libraries so that they cannot be found using the standard DDNAMEs

Information Builders