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