× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




My bad ...

SST in DDS does not support "packed decimal" fields ...

You could also create a physical file with DDS, with a record layout "matching" the fields in the "flat file" with LVLCHK(*NO) and then OVRDBF that file "over" the existing "flat file" .. .

Or, you could use CPYF ... FMTOPT(*NOCHK) to copy the data (temporarily) into your DDS-defined PF with the "correct" record layout (no need for LVLCHK(*NO) in that case?) ... Then you would have "packed fields" defined in all the right places ... and you can query or report against that "temporary" file as needed ...

Of course, if there is data that is not valid "packed decimal" data in the flat file, well ... good luck ...

HTH,

Mark S. Waterbury

> On 2/26/2018 10:41 AM, Mark S Waterbury wrote:
Justin,

You could create a DDS-based Logical File ("view") over a (so-called) "flat file" PF ...

Define each "field" as a "substring" of the one-and-only "field" in the physical file record, e.g.:

     A CUSNBR          S  I      SST(CUSDTA 1 10)
A                                      COLHDG('Customer' ' 'Number')
     A TEXT('Customer Number')
     A            CUSNAM          A I      SST(CUSDTA 11 15)
A                                      COLHDG('Customer' ' 'Name')
     A                                      TEXT('Customer Name')
        ...

HTH,

Mark S. Waterbury

> On 2/26/2018 10:01 AM, Justin Taylor wrote:
Charles Wilt-Thanks.  Unfortunately, views over program-described files aren't allowed.

Chuck Pence-I don't know what IDDU is.  WRKQRY doesn't show human-readable, so I guess it's not set up.  I'll have to Google IDDU.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.