Display empty subfile

Most of the time the user made a selection and the subfile is filled with data and everything works fine. From time to time there are no subfile records to be displayed. At that time some programs may bail out with a escape message like RNX1255 (with previous message CPF5022).

Empty subfile can also be handled and “displayed”.

Control Record Example:

     A          R C1
     A                                      SFLCTL(S1)
     A                                      SFLSIZ(0017)
     A                                      SFLPAG(0016)
     A  30                                  SFLDSP
     A N31                                  SFLDSPCTL
     A  31                                  SFLCLR
     A  32                                  SFLEND(*MORE)
      *
     A                                      SFLCSRRRN(&SFLRRN)
     A            RECORD         4S 0H      SFLRCDNBR(CURSOR)
     A            SFLRRN         5S 0H

For displaying an empty subfile you need the following indicator state:

  *in30 = *off
  *in31 = *off
  *in32 = *off
It is important that the SFLDSP and the SLFDSPCTL entry do not have the same indicator. That works for a filled subfile but not with an empty one.
, ,