FBLANC   CF  E                    WORKSTN
     I              '    F3 = SORTIE, F8 -C         INFO
     I              ' = NE PAS AFFICHER L-
     I              'A PROCHAINE IMAGE, F-
     I              '24 = ARRET          '
      *
     C           *ENTRY    PLIST
     C                     PARM           CODE    3
      *
     C           *IN,25    DOUEQ'1'
      *
     C                     MOVE INFO      T0
     C                     EXFMTBLANCF
      *
     C           *IN,25    IFEQ '1'
      *
     C           *IN,03    IFEQ '1'
     C                     MOVE '*RT'     CODE
     C                     END
      *
     C           *IN,08    IFEQ '1'
     C                     MOVE 'NON'     DATA
     C                     MOVE '*RT'     CODE
     C                     CALL 'QSNDDTAQ'             09
     C                     PARM 'CPYDTAQ 'DTAQ   10
     C                     PARM 'AF4TOOL 'LIB    10
     C                     PARM 3         LG      50
     C                     PARM           DATA    3
     C                     END
      *
     C           *IN,24    IFEQ '1'
     C                     MOVE '*LR'     CODE
     C                     END
      *
     C                     END
     C                     END
     C                     SETON                         LR
     C                     RETRN