Qdesign question - 7.29C on MPE

[Kim Williams]

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.