COBOL with IDMS using Flat files written existing program



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

COBOL with IDMS using Flat files written existing program

Postby ramtulasi » Fri May 21, 2010 9:34 am

I am working IBM mainframes,
I need to imporve performance
existing program doing all current and saving accounts master file haveing 35 milion records.
reading seq file, its taking log time runing the job.
How i will do improve performance?
please give me any sugastations...

COBOL with IDMS using Flat files written existing cobol program
But here don't have STROBE
only CA and Endover...

please help on this..
Ram T
ramtulasi
 
Posts: 10
Joined: Fri May 21, 2010 9:21 am
Location: Malaysia
Has thanked: 0 time
Been thanked: 0 time

Re: COBOL with IDMS using Flat files written existing program

 

Re: COBOL

Postby dick scherrer » Fri May 21, 2010 10:01 am

Hello and welcome to the forum,

How i will do improve performance?
please give me any sugastations...
From the complete lack of information posted no one can suggest anything truly useful. . .

For someone to help, you have to provide somethng to work with. All you have said it that you (or someone else) believes there is a performance problem.

How long is a "long time"? How many records are in the sequential file? How many times is the database accessed per sequential record? Are these sequential records on dasd or something else? What is the lrecl? What does this process accomplish when it runs?

Most performance improvements are the result of redesign/recode of poorly written code or database definitions. Things like strobe can isolate where in the code resources are being used, but they cannot determine that the code is improperly implemented. . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 92 times

Re: COBOL

Postby ramtulasi » Fri May 21, 2010 11:46 am

Hi dick,

thanks for you reply, i am sending below details please look and give me your gudiness to me.....

My job takes less time 4.18,ExecutionProcess taken lots of I/O 111125.
lrecl 1024, record type :VB,
in my file total records are 025,48,674
writing my output file size 70bytes, FB
output record count 54,092
my client asking to me please do performance issue.
But I think this one not performance based on input and output process time 4 mintes so performanc e ok
i have one doubt why execution time taken lots of I/O. how to reduce insted of taken more I/o to less I/o?

Please give me REPLY, what i need to do?this type sitvation..

NETWORK JOB NCL RC ABEND C T START END ELAPSE CPU EXCP
NAME NAME CODE L P TIME TIME MMMM.SS SSSS.MM

MP0242 MP0242 A 00 A N 06-16-52 06-21-10 4.18 16.58 111125
PAGE PAGE MAX START SCHEDULE AUTO
IN OUT SIZE(K) DATE DATE PROC
0 0 1580 10.05.09 10.05.08 AUTO01
Ram T
ramtulasi
 
Posts: 10
Joined: Fri May 21, 2010 9:21 am
Location: Malaysia
Has thanked: 0 time
Been thanked: 0 time

Re: COBOL

Postby ramtulasi » Fri May 21, 2010 11:46 am

Hi dick,

thanks for you reply, i am sending below details please look and give me your gudiness to me.....

My job takes less time 4.18,ExecutionProcess taken lots of I/O 111125.
lrecl 1024, record type :VB,
in my file total records are 025,48,674
writing my output file size 70bytes, FB
output record count 54,092
my client asking to me please do performance issue.
But I think this one not performance based on input and output process time 4 mintes so performanc e ok
i have one doubt why execution time taken lots of I/O. how to reduce insted of taken more I/o to less I/o?

Please give me REPLY, what i need to do?this type sitvation..

NETWORK JOB NCL RC ABEND C T START END ELAPSE CPU EXCP
NAME NAME CODE L P TIME TIME MMMM.SS SSSS.MM

MP0242 MP0242 A 00 A N 06-16-52 06-21-10 4.18 16.58 111125
PAGE PAGE MAX START SCHEDULE AUTO
IN OUT SIZE(K) DATE DATE PROC
0 0 1580 10.05.09 10.05.08 AUTO01
Ram T
ramtulasi
 
Posts: 10
Joined: Fri May 21, 2010 9:21 am
Location: Malaysia
Has thanked: 0 time
Been thanked: 0 time

Re: COBOL

Postby Robert Sample » Fri May 21, 2010 4:57 pm

How many buffers are assigned to the file in the JCL?
Robert Sample
Global moderator
 
Posts: 3460
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 244 times

Re: COBOL with IDMS using Flat files written existing program

Postby dick scherrer » Sat May 22, 2010 12:29 am

Hello,

111k i/o to read 2.5million records does not seem like so many. . .

As Robert mentions, more buffers could possibly improve the elapsed time, but won't change the i/o count.

What is the blksize and which media is used for this file? How long does it take to simply read the entire file without referencing the database?

Why does your client believe this particular process needs attention?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 92 times

Re: COBOL with IDMS using Flat files written existing program

Postby ramtulasi » Mon May 24, 2010 7:06 am

Hi dick,

in jcl coded like this..

P024206  EXEC PGM=CBSX6905                               
SYSIDMS  DD DSN=MBS.PROD.CTLCARDS(MPIDMS),DISP=SHR       
EXTRACT  DD DSN=MBS.PRODS.P024205.EXTRACT.SORTED,DISP=SHR
REPFILE  DD DSN=MBS.PRODS.P024206.LIQ.CCA,               
            UNIT=DISK,DISP=(NEW,CATLG,DELETE),           
            SPACE=(CYL,(200,200)),                       
            DCB=(RECFM=FB,LRECL=70,BUFNO=10)             
