× 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.


  • Subject: RE: external data area
  • From: Brian Johnson <brian@xxxxxxxxxxxxxxx>
  • Date: Tue, 1 Jul 97 10:04:00 -0500
  • >Received: from Connect2 Message Router by helps.helpsystems.com via Connect2-UUCP v1.10; Mon, 30 Jun 97 09:58:52 -0500
  • Organization: HELP/Systems


Plan A

Write an RPG (or COBOL, or whatever) program that can access the data   
area and defined the sub-field as packed-decimal.  This program would   
provide retrieve and update routines for the data area.  All knowledge of   
the structure of the record in the data area would be hidden from all   
other programs.

Plan B

Don't store a record in one data area, but create separate data areas for   
each of the fields in the record stored in the existing data area.  This   
allows declaration of the data type for each field.  No need to (mis)code   
substring values, just make the declared variable data type and length   
match the data type and length of the data area (easy!).
 --
Brian Johnson
Help/Systems, Inc.
brian@helpsystems.com


 ----------
From:  'mail@uucp <boothm@earth.goddard.edu>'
Sent:  Tue, Jul 1, 1997 0:24 AM
To:  brian; 'mail@uucp <MIDRANGE-L@midrange.com>'
Subject:  re: external data area

I want one of the fields in a 57 character external data area to be
numeric.  I can not figure out how to do that in CL.  It seems to be
insisting on *CHAR only, no numerics.  Can I put numeric values in the
data area?  say...  put a minus 3500 starting at postion 45

     CHGDTAARA DTAARA(SMPLDA (45 4) VALUE(-3500)

doesn't work.  Any ideas?
 --
 -----------------------------------------------------------
boothm@earth.goddard.edu
 -----------------------------------------------------------

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
umidr


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.