Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all 8500 articles
Browse latest View live

CLIST & REXX :: RE: Spool Extract for Z /os 1.04 version

$
0
0
Author: enrico-sorichetti
Subject: Reply to: Spool Extract for Z /os 1.04 version
Posted: Thu Sep 28, 2017 3:28 pm (GMT 5.5)

Quote:
Please help me with alternative for current Z OS


define current please
current as the z/OS You are using now ( 1.04 )
or current as per IBM maintenance policy

the REXX/SDSF jes interface was/is available starting from zOS 1.10 only ( IIRC )
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif


CA Products :: Where is output from PARM ABEXIT (SNAP) option?

$
0
0
Author: packerm
Subject: Where is output from PARM ABEXIT (SNAP) option?
Posted: Thu Sep 28, 2017 4:06 pm (GMT 5.5)

Trying to run some debugging on an Easytrieve program. The manual says that using the above parm will...

- SNAP prints a formatted dump of CA-Easytrieve Plus
storage areas along with an error analysis report.

That's fine but where does the formatted report come out, i.e. what DDNAME? Is it supposed to be on the SYSPRINT withthe other debug info? is it site defined maybe?

Is there a way of forcing a SYSUDUMP as well as I'm also missing that.
_________________
Mick

CA Products :: RE: Where is output from PARM ABEXIT (SNAP) option?

$
0
0
Author: enrico-sorichetti
Subject: Reply to: Where is output from PARM ABEXIT (SNAP) option?
Posted: Thu Sep 28, 2017 5:01 pm (GMT 5.5)

look at the manuals Yourself to find out the required ddnames
( or ask Your colleagues - Your support )
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif

CA Products :: RE: Where is output from PARM ABEXIT (SNAP) option?

$
0
0
Author: packerm
Posted: Thu Sep 28, 2017 5:45 pm (GMT 5.5)

In manual for ABEXIT it says:

Quote:
ABEXIT
[ABEXIT {SNAP|NOSNAP|NO}] (return to top)
ABEXIT indicates the level of control exercised over program interrupt codes 1 to 11. SNAP prints a formatted dump of CA Easytrieve® storage areas along with an error analysis report. NOSNAP prints only an error analysis report. NO inhibits CA Easytrieve® interception of program interrupts.
It is advisable that the ABEXIT value in the site options table be set to NO, and to use the PARM ABEXIT(SNAP or NOSNAP) during development as a debugging aid. Before moving the CA Easytrieve® program into production, remove the PARM ABEXIT override. This will reduce overhead for production applications.


So yes says it produces a dump but where to as it ain't coming out in the same place as all the other debug type info.

I've also tried running with SNAP and NOSNAP and the SYSPRINT is the same size so clearly no output there.
_________________
Mick

CA Products :: RE: Where is output from PARM ABEXIT (SNAP) option?

$
0
0
Author: Garry Carroll
Posted: Thu Sep 28, 2017 6:18 pm (GMT 5.5)

Following the sound and practical advice given, a quick search in the documentation would suggest that the output would be directed to the //SYSSNAP DD dataset.

Garry.
_________________
Everyone's entitled to ONE fatal mistake.....

Compuware & Other Tools :: RE: Mainframe scheduling tool

$
0
0
Author: David Robinson
Posted: Thu Sep 28, 2017 8:13 pm (GMT 5.5)

TWS is easy to learn with it's menu driven structure as opposed to CA7's command line interface. It's also got built in job restart capabilities, whereas I believe with CA7 this is an optional separate product. I like it, but then I'm more familiar with it than any of the others.

I believe Control-M is generally well regarded.

DFSORT/ICETOOL :: JOINKEYS Paired and Unpaired Sort

$
0
0
Author: MFwhiz
Subject: JOINKEYS Paired and Unpaired Sort
Posted: Fri Sep 29, 2017 1:48 am (GMT 5.5)

Hello,

I'm doing a sort just like the one described in the IBM DFSORT JOINKEYS example #5:

