Qdesign question - 7.29C on MPE

[Michael Lee]

It helps if the file type allows sorting via key. A KSAM file or an Image detail
file should work. You just have to structure your key to include the items:
REFNUM & AILIN in an ascending order. I don't think you can do this with a
database file though. You also have to keep in mind the line number value for
when you append a record or delete a record or move a comment line around. There
are techniques for doing this in the backissues of Cognos technical newsletters
if you have them.

I have used these techniques lots of times myself. If you would like an example
let me know.

Michael Lee
MCL Systems Inc.

Kim Williams wrote:

> 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.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.