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
  Report Writer Speedup Tips Article
Welcome to Pacific Systems Group. Software Solutions for IBM Mainframes since 1981.

Comparison of Quikjob Syntax


Quikjob

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 column and length of data -x is the data type (P=packed/B=binary/E=EBCDIC) nC/nE/nN is number of decimals and format for displaying data: nC - ZZZ,ZZZ,ZZ9.99 nE - ZZZ.ZZZ.ZZ9,99 nN - 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: nC - ZZZ,ZZZ,ZZ9.99 nE - ZZZ.ZZZ.ZZ9,99 nN - 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
CHECKBREAKS
CHECKBREAKS
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 where feild2 begins as the menuend and is replaced with the difference
TRACE
WHEN
WRITE
Copyright 2014
Pacific Systems Group.
All rights reserved.


Spectrum Writer 4GL - the economical alternative to SAS, Easytrieve, DYL-280...

Home | Products | Prices | Documentation | 30-Day Trials | Customer Reviews | Company
Send Your Comments or Questions