Question { Global Logic, 14031 }

Can we put move statement in COBOL copybook

Answer

Copy book means... A piece of code may be used in many programs.
We can write that piece of code in a member of a PDS (copy book) and we can use anywhere in the COBOL programs.

Question { 4624 }

can internal sort be applied to sort ksds files?

Answer

There are four types of VSAM files.. They are
ESDS (Entry sequential Data Set)
KSDS (Key sequential Data Set)
RRDS (Relative Record Data Set)
LDS (Linear Data Set)

The KSDS vsam file will be in the sorting order of the key fields, while insert the record. So there is no need of sorting a KSDS file.

Please let me know if I'm wrong.

Question { ADP, 4426 }

I have a field with data type X(10). I want to perform
arithmetic operation on this field? I tried doing it by
moving the value into a numeric field. but it didn't work
out. I am getting a S0C7 abend. Pls let me know if there is
any way of getting this done?

Answer

Use REDEFINE.

Example:

01 NUMBER-X PIC X(10).
01 NUMBER-N REDEFINES NUMBER-X
PIC 9(10).

COMPUTE A = NUMBER-N + B

This will surely work.

Question { 5631 }

can we use COPY statement in w-s section? how?

Answer

I believe, level numbers won't take place while including the copy books in cobol programs.

Here is an example:

01 INPUT-RECORD.
COPY INRECOPY.

where INRECOPY is member name of the copy book library, which is contains group of cobol declarations.

Please correct me, if I'm wrong.

Question { Hewitt, 15591 }

how would you resolve sb37 and SE37?

Answer

Following are the space abends...
1. SD37 - no secondary allocation was specified.
2. SB37 - end of vol. and no further volumes specified.
3. SE37 - Max. of 16 extents already allocated.

Solutions....
1. provide the secondary allocation in the JCL.
2. Need to increase the values of space parameter or provide more than one volume
3. Increase the space parameter values.

Question { 12178 }

Syntax for JCLLIB & JOBLIB???

Answer

JCLLIB: The PDS, where all the JCL (procedures) are present.
JOBLIB: The PDS, which contains the load modules of the programs.

In a JCL, if we are including any procedures, the system should know where it needs to be searched. That's why we are mentioning JCLLIB.. here is the syntax..

//DDNAME JCLLIB ORDER=(Emer.proclib,prod.proclib)
Where, DDNAME can be anything within 8 chars, JCLLIB & ORDER are the keywords and there is no DISP is needed.

When a program is try to run the system will execute the macro to load the executable code(load module of the program) from the load library to main memory. So we should mention where it should find the same. here is the syntax.....

//JOBLIB DD DSN=emer.loadlib,DISP=SHR
// DD DSN=prod.loadlib,DISP=SHR
// DD DSN=test.loadlib,DISP=SHR

Where, other than the library name, all others are keyworkds.

Please include if I missed anything..

Question { HCL, 9894 }

which is better either static call or dynamic call?
and why?

Answer

Static call:
============
Main program load module will have sub program load module in itself. So when there is a call made to a sub program, it won't go outside of the current load.

Dynamic call:
=============
Main & Sub program will have two different modules. When there is call to a sub program, system will go and search for the load module in the joblib.

Both have advantages.
1. If the sub program is going to be changed oftentimes, then Dynamic call is better.
2. Think that, for one call, system should to the load library and search for sub program module. when it is found, load that into main memory & pass the control to that and run. when that is finished, remove it from main memory. If the sub program is getting called 1 lack times then?........... In this case, Better to use static.

I believe, you understand. Please correct me if I'm wrong.

Question { GJ, 10507 }

Hi,

Please clear me
when COND=ONLY and COND=EVEN. Explain me with example.

Answer

COND=ONLY
if you mentioned this option in a step, that particular step will execute ONLY when there is an ABEND.

COND=EVEN
this particular step will execute either ABEND or not.