Hi,
I think I have to clarify, what in detail my problem with the prgram
from CBT file 778 is:
I modified the sample REXX to point to my CSI dataset:
/* REXX */
GIMCSI='SPSOS.P0802.GLOBAL.CSI'
GIMZONE='OST'
GIMENTRY='SYSMOD'
GIMSENTRY='*'
GIMFILTER="SMODTYPE='USERMOD'"
ZZ=OUTTRAP('GIMOUT.')
ADDRESS TSO "CALL 'KEHR.TOOL2.LOAD(RXGIMAPI)'"
ZZ=OUTTRAP()
DO I=1 TO GIMOUT.0
SAY GIMOUT.I
END
EXIT 0
This program should list all USERMODs for a specific target zone.
S1AXR01 OST
APPLY
YES
BYPASS
YES
DATA
YES
DELLMOD
YES
ELEMMOV
YES
ERROR
YES
FMID
YES
INSTALLDATE
YES
INSTALLTIME
YES
JCLIN
YES
RECDATE
YES
RECTIME
YES
REGEN
YES
RENLMOD
YES
RESTORE
YES
REWORK
YES
SMODTYPE
YES
S1BKM01 OST
S1BKM02 OST
S1BKM03 OST
S1CCN01 OST
S1CCN02 OST
S1CEE03 OST
S1CEE04 OST
S1CEE06 OST
...
That means, that for the first match (here USERMOD S1AXR01) all subentry
fields are displayed, as requested by GIMSENTRY='*', for all other only
the its name and the name of the the target zone are displayed, which is
the default value.
Because I'm not an assembler programmer, I'm not able to locate the
error in the the assemler program, so I would be very thankful for any help.
BTW: I do know, that this program is neither an IBM program nor the API
itself, but if I would find a solution for the above problem, this
program would fulfill my needs.
Kenneth E Tomiak schrieb:
I changed the Rexx code to use my CSI dataset name, my zone name, and a
valid FMID and got lots of output back. All the PTFs I have applied to the
FMID I supplied.
--
___________________________________________________________________
Freundliche Gruesse / Kind regards
Dipl.Math. Juergen Kehr, IT Schulung & Beratung, IT Education + Consulting
Tel. +49-561-9528788 Fax +49-561-9528789 Mobil +49-172-5129389
ICQ 292-318-696 (JKehr)
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
___________________________________________________________________
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html