Submit a Job through Rexx

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

Hello , I am trying to write a rexx code , which will search a particular string from library. its like it will take string and library name to be searched from screen and submit the job through rexx.

I Want the LIBRARY_NAME and SEARCH_STRING to be replaced with the value read from screen input in below QUEUE Command

QUEUE'//NEWDD DD DSN=LIBRARY_NAME,'

QUEUE'SRCHFOR SEARCH_STRING'

if I hard code the values in above QUEUE command , it's working fine.
but I want the value should be read dynamically which take from screen and replace in the QUEUE command.

/*REXX*/

SAY "ENTER THE CHARACTER TO BE SEARCHED "
PULL SEARCH_STRING
SAY "ENTER THE LIBRARY NAME TO BE SEARCHED"
PULL LIBRARY_NAME
SAY "ENTER 'X' TO INDICATE END OF LIST"

DO UNTIL SEARCH_STRING='X'
IF SEARCH_STRING='X'
THEN
DO
SAY "END OF INPUT BY USER"
SAY "BYE" USERID()
END
ELSE
DO
SAY "SEARCHING FOR" SEARCH_STRING
CALL SEARCHING
END
END
EXIT
SEARCHING: PROCEDURE
QUEUE'//SEARCH JOB (CAKGVY,CH20),'
QUEUE'// NOTIFY=&SYSUID,'
QUEUE'// CLASS=X,'
QUEUE'// MSGCLASS=Y'
QUEUE'//*--------------------------------------------------------------'
QUEUE'//JS010 EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'ANYC')'
QUEUE'//*--------------------------------------------------------------'
QUEUE'//NEWDD DD DSN=LIBRARY_NAME,'
QUEUE'// DISP=(SHR,KEEP,KEEP)'
QUEUE'//SYSIN DD *'
QUEUE'SRCHFOR SEARCH_STRING'
QUEUE'//OUTDD DD SYSOUT=*'
QUEUE'//SYSPRINT DD SYSOUT=*'
QUEUE'//SYSUDUMP DD SYSOUT=*'
QUEUE'//'
"SUBMIT *"

Pedro · Posted: Wed Jul 30, 2014 7:09 pm

If they are within quotes, it is a constant. If they are outside of quotes, they are a variable. Try this:

expat · Posted: Wed Jul 30, 2014 7:15 pm

I would always recommend the use of file tailoring rather than inbuilt JCL within a REXX EXEC.

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

if they are within quotes, it is a constant. If they are outside of quotes, they are a variable. Try this:
Code:
QUEUE '//NEWDD DD DSN='LIBRARY_NAME','

I tried this but its not working.its unable to replace the library names.

the submitted jcl getting error

//SEARCH JOB (xxxxx,CH20),
// NOTIFY=&SYSUID,
// CLASS=X,
// MSGCLASS=Y
-------------------
//JS010 EXEC PGM=ISRSUPC,PARM=(SRCHCMP,ANYC)
//*--------------------------------------------------------------
//NEWDD DD DSN=LIBRARY_NAME,
// DISP=(SHR,KEEP,KEEP)
//SYSIN DD *
SRCHFOR SEARCH_STRING
//OUTDD DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*

expat · Posted: Wed Jul 30, 2014 7:57 pm

Have you used the REXX TRACE facility ?

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

YES. I am using the REXX Trace

here is the information. it is unable to replace the Library names .

expat · Posted: Wed Jul 30, 2014 8:11 pm

I suggest reading up on passing variables to an internal routine in the same REXX.
Especially as you have declared SEARCHING as a PROCEDURE.

I found a suggested resolution on google in less than a minute

And please learn to use the code tags !!!!!

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

I removed the PROCEDURE from SEARCH routine. Now is working fine. Thank you

Marso · Posted: Thu Jul 31, 2014 4:59 pm

Is there something wrong with option 3.14 ?

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

Just Practicing how to submit a job through rexx by Reading input from user.

daveporcelan · Posted: Thu Jul 31, 2014 5:33 pm