sadiks

• Jun 22nd, 2016

Answer is 40 - value of X is 10 -- add 40+10+10 = 60 ---> x=(3*60)-40 = 180 -- but pic declared as 99 -- right to left move so Answer is 40

Saranya

• May 28th, 2016

Add statement will add 40+10(value of X)+10(value of X) and the result will be stored in X as 60. Then, the compute statement multiples the value of X by 3 and subtract by 40. So, the value of X will ...

Answer Question  Select Best Answer

nids

• Jan 17th, 2019

Perform varying sub from 4 by 1 until sub is greater than the occurs area. Move spaces or zeros to the fields in the occurs.

Guest

• Apr 3rd, 2018

Hi,
I have query regarding the initialization of occur clause.


01 WS-TABLE.
02 WS-DETAIL OCCURS 20 TIMES.
COPY DDS-ALL-FORMAT OF TESTPF.

Query - How can I initialize WS-DETAIL for particular index 5 where up to index 4 having data in WS-DETAIL?

Answer Question  Select Best Answer

srinivashn82

 Profile Answers by srinivashn82 Questions by srinivashn82

• Oct 26th, 2007

Using CICS online panels . you can. if it is cobol-CICS

kckinney

 Profile Answers by kckinney Questions by kckinney

• May 25th, 2007

I suppose you could set the program to poll an input file. The difficulty you'd have is that while it isn't polling, it's probably looping. That's a good way to get your program swapped out or cance...

Answer Question  Select Best Answer

sachina2z

 Profile Answers by sachina2z Questions by sachina2z

• Sep 25th, 2009

Its basically a loop to execute a group of statements without jumping any where else in the program.

mnmkiran

 Profile Answers by mnmkiran Questions by mnmkiran

• Aug 11th, 2009

It is unsorted data if you want to eliminate duplicate records.

Answer Question  Select Best Answer

Srinivas Enumula

• Sep 8th, 2017

Copy - Expand the copybook statements during compilation time.

Include - Expand the copybook statements during pre-compilation time. Usually for DELGENS we use INCLUDE as DCLGEN statements needed during pre-compilation process.

surya

• Dec 31st, 2015

Copy will be used in the cobol compile process and Include will be used during the Db2 precompile process. So we include a Dclgen. We cannot copy a dclgen..If so the program will fail the compilation.We can include a copybook too.

Answer Question  Select Best Answer

sashi

• Nov 19th, 2014

I have one ps file it contain 2 headers ans 2 tiles each header contain some records now my requirement is i want 2 header contain some records copy to out put file is this possible could u please suggest me.

Rishi Sharma

• May 22nd, 2014

Yes it can be done by following code:

Code
 

Answer Question  Select Best Answer

The linkage section is part of a called program that 'links' or maps to data items in the calling program's working storage. It is the part of the called program where these share items are defined.

rpg0247

 Profile Answers by rpg0247 Questions by rpg0247

• Jul 4th, 2011

It is used to pass data from one program to another program or when we pass data from JCL thru parm perameter to the program, we should use lenkage section in the program to retrieve the data.

vjjammi

 Profile Answers by vjjammi Questions by vjjammi

• Aug 7th, 2010

The Data that the sub program is going to receive from the Main program is declared as part of the linkage section in the sub program. Hence, the identifiers in the Linkage section are used when being called by a main program.

Answer Question  Select Best Answer

ajayreddy

• Nov 17th, 2014

When program designed to receive data from jcl or from other programs appropriate data items should be defined in this linkage section. Through the data items defines in this section,program will get...

Pradeep CR

• Aug 28th, 2014

Linkage basically used for to receive date, that is external to the program. So you can able to send the data to the processing program by JCL through PARM parameter. For this you have to declare 2byt...

Answer Question  Select Best Answer

talluri

 Profile Answers by talluri Questions by talluri

• Jul 27th, 2011

USING INDEX

set IX1 is 1.
perform varying from 1 by one until IX1>5
read sno(IX1)
read sname(IX1)
set IX1 up by 1
end-perform.

TheMadProfessor

 Profile Answers by TheMadProfessor Questions by TheMadProfessor

• Oct 12th, 2009

SUB1 PIC 999INDEX1 USAGE INDEXMOVE 5 TO SUB1SET INDEX1 to 5.Then either ARRAY(SUB1) or ARRAY(INDEX1) will point to youir 5th iteration. 

Answer Question  Select Best Answer

87chumma

 Profile Answers by 87chumma Questions by 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.

