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.
We have a version of Z-Writer (called ZWDYL) that uses the same syntax as DYL-280 (shown below). That means you can now replace DYL280 without making any changes to your programs or JCL.

Try a free trial right now!


DYL-280 Syntax (ZWDYL Syntax)
 
Data Definition Statements
FILE filename [KSDS/ESDS/RRDS] [RANDOM DATANAME [CH/NU/BI/PD] [DECIMAL] /SKIP DATANAME [CH/NU/BI/PD] [DECIMAL] /SEQUENTIAL] {INPUT/OUTPUT FROM FILENAME} [FB/VB/S/F/V/U/SB] [RECSIZE [BLKSIZE]] [CARDS] [KEYLEN N] [KEYLOC N] [RELBYTE dataname] [POSITION dataname] [STATUS dataname] [COUNT dataname] [LENGTH dataname] [ERASE dataname] [PARTKEY dataname] [BYPASS N] [DROPERR] [DUMMY] [REUSE/NULL] [RETAIN/NORETAIN]
FILE filename PDS dataname [INPUT] [FB/VB/F/V/U RECSIZE [BLKSIZE]] [STATUS dataname] [COUNT dataname] [LENGTH dataname] [MEMBER dataname]
Flow Control Statements
ACCEPT
REJECT
GOTO label
PERFORM label [TO label]
CONTROL dataname
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 filename [nnnK] USING dataname1 [A/D] dataname2 [A/D] dataname3 [A/D] UNTIL dataname
COMBINE BITS op1 AND/OR/EXOR op2 [INTO dataname]
REPORTn [nnn WIDE] [nnn LONG] [nnn BETWEEN] [ASA] (ADD DD FOR DYL280Rn)
TRANSLATE dataname [INTO dataname] [FROM ASCII/EBCDIC/'literal'] [TO ASCII/EBCDIC/'literal']
STOP
FIN
Copyright 2018.
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