Many mainframe shops have had Quikjob around for years. As you know, Quikjob 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 Quikjob.

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

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

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

OPTION NOSEQ,MBUFFER=NO
INFKSDS    1100
    *********************************************
    *      FILE LAYOUT FOR INPUT VSAM AUX FILE  *
    *********************************************
EQU AUX-TRLR         INF20-21
EQU PRODUCT          INF04-13
EQU SALES-DATE       INF44-49
EQU SALES-MM         INF44-45
EQU SAL-DAY          INF46-47
EQU SALES-YY         INF48-49
EQU CUSTNAME         INF50-79
EQU ADDRESS          INF134-163
EQU CITY             INF164-178
EQU STATE            INF179-180
EQU ZIP              INF181-185
EQU LOCATION         INF191-194
EQU PHONE            INF237-246
EQU BRANCH           INF186-189


    ********************************************
    *   THE TITLE OF THE REPORT                *
    ********************************************
TITLE1 'SALES IN BRANCH 4126 IN JAN 2010'
TITLE2 'ABC MANUFACTURING COMPANY'

    ********************************************
    * NAMES OF THE FLDS REQUIRED FOR THE REPORT*
    *AND OVERRIDE COLUMN HEADINGS              *
    ********************************************
REPORT PRODUCT      (PRODUCT CODE)
       LOCATION     
       CUSTNAME     (CUSTOMER NAME)
       ADDRESS      (STREET ADDRESS)
       CITY         
       STATE        
       ZIP          
       PHONE        

    ********************************************
    *   LOOP THRU READING FILE                 *
    ********************************************
100 GET INF ATEND 900

    IF  INF02-13 IS LOVALUES
        GOTO 100.
    IF  AUX-TRLR IS EQUAL C'01'
        PERFORM 200 THRU 299.

    GOTO 100

    ********************************************
    *   PRINT REPORT IF TRAILER MEETS CRITERIA *
    ********************************************
200 IF  ISSUE-DATE IS EQUAL C'000000' OR
    IF  ISSUE-DATE IS EQUAL BLANKS
        GOTO 299.

    IF  ISSUE-MM IS EQUAL C'01' AND
    IF  ISSUE-YY IS EQUAL C'10' AND
    IF  BRANCH IS EQUAL C'4126'
        PRINT REPORT.
299 EXIT

900 GOTO EOJ















999 END

FILE INF TYPE(KSDS)  RECAREA(1100)
    *********************************************
    *      FILE LAYOUT FOR INPUT VSAM AUX FILE   *
    *********************************************
FLD AUX-TRLR         2  COL(20)
FLD PRODUCT          10 COL(4)
FLD SALES-DATE       6  COL(44)
FLD SALES-MM         2  COL(44)
FLD SAL-DAY          2
FLD SALES-YY         2
FLD CUSTNAME         3
FLD ADDRESS          30 COL(134)
FLD CITY             15
FLD STATE            2
FLD ZIP              5
FLD LOCATION         4  COL(191)
FLD PHONE            10 COL(237)
FLD BRANCH           4  COL(186
FLD INF02-13         12 COL(2)


    ********************************************
    *   THE TITLE OF THE REPORT                *
    ********************************************
TITLE 'SALES AT BRANCH 4126 IN JAN 2010'
TITLE 'ABC MANUFACTURING COMPANY'














    ********************************************
    *   LOOP THRU READING FILE                 *
    ********************************************
L100: READ INF IF #STATUS = ‘N’ GOTO L900 ENDIF

      IF  INF02-13 = LOWVALUES
          GOTO L100  ENDIF
      IF  AUX-TRLR = '01'
          PERFORM L200 THRU L299 ENDIF

      GOTO L100

    ********************************************
    *   PRINT REPORT IF TRAILER MEETS CRITERIA *
    ********************************************
L200: IF  ISSUE-DATE = '000000' OR
          ISSUE-DATE = SPACES
            GOTO L299 ENDIF

      IF ISSUE-MM = '01' AND
         ISSUE-YY = '10' AND
         BRANCH = '4126'
           PERFORM PRINT-REPORT ENDIF
L299:

L900: STOP

PRINT-REPORT:
    ********************************************
    * NAMES OF THE FLDS REQUIRED FOR THE REPORT*
    *AND OVERRIDE COLUMN HEADINGS              *
    ********************************************
      PRINT  PRODUCT(‘PRODUCT CODE’)
             LOCATION     
             CUSTNAME(‘CUSTOMER NAME’)
             ADDRESS(‘STREET ADDRESS’)
             CITY         
             STATE        
             ZIP          
             PHONE        

L999:

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