RE: Problem with "Write-name-ds"

Have tried that

Jon wrote:

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Monday, April 19, 2004 10:38 AM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: Problem with "Write-name-ds"


When using the write from DS option you must specify the Format name -
not the file name.


Result when writing format (from original email):

040700  Write(E) SrcCstR;
        Compiles........ and in debug immediately before "Write(E)
SrcCstR;":
> EVAL screcd                
  SCRECD.PRT# = 0000010.
  SCRECD.SOUR = 'SI'
  SCRECD.CYMD = 20040401.
  SCRECD.FOTG = 00030039.
  SCRECD.COST = 00000001.3975

>EVAL Prt#
  PRT# = 0000010.               (value is from input file field Prt#)
>EVAL Sour
  SOUR = '  '                   (non-common field)
> EVAL cymd       
  CYMD = 20040202.              (value is from input file field CYMD)
> EVAL Fotg       
  FOTG = 00000000.              (non-common field)
> EVAL Cost           
  COST = 00000001.4116  (value is from input file field Cost)

File before "Write" had no records.
File after Write:
PRT#    = 10                    (correct, 'accidentally', from input
file)
SOUR    = '  '                  (incorrect, non-common, no SrcCst record
had been read to fill)
CYMD    = 20040202              (incorrect, from input file)
FOTG    = 0                     (incorrect, non-common, no SrcCst record
had been read to fill)
COST    = 14116                 (incorrect, from input file)



Jon Paris
Partner400
www.Partner400.com


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.