Lokesh M

 Profile Answers by Lokesh M Questions by Lokesh M

• Feb 10th, 2012

XRef data is written for Assembler, COBOL, or PL/I programs. XREF makes the Compiler produce a cross-reference listing. XRef data is written for the file and each field in the file that are accessed in the program using an
EXEC ADABAS GENERATE or a COPY statement.

Answer Question  Select Best Answer

Hi,

Can any one tell how to use copybook in COBOL, and please explain with file structure(means i am using 5 fields of file and i want to declare them in copybook and and i want use it in COBOL programming)

gandikotasiva

 Profile Answers by gandikotasiva Questions by gandikotasiva

• Apr 27th, 2012

Don't forget to specify the library where that copy book resides ie.., in SYSLIB

rasheeed17

 Profile Answers by rasheeed17 Questions by rasheeed17

• Jan 3rd, 2012

Workinfg-storage section. pds: TEST.RASH.LIB.ABC.COPY(COPYBK1) 02 VAR-LIST. 05 VAR1 PIC X(10) 05 VAR2 PIC X(10) 05 VAR3 PIC X(10) 05 VAR4 PIC X(10) 05 VAR5 PIC X(10) TEST.RASH.LIB.ABC.PROG(TESTP...

Answer Question  Select Best Answer

How to create chkpnt and commit in IMSDB-ocobol PGM.?

jithinraghav

 Profile Answers by jithinraghav Questions by jithinraghav

• May 3rd, 2012

This Checkpoint/Restart logic is for the commit for the 100 ISRT/DLET IMS calls. In Data Division first we need to give both restart length and checkpoint length as below. 01 RESTART-SEGMENT-LENGTH ...

Answer Question  Select Best Answer

What are the four divisions in COBOL

Read Best Answer

Editorial / Best Answer

venkat65318  

 Profile Answers by venkat65318 Questions by venkat65318

• Member Since Sep-2009 | Sep 13th, 2009

---

In Cobol there are 4 divisions.

1. Identification division or ID division
In this no setions are there. It has 5 paragraphs.
a. Progaram-id. programname
b. Author
c. Writen-date
d. Compiled-date
e. Installer

2. Environment Division
Under this there are two sub-sections
a. Configuration-section.
     Source compter.
     Object computer.
b. Input-Output section.
     File control.
     IO control.

3. Data Division
File-section.
Working-storage section.
Linkage section.
Report section.
Screen section.

4. Procedure Division

saurabh bandyopadhyay

• May 25th, 2012

There is another section in Data division; named as LOCAL-STORAGE SECTION.

For a recursive cobol program, you need to use that section to hold the current values of each variable while the program run.

Regards,
Saurabh Bandyopadhyay.
Mainframe Developer, India.

Nithya

• May 10th, 2012

IDENTIFICATION DIVISION */ mandatory */should contain PROGRAM-ID ENVIRONMENT DIVISION ...

Improve Answer

satya valluru

• May 29th, 2012

STOP RUN: We can use only in Main PGM.will return control BACK to O.S
GO BACK: We can use in both Main & Sub PGMs.will return control BACK to Main PGM or O.S.
EXIT-PROGRAM:Only for Sub PGM.will return control BACK to Main PGM.

ramesh4greek

 Profile Answers by ramesh4greek Questions by ramesh4greek

• Jun 11th, 2010

STOP RUN: IT terminates the current program.GO Back: When we apply in place of stop run the loop will be continued infinately.Exit: It's a optional one, for paragraphs we can apply this one.Eg: Pa...

Answer Question  Select Best Answer

satya valluru

• Jun 5th, 2012

JCL:
//STEP1 EXEC PGM=SAMPLE,PARM=SATYA

COBOL:

LINKAGE SECTION.

01 PARM-VALUE.
05 PARM-LENGTH PIC S9(2) COMP-----it will store length of data we are passing from JCL
05 PARM-DATA X(10) -------------will store actual data we passed.

PROCEDURE DIVISION USING PARM-VALUE.

gandikotasiva

 Profile Answers by gandikotasiva Questions by gandikotasiva

• Apr 27th, 2012

PARM is used to pass data from JCL to COBOL
we can pass max of 100 bytes
first 2 bytes are reserved to length
thus we can pass only 98 bytes of data
--------------
Let me know if u need more information

Answer Question  Select Best Answer

Ramesh

• Jun 16th, 2012

Yes...You can define redefines clause at all levels except 66 and 88 in working-storage section....where as in file section we cant redefine at 01 level..other than this you can...and you cant redefine at occurs clause level...

PKK

• Dec 9th, 2011

The REDEFINES clause can be used when the two data items have the same level number. The exceptions are when the special purpose 66 or 88 level numbers are used and when the level number is at 01 in t...

Answer Question  Select Best Answer

Abhi

• Jun 27th, 2012

(B) 4 times

rakesh jena

• Apr 25th, 2007

(C) 8 times

Answer Question  Select Best Answer

can a third level redefining possible in COBOL?

01 B REDEFINES A
05 A PIC X(2)
01 C REDEFINES B
01 D REDEFINES C

ramesh

• Jul 3rd, 2012

Yes....it is possible...multiple redefines possible......

Answer Question  Select Best Answer

• Aug 1st, 2012

C=B/A

Cathy

• Jul 1st, 2012

C.C=B/A

Answer Question  Select Best Answer

Ashish

• Aug 23rd, 2012

Tested the prog actually on Mf

Ans is :
A B C :100 00 100

shivanilal

 Profile Answers by shivanilal Questions by shivanilal

• Apr 22nd, 2008

Answer is dc=10

Answer Question  Select Best Answer

A cursor is opened.After fetching few rows. it is opened again before closing it.What will be the result?

mannurusrinivasulareddy

 Profile Answers by mannurusrinivasulareddy Questions by mannurusrinivasulareddy

• Sep 1st, 2012

It give -502 error code i.e already the cursor was opened

mf.vannan

 Profile Answers by mf.vannan Questions by mf.vannan

• Jun 25th, 2010

If cursor is opened again before closing The error will be happen as Cursor already opened. Error code is 501Rgds Rasipuram Manivannan MContact: =91-9486115495 

Answer Question  Select Best Answer

Culd any body tell the concept for the prime number programe?

Gunesh Asatkar

• Feb 13th, 2013

set the start and end limit from which prime will calculate. then start first for loop and second for loop. "cobol DATA DIVISION. WORKING-STORAGE SECTION. 77 I PIC 999 VALUE 001. ...

drcobol

 Profile Answers by drcobol Questions by drcobol

• Nov 26th, 2012

1. You dont need to loop further than the integer of the square root of the number in question
2. You can skip multiples of numbers already checked (if a number is not divisible by 2 then its not by 4 either)

Answer Question  Select Best Answer

snehali

• Apr 3rd, 2013

The level number 02 to 49 are use to specify the group and elementary data items within a record.

Vaneeshkhurana

 Profile Answers by Vaneeshkhurana Questions by Vaneeshkhurana

• Mar 21st, 2010

Although level 02-49 level are group or elementry elements but sometimes 49 are used for dynmic SQL, i.e.01 WS-SQl-statement1-VARIABLE.    49  WS-SQL-STATEMENT1-LEN  &nbs...

Answer Question  Select Best Answer

nagaraju

• Apr 30th, 2013

value : value clause is used to initialize values at working storage section only. i.e.., giving the values at declaration time initialize : this verb is used in 2 ways. 1) used to supply the init...

