// * 'LIST WINE MASTER FILE'
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-WINES,DISP-SHR
// FILE NAME-OUTPUT,LABEL-WN002S,RECORDS-?F'S,WINES'?,RETAIN-J
// RUN
     HSORTR     4R        3X 108   N
     FNC  27  29                       COUNTRY
     FNC  26  26                       TYPE
     FDC   1 108
// END
// LOAD WN002
// FILE NAME-WINES,LABEL-WN002S,DISP-SHR
// RUN
**
// LOCAL BLANK-*ALL
// SWITCH 00000000
**