MVSFORUMS.com :: View topic - Delete MFS blocks with MFSRVC utility

through

#1: Delete MFS blocks with MFSRVC utility Author: poojithas,

Posted: Fri Apr 05, 2019 12:46 am
—
Hi,
I am trying to delete MFS blocks from staging library IMS.FORMAT using MFSRVC proc. Basically when a MFS source is assembled it creates various blocks in FORMAT libray and I want to delete these.

I am not sure how to give control statements for this in SYSIN for DFSUTSA0

Tried with below combinations, no luck. Please help.

Code:

001 SCRATCH FORMAT,FMT=TXN*
DFS1224I KEYWORD PARAMETER DELIMITER IS INVALID.
DFS1209I PROCESSING TERMINATED BY EOD ON SYSIN.

Code:

001 SCRATCH INDEX REFER,MSG=TXN01 FORMAT,MSG=TXN01
DFS1240I INVALID COMMENT DELIMITER - POSSIBLE MISPUNCHED STATEMENT.
DFS1209I PROCESSING TERMINATED BY EOD ON SYSIN.

#2: Author: kolusu, Location: San Jose

Posted: Sun Apr 07, 2019 4:28 pm
—
poojithas,

I don't think you can provide wild card format for DFSUTSA0 program. Try

Code:

//SYSIN DD *
SCRATCH FORMAT,MSG=TXN01
SCRATCH REFER,MSG=TXN01
/*

JCL:

Code:

//STEP0100 EXEC PGM=DFSUTSA0,PARM='DEVCHAR=0'
//STEPLIB DD DISP=SHR,DSN=IMS.ACTIVE.RESLIB
//REFIN DD DISP=OLD,DSN=IMS.REFERAL
//FORMAT DD DISP=SHR,DSN=IMS.TFORMAT
//SYSUDUMP DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SCRATCH FORMAT,MSG=TXN01
SCRATCH REFER,MSG=TXN01
/*

#3: Author: poojithas,

Posted: Sun Apr 07, 2019 11:17 pm
—
Thank you Kolusu, it worked.

MVSFORUMS.com -> IMS

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1