FDTIMEOUTCF  E                    WORKSTN
     F                                              KNUM        1
     F                                              KINFDS FEEDBK
     IFEEDBK      DS                            512
     I                                      369 369 AIDKEY
     C           *ENTRY    PLIST
     C                     PARM           PAID    1
     C                     WRITESCREEN
     C                     READ DTIMEOUT                 9999
     C                     MOVE AIDKEY    PAID
     C                     MOVE *ON       *INLR