|
Look in OUTQ QEZDEBUG -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme Sent: Wednesday, March 23, 2005 9:11 AM To: RPG programming on the AS400 / iSeries Subject: Re: wierd error message I really hate to ask a rreally stupid question here but when I do a dump where does the data go? I checked the msgs for qpgmr and myself and there was nothing there. On Wed, 23 Mar 2005 11:33:57 -0330, RPower wrote > On your subfile, check for the numeric fields. You have a data > decimal error on one of them I'd bet. Do a dump on the error message > and check the subfile fields. > > 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 > > "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> Sent by: > rpg400-l-bounces@xxxxxxxxxxxx > 23/03/2005 11:26 AM > Please respond to > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> > > To > "RPG Group" <rpg400-l@xxxxxxxxxxxx> > cc > > Subject > wierd error message > > I'm getting an usuual runtime error that I cannot for the life of me > figure out. > > Session or device error occurred in file CUSTMASTSF (C G D F). > > I have a program that is supposed to display a subfile of customer > records > > based on a specific salesman number, and it compiles fine, but bombs > when I run it. > > The program is supposed to check the username against a PF called > secfile to get the appropriate salesman number and then loop through > the logical file > > for the appropriate customer records. > > I thought the only limit to sub files was the 9,999 records that can > be displayed, but checking the RRN in debug mode it only reaches > 2199 so I don't think that is the problem. It runs all the way > through the program in debug with no errors up until it attempts to > dipslay the subfile at which time it fries out. > > Any suggestions would be appreciated. > > ************************************************************************ ** > * ORIGINAL DATE: 03/22/2005 > * APPLICATION NAME: CUSTOMER MASTER SUB FILE BY > SALESMAN * PROGRAM NAME: CMSLSSF * > DESCRIPTION: 1. GET SALESM NO 2. LOADS SUBFILE * > 3. DISPLAYS FOOTER * > 4. EXCERCISE THE SCREEN DISPLAY WITH THE > > * SUBFILE > > ************************************************************************ ** > * LOG OF MODIFICATIONS > * > * DATE PGMR DESCRIPTION > > *-------------------------------------------------------------------- > ----- * / / > > ************************************************************************ ** > * FUNCTION OF INDICATORS > * > * IND FUNCTION > > *-------------------------------------------------------------------- > ----- * 12 USED TO EXIT DISPLAY * > 51 USED TO DISPLA / CLEAR SUBFILE > ********************************************************************** > **** > > * SUBROUTINE INDEX > ********************************************************************** > **** > > * LOAD - INITILIZE THE SUBFILE AND START LOADING IT BASED ON > SLSMNNO > > ********************************************************************** > **** > > * FILES > ********************************************************************** > **** > > SECFILE IF E K DISK > SLSMNCMLF IF E K DISK > CUSTMASTSFCF E WORKSTN > SFILE(CMSFL:RRN) > ********************************************************************** > **** > > * STANDALONE VARIABLES > ********************************************************************** > **** > > DRRN S 4S 0 > D SDS > DUSRID 254 263 > DDSLSMNNO S 3S 0 > > ************************************************************************ ** > * MAINLINE > > ************************************************************************ ** > C EXSR LOAD > C DOU *IN12 = *ON > C EXFMT CMCTL > C ENDDO > C EVAL *INLR = *ON > C RETURN > > ************************************************************************ ** > * LOAD SUB FILE ROUTINE > > ************************************************************************ ** > C LOAD BEGSR > C USRID CHAIN SECURITY > C EVAL DSLSMNNO = SALMNO > C EVAL *IN52 = *ON > C WRITE CMCTL > C EVAL *IN52 = *OFF > C DSLSMNNO CHAIN SLSMN > C READ SLSMN > C DOW dslsmnno = icmslsmn > C EVAL DCUSTNO = ICMCUST# > C EVAL DCUSTNAME = ICMNAME > C EVAL DSTATUS = ICMSTATUS > C EVAL DSALES = ICMSLSYTD > C ADD 1 RRN > C WRITE CMCTL > C READ SLSMN > C ENDDO > C ENDSR > -- > 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. -- Open WebMail Project (http://openwebmail.org) -- 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
