IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

output DDname JESMSGLG job during execution...


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Tue Jun 21, 2016 11:13 am
Reply with quote

hi all, I need your help to solve a problem

if I have 50 jobs in that way could EXECUTE, how to catalog your JESMSGLG of each ?? each in a different sequential ...

normally I have to do in the SYSVIEW

? in the CMD to enter in the job and then JCOD (or xdc ) in the DDname JESMSGLG

all that for everyone, so you could do that for all 50 ?? with a REXX or batch JCL ??

I used each in a sequenatial to send it by ftp.

thanks in advance.
Back to top
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Tue Jun 21, 2016 11:25 am
Reply with quote

try to check out for these links.

link1
link2
link3
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Tue Jun 21, 2016 6:03 pm
Reply with quote

Search the forums for ISFEXEC to find examples of the Rexx/SDSF interface. It can do what you are asking for.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley

PostPosted: Wed Jun 22, 2016 12:33 am
Reply with quote

Quote:
I used each in a sequential to send it by ftp.


You may be able to do what you want just by using FTP. FTP allows various sub-commands. When 'site filetype=jes':
- DIR - lists the jobs
- PUT - submits a job
- GET - gets job output.

It is something like this:

Code:
FTP mymvs1.bogus.com
PEDRO
mypasswd
quote site filetype=jes
get job12345.1  job12345.JESMSGLG.txt
get job12345  job12345.txt
quit


When I play with this, it is limited to job names that begin with my userid. It is not clear how to get jobs where NOTIFY= is my userid but the job name is different.

fyi: I suggested this capability to IBM in the early 1990's and was pleased that they implemented my idea.
icon_biggrin.gif

You can read more about in the chapter 'Interfacing with JES' in z/OS Communications Server, IP User's Guide and Commands, SC27-3662-01
Back to top
View user's profile Send private message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Wed Jun 22, 2016 6:03 am
Reply with quote

Hi , I found this example


Code:
//*//STEP01   EXEC PGM=SDSF
//STEP01   EXEC PGM=ISFAFD
//ISFOUT   DD DSN=Z99.Z99OTSZ1.ISFOUT,
//         UNIT=(SYSDA,25),SPACE=(CYL,(5,5),RLSE),
//         DCB=(RECFM=FB,LRECL=132,BLKSIZE=0),
//         DISP=(NEW,CATLG,CATLG)
//ISFIN    DD *
DA
OWNER *
PRE myjobname
/*
//FINEOTS  EXEC PGM=IEFBR14


but I have an error:

CSV003I REQUESTED MODULE ISFAFD NOT FOUND

with PGM=SDSF is the same error...


but in this way it operates with a job at a time (PRE myjobname) how could I add a job list? in many sequentials...

It can be done in a rexx ? or can not be?

some example or idea?

thank you very much


*Pedro thanks, but I am not able to apply this technique, did not understand much.
Back to top
View user's profile Send private message
David Robinson

Active User


Joined: 21 Dec 2011
Posts: 199
Location: UK

PostPosted: Wed Jun 22, 2016 7:18 pm
Reply with quote

Well, the obvious question then is do you use SDSF as your spool viewer? I can't see why else the modules would not be found.

Perhaps you have IOF? That can also be run in batch via TSO (IKJEFT01).

More information required, I think.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley

PostPosted: Wed Jun 22, 2016 11:15 pm
Reply with quote

Quote:
It can be done in a rexx ? or can not be?

some example or idea?


click here to search for ISFCALLS
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Wed Jun 22, 2016 11:49 pm
Reply with quote

Quote:
with PGM=SDSF is the same error...
Not surprising since the program executed by the SDSF PROC is ISFHCTL and the load library does NOT have an alias of SDSF.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 733
Location: Denmark

PostPosted: Thu Jun 23, 2016 12:23 am
Reply with quote

I would definitely use the REXX/SDSF API to get the job data. See the SDSF manual for details and samples.
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Thu Jun 23, 2016 3:44 am
Reply with quote

Willy Jensen wrote:
I would definitely use the REXX/SDSF API to get the job data. See the SDSF manual for details and samples.
The topic starter claims they are using SYSVIEW (presumably CA-SYSVIEW). They do not appear to have SDSF installed in their environment, so it will be difficult to use the Rexx <-> SDSF APIs.

I do not know if there are Rexx <-> SYSVIEW APIs. The only way to find out is to examine CA-SYSVIEW's documentation.
Back to top
View user's profile Send private message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Thu Jun 23, 2016 9:12 am
Reply with quote

hi, i use with CA SYSVIEW 14.1

how to solve error CSV003I REQUESTED MODULE SDSF NOT FOUND

this is my job

Code:

//Z99OTSZ1  JOB  CLASS=0,MSGCLASS=8,NOTIFY=&SYSUID
//*********************************************************************
//DELE01   EXEC PGM=RASDELET
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
  DELETE DSNAME=Z99.Z99OTSZ1.ISFOUT
//*********************************************************************
//STEP01   EXEC PGM=SDSF
//ISFOUT   DD DSN=Z99.Z99OTSZ1.ISFOUT,
//         UNIT=(SYSDA,25),SPACE=(CYL,(5,5),RLSE),
//         DCB=(RECFM=FB,LRECL=132,BLKSIZE=0),
//         DISP=(NEW,CATLG,CATLG)
//ISFIN    DD *
DA
OWNER *
PRE *
/*
//FINEOTS  EXEC PGM=IEFBR14


in command line (SDSF Compatability Menu) i type: TSO ISRDDN ... one of the result:

Code:

SYSPROC 
TSS.TSO.CLIST
RAS.V2.CLIB
ISP.SISPCLIB
SAS.V606.CLIST
SYS1.SBPXEXEC


how to fix the job with use pgm SDSF?

in lib TSS.TSO.CLIST found member SDSF

TSS.TSO.CLIST(SDSF)

Code:

        /* REXX                            */
        /*                                 */
        /*     SDSF       VERS.            */
        /*     OS/390                      */
        IF SYSVAR(SYSISP) ^= 'ACTIVE' THEN DO
          SAY 'THIS PROGRAM RUN ON ISPF'
          EXIT
          END
      "ISPEXEC LIBDEF ISPPLIB DATASET ID('ISF.SISFPLIB')"
      "ISPEXEC LIBDEF ISPMLIB DATASET ID('ISF.SISFMLIB')"
      "ISPEXEC LIBDEF ISPSLIB DATASET ID('ISF.SISFSLIB')"
      "ISPEXEC LIBDEF ISPTLIB DATASET ID('ISF.SISFTLIB')"
      "ALTLIB ACT APPLICATION(EXEC) DATASET('ISF.SISFEXEC')"
