Peter,
Apologies for the staggered output.
Here is the execution.
I don't think looking at the SVC dump will help me.
Looking at the ICHEINTY parameter list in the Security Server Diagnosis
manual, I'm sure that the "action" area (dsa_actions) is not correctly
formatted.
Regards, Pierre
--------------Execution---------------------
15.08.23 JOB04855 IEF403I TSTRACFL - STARTED - TIME=15.08.23
15.08.23 JOB04855 *IRR401I 0C4 ABEND DURING RACF PROCESSING OF 742
742 ALTER REQUEST FOR ENTRY T22TST1
15.08.23 JOB04855 IRR401I 0C4 ABEND DURING RACF PROCESSING
15.08.23 JOB04855 IEF450I TSTRACFL STEP1 - ABEND=S0C4 U0000 REASON=00000010
744
744 TIME=15.08.23
------------- Source ----------------------
. 004300 *
.
. 004400 * ICHEINTY fields
.
. 004500 *
.
. 004600 dsa_icheinty icheinty alter,
/ .
. 004700 mf=l
.
. 004730 dsa_actions ds xl512
. 025000 lhi r00,8
.
. 025100 st r00,dsa_clear_textln
.
. 025200 mvc
dsa_clear_text(l'rec_pswd),rec_pswd .
. 025300 j skip
.
. 030900 skip ds 0h
%%%%%%%%%%%%%%%%%%%%% .
. 031000 *
.
. 031100 * Call ICHEACTN to set up the update
of the PASSWORD field .
. 031200 *
.
. 031300 l r05,dsa_clear_textln
.
. 031400 la r06,dsa_clear_text
.
. 031500 icheactn field='PASSWORD',
/ .
. 031600 fldata=((r05),(r06)),
/ .
. 031700 mf=(e,dsa_actions)
.
. 031800 *
.
. 031900 * Call ICHEINTY to update the RACF
database - password .
. 032000 *
.
. 032100 mvc
dsa_icheinty(icheinty_ml),icheinty_m .
. 032200 mvi dsa_useridln,l'rec_userid
.
. 032300 mvc dsa_userid,rec_userid
.
. 032400 icheinty alter,
/ .
. 032500 type='USR',
/ .
. 032600 entry=dsa_useridln,
/ .
. 032700 release=1.7,
/ .
. 032800 run=yes,
/ .
. 033100 actions=dsa_actions,
/ .
. 033200 options=action,
/ .
. 033500 mf=(e,dsa_icheinty)
.
-------------Compiled listing----------------------------
71 * ICHEINTY fields
00440007
72 *
00450007
73 dsa_icheinty icheinty alter,
/00460013
mf=l
00470007
000094 74+DSA_ICHEINTY DS 0F
01-ICHEI
000094 00 77+ DC AL1(0)
IPLOPT1. 03-ICHEO
000095 08 80+ DC AL1(8)
IPLOPT2. 03-ICHEO
000096 01 83+ DC AL1(1)
IPLOPT3. 03-ICHEO
000097 00 86+ DC AL1(0)
ENTRY TYPE. 03-ICHEO
000098 00000000 89+ DC AL4(0)
ENTRY. 03-ICHEO
00009C 000000B0 92+ DC AL4(IHB0001C)
FLDEF PTR. 03-ICHEO
0000A0 00000000 95+ DC AL4(0)
POINTER TO RBA 03-ICHEO
0000A4 00000000 98+ DC AL4(0)
ADDR OF ENTITY CLASS 03-ICHEO
0000A8 00000000 101+ DC AL4(0)
WORK AREA OR NEWNAME 03-ICHEO
0000AC 00000000 104+ DC AL4(0)
POINTER TO VOLUME 03-ICHEO
000B0 105+IHB0001C EQU *
END OF FIXED LENGTH LIST 01-ICHEI
0000B0 00 108+ DC AL1(0)
RESERVED. 03-ICHEO
0000B1 00 111+ DC AL1(0)
MAX NO. TESTS. 03-ICHEO
0000B2 00 114+ DC AL1(0)
CURRENT NO. TESTS. 03-ICHEO
0000B3 00 117+ DC AL1(0)
NO. ACTIONS. 03-ICHEO
0000B4 118 dsa_actions ds xl512
00473050
0003BA 550 skip ds 0h
%%%%%%%%%%%%%%%%%%%%% 03090017
551 *
03100013
552 * Call ICHEACTN to set up the
update of the PASSWORD field 03110013
553 *
03120013
0003BA 5850 D484 00484 554 l r05,dsa_clear_textln
03130019
0003BE 4160 D488 00488 555 la r06,dsa_clear_text
03140019
556 icheactn field='PASSWORD',
/03150014
fldata=((r05),(r06)),
/03160019
mf=(e,dsa_actions)
03170014
0003C2 4110 D0B4 000B4 557+ LA 1,DSA_ACTIONS
01-ICHEA
0003C6 D207 1004 C360 00004 009F0 561+ MVC 4(8,1),=CL8'PASSWORD'
FIELD NAME. 03-ICHEO
0003CC 5051 000C 0000C 564+ ST (R05),12(1)
FLDATA. 03-ICHEO
0003D0 5061 0010 00010 567+ ST (R06),16(1)
FLDATA. 03-ICHEO
569 * Call ICHEINTY to update the
RACF database - password 03190008
570 *
03200007
0003D4 D223 D094 C14C 00094 007DC 571 mvc
dsa_icheinty(icheinty_ml),icheinty_m 03210037
0003DA 9208 D374 00374 572 mvi
dsa_useridln,l'rec_userid 03220016
0003DE D207 D375 4000 00375 00000 573 mvc dsa_userid,rec_userid
03230032
574 icheinty alter,
/03240009
type='USR',
/03250008
entry=dsa_useridln,
/03260015
release=1.7,
/03270046
run=yes,
/03280035
actions=dsa_actions,
/03310008
options=action,
/03320036
mf=(e,dsa_icheinty)
03350008
0003E4 4110 D094 00094 575+ LA 1,DSA_ICHEINTY
01-ICHEI
0003E8 9200 1000 00000 578+ MVI 0(1),0
SET IPLOPT1. 03-ICHEO
0003EC 9208 1001 00001 581+ MVI 1(1),8
SET IPLOPT2. 03-ICHEO
0003F0 943F 1002 00002 584+ NI 2(1),63
SET IPLOPT3. 03-ICHEO
0003F4 9202 1003 00003 587+ MVI 3(1),2
SET ENTRY CODE. 03-ICHEO
0003F8 41F0 D374 00374 590+ LA 15,DSA_USERIDLN
ENTRY. 03-ICHEO
0003FC 50F1 0004 00004 592+ ST 15,4(1)
ENTRY. 03-ICHEO
000400 9201 101F 0001F 600+ MVI 28+3(1),1
NO. ACTIONS. 03-ICHEO
000404 41F0 D0B4 000B4 603+ LA 15,DSA_ACTIONS
ACTION. 03-ICHEO
000408 50F1 0020 00020 605+ ST 15,32+0(1)
ACTION. 03-ICHEO
00040C 0A84 606+ SVC 132
01-ICHEI
983 * ICHEINTY,ICHEACTN fields
05090007
984 *
05100007
985 icheinty_m icheinty alter,
/05110007
type='USR',
/05120038
actions=action_l,
/05160042
options=(action,noexec),
/05170045
mf=l
05200007
0007DC 986+ICHEINTY_M DS 0F
01-ICHEI
0007DC 00 989+ DC AL1(0)
IPLOPT1. 03-ICHEO
0007DD 08 992+ DC AL1(8)
IPLOPT2. 03-ICHEO
0007DE 01 995+ DC AL1(1)
IPLOPT3. 03-ICHEO
0007DF 02 998+ DC AL1(2)
ENTRY TYPE. 03-ICHEO
0007E0 00000000 1001+ DC AL4(0)
ENTRY. 03-ICHEO
0007E4 000007F8 1004+ DC AL4(IHB0192C)
FLDEF PTR. 03-ICHEO
0007E8 00000000 1007+ DC AL4(0)
POINTER TO RBA 03-ICHEO
0007EC 00000000 1010+ DC AL4(0)
ADDR OF ENTITY CLASS 03-ICHEO
0007F0 00000000 1013+ DC AL4(0)
WORK AREA OR NEWNAME 03-ICHEO
0007F4 00000000 1016+ DC AL4(0)
POINTER TO VOLUME 03-ICHEO
007F8 1017+IHB0192C EQU *
END OF FIXED LENGTH LIST 01-ICHEI
0007F8 00 1020+ DC AL1(0)
RESERVED. 03-ICHEO
0007F9 00 1023+ DC AL1(0)
MAX NO. TESTS. 03-ICHEO
0007FA 00 1026+ DC AL1(0)
CURRENT NO. TESTS. 03-ICHEO
0007FB 01 1029+ DC AL1(1)
NO. ACTIONS. 03-ICHEO
0007FC 00000800 1032+ DC AL4(ACTION_L)
ACTION. 03-ICHEO
00024 1033 icheinty_ml equ *-icheinty_m
05210007
000800 1034 action_l ds 0x
Placeholder 05221042
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
