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

Which Search verb is equivalent to PERFORM…VARYING?

687


If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly

2661


What is the difference between structured cobol programming and object alternativelyiented cobol?

757


Write a cobol program making use of the redefine clause.

739


What are the different types of condition in cobol and write their forms.

660






Write the code to count the sum of n natural numbers.

703


) How do u handle errors in BMS macro?

1429


How do you define a variable of comp-1 and comp-2?

707


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

766


What is the default value(s) for an initialize? What keyword will allow for an override of the default?

661


What are different data types in cobol?

694


how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)

1931


How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?

1949


How do you reference the fixed block file formats from cobol programs

709


What is the Purpose of POINTER Phrase in STRING command in COBOL?

723