RE: Subfile problem

[michaelr_41@xxxxxxxxxxxxxx]

Do you have INDARA coded on your DDS and an INDDS specified in your RPG?

Is SFLDSP a named indicator?

Could you show the portion of the DDS with the SFLDSP* option indicators
and the INDDS or named indicator definition in your program? That might
help too.

On Thu, 8 Jul 2004 13:34:14 -0400, "Smith, Mike"
<Mike_Smith@xxxxxxxxxxxxxxxx> said:
> Sure, Here are the error codes.  RNX1255(session or device error)
> CPF5066(SFLDSPCTL or SFLDSP option required for PUTGET)
> Here is some code. 
>  * LOAD THE SUBFILE THE FIRST TIME.
>      C                   Exsr      $LOAD
>      C                   Eval      PageNo = 1
>      C                   DoW       Not F3Exit
> 
>       * CHECK TO MAKE SURE THAT AT LEAST 1 RECORD LOADED IN SUBFILE
>       * THEN DISPLAY SUBFILE UNTIL COMMAND 3 PRESSED.
> 
>      C                   IF        Rrn > 0
>      C                   Eval      SFLDSP = *ON
>      C                   Else
>      C                   Eval      SFLDSP = *OFF
>      C                   EndIf
> 
>      C                   Exfmt     Test1
>      C                   Write     MSGCTL1
>      C                   Write     FOOT1
>      C                   Exsr      $ErrorMSg
>      C                   Exfmt     SCTL1
> 
> 
>  
> ***********************************************************************
>       *  LOAD  - LOADS 1 PAGE OF THE SUBFILE
>  
> **********************************************************************
>      C     $LOAD         BegSr
>      C                   Do        PageSize
>      C                   If        Not $Next
>      C                   Eval      EOF = *On
>      C                   EndIf
> 
>      C                   IF        EOF = *On
>      C                   Eval      SFLEND = *ON
>      C                   Leave
>      C                   EndIf
> 
>      C                   Eval      SFLEND = *OFF
>      C                   Eval      Rrn  = Rrn + 1
>      C                   Write     SDATA1
>      C                   EndDo
>      C                   Eval      #SFLRCD = Rrn
>      C
>      C                   If        PageUp <> *ON
>      C                   If        Not $Next
>      C                   Eval      EOF = *On
>      C                   EndIf
>      C                   IF        EOF = *On
>      C                   Eval      SFLEND = *ON
>      C                   Else
>      C                   If        Not $FetPrior
>      C                   Eval      EOF = *On
>      C                   EndIf
>      C                   EndIf
>      C                   EndIf
>      C                   Reset                   PageSize
>      C                   EndSr            
>       * 
> 
> Michael Smith
> iSeries.mySeries.
> 
> 
> -----Original Message-----
> From: Buck Calabro [mailto:buck.calabro@xxxxxxxxxxxx] 
> Sent: Thursday, July 08, 2004 1:12 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: Subfile problem
> 
> 
> > I can see it being written to the subfile and
> > the RRN is 12 at the point of the EXFMT.
> > SFLDSP and SFLDSPCTL are on.
> 
> You have an interesting one.  Could you post some code, specifically
> around loop that loads the subfile records and does the EXFMT?  Also,
> what is the CPF/MCH number of the error messages you are getting?
>   --buck
> 
> 
> 
> --
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx