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

DFSORT/ICETOOL :: RE: Icetool or Joinkeys example to compare two files

August 29, 2016, 4:04 pm
$
0
0
Author: Bill Woodger
Subject: Reply to: Icetool or Joinkeys example to compare two files
Posted: Tue Aug 30, 2016 4:34 am (GMT 5.5)

The subtasks are what processes the data. You can't get rid of them by just not having the JNFnCNTL datasets.
↧
Search

DFSORT/ICETOOL :: RE: Icetool or Joinkeys example to compare two files

August 29, 2016, 7:17 pm
$
0
0
Author: magesh23586
Subject: Reply to: Icetool or Joinkeys example to compare two files
Posted: Tue Aug 30, 2016 7:47 am (GMT 5.5)

Rohit,

Check the spool for Joinkey, you will see three outputs.

Code:

SYSOUT 
JNF1JMSG
JNF2JMSG


JNF1 => 1 Pass.
JNF2 => 1 Pass.
After Join => 1 pass.

ideally any DFSORT Joinkey will have three pass irrespective of JNF1CNTL/JNF2CNTL statements.

In SYMNAMES solution we have only two pass.
_________________
Regards,
Magesh
↧
↧

DFSORT/ICETOOL :: RE: Icetool or Joinkeys example to compare two files

August 29, 2016, 10:07 pm
$
0
0
Author: chandan.inst
Subject: Reply to: Icetool or Joinkeys example to compare two files
Posted: Tue Aug 30, 2016 10:37 am (GMT 5.5)

Nice explanation Mangesh..

I agree with you regardless of volume of data Joinkeys will degrade the performance and it is best practice to use performance efficient code though the impact is minimal

Thanks,
Chandan
↧

COBOL Programming :: RE: how to DYNAMICALLY write sort cond to o/p file using cobol

August 30, 2016, 3:18 am
$
0
0
Author: mohamedmubee
Subject: Reply to: how to DYNAMICALLY write sort cond to o/p file using cobol
Posted: Tue Aug 30, 2016 3:48 pm (GMT 5.5)

these are the things i missed to include in the requirement...

first, the input file will get the records based on some other files that will be written to the file.

second, the record may be 5 records, or 10 or 13 it will be varying....

third, the ouput sort card then will be taken as a control card and to be used in further steps to begin processing of other files based on the sort card selection of data.


so

@ Akatsukami, the count will vary so its hard to code how many table entries needed.

@ pramitdas,

yes it is a cobol program i am trying to write these output. i think i can't put these in ps file as i didn't know how many records will come from the input file ??

ABC.XYZ.XYZ or ABC
__________________________________________________
Your job card
---------------------------------------------------
//STEPNAME --------------
//INCLUDE COND=(1,4,EQ,C'XXX1,YYY2,ZZZ1',
OR,1,4,EQ,C'XXX2,YYY2,ZZZ2',
OR,1,4,EQ,C'XXX3,YYY3'),FORMAT=SS
SORT FIELDS=(1,4,CH,A)
SUM FIELDS=NONE
/*

@ sergeyken

i need to use the output file record as a control card and need to process the further steps in the JCL. and I am using MicroFocus COBOL not sure whether REXX can be used. also I didn't know REXX I will check this one on how your code works for this requirement.....

let me know if any quesitons.... icon_sad.gif
_________________
~SPIRIT~
↧

CLIST & REXX :: Insert Lines in JCL with Rexx after a particular line

August 30, 2016, 3:48 am
$
0
0
Author: Csongor
Subject: Insert Lines in JCL with Rexx after a particular line
Posted: Tue Aug 30, 2016 4:18 pm (GMT 5.5)

Hello!

I am looking for a solution for inserting lines after a particular line in every member in a pds. To be more specific I would like to change the output, wich was 1 record, now it is going to be 3 records. It varies in wich line this output is located.
I have guess to make it work Isredit Line after command.

Sorry if this question has already been asked, I seached the forum, but I had 8000 matches on my keywords, so I rather ask it again.

Csongor
↧
↧

Mainframe Jobs :: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea

August 30, 2016, 4:00 am
$
0
0
Author: kiran_65
Subject: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea
Posted: Tue Aug 30, 2016 4:30 pm (GMT 5.5)

Hi,

Has post in Vacancies with the heading in subject.

Could you please let me know what is the criteria and to how can we contact or apply.

Thanks,
Kiran
↧

Mainframe Jobs :: RE: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea

August 30, 2016, 4:07 am
$
0
0
Author: Bill Woodger
Subject: Re: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea
Posted: Tue Aug 30, 2016 4:37 pm (GMT 5.5)

kiran_65 wrote:
Hi,

Has post in Vacancies with the heading in subject.

Could you please let me know what is the criteria and to how can we contact or apply.

Thanks,
Kiran


Find their website and ask them. Nothing to do with us.
↧

Mainframe Jobs :: RE: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea

August 30, 2016, 5:23 am
$
0
0
Author: Bill O'Boyle
Subject: Reply to: Fiserv Hiring 3 COBOL Devs FTE Orlando & Philly ~$110k Rea
Posted: Tue Aug 30, 2016 5:53 pm (GMT 5.5)

Career Link ===> https://www.careers.fiserv.com

The Lake Mary, FL office (Orlando suburb), utilizes the VisionPlus System extensively.

Regards,
_________________
Nothing in fine print is ever good news. icon_wink.gif

!!!!!!!
ò ¿ ó
(~~)

Mr. Bill
↧
Search

CLIST & REXX :: RE: Insert Lines in JCL with Rexx after a particular line

August 30, 2016, 5:30 am
$
0
0
Author: Csongor
Subject: Reply to: Insert Lines in JCL with Rexx after a particular line
Posted: Tue Aug 30, 2016 6:00 pm (GMT 5.5)

I made some progress, I think this was the hard part. Now I can add lines after a defined line.

I open with Rexx for edit:
Code:

/*REXX*/                                                 
ADDRESS ISPEXEC                                           
"EDIT DATASET ('SA81380.AJM.CMD.G0054V00') MACRO(EDITKE2)"
EXIT   
                                                   


