Retrieve covering profile from other system? LISTDSD?



IBM's Command List programming language & Restructured Extended Executor

Re: Retrieve covering profile from other system? LISTDSD?

Postby Pedro » Wed Dec 18, 2013 6:01 am

I suggest you send a rexx program to each system:
//GENER   EXEC PGM=IEBGENER                                 
//SYSPRINT  DD SYSOUT=9                                     
//SYSIN     DD DUMMY                                       
//SYSUT1    DD DDNAME=MYREXX                               
//SYSUT2    DD DISP=(NEW,PASS),DSN=&&TMP(MYREXX),           
//             UNIT=SYSVIO,SPACE=(TRK,(1,1,1)),             
//             DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
//MYREXX    DD *                                           
  /*rexx */                                                 
  say 'Hello World'                                           
  exit   0                                                 
/*                                                         
//STEP2    EXEC PGM=IKJEFT01,DYNAMNBR=45                   
//SYSPROC   DD DISP=(OLD,DELETE),DSN=&&TMP                 
//SYSTSPRT  DD SYSOUT=H                                     
//SYSTSIN   DD *                                           
 %MYREXX                                                   
/*                                                         

But instead of 'hello world', you should write rexx program to:
1. trap command response from LISTDSD command
2. build another job with the command response inline
3. with /*ROUTE XEQ so it runs on the originating system
4. perhaps IEBGENER to copy command response to sequential dataset with disp=MOD. maybe add a header line so you know which system the response is from.
5. submit job
Pedro Vera
User avatar
Pedro
 
Posts: 686
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times

Re: Retrieve covering profile from other system? LISTDSD?

Postby steve-myers » Wed Dec 18, 2013 6:59 am

Something like

//SYSTSPRT DD SYSOUT=...,DEST=node.user

is only valid if the node is a VM/370 system. In MVS, DEST=node.user is done under the covers by XMIT. Period. End of story.

//SYSTSPRT DD SYSOUT=dataset

is simply not valid. Period. You can send the output to a data set using the method I showed in my first post.

Pedro - I'm not a JES3 expert, but as far as I know there is nothing like SYSOUT=dataset in JES3. I grant that both JES2 and JES3 assign data set names to SYSIN and SYSOUT data sets, but you cannot specify or use them in any way.

Now I'm going to bow out of this thread; I doubt I have anything more I can contribute.
steve-myers
Global moderator
 
Posts: 2105
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 243 times

Re: Retrieve covering profile from other system? LISTDSD?

Postby NoSleep319 » Wed Dec 18, 2013 10:56 pm

that was something I was trying to get to work, which was very unsuccessful... what is currently in its place is the following:

//SYSTSPRT DD SYSOUT=*,OUTPUT=(*.OUTRPT)

Right now, it's sending the return to $AVRS, but I need to retrieve it to another dataset that doesn't exist yet (RJYW.AUDIT). The changes I've made within /SYSTSPRT have made a difference, because it's not sending it to $AVRS anymore, but it's not creating the dataset either...
NoSleep319
 
Posts: 21
Joined: Tue Aug 27, 2013 12:45 am
Has thanked: 0 time
Been thanked: 0 time

Re: Retrieve covering profile from other system? LISTDSD?

Postby dick scherrer » Wed Dec 18, 2013 11:15 pm

Hello,

If you want the data both in a dataset and in the spool, write the dataset and then copy that dataset to sysout . . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Retrieve covering profile from other system? LISTDSD?

Postby NoSleep319 » Wed Dec 18, 2013 11:34 pm

...
NoSleep319
 
Posts: 21
Joined: Tue Aug 27, 2013 12:45 am
Has thanked: 0 time
Been thanked: 0 time

Re: Retrieve covering profile from other system? LISTDSD?

Postby NoSleep319 » Thu Dec 19, 2013 12:09 am

Previous quick response was a glitch...

The IBM User's Guide says that the following should work to save the output to a new dataset:

//SYSTSPRT DD DSN=RJYW.AUDIT.OUTPUT,DISP=NEW,SPACE=(TRK,5,5),UNIT=SYSDA

no luck...
I found it on
http://pic.dhe.ibm.com/infocenter/zos/v ... %2Fjcl.htm
NoSleep319
 
Posts: 21
Joined: Tue Aug 27, 2013 12:45 am
Has thanked: 0 time
Been thanked: 0 time

Re: Retrieve covering profile from other system? LISTDSD?

Postby dick scherrer » Thu Dec 19, 2013 12:58 am

Hello,

What you have is on the right track. Suggest you write a "complete" DD statement.

When you say "no luck" you need to post whatever diagnostic info was presented.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Retrieve covering profile from other system? LISTDSD?

Postby NicC » Thu Dec 19, 2013 4:01 am

Default DISP is NEW,DELETE,DELETE so your dataset is getting deleted at end of step.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Retrieve covering profile from other system? LISTDSD?

Postby NoSleep319 » Wed Feb 12, 2014 9:52 pm

I actually ended up using DMBATCH. the entire code is a little specific to our system(s), but the short story is this:

It does an LU/LG/LD command
It stores it locally on that system in a personal dataset
DMBATCH pulls it back to one system, in a naming convention like sys1.audit.sysname where the sysname would be specific to the system it originated from
It then scans those datasets looking for the specific access I'm looking for
NoSleep319
 
Posts: 21
Joined: Tue Aug 27, 2013 12:45 am
Has thanked: 0 time
Been thanked: 0 time

Previous

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post