"ISPEXEC SELECT PGM(ISFISP) PARM(&NEXTOPT) NOCHECK NEWAPPL(ISF) PASSLIB"
        "ISPEXEC LIBDEF ISPPLIB"
       "ISPEXEC LIBDEF ISPMLIB"
      "ISPEXEC LIBDEF ISPSLIB"
      "ISPEXEC LIBDEF ISPTLIB"



how to run a job to get output JESMSGLG when the jobs could EXECUTE...

any ideas, please?

thank you very much
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Thu Jun 23, 2016 3:16 pm
Reply with quote

Quote:
how to solve error CSV003I REQUESTED MODULE SDSF NOT FOUND

Either provide a steplib to a library that contains the module or execute another module.

But I would, first, check to see if that module even exists at your site. The Rexx exec that you found may have been left behind after replacement of SDSF by SYSVIEW.

And, as other people have mentioned, you should read the SYSVIEW manuals to see if there is a Rexx API available.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley

PostPosted: Thu Jun 23, 2016 9:42 pm
Reply with quote

Quote:
i type: TSO ISRDDN ...


You found a rexx exec, but what you really want is a load module. The name of rexx exec will not work in your jcl for PGM=.

But you are showing us inconsistent information... your SDSF exec uses PGM(ISFISP) without using an ISPLLIB libdef, so it appears it is in the linklist. Does the rexx exec actually work?

If the ISFISP program is in the linklist, the job should find the module... does the job execute on the same system that you are logged on to? If it runs on a different system, it could be configured differently.
Back to top
View user's profile Send private message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Fri Jun 24, 2016 10:09 am
Reply with quote

hello,

Quote:

Pedro
Does the rexx exec actually work?


No, not work....

I found this rexx,

Code:

/* rexx RXSMOTS1 */
/*===================================================================*/
  RC         = ISFCALLS("ON")            /* Access  = ON        */
  ISFCONS    = "SDSF"RANDOM()            /* CONSOLE = SDSF###   */
  ADDRESS SDSF "ISFEXEC  '/D A,L' (wait" /* Execute MVS command */
  RC         = ISFCALLS("OFF")           /* Access  = OFF       */

  DO J = 1 TO ISFULOG.0                  /* Loop through ULOG   */
     SAY STRIP(ISFULOG.J)                /* Display Output      */
  END


this is a jcl to run a rexx:

Code:
//Z99XSOA1  JOB  CLASS=0,MSGCLASS=8,NOTIFY=&SYSUID
//*********************************************************************
//*********************************************************************
//EXECREXX EXEC PGM=IKJEFT01,PARM='RXSMOTS1',REGION=0M
//*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//SYSOUT   DD SYSOUT=*
//SYSEXEC  DD DSN=MYUSER.SCRIPT,DISP=SHR
//*********************************************************************
//*



but when run (command EX) I get the below Error:

Code:
     3 +++ RC         = ISFCALLS("ON")            /* Access  = ON        */
Error running RXSMOTS1, line 3: Routine not found


I mean that ISFCALLS not found....

what library add in my jcl to exec a rexx?? STEPLIB? SYSPROC?

I was reading that I can use ADDRESS SDSF "ISFEXEC DA" how to resolve please?

I also found this rexx for my purpose

Code:
/* rexx */
/*  PURPOSE:  Obtain and display JESMSGLG the started task CICSTEST  */
/*===================================================================*/

