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

DFSORT/ICETOOL :: RE: How to insert a value on specific position based on conditio

October 1, 2017, 2:25 am
$
0
0
Author: enrico-sorichetti
Posted: Sun Oct 01, 2017 2:55 pm (GMT 5.5)

the DFSORT manuals, or a simple search of the forums will certainly tell
the proper format of the comparison statement
if You had done the due diligence You should not have had the need to ask

and ... why in &heaven didn' t You follow the syntax of Magesh suggestion ?
_________________
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
↧
Search

DFSORT/ICETOOL :: RE: How to insert a value on specific position based on conditio

October 1, 2017, 2:42 am
$
0
0
Author: Poha Eater
Posted: Sun Oct 01, 2017 3:12 pm (GMT 5.5)

Hi Enrico,

The data in the file is starting from 9th byte instead of 1st byte. In each data there are leading spaces that is why i wrote the SORT card starting from 9th byte instead of 1st byte as Magesh suggested.

The input file was created after FTP a Notepad file. This is why i am confused about the data type which i need to mentioned in SORT card.

Code:

 IFTHEN=(WHEN=(9,3,CH,EQ,'IM1'),OVERLAY=(1:C'GGA',4:4,15)),   
                                          $                                   
ICE113A E COMPARISON FIELD ERROR                                               


'IM1' seems to be a character format and that is why i have given CH here but it is giving comparison field error. I am not sure what else i can give here to make it work.

Thanks !
_________________
Thanks !
↧
↧

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

October 1, 2017, 2:57 am
$
0
0
Author: Nic Clouston
Posted: Sun Oct 01, 2017 3:27 pm (GMT 5.5)

If, after DUMMYing all sysout DD statements or writing them to data set, you are still getting messages on the spool then look at the allocations for the step. There may be dynamic allocations and you could try overriding them. I have never tried that so I do not know if it will work.

The other thing to do is to run a second job that purges your first job - or simply manually delete it.
_________________
Regards
Nic
↧

DFSORT/ICETOOL :: RE: How to insert a value on specific position based on conditio

October 1, 2017, 3:11 am
$
0
0
Author: Poha Eater
Posted: Sun Oct 01, 2017 3:41 pm (GMT 5.5)

Hi Enrico,

I get your point when you said :
Quote:
and ... why in &heaven didn' t You follow the syntax of Magesh suggestion ?


I have realized now where i was missing and corrected the syntax as per Magesh.

I am getting the expected output.

Thanks a lot Magesh and Enrico. icon_biggrin.gif
_________________
Thanks !
↧

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

October 1, 2017, 7:33 am
$
0
0
Author: steve-myers
Posted: Sun Oct 01, 2017 8:03 pm (GMT 5.5)

JMR is a useful tool, but quite limited. I was at a shop that used it in the 1990s. Within its limitations the shop was reasonably happy with it. That shop also used an IBM output management product - its name escapes me now - that I concluded at the time was an awful piece of junk. It probably could have used a better product, but it was never researched and I'm not sure it was needed.

In the early 2000s, when I got more acquainted with more serious output management products, I took to thinking that JMR is a poor man's output management product.

In the early 2000s I got a job doing support for a more serious output management product. While doing this I had to think about the fundamentals. JES2 is absolutely superb at intercepting and storing output. For a fact it is far, far better than the product I supported. What it's not so good at is management of the output, which you have already discovered. SDSF and similar products like IOF help, but they are limited by thinking in JES2 terms, rather than a broader understanding of the requirements of output management. Of course, not stated, is there is no real broad consensus about this area. People tend to be limited by the peep hole of thinking about their needs and looking at products that appear to satisfy their needs.

Now a forum like this is not a good place to analyze the problems you have, or to recommend solutions. In fact our charter forbids recommending products. Given your concern about analyzing SPOOL utilization less than .01% it seems to me you are being nibbled to death by output held for TSO. Traditional output management products probably won't help you if that's the case. They are more concerned about production output.
↧
↧

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

October 1, 2017, 8:59 pm
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 9:29 am (GMT 5.5)

Hi Nic,

Thank you . Am not aware of how to override those dynamic allocations but I will check manuals on it.

We can delete the output of the Job but our concern is the commands which are processed by that Job are still be there in spool after deletion of the Job.

Thanks!
_________________
Upen
↧

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

October 1, 2017, 9:00 pm
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 9:30 am (GMT 5.5)

Hi Steve,

Thank you for sharing your experience. We are still analyzing how to avoid this problem in our environment.

