loadforward subfile pseudocode

       SET    TMPrrn = 1
       SETOF  IND1,IND2
       SETLL
TAGRD:
       READ
       if (EOF) GOTO TAGERD
       WRITE SUBFILE   &  TMPRRn += 1
       if TMPrrn < SFLPAG GOTO TAGRD
TAGERD:
       if TMPrrn = 1 REC(load 0 rec)SETON IND1(SFLMSG INDICATOR--reach top or end of file)
       if TMPrrn <= SFLPAG   SETON IND2
       //若載滿一頁，TMPrrn的值應為 SFLPAG+1，IND1 IND2 同為*OFF 
TAGEXT:
       EXFMT SFLCTL
       if PAGEDOWN and IND2   SETON  IND1
       if PAGEDOWN and IND1   GOTO  TAGEXT
       if PAGEDOWN   SET TMPrrn = 1 & GOTO TAGRD

       SFL PROCESSING...