WORKING-STORAGE SECTION.
01 GROSS-PAY.
05 BASIC-PAY PIC 9(5).
05 ALLOWENCES PIC 9(3).
PROCEDURE DIVISION.
MOVE 1000 TO BASIC-PAY.
MOVE 250 TO ALLOWENCES.
DISPLAY GROSS-PAY.
STOP RUN.
77 W-A PIC 9(3)V99 VALUE 23.75
77 W-B PIC ZZ9V99 VLAUE 123.45
after the statement
MOVE W-A TO W-B
what will be W-B's value?
a.123.75
b.b23.75 (where b indicates space)
c.023.75
d.invalid move
- 0 Answers
- 945 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
Is their any set of rules for dd? Explain.
Must tape dataset definitions include vol=ser specifications?
WHAT IS DUMMY IN JCL? HOW TO USE IT? CAN ANYBODY SEND PROGRAM ON THIS?
how to solve u4038 abbend?........
How to read and write a single record into a file. I would like to use it to enter a single 8-character piece of information and use it to put it into a variable for processing in JCL. Thank you
When a dataset is UNCATALOGED in a JOBSTEP, how to get its UNIT and VOL in JCL to refer in subsequent steps ?
How can I write the joblog in the spool on normal end of a job step and direct the joblog to a dataset only if the step abends?
How dummy is used in jcl?
In JCl which of this activities get executed if act002 abnormally terminates //job001 job ......... //act001 exec pgm=cobo01 //act002 exec pgm=cob02, cond=(01,le) //actoo3 exec pgm=cob03, cond=only //actoo4 exec pgm=con04
What is the meaning of the following declaration : DCB=BLKSIZE=, What is the difference between above declaration & not specifying DCB at all for a output file?
what is “Cond= even” and “Cond=only”?
How to release the Output HELD by using HOLD = YES on DD statement ?
COBOL 
