Code: |
01 ws-new pic s9(4) comp value 36125. 01 ws-old pic s9(4) comp value 27053. 01 ws-result pic s9(8) comp. |
Code: |
01 ws-a pic s9(4) comp 01 ws-a-x redefines ws-a pic xx. 01 ws-dest pic s9(4) comp 01 ws-dest-x redefines ws-dest pic xx. 01 ws-sysin pic 9(5). procedure division accept ws-sysin move ws-sysin to ws-a compute ws-dest =ws-a -1 display ws-a :" ws-a-x ":" ws-dest ":" ws-dest1 |
deepa12 wrote: |
When its displayed in intertest, its showing F5F6F4D6 I would like to know how it shows this value ws-sysin takes 32615 result is: ws-a is 2941J WS-A-X is 8D1D WS-DEST IS 2941K WS-DEST-X is 8D1C i would like to know how it shows 2941J |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours