retrieve/access occurrence of item

[Peter Bateman]

        Hi Lorry:
 
 
         I would run a ghost screen to do the checkin
         In your main screen:-
         If you need a return value for each occurrence 
         then I would have 5 distinct items for the return codes
         e.g  IF 5 = OCCURRENCE
                  THEN LET RETURN_CODE5 = 1
               PROCEDURE POSTFIND
               BEGIN 
                   FOR RMS_RECORD
                   BEGIN
                   RUN SCREEN GHOST PASSING RMS_RECORD, RETURN_CODE
                   DISPLAY RETURN_CODE
                   END
                END
 
 
                SCREEN GHOST SLAVE RECEIVING RMS_RECORD, RETURN_CODE
                FILE RMS_RECORD MASTER   ; no occurence
                TEMPORARY RETURN_CODE
                PROCEDURE INITIALIZE
                BEGIN
                    FOR EACH ITEM3
                      BEGIN
                         ; check ITEM3A
                          IF ITEM3A > 5 AND RETURN_CODE = 0
                             THEN LET RETURN_CODE = 1
                     END
                RETURN
                END
 
      Regards,
      Peter Bateman
                     
               


Subject: retrieve/access occurrence of itemDate: Thu, 17 Apr 2008 15:13:29 -0500From: LLitman at exchange.hsc.mb.caTo: powerh-l at lists.sowder.com




Hi,
 
PH 7.10.E6, VMS 7.3-1 RMS indexed file
I have a record with 3 items item1, item2, item3. Item3 occurs 5 times and is made up of 2 segments call them item3A & item3B.
Is there a way to check the value of item3A when retrieving the record (either in the Find or PostFind procedure).
i.e. retrieve record, check value of item3A[1], [2], [3], [4], [5].
 
I should mention there is only 1 record to this screen and it has an occurs.
 
Thanx
        Lorry 
_________________________________________________________________
If you like crossword puzzles, then you'll love Flexicon, a game which combines four overlapping crossword puzzles into one!
http://g.msn.ca/ca55/208
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20080417/8060cabc/attachment.html