Bob,
I've quick-written and checked that the following works OK.
(Apologies if the JCL, REXX etc. source have been "reformatted" by Big
D. ;-) )
JCL:
//CALLMACR EXEC PGM=IKJEFT01,
// REGION=8192K,
// DYNAMNBR=25
//*
//SYSTSIN DD *
ISPSTART CMD(%CALLMACR CONVUPPR TTSMV14.TEST MAKEUC)
/*
//SYSEXEC DD DISP=SHR,DSN=TTSMV14.REXX
//ISPLOG DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=129)
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPPROF DD SPACE=(TRK,(2,1,5)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU
//ISPTABL DD DUMMY
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU
//SYSHELP DD DISP=SHR,DSN=SYS2.HELP
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*
CALLMACR: REXX to invoke an edit macro:
/*-------------------------------------------------------------------*/
/* REXX TO INVOKE AN EDIT MACRO 'MACRO' AGAINST DSN='DATASET', IN */
/* BATCH TSO */
/* */
/* 03/03/06 CMP */
/*-------------------------------------------------------------------*/
ARG MACRO DATASET TRACE
IF ABBREV('DEBUG',TRACE,1) THEN TRACE INTERMEDIATE
"ISPEXEC VPUT TRACE SHARED"
PROCESS:
"ISPEXEC EDIT DATASET('"DATASET"') MACRO("MACRO")"
EXIT:
EXIT 0
CONVUPPR: REXX Edit macro to change all lowercase to uppercase:
"ISREDIT MACRO"
ARG TRACE
"ISPEXEC VGET TRACE"
IF ABBREV('DEBUG',TRACE,1) THEN TRACE INTERMEDIATE
"ISREDIT CHANGE ALL P'<' P'>'"
"ISREDIT SAVE"
"ISREDIT END"
EXIT 0
Cheers - Chris
Bob H wrote:
Chris - will give your suggestion a try.
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
