/* Given a file name, split that file into either the HTTP header */
/* or content portion based on DataType = "HEADER,CONTENT"        */

DEFINE INPUT PARAMETER cBaseFile   AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cDestFile   AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cDataType   AS CHARACTER NO-UNDO.

DEFINE VARIABLE cLine    AS CHARACTER NO-UNDO.
DEFINE VARIABLE lFoundCR AS LOGICAL NO-UNDO.

DEFINE STREAM sOut.
DEFINE STREAM sIn.

INPUT STREAM sIn FROM VALUE(cBaseFile).
OUTPUT STREAM sOut TO VALUE(cDestFile).

ASSIGN lFoundCR = NO.

REPEAT ON ERROR UNDO, LEAVE:

  IMPORT STREAM sIn UNFORMATTED cLine.

  IF NOT lFoundCR AND cLine = "" THEN ASSIGN lFoundCR = YES.

  IF cDataType = "HEADER" AND lFoundCR THEN LEAVE.

  IF cDataType = "HEADER" AND NOT lFoundCR THEN
    PUT STREAM sOut UNFORMATTED cLine SKIP.

  IF cDataType = "CONTENT" AND lFoundCR THEN
    PUT STREAM sOut UNFORMATTED cLine SKIP.
 
  ASSIGN cLine = "". 
END. /* REPEAT */

OUTPUT STREAM sOut CLOSE.
INPUT STREAM sIn CLOSE.