× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Simple Subfile question
  • From: "Rick Childers" <rcvernors@xxxxxxxxxxx>
  • Date: Fri, 06 Apr 2001 11:18:48 -0400

The problem is that your error msg is in your SUBCTL record, but it is 
actually located on the SUBFILE record portion of the display.  Move your 
error msg up the screen so that it is located in the SUBCTL portion of the 
display.  (Like line 9 or 8)  (You subfile record is using lines 10 - 24.  
Your SUBCTL is using lines 1 - 9.)

Just copy this and replace your SUBCTL DDS with this code.
A          R SUBCTL                    SFLCTL(SUBFILE)
A                                      SFLSIZ(0010)
A                                      SFLPAG(0010)
A                                      OVERLAY
A  56                                  SFLDSP
A N55                                  SFLDSPCTL
A  55                                  SFLCLR
A                                  1  2DATE
A                                      EDTCDE(Y)
A                                      COLOR(BLU)
A                                  1 35'Your Company'
A                                      COLOR(BLU)
A                                  1 72TIME
A                                      COLOR(BLU)
A                                  2 31'Your Subfile Program'
A                                      COLOR(BLU)
A N57                              9  2'Opt  Type Other'
A                                      DSPATR(RI)
A  57        DFERRM        60A  O  9 11DSPATR(RI)
A                                      COLOR(RED)

>From: Jim Langston <jimlangston@conexfreight.com>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: Re: Simple Subfile question
>Date: Thu, 05 Apr 2001 10:45:15 -0700
>
>Thanks for all the tips, I've changed the indicators to be able to
>do the SFLDSP separately and it works like a champ.
>
>Now I'm trying to implement the error message, and so I went into the
>control record and made an output field called DFERRM which I plan on
>loading with an error message and turning on the appropriate indicator
>(57) when I want to display an error.  The only problem is, it won't
>compile.
>
>* CPD7812      30        1      Message . . . . :   Subfile control record 
>overlaps subfile record.
>
>Here's the SFL and SFLCTL from my display file.  And yes, it's
>absolutely right, they do overlap, but I plan on showing one or
>the other, not both (even tried changing the DFERRM indicator to
>N56 but no change.
>
>A          R SUBFILE                   SFL
>A*%%TS  SD  20010404  154717  JIML        REL-V4R4M0  5769-PW1
>A            DFTYPE        10   O 10  4COLOR(WHT)
>A            DFUNIT         6Y 0O 10 15COLOR(WHT)
>A                                      EDTCDE(4)
>A            DFSPLT         6Y 0O 10 22COLOR(WHT)
>A                                      EDTCDE(4)
>A            DFCUFT         8Y 3O 10 29EDTWRD('     .   ')
>A                                      COLOR(WHT)
>A            DFAMNT         9Y 2O 10 70EDTWRD('       .  ')
>A                                      COLOR(WHT)
>A            DFDESC        30   O 10 39COLOR(WHT)
>A            DFSELE         1A  B 10  2COLOR(WHT)
>
>A          R SUBCTL                    SFLCTL(SUBFILE)
>A*%%TS  SD  20010405  103452  JIML        REL-V4R4M0  5769-PW1
>A                                      SFLSIZ(0010)
>A                                      SFLPAG(0010)
>A                                      OVERLAY
>A  56                                  SFLDSP
>A N55                                  SFLDSPCTL
>A  55                                  SFLCLR
>A  57        DFERRM        60   O 12 11DSPATR(RI)
>A                                      COLOR(WHT)
>
>Any clues?
>
>Thanks,
>
>Jim Langston
>Rick Childers wrote:
> >
> > <SNIP>
> > You can also code error message text in the Control record so that when 
>no
> > sfl recs were loaded, a message line will appear like..
> >   A N90                        6  1  'No records to display.'
> >   A                                    DSPATR(RI)
> >   A                                    COLOR(RED)
> >
> > The end result is.. When there are no recs to display, you tell the user
> > instead of blowing up the program.
> > .......................................................
> > .   4/04/01           Header 1                        .
> > .  14:58:44    Display Phone Number Changes           .
> > .                                                     .
> > .  Acct#: 12121111                                    .
> > .                                                     .
> > . NO RECORDS TO DISPLAY                               .
> > . -Old Phone#-  -New Phone#-  -Date Changed-          .
> > .                                                     .
> > .                                                     .
> > .                                                     .
> > .                                                     .
> > .......................................................
> >
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.