A Sample Easytrieve Program Converted to Spectrum Writer

On the left below is a sample Easytrieve program. And on the right we have shown the same program written with Spectrum Writer.

Below the Spectrum Writer example, we have also included another, fully commented version of the Spectrum Writer program. The comments help you see just how the Spectrum Writer statements correspond to the Easytrieve statements.

Easytrieve examples available: Example 1 | Example 2

***************************************************
* EASYTRIEVE SAMPLE PROGRAM 2                     *
*                                                 *
* THIS PROGRAM DOES THE FOLLOWING:                *
*                                                 *
* A) READS A FILE WITH DATES IN YYYYMMDD FORMAT   *
* B) CONVERT TEH DATE TO YYYMON FORMAT            *
* C) WRITE OUT THE NEW FILE                       *
***************************************************
FILE INFILE
IN-DATE          01 08 A
IN-DATE-YEAR     01 04 A
IN-DATE-MONTH    05 02 A
IN-DATE-DAY      07 02 A

FILE OUTFILE
OUT-DATE         01 09 A
OUT-DATE-YEAR    01 04 A
OUT-DATE-MONTH   05 03 A
OUT-DATE-DAY 08  02 A

*------------------------------------------------------
JOB INPUT INFILE
*------------------------------------------------------

CASE IN-DATE-MONTH
WHEN '01'
  OUT-DATE-MONTH = 'JAN'
WHEN '02'
  OUT-DATE-MONTH = 'FEB'
WHEN '03'
  OUT-DATE-MONTH = 'MAR'
WHEN '04'
  OUT-DATE-MONTH = 'APR'
WHEN '05'
  OUT-DATE-MONTH = 'MAY'
WHEN '06'
  OUT-DATE-MONTH = 'JUN'
WHEN '07'
  OUT-DATE-MONTH = 'JUL'
WHEN '08'
  OUT-DATE-MONTH = 'AUG'
WHEN '09'
  OUT-DATE-MONTH = 'SEP'
WHEN '10'
  OUT-DATE-MONTH = 'OCT'
WHEN '11'
  OUT-DATE-MONTH = 'NOV'
WHEN '12'
  OUT-DATE-MONTH = 'DEC'
END-CASE

OUT-DATE-YEAR = IN-DATE-YEAR
OUT-DATE-DAY  = IN-DATE-DAY

PUT OUTFILE

***************************************************
* SPECTRUM WRITER SAMPLE PROGRAM 2                *
*                                                 *
* THIS PROGRAM DOES THE FOLLOWING:                *
*                                                 *
* A) READS A FILE WITH DATES IN YYYYMMDD FORMAT   *
* B) CONVERT TEH DATE TO YYYMON FORMAT            *
* C) WRITE OUT THE NEW FILE                       *
***************************************************
OPTION: MAINFRAME 

FILE:  INFILE   DDNAME(INFILE)
FIELD: IN-DATE          COL(1) LEN(8)
FIELD: IN-DATE-YEAR     COL(1) LEN(4)
FIELD: IN-DATE-MONTH    COL(5) LEN(2)
FIELD: IN-DATE-DAY      COL(7) LEN(2)

INPUT: INFILE  

COMPUTE: OUT-DATE-MONTH = 
            WHEN(IN-DATE-MONTH = '01') ASSIGN('JAN')
            WHEN(IN-DATE-MONTH = '02') ASSIGN('FEB')
            WHEN(IN-DATE-MONTH = '03') ASSIGN('MAR')
            WHEN(IN-DATE-MONTH = '04') ASSIGN('APR')
            WHEN(IN-DATE-MONTH = '05') ASSIGN('MAY')
            WHEN(IN-DATE-MONTH = '06') ASSIGN('JUN')
            WHEN(IN-DATE-MONTH = '07') ASSIGN('JUL')
            WHEN(IN-DATE-MONTH = '08') ASSIGN('AUG')
            WHEN(IN-DATE-MONTH = '09') ASSIGN('SEP')
            WHEN(IN-DATE-MONTH = '10') ASSIGN('OCT')
            WHEN(IN-DATE-MONTH = '11') ASSIGN('NOV')
            WHEN(IN-DATE-MONTH = '12') ASSIGN('DEC')
    
COLUMNS: IN-DATE-YEAR 
         OUT-DATE-MONTH

***************************************************
* SPECTRUM WRITER SAMPLE PROGRAM 2 (COMMENTED)    *
*                                                 *
* THIS PROGRAM DOES THE FOLLOWING:                *
*                                                 *
* A) READS A FILE WITH DATES IN YYYYMMDD FORMAT   *
* B) CONVERT TEH DATE TO YYYMON FORMAT            *
* C) WRITE OUT THE NEW FILE                       *
***************************************************

***************************************************
**** THE MAINFRAME OPTION TELLS SPECTRUM WRITER  **
**** WE WANT A MAINFRAME OUTPUT FILE RATHER THAN **
**** A REPORT. TITLES, TOTALS AND SPACES BETWEEN **
**** THE OUTPUT COLUMNS ARE ALL SUPPRESSED.      **
***************************************************
OPTION: MAINFRAME

***************************************************
*** FIRST WE DEFINE THE INPUT FILE AND ITS FIELDS**
*** LIKE EASYTRIEVE'S "FILE" STATEMENT.          **
***************************************************
FILE:  INFILE   DDNAME(INFILE)
FIELD: IN-DATE          COL(1) LEN(8)
FIELD: IN-DATE-YEAR     COL(1) LEN(4)
FIELD: IN-DATE-MONTH    COL(5) LEN(2)
FIELD: IN-DATE-DAY      COL(7) LEN(2)

***************************************************
***** REPORT INPUT IS THE FILE WE JUST DEFINED   **
***** LIKE EASYTRIEVE'S "INPUT" STATEMENT.       **
***************************************************
INPUT: INFILE  

***************************************************
***  CREATE THE OUTPUT MONTH IN ITS NEW FORMAT   **
*** LIKE EASYTRIEVE'S "CASE" STATEMENT.          **
***************************************************
COMPUTE: OUT-DATE-MONTH = 
            WHEN(IN-DATE-MONTH = '01') ASSIGN('JAN')
            WHEN(IN-DATE-MONTH = '02') ASSIGN('FEB')
            WHEN(IN-DATE-MONTH = '03') ASSIGN('MAR')
            WHEN(IN-DATE-MONTH = '04') ASSIGN('APR')
            WHEN(IN-DATE-MONTH = '05') ASSIGN('MAY')
            WHEN(IN-DATE-MONTH = '06') ASSIGN('JUN')
            WHEN(IN-DATE-MONTH = '07') ASSIGN('JUL')
            WHEN(IN-DATE-MONTH = '08') ASSIGN('AUG')
            WHEN(IN-DATE-MONTH = '09') ASSIGN('SEP')
            WHEN(IN-DATE-MONTH = '10') ASSIGN('OCT')
            WHEN(IN-DATE-MONTH = '11') ASSIGN('NOV')
            WHEN(IN-DATE-MONTH = '12') ASSIGN('DEC')

***************************************************
***** COLUMNS OF DATA WANTED IN OUTPUT FILE      **
***** LIKE EASYTRIEVE'S "FILE OUTFILE".          **
***************************************************
COLUMNS: IN-DATE-YEAR
         OUT-DATE-MONTH