MVSFORUMS.com

[ksandy]

I am running a FOCUS report through REXX.

REXX is supposed to execute FOCUS report online rather than batch.

My code is

"Alloc DD(ER ) DS('dsname' ) SHR REU"
"Alloc DD(ER2 ) DS('dsname' ) SHR REU"
-
-
-

"Alloc DD(QQREPQQ) DS ('report dsname') SHR REU"

this is giving me FOCUS047 error , which says useid doesnt have
authority to access ER dataset and should use SET PASS command.

If I do this in batch , I am giving following REXX
statements to generate my batch JCL

Call Wj("//"QQREPQQ DD *")
Call Wj("SET PASS="USERID()")
Call Wj ("// DD DISP=SHR , DSN="ReprotDSN")

which in turn generating following JCL DD statements

//QQREPQQ DD *
SET PASS=myuserid
// DD DISP=SHR,DSN=reportDSN

Can anybody help me how to acheive above using Alloc statements or with any other way for getting my report displayed ONLINE .

Do CONCAT would help ? Please elaborate your suggestions/comments
fine

Thanks
Ksandy

[Mike]

It looks, not that I have used focus, that you need to have the record with SET PASS=myuserid included in the data that will read via DDNAME QQREPQQ

so perhaps something like this might work :-

[ksandy]

Hi Mike

Sorry for late reply..

1. thanks for your help ..here is what I found another way of doing the same
===========================
Instead of
//REPDD DD *
SET Pass=userid
// DD dsnname
//SYSIN DD *
EX REPDD
/*

have decided
//REPDD DD dsnname
//SYSIN DD *
SET Pass=userid
EX REPDD

so after my "Alloc DD(SYSIN) DS(*)" stmt , have included

Queue 'SET PASS='Userid()
Do Queued(); pull;End

It worked perfectly
==========================


2. I have another problem now ...

I have FOCUS reports stored in various members of PDS.
I want to
a. Read a requested report DYNAMICALLY ( xyz.aaa.bbb(test) )
b. Store it in some intermediate place like Queue or something else
c. Read the QUEUE one by one and include that report in
SYSIN DD * statement of enclosed JCL which will get submitted ultimately
d. Check if you get a statement named END
e. Just before that statement , I want to include another FOCUS command
ON TABLE SAVE AS 'userprovided name'

f. Write END statement as it is after that

g. As informed earlier , include modified report as SYSIN DD * or with any other DDNAME say
//REPORT1 DD *
modified report


Here is what I thought as of NOW
Address TSO "Alloc DD(ddname) DS(dsname) SHR REUSE"
Address TSO "EXECIO * DISK SYSIN (FINIS"
Do Queued(); pull ; End

This will put in a Queue . Now I wanted to read that Queue and search for END statement....

Let me know comments/suggestions

[Mike]

Personally, if I understand your question correctly, I'd do something like this (note I prefer reading/writing from stem variables rather than using the stack (not sure if there's really any real advantage/disadvantage with either method), so I am more comfortable providing examples that utilise them):-

[code:1:b264a9dd3c]
ADDRESS TSO
/* Allocate file to be read */
"ALLOC DD(SYSIN) DS(dsname) SHR REUSE"
/* Allocate file for job submission */
ADDRESS TSO "ALLOC F(INTRDR) RECFM(F) LRECL(80) SYSOUT(A) ",
"WRITER(INTRDR)"

/* Loop through the input writing each record to the internal reader */
/* If a record contains an END STATEMENT (END with space either side) Then add a record prior to the END statement */
Do Forever
"EXECIO 1 DISKR SYSIN (STEM in. "
If Rc
_________________
Regards,
Mike.

[ksandy]

Thanks a lot Mike ...that really helped me a lot.

Here is another stuff am looking at.

1.I have one memeber corresponding to each year in one of my PDS
PDS(mem99) (mem02) etc which contains DB files in the format
e.g HLQ..&DB..abc.xyz

2. I would like to read specific memeber and replace the symbolic parameter and include modified statements in my dynamically generated JCL

Any guess ?

I hope I should go in same line of reading PDS memeber into STEM variable. But what about replacing symbolic variables?


Thanks
Ksandy

[kolusu]

ksandy,


If your shop has file-aid then it is very easy to replace a string.Here is a rexx a solution which ofer posted just today in another thread.

http://www.mvsforums.com/helpboards/viewtopic.php?t=1388

Hope this helps....

cheers

kolusu