Many mainframe shops have had some sort of quick code tool around for years. Many of those products are now owned by CA. And now many shops are looking for an alternative. Z-Writer is the alternative you've been looking for.

Z-Writer is the quick-code tool for z/OS. It features a simple syntax that is very similar to the other products. (Click on the name of your current product below to see a specific comparison.) Your programmers will be up and running with Z-Writer in no time. Best of all, it is written entirely in fast, efficient Assembler language to be easy on your CPU. For more information, click on your existing product:

• Easytrieve
• DYL-280 (VISION:Results)
• Quikjob (VISION:Report)
• CA-Earl
• SAS

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.  

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

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.