|
View previous topic :: View next topic
|
| Author |
Message |
italo_pm
New User
Joined: 26 Mar 2015
Posts: 37
Location: Italy
|
|
|
|
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 |
|
 |
boyti ko
New User
Joined: 03 Nov 2014
Posts: 78
Location: Malaysia
|
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada
|
|
|
|
| Search the forums for ISFEXEC to find examples of the Rexx/SDSF interface. It can do what you are asking for. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| 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.
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 |
|
|
italo_pm
New User
Joined: 26 Mar 2015
Posts: 37
Location: Italy
|
|
|
|
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 |
|
|
David Robinson
Active User
Joined: 21 Dec 2011
Posts: 199
Location: UK
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| 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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 712
Location: Denmark
|
|
|
|
| I would definitely use the REXX/SDSF API to get the job data. See the SDSF manual for details and samples. |
|
| Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
| 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 |
|
|
italo_pm
New User
Joined: 26 Mar 2015
Posts: 37
Location: Italy
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
| 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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| 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 |
|
|
italo_pm
New User
Joined: 26 Mar 2015
Posts: 37
Location: Italy
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
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 |
|
|
italo_pm
New User
Joined: 26 Mar 2015
Posts: 37
Location: Italy
|
|
|
|
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 |
|
|
|
|
