Anthony,
Thanks for the JCL and the REXX. It works like a charm. Much obliged.
On Monday, June 3, 2019, 2:01:51 a.m. UTC, Anthony Thompson
<[email protected]> wrote:
Provided you have the appropriate authorities...
Batch job:
//jobcard
//SDSFCMD EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=Your.REXX.library
//SYSTSIN DD *
%SDSFCMD D GRS,RES=(*,SYS1.LINKLIB)
/*
SDSFCMD REXX:
/*REXX*/
blah = ISFCALLS('ON')
ISFCONS = "ANTCONXX"
ISFDELAY = "1"
PARSE ARG input
cmd.0=1
cmd.1=input
ADDRESS SDSF ISFSLASH "(cmd.)"
IF (ISFULOG.0 > 0) THEN
DO i=1 TO ISFULOG.0
SAY ISFULOG.i
END
EXIT 0
Ant.
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
willie bunter
Sent: Saturday, 1 June 2019 2:02 AM
To: [email protected]
Subject: BATCH JOB TO RUN GRS COMMAND
Hallo All,
Would anybody have an example to run the GRS command for the following dsn via
a batch job :
DGRS,RES=(*,SYS1.LINKLIB)
Thanks in advance
----------------------------------------------------------------------
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
