Many mainframe shops have had CA-Earl around for years. As you know, CA-Earl is now owned by CA. The costs are high. And so is the level of frustration at many shops. Many shops are looking for a non-CA alternative to CA-Earl.

If you are tired of overpaying CA for CA-Earl,
we have great news for you!

Z-Writer can provides the same capabilities
as CA-Earl at a much lower cost!

Z-Writer is a powerful quick-code utility for z/OS mainframes. Its syntax is very similar to CA-Earl's. That means you'll be able to run your existing CA-Earl programs with only minor changes. Following is an actual CA-Earl program that has been converted to Z-Writer.
As you can see, some lines are identical. And most others require only minor syntax changes.

OPTION PAGE=60
DDTST1: FILE DISK RECORD=1035
    DEF      COUNT1     001-017 X
    DEF      REG1A      001-019 X
    DEF      DEPT1      020-021 P
    DEF      BANKID1    024-1022 X
    DEF      REG1B      1023-1035 X
DDTST2: FILE DISK RECORD=30
    DEF      COUNT2     001-017 X
    DEF      PROD2      018-023 X
DDTST3: FILE DISK RECORD=44     OUTPUT
    DEF      REG3A      001-019 X
    DEF      PROD3      020-025 X
    DEF      DEPT3      026-027 P
    DEF      NUMCHCK3   028-031 P
    DEF      REG3B      032-044 X
!
    DEF  REGW (X 999) = NONE
    DEF  TAB ARRAY 999 = REGW 1-1 X
    DEF  IX  (P 4.0)   = 0
    DEF  CW  (X 1) = NONE
!
!
!
    GET DDTST1
    GET DDTST2
!
COMPARE:
    GOTO EQUAL COUNT1 = COUNT2
    GOTO SMALL COUNT1 < COUNT2
    GOTO LARGE COUNT1 > COUNT2
!
EQUAL:
    SET REG3A     = REG1A
    SET PROD3     = PROD2
    SET DEPT3     = DEPT1
    SET REGW      = BANKID1
    SET REG3B     = REG1B
    PERFORM ROUTINE
    IF NUMCHCK3 NOT = 0
       PUT DDTST3   ENDIF
    GET DDTST1
      IF DDTST1 = 'E' GOTO EOJ ENDIF
    GOTO COMPARE
!
!
ROUTINE:
  PROC
    SET NUMCHCK3 = 0
    SET IX = 1
LOOP:
    SET CW = TAB(/IX/)
    IF CW = 'A'  SET NUMCHCK3 = NUMCHCK3 + 1  ENDIF
    SET IX = IX + 1
    IF IX < 1000 GOTO LOOP ENDIF
  ENDPROC
!
SMALL:
    GET DDTST1
      IF DDTST1 = 'E' GOTO EOJ ENDIF
    GOTO COMPARE
!
LARGE:
    GET DDTST2
      IF DDTST2 = 'E' SET COUNT2 = '99999999999' ENDIF
    GOTO COMPARE
END

OPTION LINES(60)
FILE DDTST1 LRECL(1035)
    FLD      COUNT1     17
    FLD      REG1A      19  COL(1)
    FLD      DEPT1      P2 
    FLD      BANKID1    999 COL(24)
    FLD      REG1B      13 
FILE DDTST2 LRECL(30)
    FLD      COUNT2     17
    FLD      PROD2      6 
FILE DDTST3 LRECL(44) OUTPUT
    FLD      REG3A      19
    FLD      PROD3      6 
    FLD      DEPT3      P2
    FLD      NUMCHCK3   P4
    FLD      REG3B      13
*
WORKAREA
    FLD  REGW 999
    REDEFINE REGW
    FLD  TAB  1     DIM(999) 
    FLD  IX   P4.0  INIT(0)
    FLD  CW   1
*
    READ DDTST1
    READ DDTST2

COMPARE:
    IF COUNT1 = COUNT2 GOTO EQUAL ENDIF
    IF COUNT1 < COUNT2 GOTO SMALL ENDIF
    IF COUNT1 > COUNT2 GOTO LARGE ENDIF

EQUAL:
    REG3A     = REG1A
    PROD3     = PROD2
    DEPT3     = DEPT1
    REGW      = BANKID1
    REG3B     = REG1B

    PERFORM ROUTINE
    IF NUMCHCK3 NOT = 0
       WRITE DDTST3   ENDIF
    READ DDTST1
      IF DDTST1 = 'E' GOTO EOJ ENDIF
    GOTO COMPARE

ROUTINE:

    NUMCHCK3 = 0
    IX = 1

    DOWHILE IX < 1000
      IF TAB[IX] = 'A'  NUMCHCK3 = NUMCHCK3 + 1  ENDIF
      IX = IX + 1
    ENDDO

SMALL:
    READ DDTST1
      IF DDTST1.#STATUS <> 'Y' GOTO EOJ ENDIF
    GOTO COMPARE

LARGE:
    READ DDTST2
      IF DDTST2.#STATUS <> 'Y' COUNT2 = '99999999999' ENDIF
    GOTO COMPARE
END

Z-Writer's annual costs are lower than CA-Earl's. Licenses start at just $17,400. (Price list.) Compare that to what you are currently paying!

Yet Z-Writer provides the same sort of quick report writing and file update capabilities. In addition, Z-Writer has powerful numeric and string functions not found in CA-Earl. And, unlike CA-Earl, Z-Writer accepts your existing COBOL or Assembler record layouts, so you can start using it on new files right away.

Z-Writer is written entirely in fast, efficient Assembler language to be easy on your CPU. Best of all, it comes from Pacific Systems Group, with its 25-year history of providing inexpensive, rock solid mainframe software, backed up with first class service and support.

See for yourself why Pacific Systems Group product are already in use at over 300 mainframe shops worldwide. Download your own free 30-day trial of Z-Writer right now.

Call us at 1-800-572-5517 and we'll answer any questions you may have.  

Attention Mainframe Software Vendors! Spectrum Writer is the ideal choice for adding custom reporting and file export functions to your own product. Learn more about OEM, VAR and bundling opportunities.