LINK

I have two input files (both have the same file format). The sort creates three output files; with paired file1/file2 records, unpaired file1 records and unpaired file2 records.

The sort runs and populates all 3 output files. However, the numbers don't add up. I would expect (Input1 + Input2 = Output1 + Output2 + Output3). I would think each input record would only go to one output file. However, the total of the 3 output files is slightly higher than the total of the 2 input files. Am I missing something with my understanding of how this works? Why would this be happening? My JCL and results from sorting are below. Thanks in advance for the help.


//JKE5 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=TCK401.INPUT1,DISP=SHR
//SORTJNF2 DD DSN=TCK401.INPUT2,DISP=SHR
//YESONLY DD DSN=TCK401.MAS.YESONLY,
// UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//TODONLY DD DSN=TCK401.MAS.TODONLY,
// UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//BOTH DD DSN=TCK401.MAS.BOTH,
// UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//SYSIN DD *
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION
JOINKEYS FILE=F1,FIELDS=(1,80,A),SORTED,NOSEQCK
JOINKEYS FILE=F2,FIELDS=(1,80,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,F2
REFORMAT FIELDS=(F1:1,4235,F2:1,4235,?)
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)
OPTION COPY
OUTFIL FNAMES=YESONLY,INCLUDE=(8471,1,CH,EQ,C'1'),
BUILD=(1,4235)
OUTFIL FNAMES=TODONLY,INCLUDE=(8471,1,CH,EQ,C'2'),
BUILD=(4236,4235)
OUTFIL FNAMES=BOTH,INCLUDE=(8471,1,CH,EQ,C'B'),
BUILD=(1,4235,/,4236,4235)
/*

File Quantity Analysis:

TCK401.INPUT1 - 33965
TCK401.INPUT2 - 34508
Total: 68473

TCK401.MAS.BOTH - 67842
TCK401.MAS.YESONLY - 62
TCK401.MAS.TODONLY - 605
Total: 68509

Difference of 36??

DFSORT/ICETOOL :: RE: JOINKEYS Paired and Unpaired Sort

$
0
0
Author: RahulG31
Subject: Reply to: JOINKEYS Paired and Unpaired Sort
Posted: Fri Sep 29, 2017 2:09 am (GMT 5.5)

Most probably, your counts of records are wrong somewhere.

DFSORT/ICETOOL :: RE: JOINKEYS Paired and Unpaired Sort

$
0
0
Author: enrico-sorichetti
Subject: Reply to: JOINKEYS Paired and Unpaired Sort
Posted: Fri Sep 29, 2017 2:17 am (GMT 5.5)

could it be that You have some duplicate records ?
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif

CLIST & REXX :: RE: Spool Extract for Z /os 1.04 version

$
0
0
Author: Khadhar Basha
Posted: Fri Sep 29, 2017 12:15 pm (GMT 5.5)

Thank you Enrico for the below information.

Quote:
REXX/SDSF jes interface was/is available starting from zOS 1.10 only ( IIRC )


This clears I cannot get spool data of executing jobs thru REXX for zOs 1.04.
If any others ways do let me know.

Thanks
Khadhar Basha
_________________
Khadhar Basha

CLIST & REXX :: RE: Spool Extract for Z /os 1.04 version

$
0
0
Author: Willy Jensen
Posted: Fri Sep 29, 2017 12:49 pm (GMT 5.5)

Check the SDSF manual chapter 'Using SDSF in batch'. The ISFAD program predates the API, so should be available even on a 1.04 system. It would of course be best to find a SDSF manual for that system level.
_________________
WJ

CLIST & REXX :: Rexx to execute spool commands

$
0
0
Author: upendrasri
Subject: Rexx to execute spool commands
Posted: Fri Sep 29, 2017 1:08 pm (GMT 5.5)

I have the below query,

I have run the below job to execute spool commands through batch and coded a Rexx routine to execute the below commands.

Code:
//USER01TS JOB (),'EXAMPLE',NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),
// MSGCLASS=X
//SDSF EXEC PGM=SDSF
//ISFOUT DD SYSOUT=*
//CMDOUT DD DSN=USER01.COMMAND.OUTPUT,
// DISP=(,CATLG,DELETE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0),
// SPACE=(CYL,(1,1)),UNIT=SYSDA
//ISFIN DD *
SET CONSOLE BATCH
SET DELAY 600
/D A,L
/$ D SPOOL
PRINT FILE CMDOUT
ULOG
PRINT
PRINT CLOSE
/*
//


In Both cases (Batch JCL and Rexx) Am getting command outputs to CMDOUT Dataset but am able to see same output in SPOOL as well.

My requirement is I want command outputs to CMDOUT dataset and I dont want them in SPOOL , Because I have requirement to execute Multiple spool commands(More than 1000)
Is there any way to avoid output of spool commands in Spool and re-direct them to dataset?

Thanks!
Upendra

Coded
Please do it yourself next time
_________________
Upen

CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: Nic Clouston
Posted: Fri Sep 29, 2017 2:09 pm (GMT 5.5)

What have you tried? There seems to be one JCL statement that could be altered to attempt what you want.
_________________
Regards
Nic

CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: upendrasri
Posted: Fri Sep 29, 2017 5:17 pm (GMT 5.5)

Hi Nic,

Thank you for your response. I have coded the below Rexx

"ALLOC DD(ISFOUT) DA('TEST1.SPOOL.OUT1') SHR REUSE"
"ALLOC DD(CMDOUT) DA('TEST2.JES.OUTPUT') MOD REUSE"
"ALLOC DD (ISFIN) NEW REU"
QUEUE " SET CONSOLE BATCH "
QUEUE " SET DELAY 600 "
QUEUE " /£DJQ '"J"',SPL "
QUEUE " PRINT FILE CMDOUT "
QUEUE " ULOG "
QUEUE " PRINT "
QUEUE " PRINT CLOSE "
"EXECIO "QUEUED()" DISKW ISFIN (FINIS"
"CALL *(SDSF)"
END

TEST1.SPOOL.OUT1 - This file contains Job names ( Which are in spool )

After reading this file am submitting the above Jes command to know the spool percentage occupied by those Jobs.

Am getting expected output in CMDOUT dataset but am able to see all those commands which executed during this process in Spool. Commands are more than 1000.

So I need to execute those commands and I want their ourput in my dataset but I dont want to see them in Spool.

Thanks!
Upen.
_________________
Upen

CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: enrico-sorichetti
Subject: Reply to: Rexx to execute spool commands
Posted: Fri Sep 29, 2017 5:40 pm (GMT 5.5)

Quote:
So I need to execute those commands and I want their ourput in my dataset but I dont want to see them in Spool.


if You do not want to see them, do not look at them icon_cool.gif

why does it bother You, as long as You get the output also in Your dataset ?
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif


CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: upendrasri
Posted: Fri Sep 29, 2017 5:49 pm (GMT 5.5)

Hi Enrico,

Yeah.. you are true. But these commands occupying spool and we have people to Monitor spool .

Thanks!
_________________
Upen

DFSORT/ICETOOL :: RE: JOINKEYS Paired and Unpaired Sort

$
0
0
Author: MFwhiz
Posted: Fri Sep 29, 2017 6:27 pm (GMT 5.5)

Thanks enrico-sorichetti - you were right. When I presort each input file with SUM=NONE it drops a few records. Then everything balances. I believed the key was unique but it is not. I'll have to take steps to ensure a unique key since the duplicates are valid...

DFSORT/ICETOOL :: RE: JOINKEYS Paired and Unpaired Sort

$
0
0
Author: sergeyken
Posted: Fri Sep 29, 2017 7:05 pm (GMT 5.5)

FYI:
Without this coding like below, 90% of visitors will ignore all your questions
Code:
//JKE5     EXEC PGM=SORT
//SYSOUT   DD  SYSOUT=*
//SORTJNF1 DD  DSN=TCK401.INPUT1,DISP=SHR
//SORTJNF2 DD  DSN=TCK401.INPUT2,DISP=SHR
//YESONLY  DD  DSN=TCK401.MAS.YESONLY,
//             UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
//             DISP=(NEW,CATLG,CATLG),
//             DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//TODONLY  DD  DSN=TCK401.MAS.TODONLY,
//             UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
//             DISP=(NEW,CATLG,CATLG),
//             DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//BOTH     DD  DSN=TCK401.MAS.BOTH,
//             UNIT=(SYSDA,4),SPACE=(CYL,(100,60),RLSE),
//             DISP=(NEW,CATLG,CATLG),
//             DCB=(RECFM=FB,LRECL=4235,BLKSIZE=0)
//SYSIN   DD  *
 * CONTROL STATEMENTS FOR JOINKEYS APPLICATION
 JOINKEYS FILE=F1,
          FIELDS=(1,80,A),
          SORTED,NOSEQCK
 JOINKEYS FILE=F2,
          FIELDS=(1,80,A),
          SORTED,NOSEQCK
 JOIN UNPAIRED,F1,F2
 REFORMAT FIELDS=(F1:1,4235,
                  F2:1,4235,
                  ?)
 * CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)
 OPTION COPY
 OUTFIL FNAMES=YESONLY,
        INCLUDE=(8471,1,CH,EQ,C'1'),
        BUILD=(1,4235)
 OUTFIL FNAMES=TODONLY,
        INCLUDE=(8471,1,CH,EQ,C'2'),
        BUILD=(4236,4235)
 OUTFIL FNAMES=BOTH,
        INCLUDE=(8471,1,CH,EQ,C'B'),
        BUILD=(1,4235,
             /,4236,4235)
/*

_________________
Tyrannosaurus-REXX

CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: Nic Clouston
Posted: Fri Sep 29, 2017 7:08 pm (GMT 5.5)

You still have not addressed the hint that I gave you about a possible change in your JCL - one of the DDNAMEs is allocated to spool. What happens when it is dummied or pointed elsewhare?
_________________
Regards
Nic

CLIST & REXX :: RE: Rexx to execute spool commands

$
0
0
Author: upendrasri
Posted: Fri Sep 29, 2017 7:44 pm (GMT 5.5)

Hi Nic,

I have tried both as below

1.
//SDSF EXEC PGM=SDSF
//ISFOUT DD DUMMY
//CMDOUT DD DSN=TEST.COMMAND.OUTPUT,DISP=SHR
//ISFIN DD *
SET CONSOLE BATCH
SET DELAY 600
/DJQ TEST0001,SPL
PRINT FILE CMDOUT
ULOG
PRINT
PRINT CLOSE
/*
//

2.
//SDSF EXEC PGM=SDSF
//ISFOUT DD DSN=TEST.COMMAND.OUTPUT,DISP=SHR
//CMDOUT DD DSN=TES1.COMMAND.OUTPUT,DISP=SHR
//ISFIN DD *
SET CONSOLE BATCH
SET DELAY 600
/D SMS
PRINT FILE CMDOUT
ULOG
PRINT
PRINT CLOSE
/*
//

In both cases am able to see the below output in spool

D SMS
IGD002I 15:11:00 DISPLAY SMS 461
SCDS = LSWN.N1SMS.SCDS
ACDS = LSWN.N1SMS.ACDS
COMMDS = LSWN.S1SMS.COMMDS
ACDS LEVEL = z/OS V2.2
DINTERVAL = 150
REVERIFY = NO
ACSDEFAULTS = NO
SYSTEM CONFIGURATION LEVEL INTERVAL SECONDS
PLEXS1 2017/09/29 15:10:53 15
IEA631I OPERATOR BATCH NOW INACTIVE, SYSTEM=BSOS , LU=BATCH

Thanks!
_________________
Upen

Viewing all 8500 articles
Browse latest View live