Can we use MVC instruction to move pack field to pack
field....which instruction you will use and why ?

Answer Posted / rich hornak

MVC Will work but as explained you must compensate for different lengths.
The more practical instruction would be the ZAP Zero and Add Packed.

The ZAP will adjust for different lengths and propagate leading zeros when a smaller field is being moved to a larger field.

TOTAMT DC PL5'0'
NEWAMT DC PL3'0'

Current Value of TOTAMT X'453789225C'
Current Value of NEWAMT X'00100C'

ZAP Instruction
ZAP TOTAMT,NEWAMT

New Value of TOTAMT After ZAP
TOTAMT DC PL5'000000100C'

Is This Answer Correct ?    7 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is house keeping in assembler?

763


What does the following code do? Ap wkur,=p5 where wkur is a label?

812


Explain the difference between various read and find statement and which one should be used when for better adabas performance?

755


What does "using" do?

770


Ap wkur,=p5 where wkur is a label?

865


How is data passed from a calling program to an assembler called program?

807


How do you round the addition or subtraction of two numbers in assembler?

784


Explain the difference between various read and find statement?

814


In the house keeping section of an MVS assembly language program, like the one below STM R14,R12,12(R13) BASR R12,R0 USING *,R12,R11 LA R11,2048 LA R11,2048(R11,R12) .... .... 1. What if BASR R12,R0 IS NOT PRECEDE USING *,R12,R11? 2. USING (base address), REGISTER does USING directive says assembler to treat particular Register as a base register with the mentioned base address..in the above case * i.e current location counter..well if that is the case why we need BASR R12,R0 ? 3. What if I write like STM R14,R12,12(R13) BASR R12,R0 LA R11,2048 LA R11,2048(R11,R12) USING *,R12,R11 there is no address resolution being calculated in both LA statements so is it a right way to set Base register?..will there be any issues with Domain regarding R11 and R12?

1726


What is need of start 0? In steed of can we use anyother numerics? If we use what will happen?

827


Explain how to pass instream data in sysin with assembler?

823


Explain how to produce soc7 abend?

816


What is the use of trt instruction?

774


how to pass the parameters from jcl to assembler pgm?

830


What is maximum displacement and how to cross this limit?

864