Answer / minhaj

01 p pic 9(02) value zero.
01 q pic 9(02) value 99.
01 r pic 9(02) value 1.

p = q+r.
actual p value = 100. but p value is numeric so it writes
from right to left tuncations will be taken left side.
so p value = 00 if u want p = 10 then use justifications

Answer / reddy kanupuru

u will get 00 only.

Because any numeric move will start from decimal pont

for exp : as per the given ques

compute p = q+r =100

here the decimal point is placed at the right side .

100.

so if u move that to 99 , means before point two digits
(00) will be moved .

another exp:

q = 99v99

01 r pic 99v99 value 100.345
move r to q

the value is 00v34

Answer / sam

01 p pic 9(02) value zero.
01 p1 pic 9(03) value zero
01 q pic 9(02) value 99.
01 r pic 9(02) value 1.
01 s pic x(02) value spaces.

p = q+r.
actual p value = 100. but p value is numeric so it writes
from right to left tuncations will be taken left side.
so p value = 00 if u want p = 10
but we cann't use justifications
since justification claue works on alphanumeric field.
so compute p1 = q+r.
move p1 to s . ( here s will contain value 10)
now move s to p.then p will be 10.

Answer / minhaj

p = q+r actuall result is p = 10 but u want p = 10 so we
right the code as p = q+r justified right

Answer / nataraj

q value is 01
r value is 99

after compute p value is 100

normally value is printed left to right so u get 10
place of p

Answer / jayaprabhu

simple always remember that for numeric it's Left
Justification ie TAKE FROM LEFT PLACE FIRST IN LEFT

SO P=100 but as per you it shd be 00 but it will be 10

1 IS FROM LEFT SIDE MOST THEN 00 so if we move as per above
then
p is pic9(02)

so 10 first 1 is moved from left to left then 0 is moved
but since pic 9(02) only to digits get moved

88 class is used for

5 Answers   CTS, EDS,

how do you move only numeric data from A to B 01 A pic x(10) value 'a1b2c34d5e'. 01 B pic x(5).

2 Answers   DELL, Mind Tree,

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  

how would find total records in files using seqientional

1 Answers   HSBC,

how to code in cobol while using variable block file?

1 Answers  

how to change picture class of copy book variable inside program?

2 Answers  

Explain how you can characterize tables in cobol?

0 Answers  

how will u retreive value from a table.write it with syntex. 01 ws-table 05 ws-table1 occurs 10 times. 05 ws-table2 occurs 10 times. the above is 2 dimensional array..how will u retrieve 1st element of an array

3 Answers   ADP,

can any one give good example for cond 88 level number and for renames pls urgent dudes ?

3 Answers   DELL,

01 a pic s9(5) value -12345, if we disply a , the sign will overpunched with last digit but i need to get the miuns sign in the result?

7 Answers  

What is XDC ?

3 Answers   Cap Gemini, IBM,

how we can reverse the string in the cobol for example satheesh can be reveresed as hseehtas

3 Answers   IBM,