Question on REXX

Hi Sree123

In Micro Focus Server Enterprise Edition TSO commands can be run in a TSO batch (or background) session, using the IDAEFT01 (IKJEFF01) utility. TSO interactive processing is not supported in Server Enterprise Edition.

Also below commands are supported

"ALLOCATE,ATTRIB,CALL,DELETE,DSN,EXEC,FREE,LISTALC,LISTCAT,LOGOFF,PROFILE,RELATE,REXX,SUBMIT,TIME"

answer to second question is

you can use IEBGENER  and providing rexx as in inline

sample is below

//MFUSER1 JOB (MFUSER),'RUN REXX ',CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1)

//*

//STEP2     EXEC  PGM=IEBGENER                                      

//SYSPRINT   DD  SYSOUT=A,HOLD=YES                                  

//SYSIN      DD  DUMMY                                              

//SYSUT2     DD  DSN=TEST.REXX.PDS(REXX1),DISP=(MOD),    

//      SPACE=(CYL,(1,1,1)),UNIT=3390,                              

//      DCB=(LRECL=80,RECFM=FB,DSORG=PO)                            

//SYSUT1     DD  DATA,DLM=££

Regards

Cheeta

Thank you for reply.

I copied the rexx program to REXX1 member of PDS TEST.REXX.PDS

Now how to allocate this to SYSEXEC? Where to mention this PDS?

While running, I'm getting the error SYSEXEC dataset not found.

//JCLTEST JOB 'JCL TEST',CLASS=B,MSGCLASS=A

//STEP1   EXEC PGM=IRXJCL,PARM='REXX1 10'

//SYSEXEC  DD DSN=TEST.REXX.PDS,DISP=SHR

//SYSTSPRT DD SYSOUT=A

//SYSTSIN  DD DUMMY

Thank you for reply.

I copied the rexx program to REXX1 member of PDS TEST.REXX.PDS

Now how to allocate this to SYSEXEC? Where to mention this PDS?

While running, I'm getting the error SYSEXEC dataset not found.

//JCLTEST JOB 'JCL TEST',CLASS=B,MSGCLASS=A

//STEP1   EXEC PGM=IRXJCL,PARM='REXX1 10'

//SYSEXEC  DD DSN=TEST.REXX.PDS,DISP=SHR

//SYSTSPRT DD SYSOUT=A

//SYSTSIN  DD DUMMY

Just change jcl little bit assuming rexx exec member as REXX1

//JCLTEST JOB 'JCL TEST',CLASS=B,MSGCLASS=A

//STEP1   EXEC PGM=IRXJCL,PARM='REXX1'

//SYSEXEC  DD DSN=TEST.REXX.PDS,DISP=SHR

//SYSTSPRT DD SYSOUT=A

//SYSTSIN  DD DUMMY

HTH

Regards

Cheeta

In this - PARM='REXX1 10' , 10 was used input to REXX1.

But I changed as per you, but getting the same error - SYSEXEC dataset not found.

This is the rexx program used:

/*rexx*/

a=10

     if a<50 then say a "is less than 50"

     else say a "is not less than 50"

I want to know, do we need to mention the pds TEST.REXX.PDS some where in MSS server?

or How to allocate this pds TEST.REXX.PDS to SYSEXEC?

Hope you understand my question..