Henrique,
The below PROC is a sample of what you'd like to accomplish as it deletes a
passed VSAM ds-name. The method is useful when SYSIN has only several
VARIABLE cards. Also the PROC is easily convertable to plain JCL with the SET
symbols:
//DELVSAM PROC VDSN='?' - VSAM DSN
//*********************************************************/
/* (1) GENERATE TEMP INSTRUCTION WITH THE DSN:
//*********************************************************/
/GENTEMP EXEC PGM=ASMA90, X
// PARM=('SYSPARM( &VDSN -)')
//SYSIN DD DSN=your.source.pds(PARMTODD),DISP=SHR
//SYSUT1 DD SPACE=(4096,(2,2)),UNIT=VIO
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSPRINT DD DUMMY
//SYSLIN DD UNIT=VIO,DISP=(,PASS),SPACE=(TRK,1,1)),
// DSN=&&WORK,
// DCB=(BLKSIZE=80,LRECL=80,RECFM=FB)
//*********************************************************/
/* (2) RUN IDCAMS TO DELETE CLUSTER
//*********************************************************/
/DELDEFIN EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=skeleton(DELDEF1) <- DELETE ( -
// DD DISP=(SHR,PASS),DSN=&&WORK <- &VDSN
// DD DISP=SHR,DSN=skeleton(DELDEF2) <- ) PURGE SCRATCH
// PEND
where member PARMTODD is the following 2-line program placed in your source
library
PUNCH '&SYSPARM'
END
Hope this helps,
-Victor-
On Mon, 6 Jul 2009 13:05:52 -0500, Henrique Seganfredo
<[email protected]> wrote:
>Hello,
>
>I am trying to optimize some tasks I perform with my MQ Series. My idea is to
>delete a bunch of MQ objects just passing am unique number reference that
>identifies our partners.
>
>The JCL would look like this:
>
>//DLPARTNR PROC REF=
>//CSQUTIL1 EXEC PGM=CSQUTIL,REGION=0M,
>// PARM='BCMH'
>//STEPLIB DD DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQANLE
>// DD DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQAUTH
>//SYSPRINT DD SYSOUT=*
>//SYSIN DD DISP=SHR,DSN=SSTP.SYSIN(DEL1)
>//CSQUCMD DD DISP=SHR,DSN=SSTP.SYSIN(DEL2)
>
>So I have several MQ-delete commands contained inside of the DEL1 and
DEL2
>SYSIN datasets, somewhat like this:
> DELETE CHANNEL(MYCOMPANY.TO.&REF)
>
>I ended up discovering that symbols parameters I submit do not replace the
>ones contained on SYSIN data, is this true? Is there any workaround?
----------------------------------------------------------------------
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
