Using a rexx, I need to find some words … and send a message…
Why must you use REXX? Where will you look to “find some words”? How will you “send a message”? (I.e., what messaging interface will you use?) Finally, what is your problem in doing this? Do you need someone to write the whole REXX program for you?
My rexx has the name @CHKDB2.For the message i will use the “Adress TSO” with “send” to the “user id”.For the “words i want to find” it happens like this: 1st. A job runs and call a rexx proclib (pgm=ikjeft01,parm=’@chkdb2 &member(1,8, ) 6subsys(1,8,)’ 2nd after the rexx find the forbidden words in the dd IN1 of the job will send a message to the userid.I have a very old rexx, to much complex and not adequated to this propose. is it possible give any example?
I have a very old rexx, to much complex and not adequated to this propose.
Can you share it with us or show us any attempts you’ve made? If an existing proc is ‘too complex’, it might imply that there are elements that need attention that we are not aware of.
1º When some user submit a job (and this
one is a example which forbidden words are DB2A, DBSB and DB2D)…
//!JOBSISCAJCL06 JOB ,’TESTE @CHKDB2′,
//STEP01 EXEC PGM=PSUBJOB
//SYSIN DD *
2º …is calling this step in other process
(not important in this matter)…
&MEMBER(1,8, ) &SUBSYS(1,8,)’
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
3º …and the rexx code I made.
/* Rexx @CHKDB2
signal on syntax
/* trap rexx syntax errors */
signal off novalue
/* trap unititalized variables */
signal on error /* handle positive rc command failures
in code */
signal on failure /* handle negative rc command failures in
signal on halt /* allow normal hi/he
return_code = 0
Call alloc_files in1 f1
say in1 & say in2
Call alloc_files_pds in2 f2
“EXECIO * DISKR f2 (STEM tabclass. FINIS”
if rc <> 0 then
000025 say ‘Erro na leitura do ficheiro de input:
000026 return_code = 16
000027 Call exit
if tabclass.0 = 0 then
000031 say ‘Ficheiro de input vazio: ‘f2
000032 return_code = 16
000033 exit 4
mylist=”‘DB2A ‘ DB2B ‘ DB2D ‘”
drop (mylist) find
My Rexx experience is in a very low level (as all you
I just had a beginner course two months ago for the
first time and now I have this work to finish.
And I really want to make it.
Will you help me?
A few questions come from your REXX…
First, do you have descriptions of these procs — Valida_Input, ini_vars, Valida_Env, alloc_files and alloc_files_pds? The code you showed is useful, but it’s clearly only general control code. Without knowing what the sub-procs do, there’s no understanding of what the control code is controlling.
Second, I can see the EXECIO and the SYSIN DD data. But I don’t see how it relates to your mylist variable. The values are similar but don’t quite match, and mylist isn’t referenced anywhere except to drop it. And the tabclass stem variable is only checked to see if it has no values. Do you want to compare mylist and tabclass values?
Finally, what is the REXX supposed to be checking? Does it just need to see what values are in SYSIN? That doesn’t make much sense to me.
BTW, I can’t see the last two comments in this thread using IE. I have to use FF to see it all… (though I have to use IE to enter comments with some basic formatting). — Tom