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.
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
|
