HP3000-L Archives

September 2017, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"James B. Byrne" <[log in to unmask]>
Reply To:
Date:
Mon, 25 Sep 2017 12:33:22 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
In the Powerhouse PDL dictionary I have this element definition:

                        E L E M E N T   D E T A I L
                     For DICTIONARY:  PDHARTLC.OBJ839
    Element:            ACCOUNT-NUMBER
    Type:               Numeric
    Size:               8
    Decimal Positions:  0
    Item Defaults:      ZONED-U Size 8

    Input Scale:        10 ^ 0
    Output Scale:       10 ^ 0
    Significance:       8

    Picture:            "^^^^^^^^"  (Blank when zero)

    Heading:            "Account^Number"
    Label:              "Account Number"

In a QTP run I have these Subfile and Include statements:

SUBFILE QPCSVAM1 NODICTIONARY KEEP PORTABLE NOAPPEND                &
     INCLUDE                                                        &
             QUOTE,                                                 &
             ACCOUNT-NUMBER,                                        &


The output of which produces this:

          ....+....10...+ . . .
          "+00000001", . . .

My questions are why is an unsigned zoned decimal being output
prefaced with a "+"; and, how does one prevent this?



-- 
***          e-Mail is NOT a SECURE channel          ***
        Do NOT transmit sensitive data via e-Mail
 Do NOT open attachments nor follow links sent by e-Mail

James B. Byrne                mailto:[log in to unmask]
Harte & Lyne Limited          http://www.harte-lyne.ca
9 Brockley Drive              vox: +1 905 561 1241
Hamilton, Ontario             fax: +1 905 561 0757
Canada  L8E 3C3

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2