H/TITLE WINE FILE LISTING
     H     064                              1                             WN002
     F*
     F* CONTROL WINE FILE LISTING
     F*
     FWINES   IP    108 108            DISK
     FUTPRINT O   F 132 132     OF     PRINTER
     IWINES   NS  01
     I                                        1   60ID
     I                                        7  21 NAME
     I                                    P  22  252PRICE
     I                                       26  26 TYPE  L1
     I                                       27  29 CNTRY L2
     I                                       30  330YEAR
     I                                       34  53 VARTL
     I                                       54 103 DESC
     I                                      108 108 DEL
     C**
     C     N05             TIME           DATTIM 120
     C     N05             MOVELDATTIM    SYTIME  60
     C     N05             MOVE DATTIM    SYDATE  60
     C     N05             SETON                       0521
     C      L2             Z-ADD0         L2CTR
     C      L2             SETON                         21
     C      L1             Z-ADD0         L1CTR
     C      OF             SETON                         21
     C      21             EXCPT
     C      21             SETOF                         21
     C**---
     C           DEL       COMP 'D'                      97
     C      01             ADD  1         L1CTR   50
     C      01             ADD  1         L2CTR   50
     C      01             SETON                         31
     C      31             EXCPT
     C      31             SETOF                         31
     C**---
     OUTPRINT E  106   21N97
     O                                   10 '** WINE   '
     O                         CNTRY     16
     O                                  107 'PAGE'
     O                         PAGE  Z  111
     O                                  123 'DATE'
     O                         SYDATEY  132
     O        E  2     21
     O                                  123 'TIME'
     O                         SYTIME   132 '  :  :  '
     O        E  1     21
     O                                   24 '* * * * * * * * * * * * '
     O                                   48 '* * * * * * * * * * * * '
     O                                   72 '* * * * * * * * * * * * '
     O                                   96 '* * * * * * * * * * * * '
     O                                  120 '* * * * * * * * * * * * '
     O                                  131 '* * * * * *'
     O        E  1     21
     O                                    7 'ID'
     O                                   14 'NAME'
     O                                   30 'PRICE'
     O                                   37 'TYPE'
     O                                   47 'COUNTRY'
     O                                   55 'YEAR'
     O                                   75 'VARIETAL'
     O                                  100 'DESCRIPTION'
     O        E  2     21
     O                                   24 '* * * * * * * * * * * * '
     O                                   48 '* * * * * * * * * * * * '
     O                                   72 '* * * * * * * * * * * * '
     O                                   96 '* * * * * * * * * * * * '
     O                                  120 '* * * * * * * * * * * * '
     O                                  131 '* * * * * *'
     O        E 11     31N97
     O                         ID         7
     O                         NAME      23
     O                         PRICE M   30
     O                         TYPE      36
     O                         CNTRY     43
     O                         YEAR      55
     O                         VARTL     80
     O                         DESC     132
     O        T 21     L1
     O                         L1CTR     12
     O                         TYPE      15
     O        T 21     L2
     O                         L2CTR     12
     O                         CNTRY     17