Re: 3 error message -- RPG400-L

Don't worry about asking these kinds of questions - we all did at one 
point. 

There are a couple of different ways to see your interactive job log:

- From a command line enter DSPJOBLOG. 
- SysReq 3 (in an emulated session on Client Access, use Shift-Esc to see 
the system request line, put a 3 on it, press enter).  This shows the 
Display Job menu.  Take option 10.

Then press F10 to see detailed messages, then I usually press F18 to see 
the most recent messages in the log and work backward from there.


Terry Richardson
Vermont Information Processing, Inc.
terry@xxxxxxxxxx



"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/23/2005 10:08 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

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.