Sometimes, it is not easy (or even impossible) to remove obsolete information from the RACF database. An example of this is the owner field in DIGTCERT profiles. The B8FIXOWN command was written to correct this situation, and reset the owner of profiles to a valid existing userid or group. The documentation and installation process of the command is not yet completely up to standard. Some of the command keywords may also be improved. That's why this is command is still called "work in progress".

Instead of limiting the update to just the profiles in the DIGTCERT resource class, it was decided to make it work on any general resource class.

The syntax is

If you specify the VERIFY function (which is the default if you don't specify either of VERIFY or CORRECT), the NEWOWNER is not required. You need to specify the class in its unabbreviated form, so use FACILITY in stead of FAC. If you issue the command, and nothing much happens, it may mean that you either specified a non-existing resource class, or that no profiles have the specified userid as their owner. We could provide nice messages for these situations, but that would make it a real product, instead of a quick freebie.

The command needs APF authorization, and can only be executed by a user with System-Special.

If you have any comments about this program (positive or negative), please respond to info@bcsc.net

Installation consists of:

0) Download the B8FLOAD.XMT file from the website
1) Upload the file B8FLOAD.XMT to your MVS system (Binary, FB(80))
2) Issue the TSO receive command to convert the file to a load libray
3) Copy the loadmodule to an APF library
4) Add the command B8FIXOWN to your IKJTSOxx member
5) Execute the command in batch or from TSO

Sample dataset unpack job.

//*jobname JOB (accountinfo),'Unpack datasets',
//* CLASS=a,MSGCLASS=r
//B8FLOAD EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//XMT1IN DD DSN=BCSC.FIXOWN.SB8FLOAD.XMT,DISP=SHR
//XMT1OUT DD DSN=BCSC.FIXOWN.SB8FLOAD,DISP=(NEW,CATLG),
// SPACE=(TRK,(5,1,5)),UNIT=SYSDA
//SYSTSIN DD *
       RECEIVE INDD(XMT1IN)
       DA('BCSC.FIXOWN.SB8FLOAD') SHR

Sample IKJTSOxx member changes

/* DOC: This member may be used as sample for the B8FIXOWN line */
/* that needs to be added to the IKJTSOxx member in parmlib. */
/* */
AUTHCMD NAMES( /* AUTHORIZED COMMANDS */ +
...
... Leave the first part of this list of commands as is.
... Insert the following line at the end of the list.
...
      B8FIXOWN /* BCSC FIXOWN */ +
...
... Ensure that the last line in the AUTHCMD block ends
... with a right parenthesis as shown below.
...            /* SOME COMMENT */)
...
... Rest of member need not be modified.
...

Sample JCL to test B8FIXOWN

//*jobname JOB (accountinfo),'Test FixOwn',
//* CLASS=a,MSGCLASS=r
//RUNIT EXEC PGM=IKJEFT01
//STEPLIB DD DISP=SHR,DSN=BCSC.FIXOWN.SB8FLOAD
//SYSTSPRT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSTSIN DD *
  B8FIXOWN CLASS(DIGTCERT) OWNER(somespro) NEWOWNER(IBMUSER) VERIFY
  B8FIXOWN CLASS(DIGTCERT) OWNER(somespro) NEWOWNER(IBMUSER) CORRECT
  B8FIXOWN CLASS(DIGTCERT) OWNER(somespro) NEWOWNER(SYS1) CORRECT

LEGAL Statement (the small print):

This program contains code made available by BCSC, LLC on an "AS-IS" basis. Any one receiving this program is considered to be licensed to use this BCSC-provided code in any way he or she deems fit, including copying it and redistributing it, except that it may be neither sold nor incorporated within a product that is sold. Also, you should retain all copyright and other proprietary notices contained in the original materials on any copies of the materials. You may not modify this program in any way. The software is provided "as-is", and BCSC disclaims all warranties, express or implied, including but not limited to implied warranties of merchantability or fitness for a particular purpose.

Limitation of Liability

In no event will BCSC be liable for any damages whatsoever (including, without limitation, those resulting from lost profits, lost data or business interruption) arising out of the use, inability to use, or the results of use of this program, whether based on warranty, contract, tort or any other legal theory and whether or not BCSC has been advised of the possibility of such damages. If your use of the materials, information or services from this program results in the need for servicing, repair or correction of equipment or data, you assume all costs thereof. Applicable law may not allow exclusion or limitation of incidental or consequential damages, so these limitations or exclusions may not apply to you.