talluri

 Profile Answers by talluri Questions by talluri

• Jul 27th, 2011

INITIALIZE verb is used to refresh the alphabetic & alphanumeric empty fields with SPACES and numeric empty fields with ZEROS

Answer Question  Select Best Answer

davindersingh29

 Profile Answers by davindersingh29 Questions by davindersingh29

• May 17th, 2013

Just to add, my two cents: Data items in the LOCAL-STORAGE SECTION are automatically allocated for each instance of a program invocation. When a program runs in multiple threads simultaneously, each ...

Toleshwar

• Mar 14th, 2013

Local storage section is a section of Data Division of Cobol which is similar to the Working storage section. The only difference being that the variables in the Local Storage always get initialised w...

Answer Question  Select Best Answer

C1-TRUE C2-FALSE C3-TRUE A,B,C are defined as given below
A:C1 AND(NOT C2) OR C3
B.(NOT C1) OR (NOT C2 AND NOT C3)
C.(C1 OR C2)AND C3 D.C1 AND C2 OR C3
given the above information which of the following statements are valid? a.only A,B and C are TRUE
b.only A,C and D are TRUE
c.A,B,C and D are TRUE
d.only C and D are TRUE

Chinnu Ann Jose

• Aug 21st, 2013

B

charanjeet kaur

• Jun 9th, 2013

A.C.D

Answer Question  Select Best Answer

In COBOL II the 88 levels can be set rather than moving their associated values to the related data item. (Web note: This change is not one of COBOL II's better specifications.)

Nath

• Sep 13th, 2013

@poojaDeep & @gilbat82, As you said, I have three doubts. 1. While starting execution of the program after declaring in working storage as you said, what are the initial values (TRUE or FALSE) are s...

gilbat82

 Profile Answers by gilbat82 Questions by gilbat82

• Jul 15th, 2008

Last answer is correct and below example also.e.g. 05  ACCOUNT-TYPE         PIC X(01) VALUE 'N'.        &nb...

Answer Question  Select Best Answer

Hi,

I was asked in interview how would you analyze a COBOL program?

I gave the ans as there are many kind of analyses -:
Requirement analysis
Root cause analysis
Impact Analysis
Problem / logic analysis

but in general we talk about problem finding in a program
and told him we would first go in for a procedure division and check what...

abhishek

• Jan 21st, 2014

Local-Storage is allocated each time the program is called and is de-allocated when the program returns via an EXIT PROGRAM, GOBACK, or STOP RUN. Any data items with a VALUE clauses are initialized to...

davindersingh29

 Profile Answers by davindersingh29 Questions by davindersingh29

• May 17th, 2013

Second part of your answer seems satisfactory. You should have asked the interviewer for what we need to analyze, if its just for document purpose, then your answer is right. If its for a change, then there are specific areas we need to analyze for the changes impact.

Answer Question  Select Best Answer

Is there any use of using COMP fields other than betwee SPACE utilization?

Rohit Dwivedi

• Jun 3rd, 2014

For getting precision in the mathematical calculation the Comp variables provide more precisions as well rather than simple Numeric and Decimal values

Answer Question  Select Best Answer