|
Ron: Thanks, but as I stated, the indicator is not used in the DltRec format, only in the control record for the subfile. Matt rpg400-l-request@xxxxxxxxxxxx wrote: Send RPG400-L mailing list submissions to rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. The Phantom Indicator (Matthew Gross) 2. Re: The Phantom Indicator (RPower@xxxxxxxxxx) 3. Re: Message Subfile (Ala, Michael A) 4. Re: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS (Peter Dow) 5. Subfile / Indicator Question (Matthew Gross) 6. Re: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS (MWalter@xxxxxxxxxxxxxxx) 7. Re: Message Subfile (Carel Teijgeler) 8. Problem Using a multible member file that is in 2 libraries (Malchow, Grizzly) 9. Re: Message Subfile (Joep Beckeringh) ---------------------------------------------------------------------- message: 1 date: Tue, 15 Feb 2005 10:59:42 -0800 (PST) from: Matthew Gross subject: The Phantom Indicator Hope someone has run into this and can provide answer - Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of 11. Puts out screen, "Bottom" displays for no more records. Option "4" will delete record, which puts up a confirmation screen - Window, not record. User can then exit with F3 or Enter to delete record. Prior to EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes back to screen, *IN33 now off and "MORE..." appears. *In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or off in SFL load, which is NOT executed because user exited with F3 from confirmation screen. When I took out the "CLEAR" to the format before EXFMT, and exited the screen with F3, *IN33 still on and "BOTTOM" appeared. Any ideas? TIA - Matt ------------------------------ message: 2 date: Tue, 15 Feb 2005 15:39:20 -0330 from: RPower@xxxxxxxxxx subject: Re: The Phantom Indicator If *IN33 is on the DLTREC format then the clear is what's doing it. If you clear the format, the indicator gets cleared too I'm pretty certain, setting it to it's default state which is *OFF. Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 Tel: 709-576-8132 Email: rpower@xxxxxxxxxx Website: http://www.stjohns.ca/ ___________________________________________________________________________ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill Matthew Gross Sent by: rpg400-l-bounces@xxxxxxxxxxxx 15/02/2005 03:29 PM Please respond to RPG programming on the AS400 / iSeries To Post AS-400 Language Questions cc Subject The Phantom Indicator Hope someone has run into this and can provide answer - Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of 11. Puts out screen, "Bottom" displays for no more records. Option "4" will delete record, which puts up a confirmation screen - Window, not record. User can then exit with F3 or Enter to delete record. Prior to EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes back to screen, *IN33 now off and "MORE..." appears. *In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or off in SFL load, which is NOT executed because user exited with F3 from confirmation screen. When I took out the "CLEAR" to the format before EXFMT, and exited the screen with F3, *IN33 still on and "BOTTOM" appeared. Any ideas? TIA - Matt -- 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. ------------------------------ message: 3 date: Tue, 15 Feb 2005 14:21:47 -0500 from: "Ala, Michael A" subject: Re: Message Subfile D-spec from Program Supplying value to SDS_PROC D PDS SDS D SDS_PROC *PROC Procedure Name A R MSGSFL SFL A SFLMSGRCD(24) A MSGKEY SFLMSGKEY A SDS_PROC SFLPGMQ A*%% A R MSGCTL SFLCTL(MSGSFL) A*%%TS SD 20050210 080935 PGMRMI REL-V5R1M0 5722-WDS A SFLDSP A SFLDSPCTL A SFLINZ A SFLSIZ(0002) A SFLPAG(0001) A N39 SFLEND A SDS_PROC SFLPGMQ ------------------------------ message: 4 date: Tue, 15 Feb 2005 11:52:30 -0800 from: "Peter Dow" subject: Re: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS Oh. I ran into that with the %char bif as well. Until a variable is allowed for the format, I simply have a long IF/ELSEIF statement that translates a constant to the appropriate %char statement; it appears Igor would have to do something similar. Peter Dow Dow Software Services, Inc. 909 793-9050 voice 909 793-4480 fax 951 522-3214 cell ----- Original Message ----- From: "Wilt, Charles" To: "RPG programming on the AS400 / iSeries" Sent: Tuesday, February 15, 2005 10:19 AM Subject: RE: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS No he wants to do the following: /free wResults = CalcDiff(wDate1 : wDate2 : *DAYS); wResults = CalcDiff(wDate4 : wDate5 : *MONTHS); /end-free p CalcDiff b d CalcDiff pi 10i 0 d date1 d d date2 d d fmt ?????????? /free return %diff(date1:date2:fmt); /end-free HTH, Charles Wilt iSeries Systems Administrator / Developer Mitsubishi Electric Automotive America ph: 513-573-4343 fax: 513-398-1121 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005 ------------------------------ message: 5 date: Tue, 15 Feb 2005 11:55:40 -0800 (PST) from: Matthew Gross subject: Subfile / Indicator Question Hope someone has run into this and can provide answer - Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of 11. Puts out screen, "Bottom" displays for no more records. Option "4" will delete record, which puts up a confirmation screen - Window, not record. User can then exit with F3 or Enter to delete record. Prior to EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes back to screen, *IN33 now off and "MORE..." appears. *In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or off in SFL load, which is NOT executed because user exited with F3 from confirmation screen. When I took out the "CLEAR" to the format before EXFMT, and exited the screen with F3, *IN33 still on and "BOTTOM" appeared. Any ideas? TIA - Matt ------------------------------ message: 6 date: Tue, 15 Feb 2005 15:00:19 -0500 from: MWalter@xxxxxxxxxxxxxxx subject: Re: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS You could dynamically build a SQL Statement using DAYS, MONTHS, YEARS and then cast them back to integer. Thanks, Mark Mark D. Walter Senior Programmer/Analyst CCX, Inc. mwalter@xxxxxxxxxx http://www.ccxinc.com "Peter Dow" ware.com> To Sent by: "RPG programming on the AS400 / rpg400-l-bounces@ iSeries" midrange.com cc Subject 02/15/2005 02:52 Re: PROTOTYPING - What type of data PM are values as *MONTH, *DAY, *SYS Please respond to RPG programming on the AS400 / iSeries e.com> Oh. I ran into that with the %char bif as well. Until a variable is allowed for the format, I simply have a long IF/ELSEIF statement that translates a constant to the appropriate %char statement; it appears Igor would have to do something similar. Peter Dow Dow Software Services, Inc. 909 793-9050 voice 909 793-4480 fax 951 522-3214 cell ----- Original Message ----- From: "Wilt, Charles" To: "RPG programming on the AS400 / iSeries" Sent: Tuesday, February 15, 2005 10:19 AM Subject: RE: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS No he wants to do the following: /free wResults = CalcDiff(wDate1 : wDate2 : *DAYS); wResults = CalcDiff(wDate4 : wDate5 : *MONTHS); /end-free p CalcDiff b d CalcDiff pi 10i 0 d date1 d d date2 d d fmt ?????????? /free return %diff(date1:date2:fmt); /end-free HTH, Charles Wilt iSeries Systems Administrator / Developer Mitsubishi Electric Automotive America ph: 513-573-4343 fax: 513-398-1121 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005 -- 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. ------------------------------ message: 7 date: Tue, 15 Feb 2005 21:24:45 +0100 from: "Carel Teijgeler" subject: Re: Message Subfile Michael, SDS_PROC will have the procedure or programme name. Use another field in the DDS and move the value '*' into it at initialization.. Thus: In DDS (in SFL and SFLCTL) A MYPGMQ SFLPGMQ in RPG III C MOVE '*' MYPGMQ in RPG IV C Eval MYPGMQ = '*' Regards, Carel Teijgeler *********** REPLY SEPARATOR *********** On 15-2-05 at 14:21 Ala, Michael A wrote: >D-spec from Program Supplying value to SDS_PROC > >D PDS SDS > >D SDS_PROC *PROC >Procedure Name > > > A R MSGSFL SFL > A SFLMSGRCD(24) > A MSGKEY SFLMSGKEY > A SDS_PROC SFLPGMQ > A*%% > A R MSGCTL SFLCTL(MSGSFL) > A*%%TS SD 20050210 080935 PGMRMI REL-V5R1M0 5722-WDS > A SFLDSP > A SFLDSPCTL > A SFLINZ > A SFLSIZ(0002) > A SFLPAG(0001) > A N39 SFLEND > A SDS_PROC SFLPGMQ > >-- >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. ------------------------------ message: 8 date: Tue, 15 Feb 2005 14:57:12 -0600 from: "Malchow, Grizzly" subject: Problem Using a multible member file that is in 2 libraries I don't usually use EXTFILE or EXTMBR, so maybe there is something I'm missing. I keep encountering a level check when I try to open any one of these file. Could it be because of the record formats don't match between the temp files and the files I'm trying to override them to? FTEMP102 IF E K DISK EXTFILE(FILE1) F EXTMBR(MBR2YRS) F USROPN FTEMP101 IF E K DISK EXTFILE(FILE1) F EXTMBR(MBR1YRS) F USROPN FTEMP202 IF E K DISK EXTFILE(FILE2) F EXTMBR(MBR2YRS) F USROPN FTEMP201 IF E K DISK EXTFILE(FILE2) F EXTMBR(MBR1YRS) F USROPN C Eval FILE1 = 'LIB1/ARCHIVEF' C Eval FILE2 = 'LIB2/ARCHIVEF' C Eval MBR2YRS = 'MBR2003' C Eval MBR1YRS = 'MBR2004' C Open TEMP101 C Open TEMP102 C Open TEMP201 C Open TEMP202 ------------------------------ message: 9 date: Tue, 15 Feb 2005 22:03:54 +0100 from: Joep Beckeringh subject: Re: Message Subfile Michael, Your msgErr data structure is empty, because you defined msge1 and msge2 as stand alone fields. Joep Beckeringh Ala, Michael A wrote: > Thanks for the Info on the API > > Here is what I have changed the d specs to > D*------------------------ > > D* Message Subfile Parms * > > D*------------------------ > > D msgId s 7A INZ('CPF9898') > > D msgLoc s 20A inz('QCPFMSG *LIBL ') > > D msgRplDta s 3000A > > D msgRplDtaLen s 10i 0 inz(0) > > D msgType s 10A inz('*DIAG') > > D msgQueue s 276A inz('*') > > D msgCallStack s 10i 0 inz(0) > > D msgKey s 4A inz(' ') > > D msgErr ds > > D msge1 s 10i 0 inz(0) > > D msge2 s 10i 0 inz > > D msgrmv s 10A inz('*ALL') > > D*--------------------------------------------- > > > Here are my calcs - Eval Statements are her to force those values when I > debuged the Program > I saw that some values were being reset from what I initialized them as > in the D Specs > Probably data back from QMHRMVPM > > 0615.00 C If ErrFlg= 'Y' > > 0616.00 C Eval msgRplDta = 'Business Unit not on > File' > 0617.00 C Eval msgRplDtaLen = > %len(%TRIM(msgRplDta)) > 0618.00 C Eval msgID = 'CPF9898' > > 0619.00 C Eval msge1 = 0 > > 0620.00 C eval msgKey = *blanks > > 0621.00 C Exsr sndmsg > > 0622.00 C Iter > > 0623.00 C ENDIF > Error Condition > 0624.00 C* ----- > > > Here is the call > 0631.00 C* Send message subroutine > > 0632.00 C* > > 0633.00 C sndmsg begsr > > 0634.00 C* > > 0635.00 C call 'QMHSNDPM' > > 0636.00 C parm msgId > > 0637.00 C parm msgLoc > > 0638.00 C parm msgRplDta > > 0639.00 C parm msgRplDtaLen > > 0640.00 C parm msgType > > 0641.00 C parm msgQueue > > 0642.00 C parm msgCallStack > > 0643.00 C parm msgKey > > 0644.00 C parm msgErr > > 0645.00 C* > > 0646.00 C endsr > > 0647.00 C* ----- > > 0648.00 C*---------------------------- > > > I still do not get the message to display when the error condition > exists - What am I missing > > Thanks for your assistance ------------------------------ -- This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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. End of RPG400-L Digest, Vol 4, Issue 208 ****************************************
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
