Procedure Division Statements

ABS(numeric-argument)

ACCESS (directory-access-block) [directory-name] [,EXCP=statement-label]

ACTIVATE partition, program [,DIR=directory] [,EXCP=statement-label]

ADJUSTL(string-argument)

ADJUSTR(string-argument)

AGAIN

ASC(string-argument)

ASCHEX(string-argument, numeric-error-argument)

AUTOINPUT [(lun)] @(screen-position),variable-name [,length-override]

BASE256(string-argument,numeric-error-argument)

BASE64(string-argument,numeric-error-argument)

BINARY(string-argument)

BREAK

CASE expression-list
CASE ANY MATCH
CASE ELSE

CHKSUM(string-argument)

CHR(numeric-argument)

CLEAR
CLEARCOMMON
CLEARLOCAL

CLEARFILE (lun)

CLOSE

CONTINUE

result-string = CONTROL(lun,control-string [,EXCP=statement-label])

CREATE filename, record-size, file-type [,key-size[,key-position]], DIR=directory [,EXCP=statement-label]

DATE2NUM(date-string,date-mode)

DATETONUM(date-string, numeric-error-argument)

DECHEX(numeric-argument, numeric-error-argument)

DECIHEX(numeric-argument)

result-string = DECRYPT(input-string, seed-string)

DELETE (lun) KEY=index [,EXCP=statement-label]

DO
DO {WHILE | UNTIL} relational-expression

DOSFC(string-1, string-2, string-3) [,EXCP=statement-label]

DOSMS(string-1, string-2, string-3, string-4) [,EXCP=statement-label]

DOSRW(string-1, string-2, numeric-argument, format-label) [,EXCP=statement-label]

DSTAT(device-name [,EXCP=statement-label])

ELSE

result-string = ENCRYPT(input-string, seed-string)

END

ENDIF

ENDSELECT

ENTER program [,DIR=directory] [,EXCP=statement-label]

ERASE filename [,DIR=directory] [,EXCP=statement-label]

ERROR

ERRORSUB statement-label
ERRORSUB [SYSTEM]

ERRORTO statement-label
ERRORTO [SYSTEM]

ESCAPESUB statement-label
ESCAPESUB SYSTEM

ESCAPETO statement-label
ESCAPETO SYSTEM

EVENTSUB statement-label,event-string$,source-string$

EVENTWAIT

EXIT [,EXCP=statement-label]

EXITALL

EXITTO level-number [,EXCP=statement-label]

EXTRACT (lun, format-statement-label) [KEY=index] [,EXCP=statement-label]

FILE (lun) BUF=buffer-size
FILE (lun) CTL=control-parameter
FILE (lun) DLM=delimiter-string
FILE (lun) POS=BOF
FILE (lun) POS=EOF
FILE (lun) FORWARD
FILE (lun) REVERSE

FIRST(lun) [,EXCP=statement-label]

FOR control-variable = start-count TO stop-count [STEP increment]

FPT(numeric-argument)

FSTAT(filename [DIR=directory] [,EXCP=statement-label])

GOSUB statement-label

GOTO statement-label

HEXASC(string-argument)

HEXDEC(string-argument)

IF relational-expression [THEN] conditional-statement(s)

IF relational-expression [THEN]
  conditional-statement(s)
ELSE
  conditional-statement(s)
ENDIF

IHEXDEC(string-argument)

INPUT [(lun)] variable-list [,EXCP=statement-label]

INPUT [(lun)] @(screen-position),variable-name [,length-override]

INQUIRE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label]

INSERT (lun, format-statement-label) KEY=index [,EXCP=statement-label]

INT(numeric argument)

INTEL(numeric-argument)

INTELD(numeric-argument)

INTERRUPT partition [,EXCP=statement-label]

KEY(lun [,EXCP=statement-label])

KILL partition [,EXCP=statement-label]

LAST(lun, [,EXCP=statement-label])

LCASE(string-argument)

LEN(string-argument)

[LET] string-variable = string-expression
[LET] numeric-variable = numeric-expression

LOG string-argument

LOCK (lun) [,EXCP=statement-label]

LOOP [WHILE | UNTIL relational-expression]

MESSAGESUB statement-label

MID(string-argument)

MOVE (string-argument-1, string-argument-2, starting-position, length)

MSGBOX string-argument

Numeric-variable = MSGBOX (string-expression, caption, type)

NEXT

NOT numeric-argument

NUM(string-argument, numeric-error-argument)

NUM2DATE(numeric-argument, date-mode)

NUMTODATE(numeric-argument)

ON numeric-argument GOTO statement-list

OPEN (lun) filename|device-name [,DIR=directory] [,EXCP=statement-label]

PAD string-argument

String-variable = PASSWORD

path-string = PATH(Comet-directory-name)

PAUSE(numeric-argument)

PCOMM(partition [,EXCP=statement-label])

POP

POPALL

POS(string-1, string-2)

POSITION (lun) KEY=argument [,EXCP=statement label]

PREV(lun [,EXCP=statement-label])

PRINT [(lun)] variable-list [,EXCP=statement-label]

PSTAT(partition [,EXCP=statement=label])

READ (lun, format-statement-label) [KEY=index] [,EXCP=statement-label]

RECNUM(lun [,EXCP=statement-label])

RENAME filename-1 [,DIR=dir-1], filename-2 [,DIR=dir-2] [,EXCP=statement-label]

RETURN

REWRITE (lun, format-statement-label) KEY=index [,EXCP=statement-label]

RND(numeric-argument)

RPOS(string-argument-1,string-argument-2)

RSUB(string-argument, starting-position, length)

RUN program [,DIR=directory] [,EXCP=statement-label]

SECURE string-argument

SELECT CASE expression
  CASE expression list 1
     [statement block 1]
  CASE expression list 2
     [statement block 2]
  [CASE ANY MATCH]
     statement block]
  [CASE ELSE]
     [statement block]
ENDSELECT

Numeric-variable = SETBIT (string-expression, bit-location, bit-value [,EXCP=label])

SGN(numeric-argument)

SQRT(numeric-argument)

STOP

STR(numeric-argument)

STRING(string-argument, numeric-argument)

STRIP(string-argument)

STRIPL(string-argument)

STRIPR(string-argument)

STS(lun)

SUB(string-argument, starting-position, length)

SWAP(string-variable-1, string-variable-2)

TERMINATE partition [,EXCP=statement-label]

Numeric-variable = TESTBIT (string-expression, bit-location [,EXCP=label])

UCASE(string-argument)

UNLOCK (lun) [,EXCP=statement-label]

UPDATE (lun, format-statement-label) KEY=index [,EXCP=statement-label]

WAIT

WAKEUP time-string

WRITE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label]