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

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

For example:
01 something PIC X(06).
01 one PIC 9(02).
01 two PIC 9(02).
01 three PIC X(02).
SELECT socket(:number)
INTO :something
FROM DUAL
result:
something = 1234ww
one = 12
two = 34
three = ww

gauravaram

• Dec 6th, 2018

We can declare something as a group variable
01 something pic x(06)
05 one pic 9(2)
05 two pic 9(2)
05three pic x(2)

Indu

• Nov 2nd, 2018

Redefines can be used

Answer Question  Select Best Answer

I have file with customer details and I need to process only those records who is having valid email id, so how we can validated these records using COBOL?

neha

• Jan 29th, 2018

MOVE @ TO WS-CHAR
you can use INSPECT EMAILID TALLYING WS-COUNT-1 FOR ALL INITIAL WS-CHAR
IF WS-COUNT > 0 (means there is @)
proceed
ELSE
ERROR OUT

PRAVEEN SAINI

• Feb 12th, 2017

It is partially correct answer @ symbol is part of the answer we have to check (.) for valid mail id ..
Correct me if I am wrong

Answer Question  Select Best Answer

A subscript is a working storage data definition item, typically a PIC (999) where a value must be moved to the subscript and then incremented or decremented by ADD TO and SUBTRACT FROM statements. An index is a register item that exists outside the program's working storage. You SET an index to a value and SET it UP BY value and DOWN BY value.

vjjammi

 Profile Answers by vjjammi Questions by vjjammi

• Aug 7th, 2010

An Index is the value of OFFSET or DISPLACEMENT from the starting of the array. The index is defined as part of the occurs clause in the definition of the array as shown below. 01 WS-TABLE-ARRAY. 0...

ramesh4greek

 Profile Answers by ramesh4greek Questions by ramesh4greek

• Jun 11th, 2010

SUBSCRIPT: No. of occurences is called Subscript.INDEX: The disposition of the element.Index can be used in Table data searching and Sorting but Subscript won't be useful for the above.

Answer Question  Select Best Answer

I don't know please give me answer

TheMadProfessor

 Profile Answers by TheMadProfessor Questions by TheMadProfessor

• Oct 12th, 2009

1) Without executing the program, there is no output to see.2) If you are talking about changing the DD names of the files, can't be done without also changing the corresponding ASSIGN statements in t...

NarayaN

• Apr 26th, 2006

 Hi !!I think that the last one mentioned for Concantenation of 2 files is incomplete. The DD Names should be specified as part of the SORT Step.You can pass on 2 files as Input files and the new...

Answer Question  Select Best Answer

Gaurav Prasad

• Dec 18th, 2006

CONFIGURATION SECTION comes under ENVIRONMENT DIVISION

manoj

• Jul 21st, 2006

Configuration section comes under environment division. It is optional section and having two paragraphs i.e. source comp and object computer.

Answer Question  Select Best Answer

kkreddy98

 Profile Answers by kkreddy98 Questions by kkreddy98

• Sep 5th, 2007

It will give compilation error because WS-AMT is a edit-item and edited items can not be used in arthmetic operations.Thanks,Kotireddy k

kavitha

• Sep 25th, 2006

It will not show any error. Becos "value" clause is not needed for this variable to show compilation error and the ADD syntax can be used to add value to alphanumeric variable. Alphanumeric variable can handle numeric values (ex. 10, 20) but vice versa cannot happen.

Answer Question  Select Best Answer

Chander

• Sep 22nd, 2015

Hi, I guess the Hex range can be checked, HEX 50-60 is special chars.

Pranab

• Sep 13th, 2014

Through "Inspect" verb its possible. like, if you want to search $ in var1 than - INSPECT VAR1 TELLING TELLY1 ALL $ DELIMITED BY SIZE.

if TELLY is >0 then it is having the special character $.

Answer Question  Select Best Answer

ram_prabhakar

 Profile Answers by ram_prabhakar Questions by ram_prabhakar

• Aug 28th, 2009

