Qdesign question - 7.29C on MPE

[pickerij@norbord.com]

Sorry about quoting the whole original message but I'm being lazy today   
...

The easiest thing would be to ensure that the REFNUM path to AIFIL is   
sorted on AILIN. This would be a database change if the path isn't   
already sorted but from the sounds of the data it may already be sorted.   
If not, use your favourite database maintenance tool (Adager, DBGeneral,   
etc.) to alter and rebuild the path. And you'd better change the PH   
dictionary to match. There would be additional overhead needed to   
maintain the sorted nature of the path but it is unlikely to be severe   
since I suspect you add lines in line number sequence.

John Pickering
JWP Systems Inc.
Toronto

 -----Original Message-----
From: kim.williams@ashtech.COM
Sent: Monday, January 11, 1999 2:04 PM
To: powerh-l@lists.swau.edu
Subject: Qdesign question - 7.29C on MPE


I hope someone can help me with this.  Qdesign is not my strong area.  I   
have
designed a screen to modify detail lines in a file.  The structure is   
Invoice
Number (REFNUM), Line Item Number (AILIN) and Comments (AICOM).  The only   
key
item is Invoice Number but I want the information to sort on Line Item   
Number
order.  I probably need a procedure to do this but I don't know what   
kind.


Here is what I have so far:


SCREEN AI00002C.OMQUICK FROM 3,3 TO 23,80                            &
       RECEIVING ARFIL                                               &
       MESSAGE ON LINE 23                                            &
       NOACTION                                                      &
       NOMODE                                                        &
       FIELDMARK                                                     &
       HELP POPUP FROM 7,45 TO 16,80                                 &
       MESSAGE POPUP                                                 &
       WARN, ERROR, SEVERE                                           &
       FROM 17,40 TO 22,80                                           &
       ACTIONBAR ON LINE 1


;*****************************FUNCTION KEYS**************************


KEY 1 LABEL " UPDATE " ACTION UPDATE RETURN
KEY 1 LABEL "CONTINUE" DATA SKIP ALL
KEY 8 LABEL "  EXIT  " ACTION RETURN
KEY 8 LABEL " CANCEL " DATA BACKOUT


ACTIONMENU LABEL "SCROLL..."                   MENUKEY "S"
   MENUITEM LABEL "NEXT RECORD"     ACTION NEXT RECORD
   MENUITEM LABEL "NEXT PAGE"       ACTION NEXT DATA
   MENUITEM LABEL "PREVIOUS RECORD" ACTION PREVIOUS RECORD
   MENUITEM LABEL "PREVIOUS PAGE"   ACTION PREVIOUS DATA
   MENUITEM LABEL "FIRST RECORD"    ACTION FIRST RECORD
   MENUITEM LABEL "LAST RECORD"     ACTION LAST RECORD
ACTIONMENU LABEL "CHANGE" ACTION ID PROMPT     MENUKEY "C"
ACTIONMENU LABEL "ADD"    ACTION APPEND        MENUKEY "A"
ACTIONMENU LABEL "DELETE" ACTION DELETE PROMPT MENUKEY "D"
ACTIONMENU LABEL "HELP"   ACTION EXTENDED HELP MENUKEY "H"
ACTIONMENU LABEL "EXIT"   ACTION RETURN        MENUKEY "E"


HILITE ACTIONBAR OFF
HILITE ACTIONBARMARK INVERSE


;*****************************FILE STATEMENTS************************


FILE ARFIL MASTER
FILE AIFIL PRIMARY CACHE 100 OCCURS 16
   ACCESS VIA REFNUM USING REFNUM OF ARFIL


;*****************************TEMPORARYS*****************************


;*****************************ITEMS**********************************


;*****************************FIELDS*********************************


HILITE TITLE UNDERLINE, LABEL UNDERLINE
DRAW THICK 1,1 TO 20,78


TITLE "LINE #"               AT 2,6
TITLE "SPECIAL INSTRUCTIONS" AT 2,17


SKIP TO 3
CLUSTER OCCURS WITH AIFIL
ALIGN (3,,6)(,,17)
FIELD AILIN NOLABEL                                                  &
            PIC "^^^^.^^^" OUT 3
FIELD AICOM NOLABEL                                                  &
            ID SAME
CLUSTER


HILITE TITLE OFF
TITLE "AI00002C" AT 19,69


;*****************************PROCEDURES*****************************


BUILD


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.