<< Click to Display Table of Contents >> Navigation:  Reference > Syntax > Syntax summary 2

! ---The following for Data stages only---

!

! ---LOGICAL RECORD DEFINITION---

CARD CHARACTERS n,

CARD CHARACTERS BINARY n,

CARD NUMBERS [(/] n [)/],[[(/] n [)/]], ...

IN COLUMN[S] col [,col ],

TEMPORARY /n/,

PRESERVE TEMPORARY,

ORDER code code ... ,

SERIAL NUMBER IN $field,

SERIAL IDENTIFIER IN $field,

! ---INITIALISATION OF DATA AREAS---

Z,

Z TO FINISH,

Z $variable.$variable ... ,

! ---EDITING AND INTERACTIVE---

CP,

CK ['text'].logical expression,

EL ['text'].[$variable] ... ,

HOLD $variable.'text',

A $variable.'text',

REPLY $variable.'text',

! ---CARD AND RECORD HANDLING---

READ [(stream)] [$field]

[EREC=@position].[EFIL=@position],

READ NEXT [(stream)] [$field]

[EREC=@position].[EFIL=@position],

READ REWIND (stream),

PRINT [B] $field,

PRINT [B] ALL,

PUNCH [(stream)] $field,

PUNCH [(stream)] ALL,

COUNT $field . 'text',

SELECT BUFFER buffer,

WRITE,

WRITE BACK (n),

WRITE MARK (n),

! ---The following for Print Stages only

PT #table [(ID='tableid')] [(F=...)],

!

! ---The following for Data and Table Stages

SELECT LEVEL n,

! ---TABLES---

SELECT WR $weight,

SELECT WR 1,

SELECT WQ $weight,

SELECT WQ 1,

SELECT STUB $variable,

SELECT BANNER $variable,

T table [(F= ... )] [(ID='text')] =

[$stub] * [$banner] [+$weight],

+T table [(F= ... )] [(ID='text')] =

[$stub] * [$banner] [+$weight],

T table [(F= ... )] [(ID='text')] =

@$variable * [$banner] [+$weight],

+T table [(F= ... )] [(ID='text')] =

@$variable * [$banner] [+$weight],

! ---The remainder for any Stage except Print

!

F = fmt / fmt ... ,

! ---VARIABLE DEFINITIONS---

DS $svar (n),

DM $mvar (n),

DI $ivar,

DW $wvar,

DC $cvar (n),

D $col = literal,

DS $svar = string definition,

DM $mvar = string definition,

ORDM $mvar = string definition,

DSx $svar = string definition, ! with text

DMx $mvar = string definition, ! with text

DM $mvar = logical definition,

DS $svar = matrix definition,

D $field = $field,

D $field = 'literal',

D $field = arithmetic expression,

D $field = %function,

DI $ivar = arithmetic expression,

DI $ivar = $svar (iconstant ,iconstant ... ),

DI $ivar = $mvar (iconstant ,iconstant ... ),

DI $ivar = %function,

DI $ivar = CT(countlist),

DW $wvar = arithmetic expression,

DW $wvar = $svar (wconstant ,wconstant ... ),

DW $wvar = $mvar (wconstant ,wconstant ... ),

DW $wvar = %function,

DW $wvar = $svar(#table),

DW $wvar = #table(cell),

DC $cvar [substring] = $field,

DC $cvar [substring] = 'literal',

DC $cvar [substring] = $cvar [(substring)],

DC $cvar [substring] = x // x // ... x,

DC $cvar [substring] = %function,

DC $cvar [substring] = #table(cell),

! ---For binary data only---

D $field = EXP($col),

D $col = string definition,

D $colbin = string definition,

D $col = logical definition,

ORD $col = string definition,

M $col/B . ...,

M $col/[N]mask . ...,

M $svar/B . ...,

M $svar/[N]bit . ...,

M $mvar/B . ...,

M $mvar/[N]bit . ...,

M $mvar/[N](arithmetic expression) . ...,