I tried posting the ISPF-L, but I can't get registered there. ;-(
-----------------------------------------------------------------------------------
I'm trying the List before opening an SR. I just discovered (reported by
another user but verified by me) that a RACF initialization Rexx works on one
member of a parallel sysplex but not on the other. Both systems are IPLed
literally off the same physical sysres at z/OS 2.1 with RSU 1608. It has
nothing to do with RACF. It works fine on one member but fails on the other. By
'fail' I mean that nothing happens. No error, no message, no nothing. A
variation of this Rexx works as expected on both members. The code difference
is clear, but I can't figure out what's wrong. Both were written back in the
mid-90s according to ISPF stats. The desired result is simply to display the
initial IBM distributed RACF primary panel ICHP00. The RACF libraries are
physically the same for both systems.
Here's the version that works on both systems:
/* REXX */
TRACE N
PARSE ARG nextopt .
ADDRESS ISPEXEC
"LIBDEF ISPMLIB DATASET ID('SYS1.HRFMSG')"
"LIBDEF ISPPLIB DATASET ID('SYS1.HRFPANL')"
"LIBDEF ISPSLIB DATASET ID('SYS1.HRFSKEL')"
ADDRESS TSO "ALTLIB ACT APPL(CLIST) DATASET('SYS1.HRFCLST')"
"SELECT PANEL(ICHP00)" nextopt
"LIBDEF ISPMLIB DATASET"
"LIBDEF ISPPLIB DATASET"
"LIBDEF ISPSLIB DATASET"
ADDRESS TSO "ALTLIB RESET"
Here's the version that works on one sysplex member but not on the other with
the same userid:
/* REXX */
TRACE N
PARSE ARG nextopt .
ADDRESS ISPEXEC
"LIBDEF ISPMLIB DATASET STACK ID('SYS1.HRFMSG')"
"LIBDEF ISPPLIB DATASET STACK ID('SYS1.HRFPANL')"
"LIBDEF ISPSLIB DATASET STACK ID('SYS1.HRFSKEL')"
ADDRESS TSO "ALTLIB ACT APPL(CLIST) DATASET('SYS1.HRFCLST')"
"SELECT PANEL(ICHP00)" nextopt
"LIBDEF ISPMLIB DATASET"
"LIBDEF ISPPLIB DATASET"
"LIBDEF ISPSLIB DATASET"
ADDRESS TSO "ALTLIB DEACT APPL(CLIST)"
The difference seems to be only use of STACK in one version but not the other.
I could live with success on both systems or failure on both systems, but how
could the same exact code work on one but fail on the other? I'm stumped.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
[email protected]<mailto:[email protected]>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
