CA Earl help needed

[Mundeep]

Hello CA Earl experts,

 

One of our clients is using CA Earl to generate picklist and distribution lists. At times the reports contains list of virtual volumes that confuses the tape operations. I am trying to update the TMEVLT01 and TMEVLT02 codes to exclude the tapes with ROBTY = VIBM. I am not a Earl guy, I usually use TMSGRW to work with reports. Can someone help me with the syntax for ROBTY.

 

Thanks,

Mandeep.

[rayca01]

Mandeep,

If you are running CA 1 rel 14.0 there is a section of code in TMEVLT01, TMEVLT02, and TMEVLT03 that says:

!        --------- Bypass Virtual records (Non VTX records).       

!     So the librarian will not try to find virtual volumes.       

!     To not list virtual volumes on the picking list,             

!     uncomment the following three lines.                         

!IF SLOT ='9999999'                                                

! GOTO START                                                       

!ENDIF                                                             

 

If you remove the "!" from the beginning of these statements:

!IF SLOT ='9999999'                                                

! GOTO START                                                       

!ENDIF                              

It should remove the virtual tapes from the reports.

 

Carolyn Ray

[Mundeep]

Hi Carolyn,

 

Thanks for your quick response. I'll try it and let you know how it goes.

[Mundeep]

I tried using ROBTY as is but got the following results

 

>  395	IF ROBTY = 'VIBM'
	I
****CALC202E STATEMENT BEGINNING ON LINE  395 ERROR - UNDECLARED IDENTIFER
396	SET P_TYPER = 'VIRT'

 

Tried to use both HEX and CHAR values of ROBTY but same result. I assumed I can use ROBTY in earl as we use it in TMSGRW.

[rayca01]

Mandeep,

In EARL you would could also check the field called ROBOT_TYPE for the 'VIBM'.

 

Carolyn Ray

[Mundeep]

Carolyn,

 

It's 12.6 so I did not find the SLOT code. Also, checked in panel, these volumes do have slot numbers assigned to them.

 

I tried use ROBOT_TYPE and I did not get any syntax error, but the output still shows virtual volumes.

 

Here's a snapshot of the code that has NOPICK statements, I added my code for ROBOT_TYPE. I used VIBM without and with leading blanks to make it 8 char long. 

 

GOTO VE1504A (VAULT_OUT_SUBCODE NOT= VAULT_FROM_SUBCODE)
GOTO VE1504A (OUTCODE NOT= VAULT_FROM_AREA)
GOTO NOPICK (NEW_SLOT = VAULT_FROM_SLOT)
GOTO NOPICK (ROBOT_TYPE = 'VIBM')
GOTO VE1505 (VAULT_FROM_SLOT > 0)
GOTO VE1504F
VE1504A:
	GOTO VE1505 (VAULT_FROM_AREA_1 > ' ')
	GOTO NOPICK (OUTCODE = ' LIB')
	GOTO NOPICK (OUTCODE = ' VMS')
	GOTO NOPICK (OUTCODE = 'LIBR')
VE1504F:
	SET VAULT_FROM_AREA = 'LIBR'
	GOTO PICK
VE1505:
	GOTO NOPICK (VAULT_FROM_AREA = 'LIBR' AND OUTCODE_1 <= ' ')
	GOTO PICK
NOPICK:
	SET SELECT_SW = 'N'
	GOTO CONT
PICK:
	SET SELECT_SW = 'Y'
CONT:
IF VAULT_FROM_AREA_1 = ' '
SET OLD_VAULT = 'LIB '
ELSE
SET OLD_VAULT = VAULT_FROM_AREA
ENDIF
IF OUTCODE_1 = ' '
SET NEW_VAULT = 'LIBRARY'
ELSE
SET NEW_VAULT = OUTCODE
ENDIF
SET FSUB = VAULT_OUT_SUBCODE
SET FUNCTION = 'TO_EXTERNAL'

CALL CTSEDATE USING FUNCTION,P_CDATE,CDATE,DATE_FMT  

CALL CTSEDATE USING FUNCTION,P_EXPDT,EXPDT,DATE_FMT  

[rayca01]

Mandeep,

   Let's open a case for this so we can dig into it better.  If you can give me your siteid I can open the case for you, or you can go to support online and open it. 

 

Carolyn Ray

[dweimer]

Carolyn -

 

Please let us know what the resolution is.  We're not on 16 yet either (my bad); When I display a tape in the ISPF interface, the ROBOT_TYPE field is blank and the slot # is zero.

 

Is there something else I have to run with the nightly CA-1 scratch job to fill in these fields?

 

- Don

[rayca01]

Don, 

The ROBTY  or ROBOT_TYPE field is filled in as you enter/define the tape to the VTS system.  This only done if you have installed the CBRUXENT exit from CA 1.  At a later date you can always use TMSUPDTE to set the ROBTY field.  If the tapes are IBM VTS tapes the REP statement for TMSUPDTE would be REP ROBTY=81.  After doing this if you display the volume in the TMC the ROBTY should say VIBM.  When you run TMSCLEAN and it see the VIBM it knows to notify the VTS system that a tape should be scratched. 

 

For Mandeeps EARL programs for vaulting we just had to move the logic a little higher in the program for it to remove the virtual tape from the report.

[dweimer]

TGIF, Carolyn -

 

Is CBRUXENT an IBM supplied exit?  I don't see that name in the CA-1 libraries.  We're using the STK (Oracle) VTSS.  In TDAILY, our nightly tape batch job, there's a PGM=SLUCONDB step which reads the CA1 TMC and scratches tapes (virtual and real) that CA-1 has marked as scratch.  I don't see any place that the ROBOT_TYPE is being set.  Am I missing something (like an exit or a step in TDAILY)?

 

- Don

[rayca01]

Don,

  CBRUXENT is for the IBM VTS and ATL not an STK or Oracle device.  We do supply a version of this exit and in our libraries it is called CTSUXENT.

  STK has it own method of reading the TMC and syncing with CA 1, and you currently have that in your daily job.  The ROBTY does not have to be set for that to work.

 

Carolyn Ray