***********************************************************************
***  PRODUCT:          SMARTPRODUCTION RELEASE 4.6.0 - LEVEL 2008/08. *
***  CORRECTION:       RP220                                          *
***  DESCRIPTION:      CLIST SMARTPL MAY IDENTIFY MIGRATED DATASETS   *
***                    AS TAPE DATA SETS.                             *
***  AFFECTED:         ALL USERS.                                     *
***  PREREQUISITE:     NONE.                                          *
***  RESOLUTION:       APPLY CHANGE IN THE SMARTP ISPFALL LIBRARY.    *
***                    EDIT MEMBER TMRRMAIN AS INDICATED BELOW.       *
***  RESTRICTIONS:     NONE.                                          *
***********************************************************************
 
Replace lines 290-297 that read:
FOUND_DATASETS.FD_COUNTER.VOLSER = "*TAPE*"                 
PARSE VALUE WORD(DSLIST.I, 2) WITH "DEVTYPE" SEP "'" DEVT "'"
IF RIGHT(DEVT, 4) = "200E" |,     /* 3380 */                
    RIGHT(DEVT, 4) = "200F" THEN  /* 3390 */                
   FOUND_DATASETS.FD_COUNTER.VOLSER =,                      
   RIGHT(WORD(DSLIST.I, 1), 6)                              
ELSE NOP                                                    
 
with the following:
 
PARSE VALUE WORD(DSLIST.I, 2) WITH "DEVTYPE" SEP "'" DEVT "'"
IF (LEFT(DEVT, 4) = "3010" |,   /* DEVT IS 3380/3390/9345 */
    POS(RIGHT(WORD(DSLIST.I, 1), 6), "MIGRAT" ||,           
    MIG_VOLSER) > 0) THEN                                    
   FOUND_DATASETS.FD_COUNTER.VOLSER =,                      
   RIGHT(WORD(DSLIST.I, 1), 6)                              
ELSE                                                        
   FOUND_DATASETS.FD_COUNTER.VOLSER = "*TAPE*"