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



can you give us the full code & DDS for the display??

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: Wednesday, March 23, 2005 9:09 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: wierd error message


Ok here is going to be a really stupid question and I'll apologize up front 
for it, but how the heck do I check the job log? Usually when I have tried 
in the past its long gone after the error message.


On Wed, 23 Mar 2005 10:03:06 -0500, Terry wrote
> Check for additional messages in the job log right before the 
> 'session or device error' message.  Usually when I have seen this, 
> it's either because there are no subfile records to display and the 
> indicator on the SFLDSP line in the DDS is on (or not specified at 
> all), or the SFLRCDNBR field is not set to a valid value.
> 
> Terry Richardson
> Vermont Information Processing, Inc.
> terry@xxxxxxxxxx
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 03/23/2005 09:56 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.