procedure copybook in easytrieve

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Hi,
I have an if condition which is common across many programs.
IF model = 'A' or 'B'

This condition is changed often which means all programs using this condition has to be changed. My doubt is : Can we have procedure copybook in easytrieve.
I want to modify all programs to use this copybook so that I can just make changes to this copybook alone. I know that %copybook can be used for copying a layout. I did try to use this in job section but it is giving errors. Do we have a procedure division copybook in easytrieve? Or wat can be a better way to deal with this

Thanks.

dick scherrer · Posted: Thu Aug 26, 2010 3:23 am

Hello,

Where is the Easytrieve source stored?

There is no "procedure copybook" built into Easytrieve that i'm aware of, but there may be some alternatives.

PeterHolland · Posted: Thu Aug 26, 2010 9:55 am

You could define a MACRO.

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

I want to create this IF condition also dynamically on a daily basis. So my file will have the IF condition. Can we use a macro in a program that is in a PS file and not the production library?

Would be great if someone can give the link for easytrieve manual. Need to learn about macros.

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Easytrieve source is stored in panvalet library and is executed like EXEC PGM=PGMNAME and not in parms.

dick scherrer · Posted: Thu Aug 26, 2010 11:48 pm

Hello,

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Yes. It is a compiled Easytrieve. I thought about creating a subprogram but the problem is for every record in input, I need to call this submodule and might b a performance issue.

This is the flow of the easytrieve program.
Read model from input file
{
Check model - either with a common copybook using IF condition or CALL a sub program
}
Based on the check result, populate output file.
I thought IF might be better than CALL from performance perspective.
Thanks for the suggestion Dick. I guess I will have to go for sub program.

dick scherrer · Posted: Fri Aug 27, 2010 3:03 am

Hello,

PeterHolland · Posted: Fri Aug 27, 2010 10:58 am

dick scherrer · Posted: Fri Aug 27, 2010 7:07 pm

Hello,

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

I've used the file as array in ezytrieve and used a binary search to do this.

dick scherrer · Posted: Fri Aug 27, 2010 8:55 pm

Hello,

When a subprogram (module) is called dynamically it is loaded from dasd into memory and then control is transferred to it (modules that are called statically are part of the original load module and are not loaded when called).

Subsequent CALLs should be similar to a PERFORM and nothing should be loaded from dasd as it shjould already be in memory.

I don't understand how arrays and a binary search resolve the need to change the code "on the fly". . .

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Thanks for the explanation Dick.

I prepared a file with list of valid models
Inside the program, I have defined this file as array.

Read input file
Search file array for the model
Write output.
is how i have modified the code.

dick scherrer · Posted: Fri Aug 27, 2010 9:26 pm

You're welcome

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

iF MODEL = {Set of models }

This set of models may vary daily which is a GDG file. I'm using this GDG file as array in the program. So actually I did not PREPARE a file but using this GDG file ..

Thanks again and yes it is working :-)