MVSFORUMS.com

[sam20097]

I am new to rexx..

I have a requirement..
There are two datasets(PS), one is the input(ds1) and the other is the output(ds2)
I have to open a ds1, read the first row and check the tag( tag can be add, del, update,display)
if add tag in ds1 then add all the recordss to ds2 till the tag ends(addend)

if the tag is del in ds1 then delete all the records from ds2 which are same as in ds1 and clode the file

i am getting confused...
can anybody help m eon this

Thanks in advance
Sam

[superk]

Seems like a relatively easy process. I might be able to assist if you can provide:

1. A sample of the input data with the tag(s).
2. A layout of your logic up to this point, either in REXX or in Pseudo-code.

[sam20097]

DS1 format
<sam1>
aaaaaaaaaa
cccccccccc
dddddddddd
</sam1>
or
<sam2>
aaaaaaaaaa
cccccccccc
dddddddddd
</sam2>

open DS1
read DS1
if sam1 then
open DS2 in write
write all the records between <sam1> to </sam1> to DS2
if sam2 then

delete all the records from DS2,by comparing the records from DS1 till the end of sam2.
(compare the record in DS1 with DS2, if present in DS2, then delete that)

[superk]

Whew! This one turned out to be a little more complex that I originally thought it would be. For my solution, I wanted to keep the code 100% REXX, so that's what I did. There are no external functions, programs, or TSO commands anywhere.

Here is the job:
[code:1:627a72eb24]
//*
//STEP0001 EXEC PGM=IEFBR14
//DS2 DD DSN=&SYSUID..DS2,DISP=(MOD,DELETE,DELETE),
// UNIT=(SYSDA),SPACE=(TRK,(1,1),RLSE),
// RECFM=FB,LRECL=80
//*
//STEP0002 EXEC PGM=IRXJCL,PARM='TEST67'
//SYSEXEC DD DISP=SHR,DSN=&SYSUID..REXX
//DS1 DD DATA
<sam1>
aaaaaaaaaa
bbbbbbbbbb
cccccccccc
dddddddddd
eeeeeeeeee
</sam1>
<sam2>
aaaaaaaaaa
cccccccccc
dddddddddd
</sam2>
/*
//DS2 DD DSN=&SYSUID..DS2,DISP=(,CATLG,DELETE),
// UNIT=(SYSDA),SPACE=(TRK,(1,1),RLSE),
// RECFM=FB,LRECL=80
//DS3 DD DSN=&&T1,DISP=(NEW,PASS),
// UNIT=(SYSDA),SPACE=(TRK,(1,1),RLSE),
// RECFM=FB,LRECL=80
//SYSTSPRT DD SYSOUT=*
//*

And here is the EXEC:

/* REXX */

sam1 = 0 /* Initialize Action Flag */
sam2 = 0 /* Initialize Action Flag */
id = 0 /* Initialize Action Flag */

Do Forever
"EXECIO 1 DISKR DS1" /* Read 1 Record from DS1 */
If rc <> 0 Then Leave /* Check for EOF */
Parse Pull rec /* Retrieve record to stack */
If Left(rec,6) = '<sam1>' Then
Do
sam1 = 1 /* Turn ON 'sam1' Action Flag */
sam2 = 0 /* Turn OFF 'sam2' Action Flag */
id = 1 /* Turn ON 'id' Action Flag */
End
Else If Left(rec,6) = '<sam2>' Then
Do
sam1 = 0 /* Turn OFF 'sam1' Action Flag */
sam2 = 1 /* Turn ON 'sam2' Action Flag */
id = 1 /* Turn ON 'id' Action Flag */
End
Else If Left(rec,7) = '</sam1>' Then
Do
"EXECIO 0 DISKW DS2 (FINIS"
sam1 = 0 /* Turn OFF 'sam1' Action Flag */
sam2 = 0 /* Turn OFF 'sam2' Action Flag */
id = 1 /* Turn ON 'id' Action Flag */
End
Else If Left(rec,7) = '</sam2>' Then
Do
"EXECIO 0 DISKW DS3 (FINIS"
sam1 = 0 /* Turn OFF 'sam1' Action Flag */
sam2 = 0 /* Turn OFF 'sam2' Action Flag */
id = 1 /* Turn ON 'id' Action Flag */
End
Else id = 0 /* Turn OFF 'id' Action Flag */
If (sam1 &

[Cogito-Ergo-Sum]

Sam,
This solution uses DFSORT/ICETOOL. With this job, you can implement all the operations of ADD, DELete, UPDate and DISplay. For the following tagged dataset,

[Cogito-Ergo-Sum]

What happens when a given pair is not present in IN01? I get a JCL ERROR as one Zx datasets do not exist. The solution would be to use cataloged datasets for Zx by using IEFBR14 steps before to catalog and after to delete.

For the following input in IN01,