[Bulk] FW: updating relational file

[Ken Langendock]

Make sure you remove the LET statements for the FILE3, they are redundant if
you are using the NEED ALL.

 

As long as the record status changes via a LET somewhere in the procedures
you do not need the NEED ALL. If you want a record created for every FILE2
regardless of the record status, then you either have to do a FOR X LET
something or the record status will not change and the records will not be
written out (as was the case you were having).

 

You can always do this in the preupdate procedure instead of the LETS and
the NEED ALL.

 

FOR MY_OR

    BEGIN

    IF NEWRECORD OF MY_OR AND &

       NOT DELETEDRECORD OF MY_OR

       THEN BEGIN

            LET EMPLOYER OF MY_OR SECONDARY = EMPLOYER OF FILE2

            LET DATE  OF MY_OR SECONDARY = DATE OF FILE2 

            END

    END

 

 

From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of GREG GREG
Sent: Wednesday, August 22, 2012 5:17 PM
To: powerh-l at lists.sowder.com
Subject: [Bulk] FW: updating relational file

 



Hi,
      The only problem now is that when trying to delete a record in the
screen the error  "Record has been changed since you found it." appears,
which now means that 
       the record/s cannot be deleted.





  _____  


Subject: RE: updating relational file
Date: Wed, 22 Aug 2012 16:56:57 -0400

Hi ken.langendock

Your idea worked with the NEED ALL etc  however  the "Leave the preupdate
and update procedures out." didn't. So by including the UPDATE procedure
every thing went through perfectly. All four cluster records updated
simultaneously. Thanks a million.

 

  _____  

 

Do you always want to write out the oracle record?

If you do, put a NEED ALL on the file statement.

 

Your preupdate is initializing the fields but not on a FOR loop, so only the
first record is being altered and written.

 

Try this instead

 

SCREEN MYSCREEN RECEIVING FILE1 ON LINE 10 FOR 14 LINES

FILE FILE1 MASTER
; INDEXED
FILE FILE2 OCCURS 8
;INDEXED
FILE FILE3 IN MY_ORACLE &

     ALIAS MY_OR SECONDARY &

     NOITEMS &

     OCCURS WITH FILE2 &

     NEED ALL

  ACCESS VIA EMPLOYER,DATE &
       USING EMPLOYER OF FILE2,DATE OF FILE2 

  ITEM EMPLOYER OF MY_OR SECONDARY INITIAL EMPLOYER OF FILE2 FIXED

  ITEM DATE  OF MY_OR SECONDARY INITIAL DATE OF FILE2 

 

Leave the preupdate and update procedures out.

From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of GREG GREG
Sent: Wednesday, August 22, 2012 2:29 PM
To: powerh-l at lists.sowder.com
Subject: [Bulk] Re updating relational file

 

Hi,

    I am trying to update a relational file via an Indexed file , but only
the first record is being updated in the relational file if two or more
records are updated at once.
    I have to updare the screen twice for the second record to be updated.
Probably because the PUT verb updates one record at a time The Indexed file 
    contains an OCCURS 10 . Can anyone assists me. Thanks in advance.

eg:   

SCREEN MYSCREEN RECEIVING FILE1 ON LINE 10 FOR 14 LINES

FILE FILE1 MASTER
; INDEXED
FILE FILE2 OCCURS 8
;INDEXED
FILE FILE3 IN MY_ORACLE ALIAS MY_OR SECONDARY NOITEMS OCCURS WITH FILE2
;MY_OR is the relational file
     ACCESS VIA EMPLOYER,DATE &
                USING EMPLOYER OF FILE2,DATE OF FILE2 



PROCEDURE PREUPDATE
   BEGIN
     LET EMPLOYER OF MY_OR = EMPLOYER OF FILE2
     LET DATE        OF MY_OR = DATE OF FILE2

END


PROCEDURE UPDATE
   BEGIN
    Put FILE1
    For FILE2
      Begin
        Put FILE2
        Put FILE1
        PUT MY_OR 
      End
  End


-- = = = = = = = = = = = = = = = = = = = = = = = = = = = = Mailing list:
powerh-l at lists.sowder.com Subscribe: 'subscribe' in message body to
powerh-l-request at lists.sowder.com Unsubscribe: 'unsubscribe <password>' in
message body to powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l This list is closed, thus
to post to the list you must be a subscriber. Add 'site:lists.sowder.com
powerh-l' to your search terms to search the list archive at Google.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20120822/b8a26859/attachment-0001.htm>