-
Is Renaming variable takes separate space or not
RICHA_GARG
- Feb 9th, 2010
RENAMES clause does not use any extra space within the program as it just provides a replacement name for use in a data definition attached to a program through a COPY statement.
gopalchand
- Dec 3rd, 2009
Rename Clause is used to Regrouping the Elementary Data Items.It will not takes Separate Space
-
Can we use search and search all in embedded sql?
TheMadProfessor
- Oct 12th, 2009
SEARCH and SEARCH ALL are only used for tables within the program and have nothing to do with SQL. SQL is used for queries and other such functions on external relational tables maintained by a DBMS.
Senijor Mastrojani
- Oct 24th, 2006
search and search all are cobol reserved words.sequal will not recognize them wether it's embeded or not.moreover it makes no sence for instance to fetch everything onto file and than use search or search-all when from database you can select anything randomly.
-
What is the difference between Working-storage Section & Linkage Section?
Jo Ann
- Aug 4th, 2020
there is much difference between Linkage and working-storage on how you define variables. linkage section has 01 level only. Linkage is to take in data from other programs or stored procedures. Wor...
ramesh4greek
- Jun 11th, 2010
There is no difference between Working and Linkage both are in Data Division.Working-Storage for declaring the variables in main program.Linkage section is used for declaring the variables for Sub program. Parm parameters also can be declared in Linkage section only.
-
How to delete sequential file?
vissusmarty.1986
- Sep 20th, 2008
There are two ways to delete records in a sequential file1. To move spaces to the records.2. To rewrite the file with out moving the records which we want to delete from the file.
Guest
- Jan 12th, 2007
In cobol there is direct command for deleting records from sequential file. We can follow the below steps and delete the records from sequential file. for example.01 ...
-
What will happen if we give GOBACK statement instead of STOPRUN in a program which does not call any other program?
Stephen
- Jul 28th, 2011
It will abend with the below message " The flow of control in program TRIAL proceeded beyond the last line of the program."
-
How to find the number of records in a flat file using COBOL ?
I tried in many ways, but it loops over again and again in the last record and reports me abend error.
Mainframe_Dinosaur
- Jul 5th, 2010
Mainframe programmers wouldn't normally write a Cobol program just to count the number of records in a file. We would count the number of records using DFSort or SyncSort, or use AMS(Idcams ...
sivachennai
- Nov 5th, 2008
In this code i am using cnt for finding the number of records.0700-LOAD-UOM-FILE.READ MPSF-item-FILE AT END MOVE WSL-Y TO WSW-ITEM-FILE-SWT MOVE WS-ITEM-TAB-CNT TO WS-UOM-ITEM-MAX GO TO 0700-LO...
-
What happens if we code Exit program instead of Stop Run in main program
-
If a simple cobol program has no syntax error, then is it necessary to compile it?
burelamanohar
- Dec 13th, 2011
Without compiling the program, is it possible to find whether it doesnt have errors? If Yes,
Could you please let me know what is the procedure you are following to find the errors?krishna
- Oct 11th, 2011
Compilation converts the source code in to object code but the object code is not executable in mainframe environment so we need to link-edit it by using iewl............compilation is must for the programs to execute...............
-
What does LINK-EDIT do actually?
siddu reddy
- Aug 1st, 2011
LINK-EDIT is a process of linking object codes into a single Executable Load module by using IEWL? HEWL Utility
talluri
- Jul 27th, 2011
Compilation converts source code to object code LINK_EDIT process is used to place the object code in load module
-
Consider the following progrm statements MOVE 0 TO SW.NO.OF.REC PERFORM PRI-OUT UNTIL SW=1 DISPALY NO.OF.REC STOP RUN PRE-OUT READ IN-FILE AT END MOVE 1 TO SW WRITE OUO-REC FROM IN-REC ADD 1 TO NO.OF REC if the IN-FILE contains 1000 records what value will be displayedafter the PERFORM is over?assume that N0.OF.REC has PIC 9(4) a.1000 b.1001 c.1 d.none of the above since there is a syntex error
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
-
C1 C2 C3 are three conditions whose TRUTH values are as follows.
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 -
What is an in line PERFORM? When would you use it? Anything else to say about it?
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
- 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.
-
What is the maximum size of the variable length record?
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.
-
How data names with comp1 usage is stored in memory ? What is difference between comp1 comp2 , comp3 and binary ?
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
- 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...
-
-
What is difference between Initialize and value?
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
- Jul 27th, 2011
INITIALIZE verb is used to refresh the alphabetic & alphanumeric empty fields with SPACES and numeric empty fields with ZEROS
-
Called and calling program for cobol with cursor
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.
-
How to pass paramter from cobol to Jcl
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.
-
What will happen if a cursor is opened again before closing?
A cursor is opened.After fetching few rows. it is opened again before closing it.What will be the result?
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
-
In Cobol we may get return code of 4 or 8 or 12 or 16, If this is the case why the picture clause of return code in alphanumeric field? why not numeric?
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
- 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...
COBOL Interview Questions
Ans