01 a pic 9(6) value is 123456
01 b pic 9(3)
move a to b

wht will be the value ?

Answers were Sorted based on User's Feedback



01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / ravi

456

Is This Answer Correct ?    27 Yes 0 No

01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / kiran

456

Is This Answer Correct ?    6 Yes 0 No

01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / nilesh

456 would be the value in b.

Is This Answer Correct ?    3 Yes 0 No

01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / itha

a will be 123456
b will be 456

Is This Answer Correct ?    2 Yes 0 No

01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / pradip

ravi is right

Is This Answer Correct ?    2 Yes 1 No

01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ? ..

Answer / shweta

456 would be in B

Is This Answer Correct ?    1 Yes 0 No

Post New Answer

More COBOL Interview Questions

What is the default value of DISP parameter?

3 Answers   IBM,


Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb

1 Answers  


Can printer files (having 133 characters) be of variable length?

3 Answers  


here is my compile and link edit steps in a jcl //COMPILE1 JOB (3CUS,S),'CCDM TEST' //STEPNAME EXEC PGM=IGYCRCTL,PARM='DYNAM,RENT,LIB,OBJECT, // OFFSET,APOST,OPTIMIZE',REGION=4096K //STEPLIB DD DSNAME=PM7351.TEST2.COB,DISP=SHR //SYSIN DD DSNAME=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT3 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT4 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT5 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT6 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT7 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOAD,DISP=(MOD,PASS),UNIT=SYSDA, // SPACE=(10,(10,10)),DCB=BLKSIZE=400 //LKED EXEC PGM=IEWL,REGION=1024K //SYSPRINT DD SYSOUT=A //SYSLIB DD DSN=PM7351.TEST2.LOADLIB,DISP=SHR // DD DSN=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSLMOD DD DSN=PM7351.TEST2.LOADLIB, // DISP=SHR //SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(CYL,(1,1)) //SYSTERM DD SYSOUT=* //SYSLIN DD DSN=&&LOAD,DISP=(OLD,DELETE) //SYSIN DD DUMMY i am getting IEW2013I 0F08 NO MEMBER NAME WAS SPECIFIED. MODULE WAS SAVED USING TEMPNAM1. could any one tell me the resolution for this..?

1 Answers  


There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.

8 Answers   Danske, iGate,






A cobol program to read a file , match it with other if. If match occurs then write it to an output file. If no match then no need to write it.Error log created by program to track any error.

1 Answers  


can I copy book which contain db2 statment in procedure divion?

2 Answers   Bank Of America,


How to recover a deleted source physical file from library?

1 Answers   HCL,


What do you feel makes a good program?

2 Answers  


consider the following two statements MOVE 10 TO N PERFORM PARA-X N TIMES STOP RUN PARA-X MOVE 5 TO N how many times PARA-X willbe exicuted? a.10 b.5 c.infinate d.execution error

6 Answers   ABCL, TCS,


wirte a pgm in using files in which we hav 10 ,20,30 40...100 records in inputfile and i want them to be send to outputfile in reverse order. PLZ HELP ME OUT .........THIS IS A RECENT QUESTION IN IGATE..

5 Answers   iGate,


How do define dynamic array in cobol.

0 Answers  


Categories