売り上げファイルには、部門名(#DIVNAM)および4四半期(#QTR01～#QTR04)の年間売り上げ額の詳細が保持されています。最大値および最小値と、部門別の年間売り上げ総額をまとめたレポートを生成します。
DEF_BREAK NAME(#SUMMARY) FIELDS(#TOTAL #MAXIMUM #MINIMUM) TRIGGER_BY(#DIVNAM) SELECT FIELDS(#DIVNAM #QTR01 #QTR02 #QTR03 #QTR04) FROM_FILE(DIVSALES) KEEP_TOTAL OF_FIELD(#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#TOTAL) BY_FIELD(#DIVNAM) KEEP_MAX OF_FIELD(#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#MAXIMUM) BY_FIELD(#DIVNAM) KEEP_MIN OF_FIELD(#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#MINIMUM) BY_FIELD(#DIVNAM) PRINT LINE(*BREAKS) ENDSELECT ENDPRINT