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

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

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

• Aug 1st, 2012

C=B/A

Cathy

• Jul 1st, 2012

C.C=B/A

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

Abhi

• Jun 27th, 2012

(B) 4 times

rakesh jena

• Apr 25th, 2007

(C) 8 times

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

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

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

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

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

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

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

Meetal

• Feb 6th, 2012

One correction in example given above post ofr Ifrank. We can not move HIGH-VALUES/LOW-VALUES to PIC 9 (NUMERIC FIELD) . We can onlye move in PIC X (ALPHANUMERIC)

lfrank

 Profile Answers by lfrank Questions by lfrank

• Jan 8th, 2008

LOW-VALUE represents X'00' and HIGH-VALUE represents X'FF'. These equate to  the lower and upper limits of the collating sequence. All other values fall in between. There are...

Answer Question  Select Best Answer

madhavi_csit

• Jan 27th, 2012

Data Division

Answer Question  Select Best Answer

I want delete one record from the file that is50 th record how can we delete ...?

Hussain

• Jan 25th, 2012

In normal dasds the data cant be deleted where we like for that ksds vsam files are used there we have option of index and randomly picking of data we want.So by file handling we can delete the 50th r...

Madhavi Chava

• Jan 19th, 2012

It is NOT possible to delete records of a seq file. If you do not want a specific record to be kept in a seq file any more, all you can do is to modify the contents of the record so that it contains s...

Answer Question  Select Best Answer

rasheeed17

 Profile Answers by rasheeed17 Questions by rasheeed17

• Jan 19th, 2012

Inspect is a kind String function in COBOL, examples given by PKK are pretty good

PKK

• Dec 9th, 2011

Individual characters in a field can be accessed and possibly changed by use of the INSPECT verb. INSPECT is used with TALLYING option to count designated characters. eg: INSPECT WS-A TALLYING...

Answer Question  Select Best Answer

Lrecl and block size mismatch .can anyone explain in detail...

R.Rajeshwari

• Jan 14th, 2012

Mismatch in LRECL or BLOCKSIZE or RECFM between your COBOL pgm & the JCL (or the dataset label). You will get file status 39 on an OPEN.

Answer Question  Select Best Answer

vivek

• Dec 30th, 2011

Actually Index is a register variable in COBOL, which will tell about the displacement ; as Subscripts are telling about the occurrences only. And there will be no need to declare them in Working Storage section.

ramesh4greek

 Profile Answers by ramesh4greek Questions by ramesh4greek

• Jun 11th, 2010

Index can be used to search the data in tables. Here Index represents the searching coloumn or field value of the table.

Answer Question  Select Best Answer

A PIC X(1) value A.B PIC X(2) VALUE SPACES.IF MOVE A TO B. WHAT IS THE VALUE OF B. Is it ' A' OR 'A '.

vardhan.frd

 Profile Answers by vardhan.frd Questions by vardhan.frd

• Dec 21st, 2011

The answer is A

talluri

 Profile Answers by talluri Questions by talluri

• Jul 27th, 2011

Alpha numeric data insertion is write justification so the answer is "a "

Answer Question  Select Best Answer