Find pds member searching a datset name

[LLuc]

I need to translate the srchfor in rexx language like this job :

//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,ANYC,IDPFX,NOPRTCC)
//NEWDD DD DSN=my.input.dataset,DISP=SHR
//OUTDD DD SYSOUT=A
//SYSIN DD *
SRCHFOR 'vbporodk.std.datak'
/*

And I have to get the name of the member found in a variable.

 

[LLuc]

Hi Nic,

After the tests due to rc (16) (RACF or Prefix), I probably have a prefix problem, how can we do to avoid this error code?
for you is it the translation of this error code?
It's the same with "address ispexec... ISRSUPC.
See this old trace attached.

Thank you for your investment for this problem.

 

[nclouston]

Once agsin that has done nothing to help. Unless you can cut and paste into your reply using the code tags then I cannot help.

Example

This folder contains all the files required for the passwo
maintenance and query of passwords. Passwords can be gener
and queried. The passwords are contained in a database acc
can be backed up and recovered using SQLite functions. Oth
Rexx.

The above was cut from a screen, pasted here, highlighted and the code tag button clicked. Simple.


Nic

 

[mikrom]

@LLuc,
when you paste your code, then paste it between the tags:
[pre]

[/pre] ... [pre]

[/pre]

 

[LLuc]

Hi Mikrom,

Sorry, but i do not understand how you can set these parameters because Rexx does not recognize them ?

 

[nclouston]

They are nothing to do with Rexx but how to present data in your posts in this forum.


Nic

 

[nclouston]

Are you tring to run SRCHFOR against VBPRDK.SRC.PRD? If so, you should be allocating that PDS/library to NEWDD not INPUT.

This is the JCL created when I do a search on my JCL library:

//NICCJOB  JOB (12345678),NICC,MSGCLASS=H,     
//        MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
//SEARCH  EXEC PGM=ISRSUPC,                    
//            PARM=(SRCHCMP,                   
//            'ANYC')                          
//NEWDD  DD DSN=NICC.JCL.CNTL,                 
//          DISP=SHR                           
//OUTDD  DD SYSOUT=(A)                         
//SYSIN  DD *                                  
SRCHFOR  'NICC'                                
/*

Nic

 

[LLuc]

Hi Nic,

I just saw my error actually an unforeseen changes changed the name of the ddname from NEWDD to input, this fixes the RC (16) But now I realize that I am often stuck in the system by other batch jobs
WWe would have to find another way to retrieve the member's name without having to be blocked .

Thank you have find the problem for RC(16)

 

[LLuc]

Hi Nic,
I have a result of a SQL query C1 in Outsql, the query looks for a file VSAM and finds the members of this PDS but when he there are alternating indexes, the query finds multiple members.
(Depending on the file to be searched one or more members finded).
Like that:
Abcdef1
Abcdef2
Abcdef3
Abcdef4
If the Sqlcode = 0
How can I write in rexx the result by saying that : (
MEMB1 = abcdef1
MEMB2 = Abcdef2
MEMB3 = Abcdef3
etc...

For the moment i have this rexx shortcut:
cpt=0
.
select ...
.
c1 : outsql
if sqlclode = 0 then do
say 'name member :'cpt' - ' outsql
end
cpt=cpt+1

in advance thank you.

 

[nclouston]

You need to start a new topic. This query does not refer to the problem that this topic is about. Also, do not address a topic to a specific person.


Nic