And then i use the macro. The key is to define a label (.here), and after that the line_after can be used. I did not succeed to pass variables at first, but I did not try vput vget so far, it should work..

Code:

/*REXX*/                                             
B=2                                                   
ADDRESS ISREDIT "MACRO NOPROCESS"                     
ADDRESS ISREDIT "ISREDIT LABEL" B "= .HERE"           
ADDRESS ISREDIT "ISREDIT LINE_AFTER .HERE = "DATA" " 
B=B+1                                                 
ADDRESS ISREDIT "ISREDIT LABEL" B "= .HERE"           
ADDRESS ISREDIT "ISREDIT LINE_AFTER .HERE = "DATA" " 
ADDRESS ISREDIT "SAVE"                               
ADDRESS ISREDIT "END"       
                         

↧
↧

COBOL Programming :: RE: how to DYNAMICALLY write sort cond to o/p file using cobol

August 30, 2016, 5:39 am
$
0
0
Author: Nic Clouston
Posted: Tue Aug 30, 2016 6:09 pm (GMT 5.5)

If you are on a mainframe then you do not have files - you have data sets and if you are not on a mainframe then you are in the wrong forum.
_________________
Regards
Nic
↧

CLIST & REXX :: RE: Insert Lines in JCL with Rexx after a particular line

August 30, 2016, 7:40 am
$
0
0
Author: prino
Posted: Tue Aug 30, 2016 8:10 pm (GMT 5.5)

Read about system defined labels, like .ZCSR...
_________________
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
No programming here (yet) icon_smile.gif
↧

COBOL Programming :: RE: how to DYNAMICALLY write sort cond to o/p file using cobol

August 30, 2016, 7:56 am
$
0
0
Author: RahulG31
Subject: Reply to: how to DYNAMICALLY write sort cond to o/p file using cobol
Posted: Tue Aug 30, 2016 8:26 pm (GMT 5.5)

I don't understand what is stopping you to achieve this.

1. Do a perform 3 times or end of file
2. Inside this perform, read file and string the values as ADAM,BASU,DAVE
3. If it is the first time you are performing this loop then string the values you got (i.e. ADAM,BASU,DAVE) to 'INCLUDE COND=(1.4,EQ,C' and Write to output
4. If it is Not the first time you are doing this perform then string the values with OR,1,4,EQ,C' and write to output
5. When it is end of file condition then add OR condition accordingly to close the bracket and add FORMAT=SS and write to output
6. Other statements can be added after this

Is this what you want ?

.

P.S. you made me laugh with this:
Quote:
let me know if any quesitons....

Somebody, who is asking others for help, is asking others if they have any question. Really? I know what you meant but it's just the words that we have to choose carefully.

.
↧

COBOL Programming :: RE: how to DYNAMICALLY write sort cond to o/p file using cobol

August 30, 2016, 9:34 am
$
0
0
Author: Akatsukami
Subject: Re: Reply to: how to DYNAMICALLY write sort cond to o/p file using cobol
Posted: Tue Aug 30, 2016 10:04 pm (GMT 5.5)

mohamedmubee wrote:
these are the things i missed to include in the requirement...

first, the input file will get the records based on some other files that will be written to the file.

second, the record may be 5 records, or 10 or 13 it will be varying....

