-
How include time & date in the report generation in cobol programing?
nikaturbina
- Jun 1st, 2011
1) Get the current date using MOVE FUNCTION CURRENT-DATE (1:8) TO WS-DATE 2) Get the current time using MOVE FUNCTION CURRENT-DATE (9:6) TO WS-TIME
kalone
- May 19th, 2011
There are 2 methods to include Time and date :1. Move FUNCTION CURRENT-DATE to WS-Timestmp.2a. Accept WS-timestmp from DATE .2b. Accept WS-timestmp from TIME .
-
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...
-
What does the initialize statement do ?
sujithdan
- Mar 8th, 2011
INITIALIZE is basically used to initialize or set the initial value of variables that we use in a COBOL program. For numeric variables (PIC (9) ), the value of the variable will be initialized to zero...
janrev
- Jun 24th, 2008
Initialize will move zeroes to numeric items(9) and spaces to alpha-numeric items.(X)
-
How to edit comp-3 variable in cobol?
I have date 20101010 which is stored as comp-3 . Now I want to change this date to 2010-10-10 format. How to achieve this?. I also believe that we can't split comp-3 variable.Am I rite?..Help folks!!
rakhi asthana
- Feb 18th, 2011
If you have accepted the amount as 126778.12 from user and have to move it in COMP-3 variable then declares a user defined fields as 9(11).99 and accept the above variable into it, then move it into?...
Neha Bhargava
- Nov 12th, 2010
We cant move the variable of type S9(10)V99 COMP-3 to ALPHANUMERIC directly.Plz declare a intermediate variable of type +9(10).99 and move it to the alphanumeric.. It works. In your case if we take th...
-
Explain the Endevor list selection options - BX, CX, HX, LL, LO, LI, LC and SX Which among these are used to browse the components?
gsilpa
- Feb 14th, 2011
BX - Browse, A Browse command presents a read-only view of the element content.CX - Changes, The Changes display shows changed (and deleted) lines from the previous revision. HX - History, A His...
-
Comp-3
What is comp-3 and advantage with examples?
murali.kv.krishna
- Dec 24th, 2010
All computational usages are to compress data.comp3 is converts data into packet decimal format.each byte is divided into two characters in comp3.based on the type of length specified l...
shaikmf
- Jun 11th, 2008
COMP-3 is a computational method used in COBOL. COMP-3 is represented in Packed Decimail format. Decimails are alloed to this COMP-3 Field. Each digit occupies 1/2 bite of memory, so this declara...
-
We have two files. and we want to write the matching records from both the files to a third file.There can be duplicate records in both the input files.
Sree
- Feb 2nd, 2007
sort the two files in assecding order.. with maching sequence take one file as master file and read the master file first and read the other file for matching compare the maching value if machval1...
-
INSEPCT
Give example of Inspect TALLYING / BEFORE INTIAL / AFTER INITIAL. In which situation will use this in COBOL?
srinivas yadav
- Sep 16th, 2010
-> Inspect is used to count the number of characters in a string.-> Inspect is used for replacing the string of characters.-> It is also used for converting the string of characters. Let us see exam...
sainathkadam
- Sep 13th, 2010
INSEPCT verb is used to count or replace characters in a dataitem (string).
Tallying is used for count the characters and replacing is used for replacing
the character by other characet.
-
What will happen if we give GOBACK instead of STOPRUN in a cobol program which is not called by some other program?
87chumma
- Aug 27th, 2010
When the goback is specified in the mainprogram, the control will go back to the runjcl from which step the control came. It will start executing the next step in the JCL if available, the program will continue normally.
-
In-line PERFORM and out-line PERFORM
what is the in-line PERFORM and out-line PERFORM?
subha2010
- Aug 10th, 2010
In line perform performs the conditions before coming into the para and out line perform performs with in a range PERFORM end-PERFORM
ramesh4greek
- Jun 11th, 2010
IN-LINE PERFORM:PERFORM .......................................END-PERFORM.The statements which are under Scope perform is called IN-LINE PERFORM.OUT-LINE PERFORM:Other than any other perform is calle...
-
INSPECT and EXAMINE
What is the difference between INSPECT & EXAMINE?
subha2010
- Aug 10th, 2010
Inspect will inspect leading space and special characters ..Examine will check for spaces even in between statements.
masti.mainframe
- Sep 3rd, 2009
Both are same meaning one is used in Cobol-II other in Cobol-I. According to syntax INSPECT identifire-1 TALLYING identifier-2 FOR ALL identifire BEFORE identifire. ...
-
What is difference between RM COBOL & MF-COBOL & Pro COBOL & VS-COBOL or Do we have any other type of COBOL ?
Can you please explain how these differences?
subha2010
- Aug 10th, 2010
We have ND-COBOL ACU-COBOL...all these depends on the machine in which we work
-
What is the difference between a subscript and an index in a table definition?
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
- 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
- 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.
-
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...
-
Comp and Comp-3
In real time in which situations we can use comp-3 and comp. What is the major difference between these two?
ramesh4greek
- Jun 11th, 2010
In COMP the data is stored in binary format, and displayed in character format.In COMP3, the data is stored as the above formula. For lower bound values COMP is best and for upper bound values COMP3 is better.
mainframerek
- Apr 15th, 2010
Comp-3 is more efficient than Comp.Comp: Binary representation of data, can contain only S, 91 - 4 : 2 bytes (1/2 word)5 - 9 : 4 bytes (Full word)10 -18 : DoublewordComp-3 : P...
-
When is a scope terminator mandatory?
Scope terminators are mandatory for in-line PERFORMS and EVALUATE statements. For readability, it's recommended coding practice to always make scope terminators explicit.
ramesh4greek
- Jun 11th, 2010
The usage scope terminator exactly can get at Perform. For example if you are in Table creation, then you can use multiple paras in that one. But by In-line perform you can avoid to create multiple pa...
himanshu kaushik
- Dec 20th, 2006
In line perform & evaluate verb. in these two scope terminator is mandatory.
-
What is the reference modification
ramesh4greek
- Jun 11th, 2010
Yes the above 2 steps are correct. By using reference modifcation we can write reverse of a string, right angle and piramid.........
pawan_kch
- Jun 20th, 2008
Reference modification is used to retrieve/replace the set of characters from a string.Ex: MOVE WS-VAR(1:5) TO PV-VAR. MOVE 'GEEK' TO WS-VAR(1:4).
-
What is Load module & Link edit and How will it work Dynamic call?
Normally we are using Dynamic call. What will happen when COBOL program compilation & execution.
ramesh4greek
- Jun 11th, 2010
Load Module: The object code converted into Load Module (Machine readable form) by using Link edit that's common in COBOL. But in Dynamic call, first we have to submit the sub progs later we can use that in Link section in COBCOMP. That's the procedure.
venkat65318
- Sep 14th, 2009
Link edit is the process of linking of object codes of similar programs to form a single executable load module.Linkage of object codes of mainprogram and subprogram is done during execution.??
-
What is the diffrence between endeavor and changeman?
kiran_28
- May 26th, 2010
Change man cost more for company but time less.Endeavor saves money more but takes time to execute job more.
Dinesh
- Apr 13th, 2007
Both Endeavor and Changeman are version control tool in Mainframe where you can elevate your components into production. A pacakge can be created and stage the componets that to be elevated to prodcution.
-
What is the default value(s) for an INITIALIZE and what keyword allows for an override of the default?
INITIALIZE moves spaces to alphabetic fields and zeros to alphanumeric fields. The REPLACING option can be used to override these defaults.
sunapana
- Apr 17th, 2010
DATA DIVISION. WORKING-STORAGE SECTION. 01 Var-C. 05 Var-d PIC x VALUE "A". 05 Var-e PIC 9 VALUE 5. 05 FILLER PIC X(2) VALUE 'HI'. PROCEDURE DIVISION. PUTPARA. DISPLAY VAR-D. DISPLAY VAR-E. ...
panzer1
- Feb 1st, 2010
Yes, the "VALUE' is used once to set the value at the beginning of the program execution.The "INITIALIZE" can be used multiple times any where in the program after execution begins.
COBOL Interview Questions
Ans