Need to replace job accounting info in job card

[goldy_9884]

Hello All,

We have this requirement of changing job accounting info in our Job cards. We have to do this for 35K+ JCLs (these are all test jobs).

From below job card, 2005 AND 0742 needs to be changed into new numbers.

Code: Select all

//JOBDSCT1 JOB (2005,0742),'RESTORE DATASET',
//         NOTIFY=&SYSUID,MSGCLASS=E          
//O OUTPUT DEST=ABC.R0,JESDS=ALL,DEFAULT=Y    
//*
 

If there a way to accomplish this for all 35K JCLs without using any Rexx?

[willy jensen]

Sure, but you will need a program of some kind, my preference is PDS86 from cbttape.org file 182. Or some sort of PDS unload to a sequential dataset, then use ISPF edit, then reload PDS from the sequential dataset.

[prino]

Or you can download PDSUPDTE, assembler source.

[jcdm]

Hello, I use FMNMAIN pgm