Kariab

 Profile Answers by Kariab Questions by Kariab

• Apr 8th, 2010

Goback ends the processing

Answer Question  Select Best Answer

Which one of the following COPY statement is correct?1) COPY COPYFILE REPLACE ==PRE-== ==WK-==2) COPY COPYFILE REPLACING =PRE-= =WK-=3) COPY COPYFILE SUPPRESS4) COPY REPLACING ==PRE-== ==WK-== IN COPYFILE5) COPY SUPPRESS COPYFILE

Abhusha

• Nov 20th, 2014

COPY COPYFILE REPLACING =PRE-= =WK-= is the correct answer

correct syntax Syntax:
COPY copybook-name [(OF/IN) library name]
[REPLACING string-to-be-replaced BY replacing-string]

Rishu

• Jul 27th, 2014

1st one the answer

Answer Question  Select Best Answer

Give example of Inspect TALLYING / BEFORE INTIAL / AFTER INITIAL. In which situation will use this in COBOL?

srinivas yadav

 Profile Answers by srinivas yadav Questions by 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

 Profile Answers by sainathkadam Questions by 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.

Answer Question  Select Best Answer

INITIALIZE moves spaces to alphabetic fields and zeros to alphanumeric fields. The REPLACING option can be used to override these defaults.

sunapana

 Profile Answers by sunapana Questions by 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

 Profile Answers by panzer1 Questions by 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.

Answer Question  Select Best Answer

talluri

 Profile Answers by talluri Questions by talluri

• Jul 27th, 2011

One to many possible

many to many not possible

many to one not possible

many to many not possible

Babjee Talluri

TheMadProfessor

 Profile Answers by TheMadProfessor Questions by TheMadProfessor

• Oct 12th, 2009

No, while a single sending field can be sent to multiple targets such as MOVE A to C, Dthe only way to send mutiple sending fields to multiple target fields is via a MOVE CORRESPONDING.

Answer Question  Select Best Answer

TheMadProfessor

 Profile Answers by TheMadProfessor Questions by TheMadProfessor

• Oct 12th, 2009

MOVE copies data from one field within the program to another. WRITE creates an entire record that is written to an external file defined to the program.I believe you are referring to 'TALLYI...

dipti

• Dec 12th, 2006

there is a registor called tally so the count is stored in this tally reg using tally verbmove to move the values between variables or between literals and variables or between corresponding variables having the same qualifierswrite is used to write a record in a file

Answer Question  Select Best Answer

guptavik1

 Profile Answers by guptavik1 Questions by guptavik1

• Aug 27th, 2011

(A) S9(3)V99 COMP-3 will occupy (N/2 +1) if N=Even and (N+1)/2 if N=Odd. Here N=5 which is odd. Hence, No of bytes used for storage internally=3 bytes (B) S9(1)V99 COMP will occupy based ...

talluri

 Profile Answers by talluri Questions by talluri

• Jul 27th, 2011

Comp-3 will occupies 3bytes

comp doesn't allow the decimal values

Babjee talluri

Answer Question  Select Best Answer

ansgar

 Profile Answers by ansgar Questions by ansgar

• Dec 13th, 2011

Not always correct. In our computer Comp = Comp-3.
So always check the manual of the compiler.

Kamal

• Nov 16th, 2007

For all of you out who have not heard about comp-4. Wake up. Comp-4 does exist and it is just like comp - ie. it is a half-word (2 bytes).This might help those of you who are confused about comp ...

Answer Question  Select Best Answer

natarajan

• Aug 22nd, 2017

Using sort utility, include the following command
sum fields=none;

Vengat

• Mar 19th, 2015

Sum Fields = None will do it

Answer Question  Select Best Answer

vijay

• Jul 31st, 2011

------>Just read all records into an array....
------>Then read records in reverse order by using subscript or index from array....
------>Now write records into new file....

P.Karthikkumar

• Jan 17th, 2007

Hi, It is possible through jcl. For example if the input file contains 80 record length thenIn sort, INREC=(1:1,80,81:SEQNUM,6,ZD),SORT FIELDS=(81,6,ZD,D),OUTREC=(1:1,80) 1) Using inrec...

Answer Question  Select Best Answer

chinmay

• Nov 21st, 2011

Occurs clause is repeated occurrences of a field with same format, not for records that's why we can't define
occurs clause in 01 level.

sameeuddin

• Aug 16th, 2011

At 01 level it expects the record structure

Answer Question  Select Best Answer