Re: Question on Cobol Move statement - mixed move x to zzz9.




05 WS-PROP-PREMISE PIC X(04).

05 WS-FORMAT-4 PIC ZZZ9.

WS-PROP-PREMISE has a value of 3. That is 3 followed by 3 spaces.

The code MOVE WS-PROP-PREMISE to WS-FORMAT-4 results in

3000

Better yet....

05 WS-PROP-PREMISE PIC X(04).
05 WS-FORMAT-4 redefines WS-PROP-PREMISE PIC ZZZ9.

Then MOVE 3 TO WS-FORMAT-4 instead.... nobody uses REDEFINES anymore.
Aside from shared memory bits, it works all the time.

It should work the first time.... naahh.

.



Relevant Pages

  • Re: Why does measuring tape bend one way?
    ... > into tension and the edges into compression. ... > tape is thin compared to the length over which the compressive ... > slight curve with the energy released by the compressive force ... > moving as the deformation allows the force to move. ...
    (sci.physics)
  • Re: Why does measuring tape bend one way?
    ... >> Why does metal measuring tape easily bend one way but not the other? ... In the classical analysis of a column failing under compression ... slight curve with the energy released by the compressive force ... moving as the deformation allows the force to move. ...
    (sci.physics)
  • Re: Damn you, FEDEX! or Nikon D40 lost in Springfield, MO blackhole.
    ... the 2 mp Mavica he had been using with a Nikon D40. ... After shopping around, he got me to order one for him. ... The shipper had it insured, but from what I have read it could take weeks to sort this crap out. ... You may get your insurance from FedEx and a couple weeks later they find it and deliver it. ...
    (alt.photography)
  • Re: Light (general) Inter-Process Mutex/Wait/Notify Synchronization?
    ... System V IPC (nobody uses ... that) and shared memory. ...
    (comp.lang.python)
  • Re: The Sci-Fi Rejection Letter That Time Forgot
    ... nations have stockpiled arsenals of these incredible bombs and the time the story is set. ...
    (rec.arts.sf.written)