IBM MAINFRAME HELP & SUPPORT FORUMS

crazyf1 · Joined: 05 May 2006 Posts: 27

I am just new with REXX programming and would want to do this as I am always getting a RC(-3)

Thanks

Objective:
From an input dataset, i want to change all READ,WRITE,ALLOC into R,W,A and del all EXEC

REXX
----------------------------
Code:
/**REXX**************************************
********************************************/
PARSE ARG DSNAME MACRO1
ADDRESS ISPEXEC
"EDIT DATASET('"DSNAME"') MACRO("MACRO1")"
EXIT

MACRO - MACRO01
-----------------------------------
Code:
/* REXX */
ISREDIT MACRO
ISREDIT CHANGE READ R ALL
ISREDIT CHANGE WRITE W ALL
ISREDIT CHANGE ALLOC A ALL
ISREDIT CHANGE EXEC(L) '' ALL
ISREDIT CHANGE EXEC(A) '' ALL
END

JCL
-------------------------------------
Code:
//REXPROC1 PROC
//STEP010 EXEC PGM=IKJEFT01,DYNAMNBR=20,
// PARM='%EDITREXX &ARG01 &ARG02'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=(G,,JOHN)
//SYSTSIN DD DUMMY
//SYSPROC DD DSN=TSGP.PDS.JASON.WORK.REXX,DISP=SHR
// PEND
//STEP01 EXEC REXPROC1,ARG01=TSGS.TEST.IDS,ARG02=MACRO01

superk · Joined: 26 Apr 2004 Posts: 3381 Location: Charlotte,NC USA

OK.

#1.
Code:
/* REXX */
ISREDIT MACRO
ISREDIT CHANGE READ R ALL
ISREDIT CHANGE WRITE W ALL
ISREDIT CHANGE ALLOC A ALL
ISREDIT CHANGE EXEC(L) '' ALL
ISREDIT CHANGE EXEC(A) '' ALL
END

This is NOT valid REXX code, and your ISPF Editor indicates such. ISREDIT and END are not valid REXX constructs. It is, however, valid CLIST code (minus the /* REXX */ statement, of course).

#2.
In your JCL, I don't see any ISPSTART command to invoke ISPF or any DD allocations for the requisite ISPF libraries (ISPLLIB, ISPPLIB, ISPSLIB, ISPMLIB, ISPPROF, ISPTABL, ISPTLIB, ISPLOG, ISPLIST).

For more details on the ISPSTART command, see here in the z/OS V1R7.0 ISPF Dialog Developer's Guide.

crazyf1 · Joined: 05 May 2006 Posts: 27

if I am to invoke this as a CLIST, do i need to have ISPSTART command in my jcl?

superk · Joined: 26 Apr 2004 Posts: 3381 Location: Charlotte,NC USA

You only need to invoke ISPSTART if you want to use ISPF services.

crazyf1 · Joined: 05 May 2006 Posts: 27

Where do i put ISPSTART in my jcl? do i need to also to do DD allocations for the requisite ISPF libraries? or can i just use ISPSTART?

superk · Joined: 26 Apr 2004 Posts: 3381 Location: Charlotte,NC USA

here is a great example of an IPSF batch job in the z/OS V1R7.0 ISPF Dialog Developer's Guide.

crazyf1 · Joined: 05 May 2006 Posts: 27

thank you very much! :)

crazyf1 · Joined: 05 May 2006 Posts: 27

Can someone please help with this... getting a MAXCC=12
Also, I tried searching for my id (using 3.4) and it seems only 'T62811.ISPF.ISPPROF' is only available... so i tried using DUMMY/SYSOUT=* however, job failed.
Code:
//TSOBTCH1 EXEC PGM=IKJEFT01
//ISPPROF DD DSN=TS62811.ISPF.ISPPROF,DISP=SHR
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPTLIB DD DSN=TS62811.ISPF.TABLES,DISP=SHR
//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
// DD DSN=ISP.SISPTLIB,DISP=SHR
//ISPTABL DD DSN=TS62811.ISPF.TABLES,DISP=SHR
//ISPLOG DD DSN=TS62811.ISPF.LOG,DISP=SHR
//ISPLLIB DD DSN=TS62811.ISPF.LOAD,DISP=SHR
//SYSEXEC DD DSN=ISP.SISPEXEC,DISP=SHR
//SYSPROC DD DSN=TSGP.PDS.JASON.WORK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(TS62811)
ISPSTART CMD(%EDITREXX TSGS.TEST.IDS MACRO1)
/*

TSGS.TEST.IDS ---> Dataset i want to edit
MACRO1 ----> Macro that will edit the dataset

superk · Joined: 26 Apr 2004 Posts: 3381 Location: Charlotte,NC USA

Please post the error message(s).

crazyf1 · Joined: 05 May 2006 Posts: 27

I am getting a MAXCC=12 abend 0C4 using this JCL. i really can't find any library allocated to my ispf.
Using 3.4 and searching for my id as HLQ

TS62811.CPPTEMP1.SCPPWORK
TS62811.CPPTEMP2.SCPPWORK
TS62811.CPPTEMP3.SCPPWORK
TS62811.HCD.MSGLOG
TS62811.HCD.TERM
TS62811.HCD.TRACE
TS62811.ISPF.ISPPROF
TS62811.ISPF.ISPPROF.CPUG
TS62811.LOG.MISC
TS62811.SPFLOG1.LIST
TS62811.SPFTEMP0.CNTL
TS62811.SRCHFOR.LIST
TS62811.SUPERC.LIST

JCL <-- substituted all files with SYSOUT=*
---------------------------------------------------------------
Code:
//TSOBTCH1 EXEC PGM=IKJEFT01
//ISPPROF DD SYSOUT=*
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
//* DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPTLIB DD SYSOUT=*
//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
// DD DSN=ISP.SISPTLIB,DISP=SHR
//ISPTABL DD SYSOUT=*
//ISPLOG DD SYSOUT=*
//ISPLLIB DD SYSOUT=*
//SYSEXEC DD DSN=ISP.SISPEXEC,DISP=SHR
//SYSPROC DD DSN=TSGP.PDS.JASON.WORK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(TS62811)
ISPSTART CMD(%EDITREXX TSGS.TEST.IDS MACRO1)
/*
[/list]