|
midrange.com
You just need a little more experience with subfiles. After a while, when
you have a subfile problem, you will know exactly how to fix it without even
giving it much thought. Then you will be cruisin'.
Good luck,
Rick Childers
>From: Jim Langston <jimlangston@conexfreight.com>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: Re: Simple Subfile question
>Date: Fri, 06 Apr 2001 13:23:54 -0700
>
>Thanks, Rick. I figured that out, and wound up moving the message to the
>Footer. All worked well for a little while, then while making other
>modifications
>to the subfile, each display would over write each other.
>
>If I removed this DFErrM I could get it to work, or if I took out other
>changes I needed in the subfile I could get it to work (I think SFLEND was
>one that broke it) so I finally got fed up trying to figure out what was
>wrong and moved the error message to a spot that wasn't in the subfile
>area.
>
>Man, I hate subfiles. Things work one moment, then you change something
>else that has nothing to do with how it's working, and it breaks something
>else.
>
>Regards,
>
>Jim Langston
>
>Rick Childers wrote:
> >
> > 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
> > +---
>+---
>| 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-2025 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.
