WORKING-STORAGE SECTION.
77 W-A PIC 9(3)V99 VALUE 23.75.
77 W-B PIC ZZ9V99 VALUE 123.45.
PROCEDURE DIVISION.
MOVE W-A TO W-B.
DISPLAY W-B.
STOP RUN.
compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o
subject data item. The "VALUE" clause was discarded.
WORKING-STORAGE SECTION.
77 W-A PIC 9(3)V99 VALUE 23.75.
77 W-B PIC ZZ9V99.
PROCEDURE DIVISION.
MOVE 123.45 TO W-B.
MOVE W-A TO W-B.
DISPLAY W-B.
STOP RUN.
2375
- 0 Answers
- 1049 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
what is XSUM in some fields= none, xsum ??
What is the error code SOC01 indicate ?
diff bw vsam and normal flat file?
I have a dataset with record length 40 in production, due to some requirements it was changed to 80. Then how can we know the jobs which are effected by this change and how can we resolve it.
what is the function of spool command?
How to override a dsn that is contained in a proc called by another proc? I need to do the override in the calling jcl?
i have 10 steps in jcl program but i have to exicute only 2,4,6,8th and 10th ?how it's possible?
Hi, Say I have 10 flat files and I want to copy all these 10 flat files to a GDG versions flat files (I have GDG base: FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot using a JCL. May be by using IEBGENER. It's a bit urgent. So anyone's fast rely would be appreciated.. Thanks in advance.. 10 flat files ----------------------------------- FDWS01.SUB.RESTORE1 FDWS01.SUB.RESTORE2 FDWS01.SUB.RESTORE3 ; ; FDWS01.SUB.RESTORE10 TO GDG versions ----------------------- FDWS01.TEST.RESTORE.G0001V00 FDWS01.TEST.RESTORE.G0002V00 FDWS01.TEST.RESTORE.G0003V00 ; ; FDWS01.TEST.RESTORE.G0010V00
How many positional parameters are there in job statement?
what is alternate index?
How to execute only th 15th step of JCL consisting of 50 steps?
Explain about CBL/PROCESS statement syntax
COBOL 
