Hypothetical Case Study—Migrating from Tivoli NetView › The Migration Plan › Migrate REXX Procedures that Passed Analysis › Test the Procedures in CA NetMaster

Test the Procedures in CA NetMaster

The migration team adds their NetView REXX procedures data set to NETM10's COMMANDS concatenation:

*--------------------------------------------------------------------
*      PRODUCT REGION COMMANDS DATASET ALLOCATION
*--------------------------------------------------------------------
        DD=COMMANDS,BLKSIZE=32000,DISP=SHR,DSN=BLTNET.NETM10.TESTEXEC
        DD=*,DISP=SHR,DSN=BLTNET.WHATEVER.CC11EXEC
        DD=*,DISP=SHR,DSN=BLTNET.WHATEVER.CC2DEXEC
        DD=*,DISP=SHR,DSN=BLTNET.NETVIEW.PRODREXX

Because the REXX procedures use a customized CCDEF table and the VIEW command, the team also updates the NETVEMLDSN parameter group in NETM10 to point to the Tivoli NetView system definitions and panels that are used by the procedures.

The team then run these 100 REXX procedures, one by one, unchanged, in NETM10.

They run the procedures using the NCCF Emulation Facility. To access this facility, they type the command, NCCF, from OCS.

This facility provides basic NCCF look-alike support. All commands entered under this facility are automatically assumed to be NetView REXX commands or procedures.

Example: Successful Procedure

Here is the result of running a procedure that checks the status of the currently active VTAM exits and reports if the required exit is not active.

(18.05)---------- NetMaster Operator Console Services (PROD1) -----------------
PROD1:USERO1                       NCCF-like facility active, press PF3 to exit
ACTVTMX10  - CHECKING ACTIVE VTAM EXITS  - 28 Mar 2006 18:05:17

ACTVTMX10 - VTAM EXIT: ISTEXCUV IS ACTIVE
ACTVTMX10 - VTAM EXIT: ISTEXCSD IS ACTIVE
ACTVTMX10 - VTAM EXIT: ISTEXCAA IS ACTIVE
ACTVTMX10 - VTAM EXIT: ISTEXCGR IS ACTIVE
ACTVTMX10 - VTAM EXIT: ISTEXCPM IS ACTIVE
ACTVTMX80 -----------------------------------------------------------------
ACTVTMX80 - ** VTAM EXIT: ISTEXCVR IS REQUIRED BUT IS CURRENTLY INACTIVE **
ACTVTMX80 -----------------------------------------------------------------

ACTVTMX99 DONE

The procedure is as follows:

/* REXX */                                                              
MSGID   = 'ACTVTMX'                                                     
WARNING = 'NO'                                                          
                                                                        
  SAY MSGID||'00' ' - CHECKING ACTIVE VTAM EXITS  -' DATE('N') TIME('N')
  SAY                                                                   
  'PIPE VTAM D NET,EXIT ',                                              
  '  | CORRWAIT 10',                                                    
  '  | SEP ',                                                           
  '  | LOC /IST1251I/',                                                 
  '  | STEM ACTX.'                                                      
                                                                        
   DO I = 1 TO ACTX.0                                                   
     VTAMEXIT   = WORD(ACTX.I,2)                                        
     EXITSTATUS = WORD(ACTX.I,5)                                        
     IF (EXITSTATUS = 'ACTIVE') THEN                                    
       SAY MSGID||'10' '- VTAM EXIT: 'VTAMEXIT 'IS 'EXITSTATUS          
     ELSE                                                               
       IF (VTAMEXIT = 'ISTEXCVR') THEN                                  
         WARNING = YES                                                  
   END                                                                  
                                                                        
  IF (WARNING = YES) THEN                                               
    DO                                                                  
      SAY MSGID||'80' '--------------------------------------------'||, 
                      '---------------------'                           
      SAY MSGID||'80' '- ** VTAM EXIT: ISTEXCVR IS REQUIRED BUT IS '||, 
                      'CURRENTLY INACTIVE **'                           
      SAY MSGID||'80' '--------------------------------------------'||, 
                      '---------------------'                           
    END                                                                 
                                                                        
  SAY                                                                   
  SAY MSGID||'99' 'DONE '                                               
EXIT