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.
Post New Answer View All Answers
Why block size is multiple of lrecl in jcl?
Matching Logic in Jcl not in cobol.Could any one please answer this question
What are the parameter we cannot use in procedure?
How does jcl act on code(if you take a cobol program)?
What methodology can be adapted to transfer data to a program that is coded using the exec statement?
What is the significance of addrspc parameter in the exec statement?
Differentiate between the joblib and the steplib statements?
What does a disposition of (new,catlg,keep) for a dsn mean?
What statement marks the beginning of a job step; assigns a name to the step; identifies the program or catalogued or in-stream procedure to be executed in the step?
I have mainpgm(abc) this is the only cobol pgm(non-db2).And this pgm calling subpgm name "acd" this also only cobol(non- Db)and this pgm calling some other subpgm this pgm has cobol-db2 pgm. 1) IF you calling static mode how to run and how to compile? 2) IF you calling dynamic mode how to run and how to compile? plz suggestion me.
Define concatenating?
Explain the function of dd disp parameter?
What is the purpose of dd?
What is the function of job statement in jcl?
Is it possible to code instream data in a PROC?