;
;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
;
;-------------------------------------------------------------------------------
;
;   Replace every tab character with two spaces
;
CHANGE   $FLINE  $TAB  "  "
;
;   Extract the columns
;
SET      ProgName = $FLINE[ 1 20]
SET      Descrip  = $FLINE[22 99]
;
;   Trim the spaces
;
TRIM     ProgName  "B"  " "
TRIM     Descrip   "B"  " "
;
;   Output the result
;
OUTEND   |"{ProgName}","{Descrip}"