Thanks!
_________________
Upen
↧

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

October 2, 2017, 1:08 am
$
0
0
Author: Willy Jensen
Posted: Mon Oct 02, 2017 1:38 pm (GMT 5.5)

Quote:
commands which are processed by that Job are still be there in spool after deletion of the Job

What do you mean exactly? All output from a job will remain as occupied spool space till the job is finally purged. So if you have leftovers, it would indicate that the JMR is not retrieving everything from a job.
_________________
WJ
↧
Search

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

October 2, 2017, 1:33 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 2:03 pm (GMT 5.5)

Hi Willy Jensen,

I mean am submitting the below Job

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
/*
//

Even If I delete this Job or Archived to JMR , The command(/DJQ TEST0001,SPL) which is executed by this Job and its output will be still there in Spool. And am executing Multiple commands like this.

JMR is retrieving every thing from the job.

Thanks!
_________________
Upen
↧
↧

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

October 2, 2017, 1:38 am
$
0
0
Author: Willy Jensen
Posted: Mon Oct 02, 2017 2:08 pm (GMT 5.5)

It depends, are you using good old SYSLOG or OPERLOG (system logger)?
SYSLOG is indeed spool space, but can be and most likely is offloaded and thus deleted.
_________________
WJ
↧

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

October 2, 2017, 2:00 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 2:30 pm (GMT 5.5)

Hi Willy Jensen,

We are using SYSLOG and yes it will be offloaded but not frequently. The problem here is if I issue more commands and monitoring people will raise a concern on it.

Thanks!
_________________
Upen
↧

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

October 2, 2017, 5:47 am
$
0
0
Author: Willy Jensen
Posted: Mon Oct 02, 2017 6:17 pm (GMT 5.5)

Well, then it seems that you are back to using the REXX API whith the precision it provides. Maybe add a random number 1-9 after the xxx.xx in your report to make it look better?
_________________
WJ
↧

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

October 2, 2017, 6:19 am
$
0
0
Author: Nic Clouston
Posted: Mon Oct 02, 2017 6:49 pm (GMT 5.5)

Quote:
The problem here is if I issue more commands and monitoring people will raise a concern on it.

Why not discuss what you are doing with the "monitoring people"?
_________________
Regards
Nic
↧
↧

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

October 2, 2017, 7:04 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 7:34 pm (GMT 5.5)

Hi Nic,

Yeah, If in case I don't get any proper solution to hide them from spool or any other alternative , my last option to explain & convince monitoring people.


Thanks!
_________________
Upen
↧

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

October 2, 2017, 8:17 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 8:47 pm (GMT 5.5)

Hi All,

I have another issue am trying to execute a Rexx program using Jcl but its failing with the message

IEC020I EROPT IS 'ABE' OR NOT SPECIFIED

See the below full details .


My Rexx - SPLPERC1
Code:

/* REXX   */                                           
"ALLOC FI(ISFOUT) DA('TEST.INPUT1') SHR REUSE"         
"EXECIO 0 DISKW ISFOUT (OPEN FINIS"                   
"ALLOC DD(ISFOUT) DA('TEST.INPUT1')SHR REUSE"         
"ALLOC DD (ISFIN) NEW REU"                             
QUEUE "SP                                           " 
QUEUE "++ALL                                        " 
"EXECIO "QUEUED()" DISKW ISFIN (FINIS"                 
"CALL *(ISFAFD)"                                       
"FREE DD(ISFOUT)"                                     
"FREE DD(ISFIN)"                                       

The above Rexx working fine. Now I want to execute the above Rexx with JCL as below.

Job to execute my above Rexx
Code:

//STEP1 EXEC PGM=IKJEFT01,PARM='%SPLPERC1'     
//SYSEXEC DD DSN=IGCF.TSO.EXEC,DISP=SHR       
//SYSTSIN DD SYSOUT=*                           
//SYSTSPRT DD SYSOUT=*                         
//ISFOUT  DD DSN=TEST.INPUT1,DISP=SHR 
//ISFIN   DD DUMMY                             
//SYSIN   DD *                                 
SP                                             
++ALL                                           
/*         


TEST.INPUT1 Dataset Properties
Code:

General Data                           Current Allocation               
 Management class . . : NOMIG           Allocated tracks  . : 1         
 Storage class  . . . : STANDARD        Allocated extents . : 1         
  Volume serial . . . : TEST01                                         
  Device type . . . . : 3390                                           
 Data class . . . . . : DEFAULT                                         
  Organization  . . . : PS             Current Utilization             
  Record format . . . : FBA             Used tracks . . . . : 1         
  Record length . . . : 133             Used extents  . . . : 1         
  Block size  . . . . : 6118                                           
  1st extent tracks . : 1                                               
  Secondary tracks  . : 50             Dates                           
  Data set name type  :                 Creation date . . . : 2017/10/02

But When I submit the abvoe Job its failing with CC= 12 the below are the error messages from JESYSMSG

Code:

IEF237I JES2 ALLOCATED TO SYSTSIN                                               
IEF237I JES2 ALLOCATED TO SYSTSPRT                                             
IGD103I SMS ALLOCATED TO DDNAME ISFOUT                                         
IEF237I DMY  ALLOCATED TO ISFIN                                                 
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IGD101I SMS ALLOCATED TO DDNAME (ISFIN   )                                     
        DSN (SYS17275.T160350.RA000.TESTSPLJ.R0138050    )                     
        STORCLAS (STANDARD) MGMTCLAS (        ) DATACLAS (TEMPDS)               
        VOL SER NOS= W0T103                                                     
IGD104I TTSS.SRSQ.SPL.INPUT1                         RETAINED,  DDNAME=ISFOUT   
IGD105I SYS17275.T160350.RA000.TTSYSPLJ.R0138050     DELETED,   DDNAME=ISFIN   
IEC020I 001-5,TESTSPLJ,STEP1   ,SYSTSIN ,JES                                   
IEC020I EROPT IS 'ABE' OR NOT SPECIFIED                                         
IEF142I TESTSPLJ STEP1 - STEP WAS EXECUTED - COND CODE 0012         

Error messages of SYSTSPRT

READY
UNRECOVERABLE COMMAND SYSTEM ERROR






Thanks!
Upendra.

Coded for the incapable
_________________
Upen
↧
Search

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

October 2, 2017, 8:25 am
$
0
0
Author: steve-myers
Posted: Mon Oct 02, 2017 8:55 pm (GMT 5.5)

This is another issue, unrelated to your other issues.

However -

//SYSTSIN DD SYSOUT=*

The TSO Terminal Monitor program expects to read TSO commands from the data set specified by the DD statement with DD name SYSTSIN. I suspect that is rather difficult here.
↧

CICS :: VSAM RLS Wait time

October 2, 2017, 8:35 am
$
0
0
Author: blayek
Subject: VSAM RLS Wait time
Posted: Mon Oct 02, 2017 9:05 pm (GMT 5.5)

Hi, I am working on a project where we need to replace all the VSAM and IAM files to VSAM RLS for better higher availability. But while converting the IAMRLS files to VSAM RLS, we are not getting the performance we are expecting. While triggering a transaction to delete all old records from a file it's taking way longer than IAM RLS. While analyzing the Omegamon report I can see below are taking more time :

 Journal(MVS Logger) I/O wait Time --- 54% 
RLS Wait Time ---- 45% 

These two are consuming almost 90% of total execution time. Any guidance on how to reduce this time would be highly appreciated. Thank you very much.
_________________
Bhola
↧
↧

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

October 2, 2017, 8:39 am
$
0
0
Author: Nic Clouston
Posted: Mon Oct 02, 2017 9:09 pm (GMT 5.5)

You have been asked to use the code tags when posting stuff sfrom the screen - code, JCL, data etc. Please do so or you may find your topic locked.
_________________
Regards
Nic
↧

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

October 2, 2017, 8:42 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 9:12 pm (GMT 5.5)

Hi Steve,

Yeah this is other issue with My JCL. I have modified my JCS as below

//STEP1 EXEC PGM=IKJEFT01,PARM='%SPLPERC1'
//SYSEXEC DD DSN=IGCF.TSO.EXEC,DISP=SHR
//SYSTSIN DD DSN=TEST.CMD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//ISFOUT DD DSN=TEST.INPUT1,DISP=SHR
//ISFIN DD DUMMY
//SYSIN DD DUMMY
/*

TEST.CMD File contains the below commands
SP
++ALL

But still getting the same error.

Thanks!
_________________
Upen
↧

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

October 2, 2017, 8:47 am
$
0
0
Author: upendrasri
Posted: Mon Oct 02, 2017 9:17 pm (GMT 5.5)

Hi Nic,

Sorry, Can you please let me know what do you mean by code tags? Am bit new to this forum.

Do you want me to open a new topic with new name?




Thanks!
_________________
Upen
↧
Viewing all 8500 articles
Browse latest View live
Search