ID DIVISION.
PROGRAM-ID. PLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAR1 PIC 9(2).
01 VAR2 PIC X(2).
PROCEDURE DIVISION.
ACCEPT VAR2.
MOVE VAR2 TO VAR1.
STOP RUN.

if i give 'PI' in var2 then what will b output of progr.
any abend?????

Answer Posted / dev

ABEND=S000 U4038 REASON=00000001. I have tested the program.

Is This Answer Correct ?    3 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How are the next sentence and continue different from each other?

772


What are the different rules of SORT operation?

704


Can we change the password using ALTER? anyone tried and changed?

1554


Explain the configuration section of a cobol program with examples of syntax.

664


What is Pic 9v99 Indicates in COBOL?

735






What is amode(24)?

686


In which area will you utilize 88 level items in cobol?

731


What rules are followed by the search verb.

644


How to print 10 to 1 if the input have only 10 digit number?

821


I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?

1814


write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc

728


What is the compute verb? How is it used?

673


Difference between array and sub-script ?

1171


Why did you choose to work with ibm mainframe cobol programming?

637


how do you reference the variable block file formats from cobol programs

694