|
Did you also change the Clrdiv sub-routine to use those field names instead of *in41, 42, and 43? -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore Sent: Friday, July 28, 2006 11:16 AM To: RPG programming on the AS400 / iSeries Cc: RPG programming on the AS400 / iSeries; rpg400-l-bounces@xxxxxxxxxxxx Subject: RE: SFLDSPCTL or SFLDSP option required for PUTGET Thanks - I thought that may have been it, so they are now part of the ScreenInd. Unfortunately, the same problem still exists Thanks anyway Alan Shore NBTY, Inc (631) 244-2000 ext. 5019 AShore@xxxxxxxx "Lim Hock-Chai" <Lim.Hock-Chai@us amobility.com> To Sent by: "RPG programming on the AS400 / rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> midrange.com cc Subject 07/28/2006 11:57 RE: SFLDSPCTL or SFLDSP option AM required for PUTGET Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> *in41, 42, and *in43 control the display but is not defined in ScreenInd data structure ==> never get turn on/off. A 41 SFLDSP A 42 SFLDSPCTL A 43 SFLCLR -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore Sent: Friday, July 28, 2006 10:50 AM To: RPG programming on the AS400 / iSeries Subject: Re: SFLDSPCTL or SFLDSP option required for PUTGET Sorry guys - I just re-displayed my job log and realized the display of SFLDSPCTL or SFLDSP option required for PUTGET was automatically being cancelled out. The real error is Session or device error occurred in file SLSTOPSLLR (C G D F) Which is NOT a real help Obviously its an error that when I find it, or when its pointed out to me, I will probably give myself a dope-slap Alan Shore NBTY, Inc (631) 244-2000 ext. 5019 AShore@xxxxxxxx Alan Shore <AlanShore@xxxxxx om> To Sent by: RPG programming on the AS400 / rpg400-l-bounces@ iSeries <rpg400-l@xxxxxxxxxxxx> midrange.com cc Subject 07/28/2006 11:43 SFLDSPCTL or SFLDSP option required AM for PUTGET Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> Hi all I'm having a problem that is sending me absolutely nuts (I know -- some of you are probably saying "Too late for that") Be that as it may I have created a simple Display file and RPG ILE program The display file code is A*%%TS DD 20060728 112313 AShore REL-V5.0.1 WDSc A*%%EC A DSPSIZ(24 80 *DS3) A INDARA A R SCREEN1 A*%%TS DD 20060728 112313 AShore REL-V5.0.1 WDSc A 1 2DATE A EDTCDE(Y) A 1 11TIME A 1 32'Top Sellers report' A DSPATR(RI) A 1 70SYSNAME A PGMNAM 10A 2 2DSPATR(HI) A 2 14'screen1' A 2 70USER A 5 13'Press Enter to display the paramet- A ers that are available' A 6 13'for you to choose,' A 7 13'otherwise, press F3 to exit.' A 23 3'F3 - Exit' A*%%GP UNTITLED 01 A R WDWDIVCHCF A*%%TS DD 20060727 150400 AShore REL-V5.0.1 WDSc A* A** Window Controls A WINDOW(*DFT 17 55 *NOMSGLIN) A WDWTITLE((*TEXT 'Selection by Divis- A ion') (*COLOR WHT) (*DSPATR HI UL)) A*%%WP 0 01 001 A* A R DSPDIVCHCF A*%%TS SD 20050615 102025 ALANS REL-V5R3M0 5722-WDS A SFL A DIVOPT 1A B 4 3DSPATR(HI) A COMPNY 1A O 4 5DSPATR(HI) A CNAME 30A O 4 7DSPATR(HI) A R CTLDIVCHCF A*%%TS DD 20060727 152250 AShore REL-V5.0.1 WDSc A SFLCTL(DSPDIVCHCF) A CF12 A SFLSIZ(13) A SFLPAG(12) A** Window Reference A WINDOW(WDWDIVCHCF) A** Subfile Controls A OVERLAY A FRCDTA A 41 SFLDSP A 42 SFLDSPCTL A 43 SFLCLR A 46 SFLEND(*MORE) A SFLCSRRRN(&TESTRRN) A TESTRRN 5S 0H A SFLPOSCHG 4S 0H SFLRCDNBR(CURSOR) A R FTRDIVCHCF A*%%TS DD 20060727 152250 AShore REL-V5.0.1 WDSc A WINDOW(WDWDIVCHCF) A 16 2'F12=Exit' A*---------------------------------------------------------------- A***************************************************************** A R DUMMY A*%%TS DD 20060727 150400 AShore REL-V5.0.1 WDSc A ASSUME A 1 3' ' A***************************************************************** A* -------------------------------------------------------------- A* - ERROR MESSAGE SUBFILE CONTROL RECORD FORMAT - A* -------------------------------------------------------------- A R MSGSFL A*%%TS SD 20031114 111917 LLOYD REL-V5R2M0 5722-WDS A SFL A SFLMSGRCD(17) A MSGKEY SFLMSGKEY A PGMQ SFLPGMQ(10) A* -------------------------------------------------------------- A* - ERROR MESSAGE SUBFILE CONTROL - A* -------------------------------------------------------------- A R MSGCTL A*%%TS SD 20031114 111917 LLOYD REL-V5R2M0 5722-WDS A SFLCTL(MSGSFL) A WINDOW(WDWDIVCHCF) A OVERLAY A SFLDSP A SFLDSPCTL A SFLINZ A N99 SFLEND A SFLSIZ(2) A SFLPAG(1) A PGMQ SFLPGMQ(10) A* The RPG code is H bnddir('MAILBIND':'STRINGSP') H dftactgrp(*no) actgrp('QILE') H option(*srcstmt:*nodebugio) ? ********************************************************************** ? * MODIFICATIONS: ? * ------------- ? * Date PGMR MOD Reasons ? * -------- --------- ---- ----------------------------------------- ? * ? ********************************************************************** FCompnyp if e k disk FSlstopsllrcf e workstn indds(ScreenInd) F sfile(Dspdivchcf:Divrrn) F infds(info) ? ********************************************************************** ? ** PROTOTYPES /copy prdsrc/protype,messagepr /copy nbtygpl/protype,stringpr *--------------------------------------------------------------------- * Stand Alone Fields - TOP *--------------------------------------------------------------------- D PgmQ s 10 inz('*') D Divrrn s 6 0 inz(1) D Sfl1Size s 6 0 inz(14) *--------------------------------------------------------------------- * Stand Alone Fields - BOTTOM *--------------------------------------------------------------------- Dinfo ds D key 369 369 D #row 370 370 D #col 371 371 D Csrloc 370 371B 0 D sflrrn 378 379B 0 /copy prdsrc/copybook,FKeys D ScreenInd ds D DecreaseIx 49 49n D Sfl1NextChg 50 50n D Sfl1More 51 51n D ClrSfl1 52 52n D ShowFKeys 53 53n D ProtectSelect 54 54n D ShowF13 55 55n D ShowF16 56 56n D Selectall 57 57n D Redisplaymsgs 58 58n D Foundpriormsg 59 59n D Sfl2NextChg 60 60n D Sfl2More 61 61n D ClrSfl2 62 62n D Chgmsgscrn2 63 63n D Dltmsgscrn2 64 64n D Otheritems 65 65n D Redisplayitms 66 66n D Addmsgscrn2 67 67n D Dsplysrcscrn2 68 68n D Sfl3NextChg 70 70n D Sfl3More 71 71n D ClrSfl3 72 72n D Allmsgs 73 73n D Onlyitemmsgs 74 74n D Noitemmsgs 75 75n D InvalidSuffix 90 90n D InvalidSkuNo 91 91n D InvalidExclAll 92 92n DScreenInfo ds D KeyPressed 369 369 D CursorLoc 370 371b 0 ? * PROGRAM STATUS DATA STRUCTURE /copy prdsrc/copybook,psds C Eval Pgmnam = PsdsPgmName C dou key = @f03 c exfmt Screen1 C if key = @Enter c exsr Proc4parms C endif C enddo ? * c eval *inlr = *on ? ***************************************************************** c Proc4parms begsr ? * C exsr LoadDiv c eval *in46 = *on C dou key = @f03 c write Wdwdivchcf c write Ftrdivchcf C write MsgCtl c exfmt Ctldivchcf C callp RmvErrMsg C enddo ? * c endsr ? ***************************************************************** c LoadDiv begsr ? * c exsr Clrdiv ? ** Activate the window c eval Sflposchg = 1 c *loval setll Compnyp c dou %eof(Compnyp) c read Compnyp c if not %eof(Compnyp) c add 1 Divrrn c eval Divopt = ' ' c write Dspdivchcf c endif c enddo ? * c endsr ? ***************************************************************** c Clrdiv begsr ? * c clear Ctldivchcf c eval *in41 = *off c eval *in42 = *off c eval *in43 = *on c write Ctldivchcf c eval *in41 = *on c eval *in42 = *on c eval *in43 = *off ? * c z-add 0 Divrrn ? * c endsr Using debug, the problem occurs on the line exfmt Ctldivchcf that when I display the job log, the error SFLDSPCTL or SFLDSP option required for PUTGET is shown. Which to me doesn't make ANY sense as (in debug) both *in41 & *in42 are both on If any one can point me in the right direction, I would be very grateful Thanks in advance Alan Shore NBTY, Inc (631) 244-2000 ext. 5019 AShore@xxxxxxxx -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
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.
midrange.com
