Go to Home Page
Questions?
Call 1-800-572-5517
 
  Go to Home Page  
  See all products
  See price schedules
  See manuals, tutorials, articles
  Download a free 30-day trial
  See user testimonials
  About Pacific Systems Group
 
  Welcome Rocket Software MXI Users - Learn about Spectrum SMF Writer for MXI
  Choose Spectrum Writer to add 4GL to your product
  Free 60-Page Book (PDF) - How to Make an SMF Report
Spectrum SMF Writer - the 4GL SMF Report Writer.

Welcome to Pacific Systems Group. Software Solutions for IBM Mainframes since 1981.

Comparison of Quikjob Syntax

We have a version of Z-Writer (called ZWQUIK) that uses the same syntax as Quikjob (shown below).
That means you can now replace Quikjob without making any changes to your programs or JCL.

Try a free trial right now!


Quikjob Syntax (ZWQUIK Syntax)
 
Flow Control Statements
ABEND
ACCUM
ADD
BREAK
CALL module [parm1 parm2 ...]
CHECKBREAKS
CLOSE fileid
DIVD dividend [nD] BY divisor [nD] GIVING quotient [nD] where: nD is the numnber of decimal digits in the operand, followed by the letter D. Ex: 2D
DOHEADERS [PAGEONE]
END
EQU fieldid xxxn-n[-x] [nC/nE/nN] initvalue where: xxx is a fileid or areaid (ex: INF, WST) n-n is the starting and ending column the data -x is the data type (P=packed, B=binary, E=EBCDIC) nC/nE/nN is number of decimals and format for displaying data: 2C - ZZZ,ZZZ,ZZ9.99 2E - ZZZ.ZZZ.ZZ9,99 0N - 99999999999
EXIT
GET [ATEND nnnn/EOJ] where: nnnn is statement label EOJ means end processing
GOTO nnnn/EOJ where: nnnn is statement label EOJ means end processing
HDR
IF field1 [NOT] EQ/GT/LT/xxxxx field2 [AND/OR] where: xxxxxx can be any of the following class tests ALPHA NUMERIC SPACE[S] BLANK[S] ZERO[S] HIVALUE[S] LOVALUE[S] ONTABLE
LIMITREADS nnn [fileid]
LINECOUNT [nnn]
MOVE field1 TO field2 [nC/nE/nN] MOVE field1 TO field2 [field3] where: nC/nE/nN is number of decimals and format for displaying data: 2C - ZZZ,ZZZ,ZZ9.99 2E - ZZZ.ZZZ.ZZ9,99 0N - 99999999999 field3 is a 2 or 4 byte binary field indicating the number of bytes to move.
MULT multiplicand [nD] BY multiplier [nD] GIVING product [nD] where: nD is the numnber of decimal digits in the operand, followed by the letter D. Ex: 2D
OPEN [fileid/INF] [password]
OPTION [option1, option2, ...] Some OPTIONS available are: NOLIST - suppress listing of program source code WSTSIZE=nnnnn - size to allocate for Work Area. Default is 1000.
PRINT
PRINTHEX
SAMPLE
SET
CHECKBREAKS
PERFORM label TO label
ATEND
DOUNTIL conditional-expression ... ENDDO
DOWHILE conditional-expression ... ENDDO
EXITDO
CASE dataname WHEN conditional-expression ... WHEN conditional-expression ... ELSE ENDCASE
EXITCASE
Table Handling Statements
SEARCH table key
DELETE tablename
RETRIEVE tablename [RANDOM]
STORE tablename [RANDOM]
TSORT tablename [A/D]
Array Handling Statements
DELETE arrayname
RETRIEVE arrayname
I/O Statements
PICNSAVE outname USING dataname1 dataname2 ...
READ filename
WRITE filename
PRINT dataname1 [LENGTH nnn] dataname2 [LENGTH nnn] ...
LIST dataname1 [LENGTH nnn] dataname2 [LENGTH nnn] ...
CLOSE file
SORT fileid ON field1 [_A_/D] [field2 [_A_/D] ...]
SUB subtrahend FROM field2 where field2 begins as the menuend and is replaced with the difference
TABLSPEC
TRACE
WHEN
WRITE
Copyright 2016.
Pacific Systems Group.
All rights reserved.
Home | Products | Prices | Documentation | 30-Day Trials | Customer Reviews | Company
Send Your Comments or Questions