Cobol/400

From: mcintyre (edv_at_betriebsdirektor.de)
Date: 10/15/04

  • Next message: Peter E.C Dashwood: "Re: Creating tables" 
    Date: Fri, 15 Oct 2004 14:47:11 +0200

    I'm new to Cobol/400 any I'm trying to get familiar... Coming from VMS,
    I don't understand the behavior of the as/400 with this example:

    01 W-DATE-2.
        05 W-YEAR PIC 99.
        05 FILLER PIC X VAL "/".
        05 W-MONTH PIC 99.
        05 FILLER PIC X VAL "/".
        05 W-DAY PIC 99.

    After moving the current date into this field, the display looks like:

    04 10 15

    When I declare the field like this:

    01 W-DATE-2.
        05 W-YEAR PIC 99.
        05 W-F1 PIC X.
        05 W-MONTH PIC 99.
        05 W-F2 PIC X.
        05 W-DAY PIC 99.

    and move the slashes into W-F1 and W-F2, the display shows:

    04 / 10 / 15

    Where do the blanks come from, and how to avoid them? Any help would be
    appreciated.

    john

  • Next message: Peter E.C Dashwood: "Re: Creating tables"

    Relevant Pages

    • Re: Why interlaced HDTV?
      ... The moving object will be in a different position on the second field to the first. ... If you show that same progressive frame several times then motion produces the perception of several images of the object in the scene that is moving. ... For example, 50Hz-720p on a 100Hz display with the simple frame repetition that you describe, will produce double images of moving objects. ... A 50Hz camera sees the position of the object every 20mS on the time axis - so mark dots along the line representing the position that the camera sees. ...
      (uk.tech.digital-tv)
    • Re: X-windows: MAC server on VMS client
      ... Is it correct to state that on the mac, X fonts are synthetised from the ... What you need to do for VMS is to enable the TCP/IP font server, which is not enabled by default. ... it may be that the X11 Server needs to know the physical geometry of the primary display. ...
      (comp.os.vms)
    • Re: Request for improvement to MAIL
      ... -upon encountering an image/xxxx attachement, ... important for VMS on them IA64 contraptions where a decision was made to ... split so that a lower scrolling region will display the ascii text from ...
      (comp.os.vms)
    • Request for improvement to MAIL
      ... -upon encountering an image/xxxx attachement, ... important for VMS on them IA64 contraptions where a decision was made to ... split so that a lower scrolling region will display the ascii text from ...
      (comp.os.vms)
    • Re: Request for improvement to MAIL
      ... -upon encountering an image/xxxx attachement, ... important for VMS on them IA64 contraptions where a decision was made to ... split so that a lower scrolling region will display the ascii text from ...
      (comp.os.vms)