kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Thu Feb 21, 2019 2:57 pm Post subject: |
|
|
vijay,
What do you mean CANCEL? Like the jobs are running and you want to stop the execution of the jobs? or or just remove the job logs from your SDSF held queue?
Assuming you are authorized to issue CANCEL command, you can try this to issue a block command to C to cancel the jobs in DA queue
Here is the jcl
Code: |
//**************************************************************
//* DELETE IF OUTPUT DATASET EXISTS *
//**************************************************************
//STEP0100 EXEC PGM=IEFBR14
//DD01 DD DSN=&SYSUID..SDSF.OUTPUT,
// DISP=(MOD,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,0),RLSE)
//*
//**************************************************************
//* CANCEL ALL JOBS IN DA FOR PREFIX 'ACLA2*' *
//* USING SDSF BLOCK COMMANDS (//C - //) *
//**************************************************************
//STEP0200 EXEC PGM=SDSF,PARM='++30,256'
//ISFOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DATAOUT DD DSN=&SYSUID..SDSF.OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(25,25),RLSE),
// RECFM=FB,LRECL=133,BLKSIZE=0
//ISFIN DD *
PRE ACLA2*
DA
PRINT FILE DATAOUT
FIND 'ACLA2*D'
++//C
FIND 'ACLA2*D' LAST
++//
PRINT CLOSE
END
/* |
_________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|