Re: Trigger question

[boothm@xxxxxxxxxxxxxxxxx]

Loyd, use the external data structures defined by the DDS of the two files 
and move the data structure from the original file to the capture file's 
data structure.  Use the keyword INZ(*NULL):

D@NwRecord        S               *   Inz(*Null) 

That should work  - at least it hasn't broken for me.

(Isn't Pete's program a beauty to look at, eh?)

_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




"Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@afs.bwauto.com>
Sent by: owner-midrange-l@midrange.com
02/03/2000 06:13 PM
Please respond to MIDRANGE-L

 
        To:     "'midrange-l@midrange.com'" <midrange-l@midrange.com>
        cc: 
        Subject:        Trigger question


I'm using the program from Pete Hall's web site
(http://www.execpc.com/~pbhall/?trigger.html) as a basis for making a
trigger program over a test file. I'm copying the buffer from the physical
file, plus some job information, to a capture file. All the fields in the
capture file reference the original file. 

The problem is, both the original file and the capture file use packed
fields, and I am receiving a data decimal error when I try to write to the
capture file. Since this is a before insert trigger, the original record
buffer should be NULL fields. I have added AWLNULL to the packed fields in
the capture file, set ALWNULL(*USRCTL) in my program, and "eval
%nullind(o_co) = *on" (the first packed field in the input buffer).

I was expecting to output NULLs to the original record buffer in the 
capture
file. Is there something I'm missing in regard to NULLs and packed fields? 


The original file is a vendor supplied file, so it cannot be easily 
changed.
Thanks!

--
Loyd Goodbar
Programmer/Analyst
Borg-Warner Automotive, AFS, Water Valley


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---