SYSOUT   DD SYSOUT=*                                     
SYSOUD   DD SYSOUT=*                                     
SYSLST   DD SYSOUT=*                                     
SYSPRINT DD SYSOUT=*                                     
SYSUDUMP DD SYSOUT=*                                     
SYSIPT   DD DSN=MBS.PROD.CTLCARDS(PDBNAME),DISP=SHR     

i think my client place no one good knowledage on cobol and jcl,
they only support team, I seen this program lot of valditions means if ..then else.. statements are used a lot of times,so program they did't understand code..
in one my friend suggested to me please put in jcl reliase but where Can i put? please give me replay.
i am sendig orginal program source to you...
Ram T
ramtulasi
 
Posts: 10
Joined: Fri May 21, 2010 9:21 am
Location: Malaysia
Has thanked: 0 time
Been thanked: 0 time

Re: COBOL with IDMS using Flat files written existing program

Postby dick scherrer » Mon May 24, 2010 7:24 am

Hello,

if/then/else by itself should not cause a problem. The overall design of the processmay cause problems.

If your client does not know cobol and jcl in general (and this program in particular), they need to hire someone who does. . .

RELEASE could help with dasd space allocation for REPFILE, but i don't see how this would improve performance for this process. The way the jcl is now, considerable space could be wasted.

As was asked earlier but you chose to not answer:
What is the blksize and which media is used for this file? How long does it take to simply read the entire file without referencing the database?

Why does your client believe this particular process needs attention?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 92 times

Re: COBOL with IDMS using Flat files written existing program

Postby ramtulasi » Mon May 24, 2010 9:43 am

dick scherrer wrote:Hello,

if/then/else by itself should not cause a problem. The overall design of the processmay cause problems.

If your client does not know cobol and jcl in general (and this program in particular), they need to hire someone who does. . .

RELEASE could help with dasd space allocation for REPFILE, but i don't see how this would improve performance for this process. The way the jcl is now, considerable space could be wasted.

As was asked earlier but you chose to not answer:
What is the blksize and which media is used for this file? How long does it take to simply read the entire file without referencing the database?

Why does your client believe this particular process needs attention?


Hi Duck,

Today I asked my client what is the performance in their idea,
my client says performance means not only job run time..
This job using three programs cobbat

This system CBS - Banking domain.
all current , saving and fixed deposit they have certain valdations they map BIC code this is one hardcoded based on account , and map output format and write output file.

my client have some programs they can't understand these programs so, they want do reverse engg..
like newcode better understable code..
thats reason they appointed to me.
first my client asked to do program specifications i did specifications what ever hard coded i put in table foramt,
only main process - i draw Flow chart reaming sub perform prcoess function i papered in Table format,
they review and asked to me some programs do perforamnce.
then that time i didn't asked what is performance..
i checked first input records and output file count.
then i think it take log time run job, i cheked time but its takes onlu max 5 min below, it 's not performance,
again i asked to client this time take lots of I/O.

You gave replay can't reduce I/O.

now I asked again this time they expected better codeing easy to understandable.
this one is ever one should have they own idea..
but i have my own idea i do code also you can't uderstand means what i need to do.
then first you code and give document. then we will understand .. like given replay my client..
Please advice to me what i need to do..
here i am attaching my style RMTYB005.txt this program i did last time a lot of programs out of one program, i am sending
my Client existing program CBSX6905.txt
Please advice any tools have if i pass source then convert flow and specification..

"What is the blksize and which media is used for this file? How long does it take to simply read the entire file without referencing the database?
Input BlkSize:27998
org:PS,Rec Form:VB,Rec Length:1004,Device type:3390
1st extentcyls:8
secondary cyls:50
Allocated cyls:3145
extended cyls:177
used cyls:3145
used extended:177

Output:block size:27930
org:PS,Rec Form:FB,Rec Length:70,Device type:3390
1st extentcyls:39
secondary cyls:200
Allocated cyls:200
extended cyls:2
used cyls:5
used extended:1"

"Why does your client believe this particular process needs attention?
they have three jobs inside 15 to 20 programs these all liquidatiy - type all accounts and product wise they send to bank staements to respestive country wise bank like WWB.
before these code done long back 20 years so who did code that person not in client place, so at present support team
they need to better easy to understand and they need documentations."

Please what i need to do?
I am starting my own style codeing..(for exmpl RMTYB005.txt)

Can give me any good program teck document..

in cobol if .. then else insted of Evalvate is good i think...
if validiation use 88 condiation level casue ..

Please give reply as early as possible...

Thank you,
Regards.
Ram T
Ram T
ramtulasi
 
Posts: 10
Joined: Fri May 21, 2010 9:21 am
Location: Malaysia
Has thanked: 0 time
Been thanked: 0 time

Re: COBOL with IDMS using Flat files written existing program

Postby dick scherrer » Tue May 25, 2010 5:16 am

Hello,

When i looked at this earlier, there was one or two attachments. Unless i am mistaken. At any rate, there are none now. . . Which is probably just as well. I suspect your client would not want their code posted on the internet. . .

You gave replay can't reduce I/O.
This is not what i replied. . . What i said was that increasing the buffers might improve the elapsed time, but won't change the i/o count - not at all what you posted. I suspect that much of the difficulty with this situation is communication.

I am not sure there even is a problem. . . If the client has incorrect documentation and code they cannot understand, it may be a long summer. Is there any correspondence to/from the client that explains what they really want done? If ther is not, i suggest some be created. If everyone involved does oot know the goal, it is very difficult to reach.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 92 times

Next

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post