Help in REXX

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

I have a skeleton JCL as -

//STEP&K EXEC PGM=SORT
//INPUT DD DISP=SHR,DSN=&OLDDSN.&OLDDSN1
//OUTPUT DD DSN=&NEWDSN,
// UNIT=DISK,
// SPACE=(CYL,(0,0)),
// DISP=(MOD,CATLG,CATLG)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(5,11,CH,EQ,C'&ACCTNO')

I am passing the ACCTNO from REXX program.Based on certain conditions in the program ,I can have two or more accounts in the INCLUDE COND using 'AND' & 'OR' dynamically.Please suggest me how to do that in REXX program ?

Thanks!

vasanthz · Posted: Mon Feb 07, 2011 6:03 pm

Hi,

Show us your REXX program from where you pass the ACCTNO variable,
I guess you can pass the whole include condition in a single variable.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

/*REXX */
"ISPEXEC LIBDEF ISPSLIB DATASET ID('ITA.TEST.ADCXWXM.REXX')"
"ISPEXEC LIBDEF ISPFILE DATASET ID('ITA.TEST.TEMPNEW')"

"ALLOC DA('ITA.TEST.ADCXWXM.TEMPABC') F(INPUT) SHR REUSE"
"EXECIO * DISKR INPUT (STEM LINES. FINIS)"
"ISPEXEC FTINCL REXXG"
DO I = 1 TO LINES.0
SAY LINES.I
PARSE VAR LINES.I VAR1 VAR2 VAR3
IF VAR2 = OLDDSN1 THEN
DO
ACCTNO = STRIP(VAR3)
ITERATE
END
OLDDSN1 = VAR2
NEWDSN1 = VAR2
ACCTNO = STRIP(VAR3)
IF VAR1 = 'MTGKPTD' THEN
DO
OLDDSN = 'ITA.TEST.MTGKPTD.'
NEWDSN = 'ITA.TEST.MTGKPTD.OUTPUT'
END
ELSE
DO
OLDDSN = 'ITA.TEST.MTGKLOT.'
NEWDSN = 'ITA.TEST.MTGKLOT.OUTPUT'
END
K = I

"ISPEXEC FTOPEN "
"ISPEXEC FTINCL REXXI"
"ISPEXEC FTINCL SYNCSORT"
END
"ISPEXEC FTCLOSE"
"ISPEXEC EDIT DATASET("'ITA.TEST.TEMPNEW'")"
/* ADDRESS TSO
SUB "'ITA.TEST.TEMPNEW'" */
"FREE F(INPUT)"

EXIT

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

My requirement is that if VAR2 is repeated in the input file,it should not write a new step,instead in the same step it should add the account number(VAR3) in the sort card using 'AND or 'OR'

Thanks

daveporcelan · Posted: Mon Feb 07, 2011 6:14 pm

Depending on how complex your include cond will be, you are probably better off changing:

SYSIN DD *

to:

SYSIN DD DSN=&temp.dataset.with.incude

Allocate the above dataset in your REXX program and write your include to this dataset, with as many and/or statements you need.

vasanthz · Posted: Mon Feb 07, 2011 6:27 pm

Hi,
You could remove

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Can you please elaborate it,as it would lend me in the same problem as I am facing it now.

Thanks

vasanthz · Posted: Mon Feb 07, 2011 6:37 pm

What is the scenario in which you will have multiple ACCTNOs with dynamic AND OR combination.

Please show us some input scenarios and the expected include conditions which would give a clear understanding of your requirement.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Lets say my input file is -

EDIT ITA.TEST.ADCXWXM.TEMPABC
Command ===>
****** *****************************
000001 MTGKPTD G01V001 AAAF0000011
000002 MTGKPTD G01V001 AACF0000011
000003 MTGKPTD G02V001 AACF0000011
****** ****************************

So based on the same GDG i.e. VAR2 ,I need to have a single sort step including both the account no's - AAAF0000011 & AACF0000011.For the Step 2 ,I will have ony one account for the GDG ver G02V001 i.e. AACF0000011 in the INCLUDE COND in SORT.

Thanks

daveporcelan · Posted: Mon Feb 07, 2011 6:41 pm

Start by manually writing how your sort cards would look under selected scenarios.

Show an example here (using code tag) of one simple condition, and one more complex one.

You can then use these as you target goal, and change your REXX code to generate this as output into your sysin dataset.

Hint: the ITERATE statement would need to be change to new logic creating another OR condition.

I will not be writing this code for you, but from what you have already written, you should be able to do this.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

For the above input file specifies,my sort card would look like as -

STEP1 :
SORT FIELDS=COPY
INCLUDE COND=(5,11,CH,EQ,C'AAAF0000011' ,OR,
5,11,CH,EQ,C'AACF0000011')

STEP2 :
SORT FIELDS=COPY
INCLUDE COND=(5,11,CH,EQ,C'AACF0000011')

Thanks!

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Hi expat ,

Can you please let me know some example in the forum or some link,as I am new to this forum also in REXX.

Appreciate your help !

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Sorry for the reply to Expat as I was looking into other topic.

Ronald Burr · Posted: Mon Feb 07, 2011 7:21 pm

Let's say that you will allow up to FOUR account numbers.
In your REXX, name them ACCT1, ACCT2, ACCT3, and ACCT4. Initialize them all to spaces, then populate them IN ORDER depending on how many account numbers are requested.
Then, in your SKELETON code:

enrico-sorichetti · Posted: Mon Feb 07, 2011 9:01 pm

the most elegant way would be to do it using a table if more than one account

the skel would look something along the lines of ...

daveporcelan · Posted: Mon Feb 07, 2011 9:11 pm

Enrico,

I really like this solution. This is new to me.

Please tell me:
Is variable OTHERACCTS a stem variable in the REXX program?

Does the )DOT )ENDDOT structure automatically repeat based on the number of non-null occurances in the stem or is the stem.0 value needed?

I will 'play' with this some when I have the chance.

Thanks.

enrico-sorichetti · Posted: Mon Feb 07, 2011 9:27 pm

)DOT / )ENDDOT determine the beginning and the end of the <lines>
to ve customized according to the content of the ISPF table specified
in the )DOT statement

DOT kind of a mnemonics for DO Table ( I guess )

I used the approach quite a few time and i must say that it is very effective

I just tought about a smarter trick

build a tables made of three fields
HEAD,body,TAIL

daveporcelan · Posted: Mon Feb 07, 2011 9:35 pm

I think I see now.

OTHERACCTS is an ISPF table (name length limit is eight?).

So for each occurence a TBADD is required.

Please correct me if I am wrong.

Thanks...

enrico-sorichetti · Posted: Mon Feb 07, 2011 9:50 pm

yes, for each <account> a table row is needed
the snippets are just snippets, to clear a bit the concept,
more work has to be done to have running code!

the issue might be murky at the beginning, but after a while,
everybody should have his/her own snippet library for the most common tasks

for example for ISPF DIALOGS and EDIT MACROS I have to skels with all
the prolog/epilog and error handling in place
writing the body, since the infrastructure is there, takes usually a very short time

for my coding style see ...
ibmmainframes.com/viewtopic.php?t=25947&highlight=

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Can anyone explain me how to insert and use the table in this case ?

Thanks!