Doubt in addressing mode.

passion_sujesh · Posted: Thu Dec 30, 2010 9:29 am

Hi all,

I have a question in the following scenario.

Few months ago i had coded a program (Prog A) calling a sub program (Prog B).

Prog A -- Is in Cobol 3 and compiler option -- RMODE(24).
Prog B -- Is in Cobol 2.

The program A used to run successfully becoz of the RMODE compiler option.

Now I have recompiled the called program (Prog B) to cobol 3 with compiler option AMODE(31) RMODE(ANY). The calling program is as such.

Prog A -- Is in Cobol 3 and compiler option -- RMODE(24).
Prog B -- Is in Cobol 3 and compiler option -- AMODE(31) RMODE(ANY).

My question is:
If i execute the calling program (Prog A) will it run success fully or will it abend (S0C4) becoz of the Compiler option RMODE(24).

Can you please help me.

Thanks in advance.

Phrzby Phil · Posted: Thu Dec 30, 2010 10:01 am

You have posted here 57 times, and yet you cannot just run it and find out because ... ?

passion_sujesh · Posted: Thu Jan 06, 2011 3:19 am

Hi Phil,

I had run this program, it did not abend. Are there chances for this program to abend in future?

My concern is, since the sub program (in Cobol3 AMODE(31) RMODE(ANY)) is called dynamically, there are chances the program will be loaded in the memory above the 16 MB line. The main program is compiled with RMODE(24) and might not be able to access the subprogram. This might lead to S0C4 abbend. Is this scenario possible to occur in the future?

Bill O'Boyle · Posted: Thu Jan 06, 2011 3:38 am

31-Bit programs can always address 24-Bit as well as 31-Bit addresses, but 24-Bit programs cannot address 31-Bit addresses as the high-order register-byte will be truncated and the module will likely raise a S0C4.

Bill

passion_sujesh · Posted: Thu Jan 06, 2011 8:27 am

Hi Bill,

Thanks for the reply. Can you please help me in the following doubts.

1) If i remove the Rmode(24) (also data (24) if present) from the main program, i should be able to solve the problem? or should i recompile the main program with AMODE(31) RMODE(ANY)?

2) Is there any way i can find the compiler options (Rmode, Amode options) from load module, Because there might be number of programs in production which will be affected in this simillar way.

Thanks in Advance,
Sujesh.

Robert Sample · Posted: Thu Jan 06, 2011 8:40 am

1. A COBOL program is not compiled with AMODE(31) RMODE(ANY). The COBOL compile option is DATA(24) or DATA(31).

2. What problem does your #1 point refer to in your post -- your previous posts talk about if you run the program will it abend, not any problem you're having?

3. You can find the addressing mode options from the load module -- but these are not "compiler options", they are linkage editor / binder options. ISPF 3.4 allows you to see them, or AMBLIST in batch will show you the addressing modes.

You SERIOUSLY need to review the difference between a compile and a linkage edit (binder) -- it is obvious you do not understand the difference between the two, and that lack of understanding limits what you can understand about load modules.

Bill O'Boyle · Posted: Thu Jan 06, 2011 8:44 am

Review the COBOL "Signature" Bytes link, in the following post -

www.ibmmainframes.com/viewtopic.php?p=257256&highlight=#257256

Bill

passion_sujesh · Posted: Thu Jan 06, 2011 9:34 am

Hi Robert,

Thanks for reply.

Regarding #1:

I am working on a program (Cobol 3 program with compiler option Rmode(24)) which is calling sub program (Cobol 3 program with compiler option AMODE(31) RMODE(ANY)). I tested the program it ran fine. But i had a doubt regarding the addressing mode (Rmode(24) in Main program), i was not sure if it will abend in the future. Hence i asked this question.

Can you please let me know by what are the default addressing modes in Cobol Z/os.

Thanks in advance,
Sujesh.

Robert Sample · Posted: Thu Jan 06, 2011 5:56 pm

passion_sujesh · Posted: Thu Jan 06, 2011 8:59 pm

Hi Robert,

Thanks for replying.

I am using 'Enterprise COBOL for z/OS'.

I more question, i am not sure if this question might sound crazy. Is it possible to find where the program is loaded, is it loaded below the 16mb line or above the line. I need to know this so that i can prove to my manager that the sub program was loaded below the 16Mb line and hence the program executed successfully (when i ran it) and to show that the program will raise a S0C4 abend if it is loaded above the line.

Thanks in advance,
Sujesh.

Robert Sample · Posted: Thu Jan 06, 2011 9:44 pm

Use ISPF 3.4 (TSO) or AMBLIST (batch) to look at the load library. ISPF 3.4 will show something like:

passion_sujesh · Posted: Thu Jan 06, 2011 10:17 pm

Thanks a lot Robert.

This should help me.

Thanks,
Sujesh

passion_sujesh · Posted: Thu Jan 13, 2011 5:06 am

Hi Robert,

I need some information on COBOL LE. What is Cobol LE? Is it a different compiler, is it different from 'COBOL z/OS' ? Can you please help me in this.

Thanks in advance,
Sujesh.

Robert Sample · Posted: Thu Jan 13, 2011 6:01 am

LE is short for Language Environment. IBM created the Language Environment to support all compilers on z/OS -- COBOL, PL/1, and so forth. LE provides a common set of run-time services and a standard way to access system data that can be used by any LE language.

Enterprise COBOL is an LE-compliant compiler; it is not possible under current releases of z/OS to use an IBM COBOL compiler that is not LE-compliant. Earlier compilers from IBM, such as OS/VS COBOL, were not LE-compliant. z/OS COBOL and COBOL LE can be considered the same language.

IBM has a bookshelf on LE, and the Interlanguage Communication manual is in this bookshelf. Anyone wanting to call C, C++, Java, Fortran, or Assembler from COBOL (or vice versa) should bookmark the location of the bookshelf and this manual as it will be frequently referenced.

passion_sujesh · Posted: Thu Jan 13, 2011 6:44 am

Robert,

Thanks a lot again. I am using 'Enterprise COBOL for z/OS' hence all my program are compiled using LE-compliant compiler. Am i rite.

Thanks a lot,
Sujesh.

Anuj Dhawan · Posted: Thu Jan 13, 2011 2:40 pm