Many mainframe shops have had DYL-280 around for years. Many from way back in its Dylakor-Sterling heyday. As you know, DYL-280 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 DYL-280.

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

Z-Writer can provides the same capabilities
as DYL-280 at a much lower cost!

Z-Writer is a powerful quick-code utility for z/OS mainframes. Its syntax is very similar to DYL-280's. That means you'll be able to run your existing DYL-280 programs with only minor changes. Following is an actual DYL-280 program that has been converted to Z-Writer. As you can see, very few changes were required.

FILE CLIENTP STATUS R3EOF KSDS F 200
PARTNUM3    35  (PART)
SEQ3        4   (SEQ)
SWAP        1   (SWAP)
BLDG3       14
BIN3        12
PARTNUMB3   35
SEQB3       4
FILLER      8
EMPNUM3     8   (EMPLNUM)
REDEFINE AT EMPNUM3
EMPDEPT     5
EMPHNUM     3
;
WORKAREA
FIRSTLOOP    1  VALUE 'Y'
TESTDEPT     5  VALUE 'DEV02'
EMPNUM       8
PARTOUT     81
BLDG         3
REDEFINE AT BLDG
PREFIX       1
SUFFIX       2
BIN          5
TYPF         8
REDEFINE AT PARTOUT
SEQA         4
FILLER1      1
PARTNUMA    20
FILLER2      1
SEQB         4
FILLER3      1
PARTNUMB    20
;
SORT CLIENTP USING EMPNUM3

DOUNTIL EMPDEPT EQ TESTPART
READ CLIENTP
ENDDO

DOWHILE R3EOF EQ ‘Y’
IF FIRSTLOOP EQ 'Y'
 LIST 'PART NUM CHANGES FOR DEPT ' AT 1 
      TESTDEPT AT 28
 LIST ' ' AT 1
 LIST 'EMP' AT 1 'SEQA' AT 11 'PARTNUMA' AT 17
      'SEQB' AT 39 'PARTNUMB' AT 45
      'BLDG' AT 67 'BIN' AT 72
 MOVE 'N' TO FIRSTLOOP
ENDIF
   IF EMPDEPT EQ TESTDEPT
      MOVE SPACES   TO PARTOUT
      IF EMPNUM3 NE EMPNUM
         MOVE EMPNUM3 TO EMPNUM
      ENDIF
   IF SWAP EQ 'Y'
      MOVE PARTNUM3  TO PARTNUMB
      MOVE SEQ3      TO SEQB
      MOVE SEQB3     TO SEQA
      MOVE PARTNUMB3 TO PARTNUMA
   ELSE
      MOVE PARTNUM3  TO PARTNUMA
      MOVE SEQ3      TO SEQA
      MOVE SEQB3     TO SEQB
      MOVE PARTNUMB3 TO PARTNUMB
   ENDIF
     IF BLDG3 EQ '999'
         MOVE 'ALL'  TO BLDG
      ELSE
         MOVE BLDG3  TO BLDG
      ENDIF
IF BIN3 EQ '99999'
         MOVE 'ALL'  TO BIN
      ELSE
         MOVE BIN3   TO BIN
      ENDIF
      IF SUFFIX EQ '88' MOVE '**' TO SUFFIX
ENDIF
LIST EMPNUM AT 1 SEQA AT 11 PARTNUMA AT 17
     SEQB AT 39 PARTNUMB AT 45
     BLDG AT 67 BIN AT 72
ENDIF

READ CLIENTP
ENDDO 

FILE CLIENTP TYPE(KSDS) F(200)
PARTNUM3    35 HDG(‘PART’)
SEQ3         4 HDG(‘SEQ’)
SWAP         1 HDG(‘SWAP’)
BLDG3       14
BIN3        12
PARTNUMB3   35
SEQB3        4
FILLER       8
EMPNUM3      8 HDG(‘EMPLNUM’)
REDEFINE EMPNUM3
EMPDEPT      5
EMPHNUM      3
*
WORKAREA
FIRSTLOOP    1 INIT('Y')
TESTDEPT     5 INIT('DEV02')
EMPNUM       8
PARTOUT   81
BLDG         3
REDEFINE BLDG
PREFIX       1
SUFFIX       2
BIN          5
TYPF         8
REDEFINE PARTOUT
SEQA         4
FILLER1      1
PARTNUMA    20
FILLER2      1
SEQB         4
FILLER3      1
PARTNUMB    20
*
SORT CLIENTP USING EMPNUM3

DOUNTIL EMPDEPT EQ TESTPART
READ CLIENTP
ENDDO

DOWHILE #STATUS EQ ‘Y’
IF FIRSTLOOP EQ 'Y'
 PRINT 'PART NUM CHANGES FOR DEPT '
       TESTDEPT(@28)
 PRINT ' '
 PRINT 'EMP' 'SEQA'(@11) 'PARTNUMA'(@17)
       'SEQB'(@39) 'PARTNUMB'(@45)
       'BLDG'(@67) 'BIN'(@72)
 MOVE 'N' TO FIRSTLOOP
ENDIF
   IF EMPDEPT EQ TESTDEPT
      MOVE SPACES   TO PARTOUT
      IF EMPNUM3 NE EMPNUM
         MOVE EMPNUM3 TO EMPNUM
      ENDIF
   IF SWAP EQ 'Y'
      MOVE PARTNUM3  TO PARTNUMB
      MOVE SEQ3      TO SEQB
      MOVE SEQB3     TO SEQA
      MOVE PARTNUMB3 TO PARTNUMA
   ELSE
      MOVE PARTNUM3  TO PARTNUMA
      MOVE SEQ3      TO SEQA
      MOVE SEQB3     TO SEQB
      MOVE PARTNUMB3 TO PARTNUMB
   ENDIF
    IF BLDG3 EQ '999'
         MOVE 'ALL'  TO BLDG
      ELSE
         MOVE BLDG3  TO BLDG
      ENDIF
IF BIN3 EQ '99999'
         MOVE 'ALL'  TO BIN
      ELSE
         MOVE BIN3   TO BIN
      ENDIF
      IF SUFFIX EQ '88' MOVE '**' TO SUFFIX
ENDIF
PRINT EMPNUM SEQA(@11) PARTNUMA(@17)
      SEQB(@39) PARTNUMB(@45)
      BLDG(@67) BIN(@72)
ENDIF

READ CLIENTP
ENDDO

Z-Writer's annual costs are lower than DYL-280'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 DYL-280. And, unlike DYL-280, 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.