FINFO    IF  F      92            DISK
     IINFO    NS  01
     I                                        1   6 SRCSEQ
     I                                        7  12 SRCDAT
     I                                       13  92 SRCDTA
     ISRCDTA      DS
     I                                        1  10 TOOL
     I                                       14  71 TEXTE
     I              '**NEWPAGE '          C         NP
     C           *ENTRY    PLIST
     C                     PARM           TOOLP  10
     C           *HIVAL    SETLLINFO
     C                     READPINFO                     90
     C           *IN90     DOWEQ*OFF
     C           TOOL      ANDNETOOLP
     C                     READPINFO                     90
     C                     ENDDO
      *
     C           *IN90     IFEQ *OFF
     C           TEXTE     DOUEQ*BLANK
     C           *IN90     OREQ *ON
     C           TOOL      IFNE NP
     C                     MOVELTEXTE     TXT76  76
     C                     CALL 'QSNDDTAQ'
     C                     PARM 'TOOLDQ'  DTAQ   10
     C                     PARM 'QTEMP'   LIB    10
     C                     PARM 76        LEN     50
     C                     PARM           TXT76
     C                     PARM 3         KEYLEN  30
     C                     PARM 'TXT'     KEY     3
     C                     ENDIF
     C                     READ INFO                     90
     C                     ENDDO
     C                     ENDIF
     C                     MOVE *ON       *INLR