Okay I will post all relevant information
From the log
IEE252I MEMBER IKJTSO00 FOUND IN ADCD.Z31B.PARMLIB
The IKJTSO00 member
AUTHCMD NAMES( /* AUTHORIZED COMMANDS */
AD ADDSD /* RACF COMMANDS */ +
AG ADDGROUP /* */ +
AU ADDUSER /* */ +
ALG ALTGROUP /* */ +
ALD ALTDSD /* */ +
ALU ALTUSER /* */ +
BLKUPD /* */ +
CO CONNECT /* */ +
DD DELDSD /* */ +
DG DELGROUP /* */ +
DU DELUSER /* */ +
LD LISTDSD /* */ +
LG LISTGRP /* */ +
LU LISTUSER /* */ +
RACDCERT /* */ +
RALT RALTER /* */ +
RACLINK /* */ +
RDEF RDEFINE /* */ +
RDEL RDELETE /* */ +
RE REMOVE /* */ +
RL RLIST /* */ +
RVARY /* */ +
PASSWORD PW /* */ +
PE PERMIT /* */ +
SETR SETROPTS /* */ +
SR SEARCH /* */ +
IRRDPI00 /* */ +
DITTO /* DITTO */ +
DITTOA /* DITTO */ +
DITTOU /* DITTO */ +
DELETE /* */ +
IEBCOPY /* */ +
BINDDATA BDATA /* DMSMS COMMANDS */ +
LISTDATA LDATA /* */ +
SETCACHE SETC /* */ +
RECEIVE /* TSO COMMANDS */ +
CONSPROF /* */ +
TRANSMIT XMIT /* */ +
LISTB LISTBC /* */ +
SE SEND /* */ +
RACONVRT CONSPROF /* */ +
SYNC /* */ +
LISTD LISTDS /* */ +
TESTAUTH TESTA /* */ +
PARMLIB IKJPRMLB /* */ +
NETSTAT /* IP COMMANDS */ +
PING LPR /* COM SERV IP */ +
ISJR /* FROT END ISPF */ +
<------------------------- This is the program
TRACERTE /* IP COMMANDS */ +
MVPXDISP #/* IP COMMAND */)
/* */
AUTHPGM NAMES( /* AUTHORIZED PROGRAMS */
ICHUT100 /* */ +
ICHUT200 /* */ +
ICHUT400 /* */ +
ICHDSM00 /* */ +
IRRDSC00 /* */ +
IRRUT100 /* */ +
IRRUT200 /* */ +
IRRUT400 /* */ +
IRRDPI00 /* */ +
CSFDAUTH /* ICSF COMMAND */ +
ICADCT /* FIREWALL */ +
ICADDCT /* FIREWALL */ +
ICADCFGS /* FIREWALL */ +
ICADPFTP /* FIREWALL */ +
ICADFTPD /* FIREWALL */ +
ICADSLOG /* FIREWALL */ +
ICADSOCK /* FIREWALL */ +
ICADSOXD /* FIREWALL */ +
ICADSTAK /* FIREWALL */ +
ICADIKED /* FIREWALL */ +
IEBCOPY /* */ +
BLZPASTK /* RATIONAL TEAM CONERT */ +
IOEGRWAG /* DFS */ +
IOENEWAG /* DFS */ +
IOESALVG /* DFS */ +
IOEBAK /* DFS */ +
IOEBOS /* DFS */ +
IOECM /* DFS */ +
IOEDCEER /* DFS */ +
IOEDFSXP /* DFS */ +
IOEFTS /* DFS */ +
ISJR /* FROT END ISPF */ +
<---- this is the program
IOEMAPID /* DFS */ +
IOESCOUT /* DFS */ +
The logon proc
//*********************************************************************
//**
//* ISPF FULL-FUNCTION LOGON PROC
//*
//*********************************************************************
//ISPFLITE EXEC PGM=IKJEFT01,REGION=0M,DYNAMNBR=175,
// PARM='%ISPFCL'
//STEPLIB DD DISP=SHR,DSN=SYS1.CBT.LINKLIB <-------- the
library
//SYSUADS DD DISP=SHR,DSN=SYS1.UADS,UNIT=3390
//SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST,UNIT=3390
//SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB,UNIT=3390
// DD DISP=SHR,DSN=ADCD.&SYSVER..CLIST,UNIT=3390
// DD DISP=SHR,DSN=SYS1.SBLSCLI0
// DD DISP=SHR,DSN=SYS1.DGTCLIB
//SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC,UNIT=3390
APF authorization
File Navigate Settings View
------------------------------------------------------------------------------
-------- TASID: APF authorized libraries LINE 00000000 COL 001 079
COMMAND ===> SCROLL ===> PAGE
----------------------------+----------------------+------------------------
APF - APF Authorized libs | PAR - LPAR info | SPA - DASD space
LIN - Linklst PRM - Parmlib | STG - Storage info | SVC - SVC list
LPA - LPA lib SYM - Symbols | NUC - Nucleus map | UCB - Active devices
LPD - Link Pack Directory | SUB - Subsystems | UNI - Available units
----------------------------+----------------------+------------------------
APF Authorized Libraries
Data_set_name Volume (Dynamic)
********************************* Top of Data *********************************
SYS1.LINKLIB B3RES1
SYS1.SVCLIB B3RES1
SYS1.CBT.LINKLIB B3SYS1 <---- the
library apf authorized
SYS1.COMMON.LINKLIB B3CFG1
SYS1.COMMON.LPALIB B3CFG1
SYS1.SHASLNKE B3RES1
SYS1.SIEAMIGE B3RES1
SYS1.MIGLIB B3RES1
SYS1.SERBLNKE B3RES1
The error message
JOER.SPFLOG1.LIST has been deleted.
READY
isjr
IKJ56641I ISJR ENDED DUE TO ERROR+
READY
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=047
TIME=17.39.48 SEQ=00048 CPU=0000 ASID=0048
PSW AT TIME OF ERROR 078D0000 A0801748 ILC 2 INTC 6B
ACTIVE MODULE ADDRESS=00000000_20801710 OFFSET=00000038
NAME=ISJR
DATA AT PSW 20801742 - 48103888 0A6B4190 D16FA7F4
GR 0: 000002A8 1: 0000003C
2: 00000000 3: A0801710
4: 858F502C 5: 008CC940
6: 00000000 7: 0000B698
8: 008CC940 9: 00FD6918
A: 85903030 B: 0590402F
C: 20802D58 D: 20802D58
E: 00011F68 F: 00000000
END OF SYMPTOM DUMP
READY
***
Source code
0000000 00000 008F0 1 ISJR CSECT
2 ISJR AMODE 31
3 ISJR RMODE ANY
4 ENTRY ISRPCP
000000 5 ISRPCP DS 0H
000000 90EC D00C 0000C 6 STM R14,R12,12(R13)
7 YREGS
0 00000 9+R0 EQU 0
00001 10+R1 EQU 1
00002 11+R2 EQU 2
00003 12+R3 EQU 3
00004 13+R4 EQU 4
00005 14+R5 EQU 5
00006 15+R6 EQU 6
00007 16+R7 EQU 7
00008 17+R8 EQU 8
00009 18+R9 EQU 9
0000A 19+R10 EQU 10
0000B 20+R11 EQU 11
0000C 21+R12 EQU 12
0000D 22+R13 EQU 13
0000E 23+R14 EQU 14
0000F 24+R15 EQU 15
0 0000E 26 XLNK EQU 14
R:3 00000 27 USING ISJR,R3
000004 183F 28 LR R3,R15
000006 4100 02A3 002A3 29 LA R0,WS_LEN
30 STORAGE OBTAIN,LENGTH=
00000A 0700 32+ CNOP 0,4
00000C 47F0 3014 00014 33+ B IHB0002B
000010 00 34+IHB0002F DC BL1'00000000'
000011 00 35+ DC AL1(0*16)
000012 00 36+ DC AL1(0)
000013 02 37+ DC BL1'00000010'
000014 38+IHB0002B DS 0F
000014 58F0 3010 00010 39+ L 15,IHB0002F
000018 58E0 0010 00010 40+ L 14,16(0,0)
00001C 58EE 0304 00304 41+ L 14,772(14,0)
000020 58EE 00A0 000A0 42+ L 14,160(14,0)
000024 B218 E000 00000 43+ PC 0(14)
000028 18C1 44+ LR R12,1
00002A 18ED 45 LR R14,R13
00002C 18DC 46 LR R13,R12
R:D 00000 47 USING WS_DSECT,R13
00002E 50E0 C004 00004 48 ST R14,4(,R12)
000032 4810 3888 00888 49 LH R1,=X'003C'
000036 0A6B 50 SVC 107 <---
ABEND
000038 4190 D16F 0016F 52 LA R9,DBGR_DIE
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Paul Gilmartin
Sent: Sunday, June 29, 2025 6:26 PM
To: [email protected]
Subject: Re: APF authorized TSO programs
On Sun, 29 Jun 2025 17:01:07 -0500, Steve Beaver wrote:
>Did you APF the STEPLIB
>
>
>Sent from my iPhone
>
>No one said I could type with one thumb
>
And mark the program AC=1"
Please, IBM,this isn't 1970 with storage capacity limitation.
the diagnostic should indicate one or more of:
o AC=0
o Not in AUTHLIST
o data set not RACF autjorized
o Other?
Don't tease the customer with an exercise in enigmatology.
(I suspect Joseph's employer prohibits posting excerpts that would enable this
list to help him more.)
>> On Jun 29, 2025, at 16:49, Joseph Reichman wrote:
>>
>> Hi
>>
>> I have any APF authorized program
>> It’s in the STEPLIB ( and the only one in my steplib ) of my TSO
>> logon PROC
>>
>> I have the program name in the AUTHPGM NAMES and AUTHCMD NAMES of my
>> IKJTSOxx member in parmlib
>>
>> And yet I keep on getting 047 abend code
>>
>> Thanks
--
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
