WORKING-STORAGE SECTION.
1 GROUP-ITEM.
05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50.
05 AMOUNT-2 PIC 9(4)V99 USAGE COMP.
PROCEDURE DIVISION.
MOVE ZERO TO GROUP-ITEM.
ADD 50 TO AMOUNT-1.
DISPLAY AMOUNT-1.
STOP RUN.
- 1 Answers
- 1460 Views
- I also Faced
- E-Mail Answers
Explain about LMGET�read a logical record from a data set
how do you access an uncataloged dataset in a jcl?
Many jcl statements contain specific values designed to direct and control the execution of the statement. What are these fields called?
What is the maximum length of a single line of jcl?
Explain how can values be passed from the job stream to an executable program?
How to find in aparticular step how many versions a paricular gdg base have?
which are the parameters mandatory in job card ?
What is the meaning of the EXEC statement keyword, COND? What is its syntax?
what is use of dcb parameter in dd statement?
What is the improvement to COND= in the latest version of MVS?
Can we DELETE all the Generations of a GDG at once, WITHOUT deleting the GDG itself ?
How to find the number of duplicates in a file using Sort?
COBOL 
