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