Elardus:
Here is snips promised:
<snippet>
UPNEXT DS 0H Top of loop
LA R7,IWKAUL R7 = ICHEINTY work area length
ST R7,IWKAU Store length of work area in
* its header
MVI IWKAU+4,X'00' } Zero out the rest of the
MVC IWKAU+5(27),IWKAU+4 } ICHEINTY work area header
*
MVI PGMRNU,C' ' Blank out the user name field
MVC PGMRNU+1(19),PGMRNU
* Fetch the next USER profile
ICHEINTY ENTRY=IUID,RELEASE=1.8,WKAREA=IWKAU,MF=(E,INTYU)
LA R1,12 Code for "no subsequent entries"
CR R1,R15 Did we get it ?
BZ GPROFS Yes - get out of the loop
LTR R15,R15 Did it otherwise succeed ?
BNZ ERROR03 No - issue message, then skip
* the remaining profiles, and
* terminate the program.
* Else R15 = 0
*
* This userid may be shorter than the previous one, in which case
* some residual characters remain.
* Blank out the trailing characters, so that we can treat
* this userid as being an 8 character, blank-filled userid.
* R15 = 0 still
IC R15,IUID R15 = length of userid
LA R7,THISUID R7 -> start of userid
AR R15,R7 R15 -> end+1 of userid
MVC 0(8,R15),BLANX Blank out residual characters
MVC USERID(8),THISUID Copy the userid
MVC NAME(20),PGMRNU Copy the user name
MVC OWNER(8),AUTHU Copy the owner's id
UNPK CODED(7),AUTHDATE(4) Unpack date into zoned field
MVC CRE8YY,CODED Store year number
MVC CRE8DDD,CODED+2 Store day number
PUT UIDS,UIDSREC Write the record
*
* Special treatment for unused userids :
*
L R3,PARAM Get parameter value
LTR R3,R3 Is it zero ?
BZ UPNEXT Yes - don't REVOKE anything
*
CLC LJDATE,THREEFF Has it ever been used ?
BNE UPNEXT Yes - get next USER profile
---- ds dcs -----
INTYU ICHEINTY NEXTC,TYPE='USR',RELEASE=1.8,DATAMAP=NEW, @
ACTIONS=(ACTNU1,ACTNU2,ACTNU3,ACTNU4,ACTNU5,ACTNU6), @
MF=L
*
INTYA ICHEINTY ALTER,ENTRY=IUID,TYPE='USR',RELEASE=1.8,DATAMAP=NEW, @
ACTIONS=(ACTNA1), @
MF=L
*
IUID DC AL1(8) Length of ICHEINTY user id (8)
THISUID DC CL44' ' Name of last profile retrieved
</snippet>
Regards,
Scott
On Wed, May 3, 2017 at 6:44 PM, scott Ford <[email protected]> wrote:
> Hey E,
>
> I didn't find a WKSP, do I assume Subpool 0 doing Nextc to extract userids.
> Definitely ugh..i will post a snip...
>
> Scott
>
>
> On Wed, May 3, 2017 at 8:37 AM Elardus Engelbrecht <
> [email protected]> wrote:
>
>> scott Ford wrote:
>>
>> >I found the issues, one as CM mentioned was the Freemain and secondly I
>> found some old assembler RACF macros - ICHEINTY ...and there were NO
>> freemains...ugh ...I reproduced their problem.
>>
>> Oh, thats a bigh ugh! What is value of WKSP in that ICHEINTY? There are
>> weird but documented notes about subpool usage by that macro.
>>
>>
>> >This is a design I inherited so I am obviously in the stage of
>> changing... I appreciate everyone's help
>>
>> Ok, what is that ICHEINTY doing? Extracting data or updating the RACF DB
>> directly?
>>
>> Depending what that macro does, you need to consider alternative RACF
>> macros.
>>
>> Groete / Greetings
>> Elardus Engelbrecht
>>
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to [email protected] with the message: INFO IBM-MAIN
>>
> --
> Scott Ford
> IDMWORKS
> z/OS Development
>
--
*IDMWORKS *
Scott Ford
z/OS Dev.
“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”
www.idmworks.com
[email protected]
Blog: www.idmworks.com/blog
*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
