what if any ,is the syntax error in the following piece of code
01 B PIC A(7)
02 C PIC 9(4)
........
IF(B NUMERIC)
ADD 10 TO C
a.the condition in the if statement is wrong
b.noting is wrong
c.because C is initialised.ADD 10 TO C is wrong
d.both B and C shoud have same size.



what if any ,is the syntax error in the following piece of code 01 B PIC A(7) 02 C PIC 9(4) .......

Answer / dimpy19

"B (ALPHABETIC)" did not have a valid type for the specified class condition. T
nformational Warning Error Severe Terminating


WORKING-STORAGE SECTION.
01 B PIC A(7) VALUE '1'.
01 C PIC 9(4) VALUE 2.
PROCEDURE DIVISION.
IF(B NUMERIC)
ADD 10 TO C.
STOP RUN.

Is This Answer Correct ?    4 Yes 0 No

Post New Answer

More JCL Interview Questions

When we give TYPERUN = SCAN , what are the syntax errors we get?

5 Answers   Kanbay,


what is the JCL statement consists of?

0 Answers  


Where & How Do You Code Identifier In Jcl?

0 Answers   IBM,


What do we mean by 'Virtual storage' for a dataset and for a JOBSTEP ? What is the significance of the following statement for a programmer 'Virtual storage results in program addresses being independent of the addresses that actually exist in a computer' ?

0 Answers  


What is the function of //cntl statement?

0 Answers  






consider the following progrm statements MOVE 0 TO SW.NO.OF.REC PERFORM PRI-OUT UNTIL SW=1 DISPALY NO.OF.REC STOP RUN PRE-OUT READ IN-FILE AT END MOVE 1 TO SW WRITE OUO-REC FROM IN-REC ADD 1 TO NO.OF REC if the IN-FILE contains 1000 records what value will be displayed after the PERFORM is over? assume that N0.OF.REC has PIC 9(4) a.1000 b.1001 c.1 d.none of the above

1 Answers  


Describe the various parameters utilized in the creation of a gdg?

0 Answers  


Can we use DISP=SHR in output file in JCL

0 Answers  


Differentiate between addressing mode and run mode.

0 Answers  


How to resolve the error "WER488A JOIN CAPACITY EXCEEDED" I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem? I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem?

1 Answers  


What is COND=ONLY ?

2 Answers  


what is DD statement is used in JCL?

0 Answers  


Categories