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
|