Answer should be D. Syntax error because only hifens are allowed to name a field in COBOL.

raja shankar dasgupta

• Jul 24th, 2007

The answer is dif we ignore the spelling mistakesnow perform pri-out until sw=1; while reading the in-file its automatically adding one to the subscript.so the new value of sw=1 and then the loop stops.i think the prob is with the logic

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

The PERFORM and END-PERFORM statements bracket all COBOL II statements between them. The COBOL equivalent is to PERFORM or PERFORM THRU a paragraph. In line PERFORMs work as long as there are no internal GO TOs, not even to an exit. The in line PERFORM for readability should not exceed a page length - often it will reference other PERFORM paragraphs.

suma_infy

 Profile Answers by suma_infy Questions by suma_infy

• Sep 20th, 2008

In In-line PERFORM the procedure name is omitted. An In-line PERFORM must be delimited by the END-PERFORM statement.SYNTAX:          PERFORM  &nb...

sudhakar chandu

• Sep 28th, 2007

In-line perform is a concept where the control will execute a block of statements residing in a same paragraph and here the control will not shift form one paragraph to another paragraph.

Answer Question  Select Best Answer

rajalg05

 Profile Answers by rajalg05 Questions by rajalg05

• Apr 5th, 2009

It is 32767, irrespective of VSAM or non VSAM. In case of VSAM you will have to give no SPANNED while DELETE-Defining the cluster. IF any doubts you can verify creating in mainframes.

Kavitha

• Sep 25th, 2006

32022.

Answer Question  Select Best Answer

ramana

• Feb 7th, 2007

Hello Guys,

Comp-1: Storage is in hexadecimal and size is full word(4-bytes)
Comp-2: Storage is in hexadecimal and size is duobleword.
Comp-3: Storage is in packed hexadecimal and size is (n/2)+1.

Balasubramanian G

 Profile Answers by Balasubramanian G Questions by Balasubramanian G

• Dec 17th, 2006

USAGE COMP-1 : Data is stored as single precision floating point in 4 bytes.Difference between COMP-1, COMP-2, COMP-3 and COMP :COMP-1 data is stored as single precision floating point using 4 byte...

Answer Question  Select Best Answer

P.Karthikkumar

• Jan 17th, 2007

Hi, I think it may goes to infinite loop, becoz once this loop reaches 11 the value of I is truncated to 1 instead of 11. So again loop starts from begining and it may goes on like this..

Abumohammed

• Nov 10th, 2006

Hi      Surely, It goes to infinite loop.regardsAbu

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

I have program A which is calling B first time. B program is feaching data using cursor , but some mess happened and the control went back to pro A without closing cursor . Once again program A called program B then what will happen to cursor. will program fetch the data.

Kalyan

• Mar 20th, 2018

It depends on how program b is linked. Above answer is correct for statically linked. But if dynamically linked then program b will be in initial state in 2nd time and no error will come.

Anand Jeyapaul

• Oct 26th, 2017

How do we avoid the error code of -502? How do we close the cursor in the calling program?

Answer Question  Select Best Answer

mf.vannan

 Profile Answers by mf.vannan Questions by mf.vannan

• Dec 22nd, 2009

Note that we can move the parameter from cobol to JCL via MOVE in the application and it will receive by the internal reader in the JCL SYSOUT in DD statement.Thanks,ManiVannan M

alok

• Feb 13th, 2007

It is passed using PARM parameter.

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

sujithdan

 Profile Answers by sujithdan Questions by sujithdan

• Mar 8th, 2011

When we code we make sure that variables are defined in such a manner to handle every condition. Though return codes are numeric,we generally use alphanumeric variables to store it as alphanumeric var...

ahobalanag

 Profile Answers by ahobalanag Questions by ahobalanag

• Feb 13th, 2010

RETURN-CODE is a 2 byte binary field. Hence, it can very much be defined as a numeric field also. It is defined as alpha numeric field, i.e., PIC X(02) because it occupies 2 bytes and COBOL converts n...

Answer Question  Select Best Answer