third, the ouput sort card then will be taken as a control card and to be used in further steps to begin processing of other files based on the sort card selection of data.


so

@ Akatsukami, the count will vary so its hard to code how many table entries needed.


I fail to understand your objection. Do you mean that the number of input records to be concatentated into a single output record will vary (something that is easily parameterized) or that the total number of input records will vary (which is the point of writing any sort of code in the first place)?
_________________
Data is not information.
Information is not knowledge.
Knowledge is not wisdom.
↧
↧

CLIST & REXX :: RE: Insert Lines in JCL with Rexx after a particular line

August 31, 2016, 12:32 am
$
0
0
Author: Willy Jensen
Posted: Wed Aug 31, 2016 1:02 pm (GMT 5.5)

I just did something similar. Note that the line_after can take a line number as argument, which allowed me to do:
Code:

n=some-line-number
l1 = 'first line inserted'
l2 = 'second line inserted'
l3 = 'third line inserted'
"line_after" n "= (l3)"  /* insert in */
"line_after" n "= (l2)"  /* reverse  */
"line_after" n "= (l1)"  /* order     */

_________________
WJ
↧

CICS :: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 10:28 am
$
0
0
Author: Kyle Carroll
Subject: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN
Posted: Wed Aug 31, 2016 10:58 pm (GMT 5.5)

Hi,

I am migrating a CICS TS 4.1 region to CICS TS 5.3. I have completed the CSD UPGRADE step (a copied version of the V4.1 CSD) as outlined on page 130 of the CICS TS V5.3 Upgrading manual.

The next step on page 131 indicates to "Upgrade user-modified, CICS-supplied resource definitions" using the DFHCSDUP SCAN command.

I had hoped this will be as simple as running the DFHCSDUP with just the SCAN option against the UPGRADEd CSD and it would tell me what all needs to be modified that the UPGRADE didn't do. BUT...It appears it requires to know each and every type and specific name to do a SCAN for.

I am new to this company and the previous CICS person retired before I started. How can I possibly know each and every user-modified resource name to scan for.

Is there a much simpler method to accomplish this step with or without the SCAN option?

Thanks,
Kyle.
↧
Search

CICS :: RE: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 11:14 am
$
0
0
Author: Robert Sample
Posted: Wed Aug 31, 2016 11:44 pm (GMT 5.5)

I would use DFHCSUP to EXTRACT the start up list for the region, strip out the resources from that output, and run the SCAN against it.

I would not expect to find very many "user-modified, CICS-supplied resource definitions" -- why would a site feel the need to change the definition of CEMT, for example?
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧

CICS :: RE: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 11:52 am
$
0
0
Author: Kyle Carroll
Posted: Thu Sep 01, 2016 12:22 am (GMT 5.5)

Thanks Robert.

I have already started down that same path until something better is mentioned. I have 20 CICS regions to upgrade so this step will be a time consuming process.

One problem is that process doesn't include groups that are not in the startup list and someone might try to use again later.

Now that means I would have to live with that risk or take additional time to cleanup/migrate those definitions in groups that aren't being used. I don't like leaving loose ends.

I suppose I could just list all groups and not just ones in lists.

Thanks again,
Kyle.
↧
↧

CICS :: RE: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 12:01 pm
$
0
0
Author: Robert Sample
Posted: Thu Sep 01, 2016 12:31 am (GMT 5.5)

Surely you don't have 20 CSD data sets? Most sites share their CSD among different CICS regions, so you could have as few as 2 to 4 CSD data sets (TEST, QA, PROD, maybe a user acceptance as well) to deal with. If the resource isn't defined in the start up list, there is less urgency to fixing it, but I agree that they all need to be scanned sooner or later.
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧

CICS :: RE: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 12:32 pm
$
0
0
Author: Kyle Carroll
Posted: Thu Sep 01, 2016 1:02 am (GMT 5.5)

unfortunately the worst is expected from predecessors and there is a different CSD for each CICS region.

Even if the CICS region is part of MRO (TOR, AOR, FOR), they all have separate ones. Not what I would have done, but that is what I have to deal with.

Wish me luck and keep the ideas coming.
↧

CICS :: RE: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN

August 31, 2016, 1:52 pm
$
0
0
Author: Bill O'Boyle
Subject: Reply to: CICS TS 5.3 migr after DFHCSDUP UPGRADE to use DFHCSDUP SCAN
Posted: Thu Sep 01, 2016 2:22 am (GMT 5.5)

With different CSD's, the use of DTR is certainly impeded or not active.
_________________
Nothing in fine print is ever good news. icon_wink.gif

!!!!!!!
ò ¿ ó
(~~)

Mr. Bill
↧
Viewing all 8500 articles
Browse latest View live
Search