Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

IEHLIST LISTVTOC FROM A REXX EXEC

736 views
Skip to first unread message

Jonathan Lee

unread,
Oct 10, 1996, 3:00:00 AM10/10/96
to

DOES ANYONE KNOW HOW TO RUN AN IEHLIST LISTVTOC FROM INSIDE A REXX
EXEC??

I HAVE TRIED SEVERAL VARIATIONS AND THE CLOSEST I CAN GET IS AN
IEH106I ERROR MESSAGE STATING:

UNAVAILABLE DEVICE TYPE OR VOLUME ID SPECIFIED

Tim Kent Larsen

unread,
Oct 11, 1996, 3:00:00 AM10/11/96
to

RE: IEHLIST LISTVTOC FROM A REXX EXEC

>Jonathan Lee <le...@RI.DISA.MIL>

Check this sample ... enjoy :-)

|\/\/\/|
| |
| |
| (o)(o)
C )
| |
| '---- Tim
/ / DKKM...@IBMMAIL.COM
/ \


/* REXX --------------------------------------------------------------*/
/* */
/* KLEINE TRICK :-) */
/* - ALLOC VTOCIX DATASET FOR IEHLIST */
/* - OBTAIN DEVICE-TYPE VIA VTOCIX ALLOC */
/* */
/* Z6TKL */
/* 1996.10.11 */
/* */
/*--------------------------------------------------------------------*/

ARG VOLSER .

DSNAME = 'SYS1.VTOCIX.'VOLSER
DDNAME = 'I'RIGHT(SYSVAR('SYSSRV'),7,'0')

"ALLOCATE FILE("DDNAME") DATASET('"DSNAME"') VOLUME("VOLSER") SHR REUSE"
"ALLOCATE FILE(SYSIN) UNIT(VIO) RECFM(F B) LRECL(80) NEW REUSE"
"ALLOCATE FILE(SYSPRINT) UNIT(VIO) RECFM(F B A) LRECL(121) NEW REUSE"

CALL LISTDSI(DDNAME 'FILE')

QUEUE " LISTVTOC FORMAT,VOL="SYSUNIT"="VOLSER
"EXECIO 1 DISKW SYSIN (FINIS"

ADDRESS ISPEXEC "SELECT PGM(IEHLIST)"

"FREE FILE("DDNAME "SYSIN)"

ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS ISPEXEC "LMINIT DATAID(DATAID) DDNAME(SYSPRINT)"
ADDRESS ISPEXEC "BROWSE DATAID("DATAID")"
ADDRESS ISPEXEC "LMFREE DATAID("DATAID")"
ADDRESS ISPEXEC "CONTROL ERRORS CANCEL"

"ALLOCATE FILE(SYSPRINT) DATASET(*) REUSE"

RETURN

R Bowler

unread,
Oct 12, 1996, 3:00:00 AM10/12/96
to

Jonathan Lee <le...@RI.DISA.MIL> wrote:
>DOES ANYONE KNOW HOW TO RUN AN IEHLIST LISTVTOC FROM
>INSIDE A REXX EXEC??
>I HAVE TRIED SEVERAL VARIATIONS AND THE CLOSEST I >CAN GET IS AN
> IEH106I ERROR MESSAGE STATING:
> UNAVAILABLE DEVICE TYPE OR VOLUME ID SPECIFIED

Try allocating a dataset on the volume, either by JCL or by the TSO ALLOC
command. Any ddname and any dataset will do as long as it's on the right
volume. The IEH utilities seem to like to have a TIOT entry for the
volume in question.

BTW, are you using a very old 3277 terminal? Your message is all in
capital letters :-)

Roger Bowler, Heterogenius Systems Ltd
http://www.hgsys.demon.co.uk

Mark Wildey

unread,
Oct 12, 1996, 3:00:00 AM10/12/96
to

If your after data set information you might try calling IDCAMS
'DCOLLECT'. If you want an example I can mail some code

Regards

Mark


0 new messages