ADDRESS TSO
  "ALLOC F(FILEOUT) UNIT(VIO) NEW REUSE",     /* Output file         */
         "CYLINDERS SPACE(5 5) RECFM(F B A)"

  "ALLOC FI(ISFOUT) DUMMY"                    /* Delete screen prts  */

  "ALLOC F(ISFIN) UNIT(VIO) NEW REUSE",       /* Input parameters    */
         "RECFM(F B) BLK(3120) LRECL(80)",
         "SPACE(5 5) CYLINDERS DSORG(PS)"

  QUEUE " DA ALL"                             /* Display active jobs */
  QUEUE " OWNER"                              /* OWNER   = *         */
  QUEUE " SYSNAME *"                          /* SYSNAME = *         */
  QUEUE " PRE CICSTEST  "                       /* PREFIX  = CICSTEST    */
  QUEUE " FIND CICSTEST  "                      /* Cursor to CICSTEST    */
  QUEUE " ++?"                                /* Type ? next to job  */
  QUEUE " FIND JESMSGLG"                      /* Cursor to JESMSGLG  */
  QUEUE " ++S"                                /* Select JESMSGLG     */
 QUEUE " PRINT FILE FILEOUT"                 /* Open FILEOUT        */
  QUEUE " PRINT"                              /* Print to FILEOUT    */
  QUEUE " PRINT CLOSE"                        /* Close FILEOUT       */
  QUEUE ""                                    /* End input records   */
  "EXECIO * DISKW ISFIN (FINIS"               /* Write input records */

ADDRESS ISPEXEC
  "SELECT PGM(SDSF)"                          /* Execute SDSF        */

ADDRESS TSO
  "EXECIO * DISKR FILEOUT (STEM REC. FINIS"   /* Read FILEOUT        */
  "FREE FI(ISFIN ISFOUT FILEOUT)"             /* Free all files      */

  DO J = 1 TO REC.0                           /* Loop thru records   */
     SAY STRIP(REC.J)                         /* Display records     */
  END



but I get the below Error


Code:
******************************************************************************
* ISPD212                                                                    *
*                                                                            *
* Invalid PGM name                                                           *
* Link to 'SDSF' failed, abend code = x'00000806'.                           *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Current dialog statement:                                                  *
* SELECT PGM(SDSF)                                                           *
*                                                                            *


any suggestions please?

thanks in advance.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Fri Jun 24, 2016 5:59 pm
Reply with quote

You have made a startlingly large number of errors so far. Based on the types of errors, I recommend you move to the Beginner's and Students Forum for further questions since this forum is for professionals, and you have demonstrated quite convincingly you are a beginner (no matter how many years experience you claim to have).

Error 1: you assumed that the JCL you found is still usable on your site. It is not.
Error 2: you assumed that the REXX message you got is fixable. Without installing SDSF back on your site, it is not a fixable error.
Error 3: you assumed that an SDSF REXX program can be run in a CA-SYSVIEW environment. It cannot; I do not know if CA-SYSVIEW has a REXX API or not and only someone with access to the CA-SYSVIEW manuals could say.
Error 4: you assumed (are you starting to see a theme here?) that your JCL to "run a REXX" is adequate; it is not -- if your REXX requires the ISPF environment you are missing DD statements and you are missing data sets.
Error 5: you assume that you can execute SDSF code on a system without SDSF; this is not true.
Error 6: you assumed that the problems you are having can be fixed. With the approach you have taken so far, and the lack of understanding you have shown, there is no way at all that your REXX program will execute -- EVER.

I could go on but the basic issue is that you want to invoke REXX against resources that simply do not exist on your site and hence you have two choices: stop attempting to write REXX to use SDSF, or investigate whether or not CA-SYSVIEW has the facilities (equivalent but not the same) to support REXX access. If your site is licensed for CA-SYSVIEW, you have access to the manuals -- they may be hard-copy somewhere, they may be soft-copy on an internal company web site, or you may have to go the CA web site and find them there (which may require you to register your site ID to access the documentation). But in any case you need to abandon your futile effort to get the REXX code you have posted to work as there is no way for you to get it to work on your site.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley

PostPosted: Fri Jun 24, 2016 10:04 pm
Reply with quote

I agree with Robert that you are unlikely to get SDSF to work on a system where it is not installed. Perhaps request from your system programmers that it be installed.

Finally, I repeat my suggestion to use FTP to get the job output.
Back to top
View user's profile Send private message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Sat Jun 25, 2016 9:15 am
Reply with quote

hi, thanks for answer, are right , I am a beginner at this , thank you very much for help.

maybe I will help the command in the rexx

ADDRESS 'LINK' 'GSVXRXAA' /* INIT SYSVIEW ADDRESS ENV */
ADDRESS 'SYSVIEWE' 'C(COMMAND)' /* ISSUE COMMAND */

anyway, I go if necessary to beginners forum.

Thanks again for everything . regards
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts REXX/CMS How to place command console... CLIST & REXX 4
No new posts Reroute print output via REXX/SDSF TSO/ISPF 6
No new posts Concatenate 2 input datasets and give... JCL & VSAM 2
No new posts How to turn off 'ACTION' SDSF output ... TSO/ISPF 2
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
Search our Forums:

Back to Top