CA Roscoe ROSMAILS Provides Reports and Allows you to Delete Unowned Members and Members from a Specific Key

Products

• Roscoe

Issue/Introduction

What functions does ROSMAILS provide?

 

Environment

Release:
Component: ROSCOE

Resolution

ROSLIB Reports

The ROSMAILS program provides three reports:

1. It provides an "unowned member" report. That is, it lists all members whose keys have been previously been deleted.
2. It provides a summary of all members sorted by user key.
3. It lists all users who have exceeded their maximum line count.
   Note: The maximum line count can only be exceeded when RECVRAWS=(ON,NOMAXLIB) has been specified in the Roscoe SYSIN.

//ROSMAILS EXEC PGM=ROSMAILS,REGION=4M,PARM='LINECNT=56'
//STEPLIB  DD  DSN=xxx.RO60LIB,DISP=SHR
//ROSLIB00 DD  DSN=xxx.ROSLIB00,DISP=SHR
//ROSLIB01 DD  DSN=xxx.ROSLIB01,DISP=SHR
//ROSLIB02 DD  DSN=xxx.ROSLIB02,DISP=SHR
//SORTLIB  DD  DSN=SYSx.SORTLIB,DISP=SHR
//SORTIN   DD  UNIT=SYSDA,SPACE=(TRK,(3,3)),
//             DCB=(LRECL=136,RECFM=FB,BLKSIZE=1360)
//SORTWK01 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK05 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK06 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//REPORT   DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)
//SYSWARN  DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)

Delete "Unowned" Members

When executed with "PARM=DELETE" all "unowned" members will be deleted.

//ROSMAILS EXEC PGM=ROSMAILS,REGION=4M,PARM='LINECNT=56,DELETE'
//STEPLIB  DD  DSN=xxx.RO60LIB,DISP=SHR
//ROSLIB00 DD  DSN=xxx.ROSLIB00,DISP=SHR
//ROSLIB01 DD  DSN=xxx.ROSLIB01,DISP=SHR
//ROSLIB02 DD  DSN=xxx.ROSLIB02,DISP=SHR
//SORTLIB  DD  DSN=SYSx.SORTLIB,DISP=SHR
//SORTIN   DD  UNIT=SYSDA,SPACE=(TRK,(3,3)),
//             DCB=(LRECL=136,RECFM=FB,BLKSIZE=1360)
//SORTWK01 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK05 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK06 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//REPORT   DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)
//SYSWARN  DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)

Delete Members from a specific key

You can delete all members from a specified key by executing ROSMAILS with a SYSIN specifying KEY= key as shown in the example below.

//ROSMAILS EXEC PGM=ROSMAILS,REGION=4M,PARM='LINECNT=56'
//STEPLIB  DD  DSN=xxx.RO60LIB,DISP=SHR
//ROSLIB00 DD  DSN=xxx.ROSLIB00,DISP=SHR
//ROSLIB01 DD  DSN=xxx.ROSLIB01,DISP=SHR
//ROSLIB02 DD  DSN=xxx.ROSLIB02,DISP=SHR
//SORTLIB  DD  DSN=SYSx.SORTLIB,DISP=SHR
//SORTIN   DD  UNIT=SYSDA,SPACE=(TRK,(3,3)),
//             DCB=(LRECL=136,RECFM=FB,BLKSIZE=1360)
//SORTWK01 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK05 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SORTWK06 DD  UNIT=SYSDA,SPACE=(TRK,5,,CONTIG)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//REPORT   DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)
//SYSWARN  DD  SYSOUT=*,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=2420)
//SYSIN    DD  *
KEY=rousr2
/*

Additional Information:

See Roscoe Programs and Utilities Guide r6, Section 4.7 Library Member Information (ROSMAILS Program), page 4-76