How to update the ACFNRSCR and ACFNRULE panels to use a site's company UID string?

Products

• ACF2
• ACF2 - z/OS
• ACF2 - MISC

Issue/Introduction

To update the ACFNRSCR and ACFNRULE panels to a company's UID string, the panel's CLISTs need to be updated. If the ISPF ACFNRULE panel is being used to change a rule line and the LOGONID field is specified instead of the UID, the generated UID in the new rule line may be incorrect. The CLISTs will need to be modified to reflect the correct format of the UID string.

 

Environment

Release:
Component: ACF2MS

Resolution

A usermod must be applied to change the construction of the UID in the CLISTs for the two panels (ACFNRUL# for dataset rules and ACFNRSC# for resource rules).

The UID string is delivered in the CLISTS as:

    COMPANY(*) SITE(*) LEVEL(*) JOBFUNC(**) 

Modify the UID string to conform company standards.

For example, if the UID string contained DIV (1 character) DEPT (4 characters) JOBF (3 characters) RESV (5 characters) and then followed by the logonid

Update the CLISTs as follows - be sure to verify that the line numbers are correct in your version of the CLISTs.

    ++USERMOD (xxxxxxxx).
    ++VER (Z038) FMID(CAX1G00).     ?-----Change FMID as necessary for your ACF2 release.
    ++CLIST(ACFNRSC#) DISTLIB(AAX1CLS0) SYSLIB(CAX1CLS0)  .
    ./ CHANGE NAME=ACFNRSC#
    /* COMPANY(*) SITE(*) LEVEL(*) JOBFUNC(**)         */        00020000      ?-- comment out existing UID structure
    DIV(*) DEPT(****) JOBF(***) SUBF(***) RESV(*****)            00020010      ?--Set masked values for user fields 
    /* SET &UID = &STR(&COMPANY&SITE&LEVEL&JOBFUNC&LID) */       00880000      ?--Comment out existing UID definition
    SET &UID = &STR(&DIV&DEPT&JOBF&SUBF&RESV&LID)                00880010      ?--Define your site's UID structure
    ./ ENDUP 
    ++CLIST(ACFNRUL#) DISTLIB(AAX1CLS0) SYSLIB(CAX1CLS0)  .
    ./ CHANGE NAME=ACFNRUL#
    /* COMPANY(*) SITE(*) LEVEL(*) JOBFUNC(**) */                00020002
    DIV(*) DEPT(****) JOBF(***) SUBF(***) RESV(*****)            00020010      ?--Set masked values for user fields
    /* SET &UID = &STR(&COMPANY&SITE&LEVEL&JOBFUNC&LID) */       02090002      ?--Comment out existing UID definition
    SET &UID = &STR(&DIV&DEPT&JOBF&SUBF&RESV&LID)                02090100      ?--Define your site's UID structure
    ./ ENDUP

With this modification in place, the CLIST would substitute the correct number of asterisks (*) so that the LOGONID, that you specified in the panel, will be at the correct offset of the UID string.