Re: major minor codes that subfile

 *
C                   exsr      clrsfl
C                   exsr      sflbld
 *
 * Do loop to process the subfile until F3 or F12 is pressed
 *
C                   dou       (cfkey = exit) or (cfkey = cancel
 *
C                   write     fkey1
C                   exfmt     sf1ctl
 *


C                   select
C                   when      (cfkey = enter) and (ptname <> *blanks)
C     ptname        setll     sfl001lf
C                   exsr      clrsfl
C                   exsr      sflbld
C                   clear                   ptname
 *
 * Add more records to the subfile if user is at the bottom
 *
C                   when      (cfkey = rollup) and (not *in32)
C                   exsr      sflbld

C                   endsl
C                   enddo
C                   eval      *inlr = *on
C     clrsfl        begsr
 *
 * Clear relative record numbers and subfile
 *
C                   eval      rrn1 = *zero
C                   eval      lstrrn = *zero
C                   eval      *in31 = *on
C                   write     sf1ctl
C                   eval      *in31 = *off
C                   eval      *in32 = *off

c                   endsr
C     sflbld        begsr
 *
  *
 C                   eval      rrn1 = lstrrn
  *
  * Load the subfile with one page of data or until end-of-file
  *
 C                   do        sflpag
 C                   read      sfl001lf                               90

 C                   if        *in90
 C                   leave
 C                   endif
 C                   eval      rrn1 = rrn1 + 1
 C                   enddo
 C                   endsr


> Some possibilities:
>
> 1) The SFL is empty and SFLDSP indicator is on.
> 2) You want to position the cursor on a non-existant SFL record
> 3) SFLDSPCTL indicator is off and you do a write to the SFLCTL.
>
> Can you post the DDS for the SFLCTL and the code for SFL handling in the
> programme?
>
> Regards,
> Carel Teijgeler
>
> *********** REPLY SEPARATOR  ***********
>
> On 29-8-05 at 10:26 steema@xxxxxxxxxxxxx wrote:
>
>>It did compile, thanks for all your help. But now it bombs. THere are
>> codes messages:
>>Major Return Code. . . . . . . . . . . :   83
>>Major Return Code. . . . . . . . . . . :   22
>>
>> ILE RPG/400 FORMATTED DUMP
>> INFDS FILE FEEDBACK
>> File . . . . . . . . . . . . . . . . . :   SFL002DF
>> File Open  . . . . . . . . . . . . . . :   YES
>> File at EOF  . . . . . . . . . . . . . :   NO
>> File Status  . . . . . . . . . . . . . :   01255
>>              Session or device error occurred in file  (C G D F).
>> File Operation . . . . . . . . . . . . :   EXFMTR
>> File Routine . . . . . . . . . . . . . :   *DETC
>> Statement Number . . . . . . . . . . . :   00000049
>> Record Name  . . . . . . . . . . . . . :   SF1CTL
>> Message Identifier . . . . . . . . . . :   CPF5013
>>              Cannot process subfile request for file  in library .
>> Screen Size. . . . . . . . . . . . . . :   0000
>
>
>
> --
> 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.
>
>