01 a pic x(6) value is abcdef
01 b pic x(3)
move a to b wht will be the value in b ?

Answers were Sorted based on User's Feedback



01 a pic x(6) value is abcdef 01 b pic x(3) move a to b wht will be the value in b ?..

Answer / ravi

abc

Is This Answer Correct ?    21 Yes 0 No

01 a pic x(6) value is abcdef 01 b pic x(3) move a to b wht will be the value in b ?..

Answer / prasanna

b value is abc

Is This Answer Correct ?    7 Yes 0 No

01 a pic x(6) value is abcdef 01 b pic x(3) move a to b wht will be the value in b ?..

Answer / kiran

abc

Is This Answer Correct ?    4 Yes 0 No

Post New Answer

More COBOL Interview Questions

I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......

4 Answers   Accenture,


Give some examples of command terminators?

0 Answers  


how do u link sub pgm to main pgm ?

2 Answers   TCS,


Can the OCCURS clause be at the 01 level?

2 Answers  


How many variables can be declared in w-s section.?

2 Answers  






What are the different data types available in COBOL?

4 Answers  


what is scope terminator

2 Answers   IBM,


What is redefines clause in COBOL?

0 Answers   B-Ways TecnoSoft,


I am sending values a and b with pic x(10) and pic x(10) by using call statement. In linkage section, I am receiving values with pic x(10) and pic x(11). Will my program fail? will it be compile error or run time abend?

3 Answers  


how to submit a jcl by cobol program. clear me with an example.

3 Answers   HCL,


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  


What is the Purpose of Pointer in the string?

0 Answers  


Categories