× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.