HOw do I Edit a dataset in Batch using ISPF editor ?

[prince...@my-dejanews.com]

Hi!

I want to change all the invalid characters from a dataset, from column
number 20 thru 30 to Blank Space. I want to do the above in a
batch environment. From foreground, I issue the ISPF edit command,
"CHANGE P'.' ' ' 20 30 ALL".

How do I do the same in the batch, through JCL ?

Thanks,
Prince.

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum

[Carl-Gustaf Samuelsson]

Put the command in an ISPF macro together with a SAVE command.
Invoke the macro in a rexx-program as an initial macro to ISREDIT EDIT.
You may execute this rexx-pgm, by IKJEFT1B, as a usual TSO command.
(If you expand the rexx-pgm with LMMLIST, than you can do this change in a
whole PDS)
/Carl

prince...@my-dejanews.com skrev i meddelandet
<6t90fg$apu$1...@nnrp1.dejanews.com>...

[fai]

You can try

This is JCL to invole the macro
//OPCFKAM1 JOB ,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1),
// REGION=4096K,NOTIFY=OPCFKAM
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=20
//ISPPROF DD DSN=&&ISPPROF,SPACE=(TRK,(1,1,5)),UNIT=SYSDA,
// DCB=OPCFKAM.ISPF.ISPPROF
//ISPTLIB DD DSN=ISP.V4R1M0.SISPTENU,DISP=SHR
//ISPPLIB DD DSN=ISP.V4R1M0.SISPPENU,DISP=SHR
// DD DSN=&&ISPPLIB,SPACE=(TRK,(1,1,5)),UNIT=SYSDA,
// DCB=OPCFKAM.ISPF.ISPPROF
//ISPMLIB DD DSN=ISP.V4R1M0.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=&&ISPSLIB,SPACE=(TRK,(1,1,5)),UNIT=SYSDA,
// DCB=OPCFKAM.ISPF.ISPPROF
//ISPLOG DD DSN=OPCFKAM.CUTPASTE.DATA,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPROC DD DSN=OPCFKAM.PVT.CLIST,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE NOPREFIX
ISPSTART CMD(%XCCHANGE)

This is rexx member XCCHANGE
,/* REXX */
,ADDRESS ISPEXEC
,'ISPEXEC EDIT DATASET(OPCFKAM.TMS05 ) MACRO(XCHANGE)'

This is macro member XCHANGE
/* REXX */
ADDRESS 'ISREDIT'
'ISREDIT MACRO'
"ISREDIT CHANGE P'.' ' ' 20 30 ALL".
"ISREDIT END"