Invocation of ISRSUPC
Joe Denison
Assume OLDDD, NEWDD, and OUTDD are already allocated.
I want to run a LONG Line compare between two sequential data sets and
display the results (but I want to do it as part of a REXX routine -- don't
want to use the normal ISPF 3.xx panels -- I'll invoke VIEW via the REXX
program after modifying the output of the compare).
Is this correct:
"ISPEXEC SELECT PGM(ISRSUPC) PARM(LONGL,LINECMP,'','')"
When I run this, the terminal just hangs. HOWEVER, if I run the ISPF 3.x
compare utility first, then run this REXX program, it runs OK. Any
suggestions? I think it is related to me not having the SYSIN DD
allocated, but I don't know what to put in that file.
--
Joe Denison
816-781-8334 j...@joedenison.com
Heinz-Bernd Leifeld
I found an example by Doug Nadel (I think the original name was TAG) where he
set Sysin to dummy:
'ALLOC FILE(SYSIN) DUMMY REUSE'
Hope this help,
Heinz-Bernd
--
Heinz-Bernd Leifeld
Provinzial Versicherungen Duesseldorf
Abtlg: KIP 3 / ETS C00
D-40195 Duesseldorf
Gardiner, Roy
yours as part of a home-made workbench which retains dataset names (and
member names) on an ISPF table and allows, amongst other things, datasets
and members of datasets to be selected for comparison or merger. The
comparison code is the best part of 20 years old and the documentation to my
normal high standard :-( so the WHY of what it does is not clear.
The code either (a) allocates SYSIN to a dataset containing ISRSUPC
control statements, or (b) FREEs SYSIN, before doing the SELECT the same way
you do. There's also a FREE for DD SYSIN2 but I'm er, um, blessed if I
know why.
HTH,
Roy
The Royal Bank of Scotland plc is registered in Scotland No 90312. Registered Office: 36 St Andrew Square, Edinburgh EH2 2YB. Agency agreements exist between members of The Royal Bank of Scotland Group. The Royal Bank of Scotland plc is regulated by IMRO, SFA and Personal Investment Authority.
This e-mail message is confidential and for use by the addressee only. If the message is received by anyone other than the addressee, please return the message to the sender by replying to it and then delete the message from your computer. Internet e-mails are not necessarily secure. The Royal Bank of Scotland plc does not accept responsibility for changes made to this message after it was sent.
Whilst all reasonable care has been taken to avoid the transmission of viruses, it is the responsibility of the recipient to ensure that the onward transmission, opening or use of this message and any attachments will not adversely affect its systems or data. No responsibility is accepted by The Royal Bank of Scotland plc in this regard and the recipient should carry out such virus and other checks as it considers appropriate.
Welton, Sebastian
Address Tso
'FREE FI(NEWDD,OUTDD,SYSIN)'
"ALLOC FI(NEWDD) SHR DA('"dsname"')"
'ALLOC FI(OUTDD) NEW DSORG(PS) REC(F B) LR(133) BLK(13300)' ,
'SPACE(2,2) TRACKS DA(XF.LIJST)'
'ALLOC FI(SYSIN) DELETE DSORG(PS) REC(F B) LR(80) BLK(3120)' ,
'SPACE(1,2) TRACKS'
Queue 'SRCHFOR' "'"se1"'"
'EXECIO 1 DISKW SYSIN (FINIS'
Address Ispexec 'SELECT PGM(ISRSUPC) PARM(SRCHCMP,ANYC,NOSEQ,LMTO)'
Address Tso
'FREE FI(NEWDD,OUTDD,SYSIN)'
'ALLOC FI(OUTDD) SHR DA(XF.LIJST) DELETE'
'EXECIO * DISKR OUTDD (FINIS'
'FREE FI(OUTDD)'
MfG / Best Regards
Sebastian Welton
GZS Gesellschaft für Zahlungssysteme mbH
Raum: 2.030A
Telefon: 069/7933-1518
Mobile: 0171 8880522
email: sebastia...@gzs.de
seba...@welton.de
§ -----Original Message-----
§ From: Joe Denison [mailto:j...@JOEDENISON.COM]
§ Sent: Wednesday, March 20, 2002 7:30 AM
§ To: ISP...@LISTSERV.ND.EDU
§ Subject: Invocation of ISRSUPC
§
§
§ What is the proper REXX syntax for invoking ISRSUPC to run under ISPF?
§ Assume OLDDD, NEWDD, and OUTDD are already allocated.
§
§ I want to run a LONG Line compare between two sequential data sets and
§ display the results (but I want to do it as part of a REXX
§ routine -- don't
§ want to use the normal ISPF 3.xx panels -- I'll invoke VIEW
§ via the REXX
§ program after modifying the output of the compare).
§
§ Is this correct:
§ "ISPEXEC SELECT PGM(ISRSUPC) PARM(LONGL,LINECMP,'','')"
§
§ When I run this, the terminal just hangs. HOWEVER, if I run
§ the ISPF 3.x
§ compare utility first, then run this REXX program, it runs OK. Any
§ suggestions? I think it is related to me not having the SYSIN DD
§ allocated, but I don't know what to put in that file.
§
§ --
§ Joe Denison
§ 816-781-8334 j...@joedenison.com
§
Ryerse, Robin
1. generate a batch stream
2. review Help for the options
then convert the batch stream to REXX