Obsolete features
Statement numbers
This appendix describes certain features of User Language which, while still supported, are generally considered obsolete. They have been superseded by other, more efficient features or techniques. Rocket Software does not recommend using these features in newly written requests and procedures.
Rocket Software strongly recommends that you use statement labels (see Statement labels) rather than statement numbers. Although statement numbers are still supported, this section is included primarily as documentation for applications developed using earlier releases of Model 204.
FOPT parameter
The setting of the FOPT (File Options) parameter determines whether procedures within a file must be labeled or numbered. For more information on the FOPT parameter, refer to the Rocket Model 204 Parameter and Command Reference Manual.
Rules for using statement numbers
The rules for specifying statement numbers in User Language statements are summarized below.
- A statement number is made up of the digits 0-9 and an optional period (.). The number must begin with a digit and cannot contain blanks, although blanks preceding or following it are optional.
- A statement number can start in any column up to but not including column INCCC.
- Any statement can be numbered, but some statements must be numbered. In particular, a statement must be numbered if:
It immediately follows a STORE RECORD or a FIND statement, in which case the statement number indicates the end of the preceding statement.
It is referred to by later statements. In most requests, COUNT RECORDS IN n, COUNT RECORD ON LIST m, NOTE, FIND, FOR EACH VALUE, and FOR EACH OCCURRENCE are referred to later and should therefore be numbered.
It is the first statement after a loop, in which case a number is needed to indicate the end of the loop. An END statement following a loop does not require a number.
It is the statement following a THEN or ELSE clause which is to be executed if the condition is false.
- The retrieval conditions of a FIND statement, the subexpressions of an IF statement, and the fields of a STORE RECORD statement must not be numbered, even if they start new lines.
- A statement number can have any number of parts, which are delimited by periods. Thus, 2.3 and 0.1 are two part numbers, and 0.05.4 is a three part number.
- A period (.) following a statement number is optional, but the periods separating the parts are required.
- Any part of a statement number can be arbitrarily large.
- The number of parts in a statement number must be the same as the level on which the statement is nested. For example, the following sequence is illegal because 2.1.1 has three parts but is nested at the second level:
- If a statement is not numbered, it is assigned a default level of nesting. The default level is the same as the level of the previous statement. If there is no previous statement, the default is the first level. If the previous statement starts a loop or a THEN, ELSE, or ELSEIF clause, or is a SUBROUTINE statement, the default level is one greater than the level of the previous statement.
- Any part of a statement number can have leading zeros. However, a number with leading zeros is not equivalent to one without. Thus 01 and 1 are both legal but not equivalent; the same is true of 1.1 and 1.01.
- Statements need not be numbered in sequential order. The statement number is just a label for the statement; its numerical value has no significance.
- Within a request, statement numbers should be unique. If not, Model 204 prints the message:
- A statement number followed by a label is allowed with or without a space between the number and the label. If a statement number is followed by a label and there is no space between them, User Language separates them into statement number and label. Although a statement number can be followed by a label, it is strongly recommended that you avoid placing statement numbers and labels on the same line.
For example:
1.1
and
1.1.
are both legal and are interpreted as the same number.
This rule also applies when referring to statements by number. Thus:
FOR EACH RECORD IN 1.
and
FOR EACH RECORD IN 1
refer to the same statement.
2. FOR EACH RECORD IN 1 2.1.1 PRINT ALL INFORMATION
The following, for instance, is a legal request:
BEGIN 3. FIND ALL RECORDS FOR WHICH COMPANY = ROCKET 1. FOR EACH RECORD IN 3. 3.1 PRINT ALL INFORMATION 2.6. SKIP 1 LINE END
M204.0223: STATEMENT LABEL MULTIPLY DEFINED
This is a warning message; the request can still be run.
Examples
The following request addresses an automated library card catalogue. Each record in the file contains information that would normally appear on a single card in the catalogue, such as AUTHOR, TITLE, SUBJECT, and CATALOGUE NUMBER.
BEGIN 1. FIND ALL RECORDS FOR WHICH AUTHOR = PAULING 2. FOR EACH RECORD IN 1 2.1 NOTE SUBJECT 2.2 FIND ALL RECORDS FOR WHICH SUBJECT = VALUE IN 2.1 2.3 FOR EACH RECORD IN 2.2 2.3.1 PRINT TITLE 3. COUNT RECORDS IN 1 PRINT COUNT IN 3 END
The following request uses a subroutine to validate full-screen input entries. A screen named DATA is defined with input areas named ITEM6, ITEM7, etc. Values entered during the READ SCREEN statement are validated one at a time by subroutine 900. Each screen item is assigned to the argument variable %A before the subroutine is called. If the item fails the validation, the subroutine sets %TAG to a nonzero value before returning. The request sets a tag on the screen for each incorrect item. The REREAD statement is issued if a screen item fails the validity tests.
BEGIN SCREEN DATA . . . END SCREEN READ SCREEN DATA NO REREAD *VALIDATE DATA ITEMS 1. %A = %DATA:ITEM6 CALL 900 IF %TAG THEN TAG %DATA:ITEM6 2. %A = DATA:ITEM7 CALL 900 . . . 50. IF $CHKTAG('DATA') THEN REREAD SCREEN DATA JUMP TO 1 51. *PROCESS DATA . . . *SUBROUTINE TO PERFORM VALIDATION BY TABLE LOOKUP * IN: %A VALUE * OUT: %TAG NONZERO IF INVALID 900. SUBROUTINE . . . END
$DSCR function
The $DSCR function interprets its character string argument as a field name. It returns a variable-length character string describing the specified field. New application development should incorporate $FDEF that supplanted the $DSCR function.
The following discussion is provided to maintain existing code. Each letter in the returned string represents a particular field attribute. Attributes are listed in $DSCR function.
| Character | Attribute |
|---|---|
| A | ORDERED CHARACTER |
| C | CODED |
| D | DEFERRABLE |
| F | FRV |
| I | INVISIBLE |
| K | KEY |
| L | LEVEL |
| M | MANY-VALUED |
| N | ORDERED NUMERIC |
| O | OCCURS |
| P | UPDATE IN PLACE |
| Q | UNIQUE |
| R | NUMERIC RANGE |
| S | STRING |
| T | FLOAT |
| U | Undefined |
| W | AT-MOST-ONE |
How $DSCR works
When $DSCR is invoked in file context, the returned string represents the description of the specified field in the current file.
Each letter that appears in the return value corresponds to an attribute in the field description. For example, if K is one of the letters in the returned string, then the field is KEY.
If a particular letter does not appear in the result of a $DSCR call, then either the corresponding attribute does not apply or the attribute's opposite is in effect. For example, if M (many-valued) does not appear, the field is NON-CODED and NON-FRV, in which case M does not apply, or it is FEW-VALUED. You can resolve this by looking for C and F in the returned string.
When $DSCR is invoked in group context, the returned string represents a composite description of the field in all of the files of the current group. Some of the letters imply that the corresponding field attribute is present in all of the files in the group; others imply that the attribute is present in some (at least one) file in the group. If the field specified as the $DSCR argument is not defined in the current file or group, $DSCR returns the character string "U" (undefined). $DSCR function lists the individual letters and their meanings in group context.
| Character | Attribute |
|---|---|
| A | ORDERED CHARACTER in some |
| C | CODED in all |
| D | DEFERRABLE in some |
| F | FRV in some |
| I | INVISIBLE in all |
| K | KEY in all |
| L | LEVEL in some |
| M | MANY-VALUED in all |
| N | ORDERED NUMERIC in some |
| O | OCCURS in some |
| P | UPDATE IN PLACE in some |
| Q | UNIQUE in some |
| R | NUMERIC RANGE in all |
| S | STRING in all |
| T | FLOAT in some |
| W | AT-MOST-ONE in all |
| U | Undefined |
Example
This request determines the attributes of a field and performs one of three types of searches, depending on the results of $DSCR.
BEGIN %A = $READ ('FIELD NAME') %B = $READ ('FIELD VALUE') %C = $DSCR (%A) IF %C EQ 'U' THEN PRINT 'ILLEGAL FIELD' JUMP TO STOP END IF *CHECK FOR NON-KEY IF $INDEX (%C, 'K') EQ 0 THEN JUMP TO NUM.RNG.CHK END IF FIND AND PRINT COUNT %%A = %B END FIND JUMP TO STOP *CHECK FOR NUMERIC RANGE NUM.RNG.CHK: IF $INDEX (%C, 'R') EQ 0 THEN JUMP TO ALL.RECS END IF FIND AND PRINT COUNT %%A IS %B END FIND JUMP TO STOP *NEITHER KEY FOR NUMERIC RANGE ALL.RECS: FIND ALL RECORDS END FIND FOR EACH RECORD IN ALL.RECS IF %%A = %B THEN PLACE RECORD ON LIST OK END IF END FOR OKS: COUNT RECORDS ON LIST OK PRINT COUNT IN OKS STOP: END END
Symbols
# symbol, as a reserved character 166
$ABS function 858
$ACCOUNT function 717, 717
$ACCT function 718
$ALPHA function 718 to 719, 845
$ALPHNUM function 720 to 721, 845
syntax 720
$ARCCOS function 858
$ARCSIN function 858
$ARCTAN function 858
$ARCTAN2 function 858
$ARRSIZE function 721
$ASCII function 722
$BINARY function 722 to 723, 834
$BLDPROC function 723 to 725
$BUFFER_POSITION function 725
$BUFFER_SIZE function 726
current size of Universal Buffer 726
$BUFFER_USED function 727
buffer space remaining following statements 727
how much data in Universal Buffer 727
$C2X function 737
$CENQCT function 728
$CHKMOD function 612, 729
$CHKPAT function 729
changes to pattern matcher 62
example 730
syntax 729
$CHKPINF function 731
tracking checkpoints 731
$CHKSFLD function 733
$CHKTAG function 612, 735
$CODE function 736
$COS function 858
$COSH function 858
$COTAN function 859
$CURFILE function 341, 363, 736
$CURREC function 346, 361, 737
$DATE function 741, 749
$DATE functions
century format 738
fill characters 739
overview 738
$DATECHG function 741 to 743
$DATECHK function 743 to 744
$DATECNV function 744 to 746
$DATEDIF function 746 to 749
$DATEJ function 749
$DATEP function 749 to 750
$DAY function 750
$DAYI function 750
$DEBLANK function 752, 831
$DECODE function 752
$DELG function 752
completion codes 753
$DEPAD function 754
$DEPADL function 754
$DEPADR function 754
$DSCR function 755, 895 to 897
$DSN system function 755
$DSNNUM system function 756
$EBCDIC function
converts ASCII strings 756
$ECBDGET function
and NECBS parameter 757
syntax for 757
$ECBDSET function
and NECBS parameter 758
associating a string 481
comparing to $POST 481
syntax for 758
$ECBTEST function
syntax for 759
$ECFSTAT function
syntax for 760
$EDIT function 761 to 770
$EDITA function 766 to 769
$EDITN function 762 to 766
$EFORMAT function 770 to 771
$ENCRYPT function 771
$ENTER function 771 to 773
$ERF function 859
$ERFC function 859
$ERRCLR function
clearing message text 773
$ERRMSG function 773 to 774
coordinating with $ERRCLR 773
image I/O statements 409 to 410
OPEN/OPENC statement 331
TPROCESS facility 422 to 423
$EXP function 859
$FDEF function 363, 774
$FLDLEN function 317, 777
$FLOAT function 777
$FLOATD function 778
$FLSACC function 778 to 779
$FLSCHK function 779 to 780
$FSTERR function 780
coordinating with $ERRCLR 773
$Functions and remote files 362
$GAMMA function 859
$GETG function 537, 781
$GETL function 781
$GETP function 782
$GRMLOC function 364, 782
$GRMNAME function 364, 782
$GRNLEFT function 364, 782
$GRNMISS function 365, 782
$GROUPFILES function 782
$HPAGE function 121, 783
$HSH function 783
$INCRG
and $DELG function 555
$INCRG function 537, 537, 562, 785 to 787
$INDEX function 787
$ITSOPEN function 363, 788
$ITSREMOTE function 363, 788
$IXPI function 859
$JOBCODE
example 790
in V4R1.1 789
$JOBCODE function 789 to 791
BATCH2 471
$LANGSPC function
example 792
$LANGSRT function 792
syntax 792
$LANGUST function 794
syntax 794
$LEN function 795
$LGAMMA function 860
$LIKE function
syntax 795
$LOBLEN function
length of Large Object field 796
to get size of Large Object data 80
$LOBRESERVE function 80
reflects reserved bytes for Large Object field 797
$LOG function 860
$LOG10 function 860
$LOWCASE function
example 798
syntax 797
$LSTFLD function 363
syntax for 798
$LSTPROC function 362, 800 to 804
$MAX function 860
$MIN function 860 to 861
$MISGRUP function 365, 804
$MISLOC function 365, 804
$MISNAME function 365, 805
$MISNUM function 365, 805
$MISSTMT function 365, 805
$MOD function 806
$OCCURS function 806
$ONEOF function 807 to 808
$PACK function 808 to 809
$PAD function 809
$PADR function 810
$PI function 861
$POST function
associating a string 481
comparing to $ECBDSET 481
syntax for 810
$RDPROC function 362, 812
$READ function 816 to 820
dummy string responses 260
in procedures 256, 260
ITBL 563
$READINV function 820
$READLC function 820
$REMOTE function 457 to 460, 820
$RESET function
changing parameter values 821
$REVERSE function 821 to 822
$RLCFILE function 363, 822
$RLCREC function 823
$RLCUID function 823
$RLCUSR function 823 to 824
$ROUND function 824
$RXPI function 861
$RXPR function 861
$SCAN function 824
$SCLASS function 658, 825
$SETG
and $DELG function 555, 752
$SETG function 537, 562, 781, 825
$SETL function 826
$SETP function
definition of 826
$SIN function 861
$SINH function 861
$SLSTATS function 826
$SNDMAIL
and BATCH204 276
$SNDMAIL function
CCAIN parameters 277
coding example 279
error codes 283
limitations 274
sending e-mail notes 274
syntax for 276
$SNDX function 828
$SOCKET function
calls for TCP/IP Interface 486
$SOCKETX function
calls for TCP/IP Interface 496
$SQRT function 861
$SQUARE function 829
$STAT function 829
$STATUS function 816, 829
image I/O statements 409 to 410
OPEN/OPENC statement 331
PAI INTO statement 104
TPROCESS facility 422 to 423
$STATUSD function 830
PAI INTO statement 104
TPROCESS facility 422 to 423
$STATUSR function
continuing DO WHILE loops 830
syntax 830
$STRIP function 831
$SUBSTR function 831 to 832
$SUBSYS function 631, 658, 832 to 833
$TAN function 862
$TIME function 833
$UNBIN function 834
$UNBLANK function 835
$UNFLOAT function 835
$UNPACK function 836
$UNPOST function
syntax for 837
$UNQREC function 838
$UPCASE function 838 to 839
example 839
$UPDATE function 341, 363, 839
$UPDFILE function 363, 840
$UPDFLD function 840
$UPDLOC function 840
$UPDOVAL function 359, 841
$UPDREC function 841
$UPDSTAT function 359, 841
$UPDSTMT function 842
$UPDVAL function 842
$USER function 842
$USERID function 842
$USRPRIV function 843 to 844
$VALIDATE_NUMERIC_DATA function 844
detecting invalid numeric data 844
$VERIFY function 845
$VIEW function 330, 362, 846
$VNUM function 845, 849 to 850
$WAIT function
caution with NOSWAP option 851
syntax for 850
$WORD function 853
$WORDS function 854
$X2C function 855
%%name form
definition of 188
%menuname, SELECTION 585, 623
%screenname
COLUMN 617
ITEMID 605, 617
ITEMNAME 617
PFKEY 586, 609
ROW 618
%Variable array
declaring 164
%variables
as common elements 226
as cursor handling variables 617
as screen or menu variables 584 to 586
assignment statement 171 to 209
clearing 186
DECLARE %variable IS statement 164 to 167, 169 to 170, 709
declaring 164, 164 to 167
defined 6
example 171
example with conditionals 202
field name 187 to 189
LENGTH violations 317
menus and screens 584 to 586
parameters for declaring 163
types 167
*/ comment delimiter 25
*CANCEL command
$READ function 819
dummy strings 260
ON units 232
purpose 27
*CLEAR LIST statement
syntax 691
*DEVICE facility, BATCH2 474
*ID clause 116
*RECORD clause 116
/? comment delimiter 25
:%screen-item-name
screen item name variables 586
< operator, field value requirement 47
<= operator, field value requirement 47
= operator 178
equality retrievals 55
field value requirement 47
interpretation of values 56
> operator, field value requirement 47
>= operator, field value requirement 47
?$ dummy strings 256, 259 to 262
?& dummy strings 256, 262 to 263
?/ comment delimiter 25
?? dummy strings 256 to 262
@ symbol, as a reserved character 166
�= operator, field value requirement 47
Numerics
2-digit years
YY date format 738
3270 terminals
color and layout 581
modifying color mappings 584
screen display protocol 583
4-digit years
YYYY date format 738
A
AAI statement 122
Abbreviations
commands 865
statements ?? to 864
Absolute value, computation of 858
ACCEPT call
client connection 487
Access Control Table (ACT) 250
Access rights, to procedures 249
Account identification 717
ACCOUNT parameter, TRANSFER statement 450
Actual decimal character for $EDIT 764
Ad hoc groups
creating 338
defined 324
duplicate 339
Ad hoc requests 254
ADD statement
and Large Object data 295, 690
LENGTH violations 317
multiply occurring fields 516
OCCURS violations 317
PQO DML 888
purpose 294 to 295
record locking 668
remote context 361, 362
subscript usage 527
syntax of 690
transaction backout 679
using subscripts and Large Object fields 295
Addition and subtraction of FIXED %variables 181
AFTER clause
binary items 381
depending arrays 389
example for image item definition 386
exponential notation items 385
fixed occurrence arrays 387
floating point items 384
IN RANGE clause 53
packed decimal items 382
string items 379
unknown arrays 390
zoned decimal items 383
AFTER operator
character string retrievals 51
interpretation of values 57
ALERT option
menus 594
screens 614, 615
Aliases
groups as 323 to 324
procedure 248
ALIGN option
binary items 380
floating point items 384
ALPHA option for screens 605
Alphabetic and numeric character verification 720
Alphabetic character verification 718
Alphabetic pattern character 62, 66
ALPHABETICALLY option, interpretation of values 56
ALPHANUM option for screens 605
Alphanumeric editing 761, 766 to 769
AND operator
IF statement and comparison operators 197
implied 33
in retrievals 53
output spacing 41, 112
APPEND option for $BLDPROC 724
Application subsystem development 627 to 661, 725, 825
application subsystem development 832
Applications
screen display 581
screen layout 581
applications
rewriting for VALUE IN clause processing 32, 138
Arc cosine, computation of 858
Arc sine, computation of 858
Arc tangent, computation of 858
Arithmetic operations
%variables 167
FIXED precision 181
global variables 785 to 787
in computations 178
order of 178
Array definition for images 386 to 391
Array element determination 721
Array names 372
ARRAY statement
purpose and examples 386 to 390
space requirements 561
Array, field name variable 190
arrays
establishing occurrences unknown 398
Arrays, %variable
index loop with 207 to 209
passed to subroutines 218
purpose 169 to 172
subscript references for 170
Arrays, image
defined 367
depending arrays 388 to 389
fixed occurrence arrays 387 to 388
nesting 371
subscripts 390 to 391
types 387
unknown arrays 390
ASCENDING option
FOR EACH RECORD (FR) statement 84
FOR EACH VALUE (FRV) statement 140, 142
ASCENDING RECORD option 95
ASCII
converting to EBCDIC 756
Assignment statement for %variables
example 186
purpose 171
syntax of 709
Assumed decimal character for $EDIT 763
Asterisk, beginning a comment 25
ASTRPPG parameter 362
AT clause
remote file specification 889
AT option
binary items 381
depending arrays 389
example for image item definition 386
exponential notation items 385
fixed occurrence arrays 387
floating point items 384
menus 589, 590 to 591, 594
OPEN and OPENC statement 330
output spacing 113 to 116, 515, 516
packed decimal items 382
PRINT statement 110
reserving space for noncontiguous items 392
screens 601 to 602, 614, 615
string items 379
unknown arrays 390
zoned decimal items 383
AT-MOST-ONE field attribute
contrasted to UNIQUE attribute 882
description 882
using $UPDOVAL 841
ATN error global value
attention key pressed 633
ATRPG parameter 362
Attention feature 232
Attention key
error global code 633
line-at-a-time terminals 623
subroutines 234
Attributes options
fields 881 to 885
menus 594, 595
screens 612, 614, 615
AUDIT ALL INFORMATION statement
purpose 122
syntax of 690
AUDIT statement
purpose 122
receiving error codes 634
specifications 713
syntax of 690
Audit trail, output to 122
Automatic COMMIT option for subsystems 647
Automatic input validation 580
Automatic login and logout options for subsystems 645, 646, 650 to 651
Automatic member, of a subsystem 653
Automatic start option for subsystems 645 to 646, 649
Automatic validation options 605 to 607
Autoskip
screen display 584
B
BACKOUT statement
PQO DML 888
purpose and example 681 to 682
remote context 360
syntax of 691
backout, transaction.see transaction backout
Backoutable update units 679
Backpaging
reviewing previous output 582
Base-color mode
color display assignments 583
definition of 583
Basic display attributes 582
BATCH2
channel name 472
setting return codes 471
BATCH2 facility 471 to 479
completion codes for 479
description 416
BATCH204
and $SNDMAIL 276
BEFORE operator
character string retrievals 51
for a range of records 53
interpretation of values 57
BEGIN command
abbreviation (B) 18
MORE command 570 to 571
purpose 30
request continuation restrictions 573
Berkeley Sockets interface
TCP/IP Socket Interface for Model 204 483
BETWEEN operator
field value requirement 47
interpretation of values 57
BINARY field attribute
file maintenance 318
preallocated space 318
Binary item definition 380 to 381
Binary search
example 94
BIND call
socket and port number 487
BITS option, for binary items 380
Blank lines 23
Blanks, removal of 835
BLDGFT parameter 325
BLINK attribute
in screen display 582
Block
definition of 21
Block end statement 21, 870
Block, defined 367
Blocks of comments
support for 25
Boolean operators
IF statement 197 to 202
in expressions 179
in retrieval statements 54
order of precedence in retrievals 54, 55
retrieval statements 33 to 34
Break key
line-at-a-time terminals 624
ON ATTENTION 232
Break, control, in value loops 149
BRIGHT attribute
default TAG attribute 605
in screen display 582
BRIGHT display attribute
considerations using 584
BUFFER
Universal Buffer 403
BUFFER area
retaining contents 399
BUFFER statements
managing BUFFER area 399
BUG error global value
evaluation error 633
BUMP command 322
Bumpable wait 671
BY option 84
BY phrase, in index loops 207
BYPASS statement
ON MISSING FILE unit 353
ON MISSING MEMBER unit 351
ON units 235
syntax of 691
C
OPEN 321
Remote file support
OPEN 321
CALL statement
complex subroutines 219 to 222
simple subroutines 216
CAN error global value
cancellation 633
CANCEL call
annul a request 488
Case translation 602, 797, 820
CCAIN stream
and $JOBCODE 471
CCALL entry points 740
CCASYS file 628, 652
CCATEMP file
compiler table contents 651
sorting by record key 159
temporary procedures 237
temporary work page list table (TTBL) 567
transaction backout files 683
CCY format
changing CUSTOM parameter 739
CENTSPLT parameter 745
Century-year format 739
CYY date format 739
CHANGE (CH) statement
LENGTH violations 317
multiply occurring fields 516 to 517
PQO DML 888
purpose 296
record locking 668
records not containing specified field 299
remote context 359
subscript validity for 531
syntax of 691
transaction backout 679
updating records 362
CHANGE statement
and Large Object data 691
CHARACTER option
FOR EACH VALUE (FRV) statement 141
Character string
length 795
retrievals 51 to 52, 788, 832
rules for reserved words and characters 867
STBL for 566
verification 845
Character terms in expressions 185
charname string values 791
checkpoints
tracking with $CHKPINF 731
verifying 731
CICS TPROCESS calls 424
completion codes for 430
syntax 425
CICS Transfer Control
system manager requirements 445
CID parameter, OPEN PROCESS statement 419
Classes, procedure (access rights) 249 to 251
CLEAR GLOBAL statement
clearing global found sets 557
remembered positions 558
syntax of 691
CLEAR GLOBALS statement
clearing objects from GTBL 556
syntax of 691
CLEAR LIST statement
IN clause 339
PQO DML 887
purpose 129
CLEAR LISTFDST statement 557
CLEAR ON statement
ATTENTION 236
ERROR 236
FIND CONFLICT 671
ON MISSING FILE unit 353
QTBL 564
RECORD LOCKING CONFLICT 671
syntax of 691
CLEAR statement 537
CLEAR statement, and NTBL scans 536
CLEAR TAG statement
purpose 616
QTBL 566
syntax of 692
CLEARG command 537
CLEARG command, and NTBL scans 536
CLEARGO command 554, 557, 558
Clearing error tags on screens 616
Clearing positions
set by REMEMBER statement 558
Client subsystems 652
client-server communications
sockets 484
CLOSE call
stop using a socket 489
CLOSE command 321
closing files and groups 326
compared to CLOSE statement 397
groups and 329
purpose 30
request continuation restrictions 573
CLOSE FILE command 333
CLOSE GROUP command 333
CLOSE LINK command
and TERM socket call 495
CLOSE option for $BLDPROC 724
CLOSE PROCESS statement
description 418
Horizon facility 469
QTBL 566
syntax for 692
TPROCESS facility 418
CLOSE statement
QTBL 565
syntax for 692
CMS TPROCESS subcommands
descriptions 437
example 442
IFEXTRACT 438
IFRECV 439
IFSENDX 440
IFSET 440
IFSGNL 441
purpose and requirements 436
return codes 437
CNT error global value
counting error 633
Code tables 736
CODED field attribute 354, 736
Color display
default 735
in base-color mode 583
in extended-color mode 583
Color mappings
modifying 583
Column 1
in application screen layout 581
Column 80
error indicators 582
Column placement, in output 113 to 116
Columns 2 through 4
menu selection numbers 582
COMEND parameter
resetting 25
Command line global variable 628 to 630
Commands
abbreviations for 865
differentiated from statements 540
not supported by Parallel Query Option/204 889
Comment lines 23
Commenting your code 25
Comments
delimiter pair setting 25
formatting or printing 111
jumping to 206 to 207
on individual lines 25
Commit options for subsystems 645, 647
COMMIT RELEASE statement 360, 676, 887
emptying found sets, sort sets, lists 557, 674, 676
COMMIT statement
option for subsystems 645, 647
PQO DML 888
purpose and example 675
remote transactions 360
syntax of 692
Common elements in complex subroutines 226 to 231
common variables
defining 229
Communication global variable
coding considerations 632
defining, for a subsystem 628
driver processing 650
exit value 628
subsystem exit value 631
transferring control 630 to 632
Communications global variable
subsystems 634
compatibility issues
IF statement 192
mathematics $functions 857
Compilation, request 12 to 14, 667
Completion code, step 789
Compressible values 318
Computed JUMP TO statement 203 to 204
COMSTART parameter
resetting 25
Conditional INCLUDEs 537
Conditional inclusion of procedures 248
Conditional statements 192 to 202
CONFIRM statement
syntax for 692
CONFIRM statement, Horizon facility 469
CONFIRMED statement
syntax for 692
CONFIRMED statement, Horizon facility 469
CONNECT call
client thread to server 489
Continuation character 22 to 24
CONTINUE statement 235
syntax for 692
Control break, in value loops 149
Control statements 191 to 215
Conversation, TPROCESS facility 417
Conversions, system, in expressions 185
Converting 2-digit years
using CCY date format 739
Converting strings 855
Correction characters 867, 875
Cosine, computation of 858
Cotangent, computation of 859
COUNT IN phrase
%variables 184
FIND and PRINT COUNT statement 39
COUNT OCCURRENCES (CTO) statement
occurrence violations 317
PQO DML 887
purpose and example 520 to 521
syntax of 692
COUNT RECORDS (CT) statement
PLACE RECORDS statement 128
PQO DML 887
purpose 37 to 38
QTBL 564
syntax for 693
Counter, line 826
Counting error message 773
Counting records in a loop 102 to 103
CPQZ
special ECB 757, 758
CREATE command 324
groups 321
CREATE GROUP command 333, 337
Cross Reference facility 661
Cross-referencing
example 344
files 99 to 101
in loops 98
CURFILE parameter 362
CURLOC parameter 362
Current line counter 826
Current record
file name of 737
internal number of 737
Current time of day
with format 833
with formatting 833
Cursor
positioning on menus 594
positioning on screens 608, 615, 617 to 619
CUSTOM parameter
manipulating CCY format 739
Cyclic data 322 to 323
CYY date format
century-year format 739
converting 2-digit years 739
CYY format 739
D
Data edit character for $EDIT 762, 763
Data files 10
Data sets, opening non-Model 204 data sets in procedures 401
Data, direct search of 69
Database structure 8
DATALEN parameter
IFEXTRACT subcommand 438
IFSET subcommand 441
DATASET keyword
CLOSE statement 396
OPEN statement 400 to 401
DATE code entry point
format 740
Date formats
CYY 739
DATE 740
DATE3 740
DATE4 740
Julian 740
YY 738
YYYY 738
date/time stamp feature
DELETE RECORD(S) command 301
DATE3 code entry point
format 740
DATE4 code entry point
format 740
deadlocks
definition of 480
programming to avoid 480
DEBLANK option for screens 603, 604
DEBUG command 644, 659
DEBUG option, TEST command 659
Declaration statement for %variables 163
DECLARE LIST statement, PQO DML 887
DECLARE statement
%variables 164 to 167, 169 to 170
%variables, syntax of 709
global found sets and lists 544
lists 128
purpose 228 to 229
syntax for 693
DECLARE statement %variables
syntax for 164
DECLARE SUBROUTINE statement 222
Declaring %variable arrays
assigning and resetting 164
Declaring %variables
assigning and resetting 164
DEFAULT command
files and groups 321
no IN clause 43
reference context 335
remote context 334
DEFAULT CURSOR statement
purpose 607
syntax for 694
Default file 334
Default group 335
DEFAULT option
menus 589, 591
screens 603
DEFAULT SKIP statement
image items 394
syntax for 694
DEFAULT statement (TITLE, PROMPT, INPUT)
purpose 607
DEFAULT TYPE statement
binary items 380
exponential notation items 385
floating point items 383
image items 393
image items example 394
packed decimal items 382
string items 378
zoned decimal items 383
DEFCENT parameter 745
Deferred update files 327
Deferred update mode
updating indexes immediately 884
Deferred updates and the OPENC command 326
DEFINE DATASET command 400
DEFINE FILE command 321
DEFINE LINK command
and BIND socket call 488
and CONNECT socket call 489
and INIT socket call 490
CICS Transfer Control 445, 448
introduced 416
TPROCESS communication 417
DEFINE PROCESS command
CICS Transfer Control 448
introduced 416
Transfer Control 454
DEFINE PROCESSGROUP command
CICS Transfer Control 445, 448
introduced 416
Transfer Control 445
DELETE ALL RECORDS statement
purpose and example 301
record locking 668
transaction backout 679
DELETE command
file groups 325
groups 321
procedures 239
DELETE EACH statement
multiply occurring fields 517, 523
PQO DML 888
remote context 359, 362
subscript usage 528
syntax of 695
transaction backout 679
DELETE fieldname statement
multiply occurring fields 517
record locking 668
subscript validity for 530 to 531
syntax of 695
transaction backout 679
DELETE fieldname statement
supporting Large Object data 300
DELETE GROUP command 334
DELETE PROCEDURE command 658
DELETE RECORD statement
PQO DML 888
purpose and example 301
record locking 668
remote context 359
syntax of 695
transaction backout 679
DELETE RECORDS statement
syntax for 695
DELETE RECORDS statement, remote context 360
DELETE statement
PQO DML 888
records not containing specified field 300
remote context 359, 362
Deleting fields 314
Deleting records 314
deleting records
maintaining a log 301
Depending arrays 388 to 389
DEPENDING ON clause
depending arrays 389
string items 380
DESCENDING option
FOR EACH RECORD (FR) statement 84
FOR EACH VALUE (FRV) statement 140, 142
in sorting 155
Descending record number processing examples 95
DESCENDING RECORD option 95
DESECURE command 250
DIGITS option
exponential notation items 385
packed decimal items 382
zoned decimal items 383
DIM attribute
in screen display 582
DIM display attribute 589, 604
considerations using 584
Direct search for retrieval 69
Directed output 109 to 123
DISABLE SUBSYSTEM command 321, 654
Disconnect processing for subsystems 649, 651
disk space
length requirements for Large Object fields 392
Display attributes 582 to 584
extended 582
DISPLAY command 321
files and groups 329
procedures 239
Displaying a menu 594
Displaying a screen 614
distributed processing 5
Division of FIXED %variables 182
DO WHILE loops
continuing with $STATUSR 830
DP option
exponential notation items 385
menus 589, 590 to 591
packed decimal items 382
screens 602
string items 378
zoned decimal items 383
Driver processing for subsystems 649, 650 to 651
Dummy strings 26
$READ function 818
?$ strings 262
?& strings 262 to 263
beginning a comment 25
editing 264
in nested procedures 253
in procedures 255 to 265
parameters controlling 265 to 268
types of 256
E
EBCDIC collating sequence 51, 156, 722
EBCDIC string variables
INITIAL attribute 165
ECB-related functions 480
ECBs
assigning a number to 480
check to see if posted 759
definition of 479
getting associated data string 757
referencing by number 481
resetting 837
set a data string 758
special ECB, CPQZ 757, 758
suspend user until posted 850
using the assigned number 480
EDIT command, with procedures 239
Element sharing in complex subroutines 226 to 231
Ellipsis
AUDIT statement 123
in PRINT statement 110 to 111
ELSE clause 194 to 195
ELSEIF clause 195
ENABLE SUBSYSTEM command 321, 654
Encoding 736
END ARRAY statement
purpose 387
syntax for 695
END BLOCK statement
FIND statements 31
FOR statements 36
IF statement 36, 192
ON units 233
purpose 22
repeat loops 210
request composition rules 871
STORE RECORD statement 307
subroutines 216
syntax of 695
END FIND statement
purpose 31
syntax for 695
END FOR statement
purpose 36
syntax for 695
END IF statement
purpose 36, 192
syntax for 695
END IMAGE statement
purpose 374
syntax for 695
END MENU statement
definition format 587
purpose 587 to 588
syntax for 695
END MORE statement
not supported in remote context 349
QTBL 566
record locking 668
request continuation 44
syntax for 695
USE command 124
END NORUN statement
purpose 27
syntax for 695
END ON statement
purpose 233
syntax for 695
END PROCEDURE command 253
END REPEAT statement
purpose 210
syntax for 695
END SCREEN statement
definition format 597
purpose 598 to 599
syntax for 695
END statement
ending blocks 22
ending requests 19
PRINT statement 110
QTBL 566
record locking 668
request composition rules 871
END STORE statement
purpose 307
syntax for 695
END SUBROUTINE statement
purpose 216
SUBROUTINE statement 219
syntax for 695
END UPDATE statement 361
syntax 695
END USE statement
purpose 125
syntax for 695
ENQRETRY parameter 670, 672
ENTER key, in full screen formatting 580
ENTER macro 740
Entry order files 11
EQ operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
Equality retrieval 33, 58
ERASE parameter 66
pattern matching 66
reserved characters 166, 867
ERMX parameter 13
error codes
for socket calls 500
Error display
Column 80 582
Error global CODES
HRD 633
Error global codes
ATN 633
BUG 633
CAN 633
CNT 633
FIL - BROKEN 633
FIL - NOT OPEN 633
GRP - FTBL 633
GRP - NOT OPEN 633
GRP - TEMP FIELD 633
GRP - TEMP MISMATCH 633
HNG 633
INCLUDE MAX 633
REC 633
RFR 634
SFT 634
TBL - FSCB 634
TBL - NTBL 634
TBL - QTBL 634
TBL - STBL 634
TBL - VTBL 634
Error global variable
defined 629
error codes 633
error procedures 634
error processing 651
Error handling
during compilation 12
during evaluation 13 to 14
error handling
in compilation 12
Error indicator for screens 581, 605
Error messages 780
Error processing for subsystems 642 to 643, 649, 651
Error tags, clearing 616
Escape character
$EDIT 767
for patterns 62, 65
escape character
continued use of 62
evaluation language
$LIKE function 795
Evaluation, request 12 to 14, 667
Event Control BlockSee ECBs
example code
transferring Large Object data 68
example programs
VALUE IN clauses 138
Exclusive mode 666
Exponent notation
description 50
equality retrievals 56
FLOAT fields 318
Exponent, computation of value 859, 861
Exponential notation item definition 384 to 385
Expression
character 185
continuation hyphens 872
defined 6, 173
numeric 185
operator order of precedence 174
syntax of 714
VISIBLE field attribute 884
Extended display attributes 582 to 583
and FSOUTPUT parameter 582
Extended-color mode
definition of 583
screen display color assignments 583
External file access, obtaining the status 830
EXTERNAL keyword
CLOSE statement 396
OPEN statement 400 to 401
F
FASTGLOB parameter
increase processing speed 536
FDWOL statement
syntax for 696
FICREATE parameter 362
Field attributes
AT-MOST-ONE 882
FLOAT 883
FOR EACH VALUE 883
FRV (FOR EACH VALUE) 883
INVISIBLE 883
KEY 883
LENGTH 883
NUMERIC RANGE 884
OCCURS 884
ORDERED 884
REPEATABLE 882
UNIQUE 882, 884
UPDATE 885
VISIBLE 884
FIELD keyword 110
Field name variables (%%variables)
LENGTH violations 317
purpose and usage 187 to 190
Field values
LENGTH violations 317
OCCURS violations 317
specifications 8, 876
specifying 317
Fields
attributes of 881 to 885
CODED, and remote retrieval 354
deleting 314
description of 8
displaying attributes 774
in %variable assignment 181
key 9
listing names with $LSTFLD 798
multiply occurring 9
name specifications 874 to 875
preallocated 317, 318, 884
subscripted 526 to 531
variations within file groups 347
fields
absent 347
subscripted extraction 527
FIL - BROKEN error global value
file inaccessible error 633
FIL - NOT OPEN error global value
file not open 633
FILE command
remote file support 321
File Load utility and $JOBCODE 790
File maintenance 293 to 318
FILE option, OPEN and OPENC statement 330
FILE RECORDS statement
INVISIBLE field attribute 883
KEY field attribute 883
LENGTH violations 317
PQO DML 888
purpose 302 to 305
remote context 360
subscript usage 528
syntax for 696
transaction backout 679, 685
FILE$ condition
global variables 542
PQO DML 888
purpose and example 72
remote context 356, 357
FILEMODL parameter
setting a file model 881
FILEORG parameter 308, 314, 362
Files
deferred update 327
defined 9
determining whether open 788
displaying names and parameters 329
error global code 633
establishing default 334
file usage option for subsystems 645
locking behavior for remote 326
locking option for subsystems 646
mandatory 320
opening 326 to 332
opening in multiple contexts 326
optional 320
passwords 328
privileges 328, 336
reference context for 334
structured in logical sections 10
synonyms, for remote file specification 889
types of 11, 328
see alsoGroups
files
loading with Large Object data 42
reorganizing with Large Object data 42
Fill characters
in date formats 739
fill characters
overwriting BUFFER area 399
FIND ALL RECORDS (FD) FOR WHICH statement
equality retrievals 32
numeric range retrieval 46 to 50
pattern retrieval 144
syntax of 696
FIND ALL RECORDS (FD) IN statement
purpose 74
syntax of 696
FIND ALL RECORDS (FD) ON statement
purpose 133 to 134
syntax of 696
FIND ALL RECORDS (FD) statement
PQO DML 887
purpose 30
QTBL 564
remote files 353
syntax of 696
FIND ALL RECORDS (FD) WITH statement
equality retrievals 32
pattern retrieval 144
FIND ALL VALUES (FDV) statement
FROM option 146
LIKE option 146
PQO DML 887
purpose 146 to 147
QTBL 564
SORT VALUES statement 147
storing records 309
syntax of 696
FIND AND PRINT COUNT (FPC) statement
file groups 345
PQO DML 887
purpose 38 to 39
record locking 667
syntax of 696
FIND AND RESERVE (FDR) statement
file groups 345
syntax of 696
FIND statement
FILE RECORDS statement 302
groups 345
handling previous foundsets 46
labeling requirement 870
LIST$ condition 73
multiply occurring fields 512 to 513
PQO DML 887
record lists 127
record locking 667
remote files 348
specifying reference context 335
subscript usage 528
syntax for 696
FIND statement, and NTBL scans 536
FIND WITHOUT LOCKS (FDWOL) statement
purpose and usage 669 to 670
record locking 667
syntax of 696
FIND WITHOUT LOCKS statement
syntax for 696
FIND$ condition 69 to 70, 356, 888
Finding a word in a string 853
Finding words in a string 854
FISTAT parameter 330
FITRANS parameter 362
FIXED %variables, truncation on assignment 172
Fixed edit character for $EDIT 764, 765
Fixed occurrence arrays 387 to 388
FIXED option, %variable declarations 167 to 169
FIXED precision arithmetic 181 to 184
FLOAT attribute
floating point representation 883
Float edit character for $EDIT 765
FLOAT field attribute
exponent notation 318
field values in assignments 181
numeric retrieval 56
FLOAT option
conversions and significant digits 185
in %variable declaration 167 to 169
Floating point fields
conversion 770
conversion rules 879
conversions and significant digits 185
FOR EACH RECORD statement 181
mapping 879
precision rules 879 to 880
rounding rules 879 to 880
storing values in FLOAT fields 318
FLOD command 573
FLOD procedure
reorganizing files with Large Object data 42
FLUSH parameter
CLOSE PROCESS statement 418
pattern matching 66
reserved characters 166, 867
SEND statement 421
FLUSH PROCESS statement
Horizon facility 469
syntax for 696
TPROCESS 418
FOPT parameter 675, 891
FOR %variable statement 207
syntax of 697
FOR clause, used in OPEN statement 401
FOR EACH OCCURRANCE statement
against INVISIBLE 524
FOR EACH OCCURRENCE (FEO) statement
PQO DML 888
purpose and example 521 to 523
subscript usage 528
syntax of 696
FOR EACH RECORD (FR) statement
$CURFILE 737
$CURREC function 737
ADD statement 296
CHANGE statement 299
DELETE EACH statement 517
DELETE fieldname statement 300
DELETE RECORD statement 301
descending record number processing 95
EACH option 519 to 520
implicitly specified value ranges 86
IN clause 737
IN label option 82
IN ORDER clause 132
IN ORDER option 83 to 87
multiply occurring fields 519 to 520
ON LIST listname option 131
optimizing LIKE option 87
PQO DML 888
purpose 35 to 36
QTBL 565
remote files 348, 353
sort references 157
subscript usage 528
syntax of 697
WHERE option 81 to 83
WITH option 81 to 83
FOR EACH RECORD loop
updating Table B 157
FOR EACH VALUE (FRV) statement
$CURREC function 737
FROM option 142 to 143
groups 346
IN ORDER option 140 to 142
LIKE option 143 to 144
optimizing LIKE option 87
performance considerations 141
PQO DML 888
QTBL 565
remote retrievals 355
simulation of 522
skip processing 92
subscript usage 528
syntax of 697
TO option 142 to 143
FOR EACH VALUE attribute
keeping track of unique values 883
FOR k OCCURRENCES statement
syntax of 696
FOR k RECORDS statement
PQO DML 888
purpose 90
sort references 157
syntax of 697
FOR k VALUES statement
PQO DML 888
processing sample values 144 to 145
syntax of 697
FOR loops
VALUE IN 523
VALUE IN with FEO loops 523
FOR RECORD NUMBER (FRN) statement
groups 346
PQO DML 888
purpose 90 to 92
record locking 667
remote retrievals 354
request continuation 573
syntax of 697
unlocking records 359
FOR statement
skipping loops without values 35
Formats
database structure 8 to 12
functions 272 to 273
output 108 to 109
FORTRAN
mathematics $function runtime libraries 857
FORTRAN routines in mathematical functions 857
Found sets
and COMMIT RELEASE statement 557, 674, 676
as common elements 227
foundsets
handling 46
QTBL requirements 46
FROM option
for a range of records 53
FOR EACH RECORD (FR) statement 85
range of values 142 to 143, 146
FROM phrase, in index loops 207
FRV (for each value)
field attribute 137, 140, 883
field list 149
FSCB table 561
error global code 634
FSOUTPUT parameter
extended attribute screen display 582
FTBL table 562
error global code 633
Full screen formatting
display attributes 582 to 584
line-at-a-time terminals 623 to 625
overview 579 to 581
purpose 7
screen positioning 581 to 582
variables 584 to 586
Functions 271 to 291
$LSTFLD 798
defined 271
mathematical 857 to 862
precision of 857
restricted with Parallel Query Option/204 890
standard 717 to 856
summary 285 to 291
user-written 272
FUNU module 272
G
Gamma, computation of value 859
GE operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
generating compile errors
IF statements 192
Generating reports 7
GETHOST call
formatting network address 496
GETINFO call
invoking the GETADDRINFO service 498
GETSOCKOPT call
returns socket option 497
Global found sets
RELEASE statement 557, 674, 676
Global found sets and lists
clearing 557
reference context 544
Global images
defining 372
PREPARE statement 403
global images
IDENTIFY statement 398
request termination 398
Global images and screens
clearing GTBL 554
consistency checks 552
defined 548
example 553 to 554
processing 549 to 553
system administration issues 554
when to use 552
Global lists
RELEASE statement 557, 674, 676
Global menus, defining (MENU statement) 587
global objects
tracking GTBL rearrangements for 535
Global screens, defining (SCREEN statement) 598
Global sort sets
RELEASE statement 557, 674, 676
Global sorted found sets 546
global string variables
tracking GTBL rearrangements for 535
Global variable (GTBL) table
$GETG function 781
$SETG function 825
clearing objects from 554
defined 533
dummy strings 262
entry types 562 to 563
found sets and lists 543
REMEMBER statement 547
requests 539
Global variable table
deleting information 752
Global variables 537 to 543
arithmetic with 785
command line 628, 629 to 630
communication 628, 630 to 632
error 629
FILE$ condition 542
GREATER THAN operator
field value requirement 47
interpretation of values 56
GREEN display attribute
in screens 582
GROUP 321, 339
GROUP command
remote file support 321
GROUP option, OPEN and OPENC statement 330
Groups 322 to 325
$CURREC function 346, 737
ad hoc, defined 324
as file aliases 323
closing 329
creating 324 to 325
cyclic data and 322 to 323
defined 11, 322
deleting 325
displaying names and parameters 329
error global code 633
establishing default 334
locking option for subsystems 646
multiple procedure files 344
opening 325 to 332
passwords 328
permanent, defined 324
reference context for 334
rules for numeric sorting 158
sorting records from 158
temporary, defined 324
types of 324
update file 361
uses of 323
GRP - FTBL error global value
FTBL too small 633
GRP - NOT OPEN error global value
group closed 633
GRP - TEMP FIELD error global value
field wrong type 633
GRP - TEMP MISMATCH error global value
TEMP group wrong type 633
GT operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
GTBL
rearranging and tracking 535
space required for positions 562
GTBLRS statistic
tracking GTBL rearrangement for global objects 535
GTBLRU statistic
GTBL rearrangements for global string variables 535
H
Hard restart
error global code 633
Hash field
ADD statement 296
CHANGE statement 299
DELETE fieldname statement 300
multiply occurring fields 511
STORE RECORD statement 308
Hash key files 11
Hash values 783
Hashed files and deleted records 314
HASHKEY parameter 362
HDRCTL parameter 117
Headers, page 111, 117 to 121
Hexadecimal pattern character 62, 65
HNG error code
terminal I/O 634
HNG error global value
phone disconnect 633
Horizon
verbs 468
Horizon facility
description 415
User Language interface 468 to 470
verbs 468
Horizon links
using with TCP/IP Socket Interface for Model 204 485
HRD error code
terminal I/O 634
HRD error global value
hard restart 633
HTLEN parameter 118, 120
Hyperbolic cosine, computation of 858
Hyperbolic sine, computation of 861
Hyphens
as line continuation symbols 22, 54
in PRINT n outputs 514
in statements 871
I
I/O levels 265 to 268
I/O statements
error handling 409
I/O, prefetch feature 87 to 89
IBM
choosing LE runtime libraries 857
communication protocols 467
Screen display protocol 583
IDENITFY statement
and LENGTH UNKNOWN 398
IDENTIFY statement 397
and global images 398
and PREPARE statement 399
binary items 380
establishing arrays with OCCURS UNKNOWN 398
exponential notation items 385
floating point items 384
packed decimal items 382
QTBL 565
string items 378
switching active image 398
syntax of 698
unknown arrays 390
zoned decimal items 383
IF command
conditional INCLUDEs 248
procedure nesting levels 542
procedures 239
IF statement
definition of 36
nested statements 194
purpose and examples 192 to 193
QTBL 565
sample request 202
syntax of 698
IF statements
generating compile errors 192
IFCSA call 424, 426
definition of 424
IFEXTRACT subcommand 436, 437, 438, 441
IFPPCI module 424
IFPREP call 423, 424, 426
definition of 424
IFRECV call 423, 424, 427
definition of 424
IFRECV subcommand 436, 437, 439 to 440
IFSEND call 424, 428
definition of 424
IFSENDX call 423
IFSENDX subcommand 436, 437, 440
IFSET subcommand 436, 440
IFSGNL call 423, 424, 430
definition of 424
IFSGNL subcommand 436, 437, 441
Image item
names 372
Image items
binary items 380 to 381
default values 393 to 395
defined 368
defining 377 to 378
defining reserved space 392
example 386
exponential notation items 384 to 385
floating point items 383 to 384
packed decimal items 381 to 382
string items 378 to 380
syntax for definitions 699
zoned decimal items 382 to 383
see alsoArrays, image
IMAGE keyword 371
IMAGE statement
purpose and usage guidelines 372 to 373
space requirements 561
syntax of 698
Images
as common elements 227
closing an external file or terminal 396 to 397
defined 367
defining 370 to 371
error handling during image processing 409 to 410
IDENTIFY statement 397
initializing 402
naming and reference conventions 371
opening external files and terminals for processing 400 to 401
positioning records for READ NEXT statement 402
processing 549
processing overview 395 to 396
reading 403 to 406
record positioning in 406
sample requests 410 to 414
terminating a browse operation 406 to 407
writing images to files or terminals 407 to 408
images
switch the active image 398
implicitly specified value ranges 86
Implied AND, in FIND ALL RECORDS statement 33
IN $CURFILE clause 361
IN clause
creating ad hoc groups 338
file and group context 335
FOR RECORD NUMBER (FRN) statement 91
Parallel Query Option/204 889
purpose 42, 338
syntax of 714 to 715
IN GROUP MEMBER clause
$CURFILE and $UPDATE 341
$UPDATE 839
description 339
FIND statement efficiency 340
listing records 341
restrictions 715
statements used with 715
STORE RECORD statement 309
syntax of 715
used with STORE RECORD 361
IN label option, FOR EACH RECORD (FR) statement 82
IN ORDER option
file groups 346
FOR EACH OCCURENCE statement 523
FOR EACH RECORD (FR) statement 83 to 87
FOR EACH VALUE (FRV) statement 140 to 142
IN RANGE clause
interpretation of values 56
purpose and usage 52 to 53
INCCC parameter 23, 871
INCLUDE command
in unconditional INCLUDEs 246 to 247
nested procedures 238, 251 to 252
procedures 239
processing 246
INCLUDE MAX error global value
iterations overflow 633
INCLUDE statement
full-screen feature 609
in unconditional INCLUDEs 245 to 246
nested procedures 238
syntax of 698
Indentation 19
Index loop, with %variable arrays 207 to 209
Indexes
definition of 10
INIT call
initialize interface 490
INITIAL attribute
DECLARE statement %variable 165
declaring numeric expressions 165
EBCDIC string variables 165
examples using 165
INITIAL option
binary items 381
DEFAULT SKIP statement 394
exponential notation items 385
floating point items 384
full-screen buffer 561
packed decimal items 382
reserving space for image items 393
string items 379
zoned decimal items 383
INITIAL processing
%variables' %variables
INITIAL processing 173
INITIAL value
warning message 165
Initialization processing for subsystems 640, 649 to 650
INITIALIZE command 573
INPUT fields
default base-color 583
default extended color 583
INPUT statement 601 to 607
automatic validation options 605 to 607
DEBLANK option 603
DEFAULT option 603
ITEMID option 605
line-at-a-time terminals 624
NOCASE option 602
NODEBLANK option 603
PAD WITH 'c' option 603
PRINT option 604
READ option 604
REREAD option 604
syntax of 698
TAG option 604
UPCASE option 602
Input validation in full screen formatting 580
INSERT statement
not supported for Large Object fields 529
PQO DML 888
purpose and example 529 to 530
remote context 362
syntax of 698
transaction backout 679
Insertion character for $EDIT 767
Internal work areas 560 to 561
Inverted files 10
INVISIBLE attribute
for screen display 582
not printed 40
usage 883
INVISIBLE display attribute
considerations using 584
INVISIBLE field attribute
CHANGE statement 297
defined 883
DELETE statement 300
deleted records 314
FILE RECORDS statement 303
involved in record retrievals 50
PRINT statement 347
SORT RECORDS statement 347
subscript usage 528
INVISIBLE fields
FEO processing 524
Invisible items and line-at-a-time terminals 624
INVITE statement
Horizon facility 469
syntax of 699
IS AFTER relation 52
IS BEFORE relation 52
IS LIKE operator 178
IS NOT LIKE operator 178
IS NOT PRESENT condition 69
IS NOT PRESENT operator 178, 200
IS operator
range retrieval comparisons 56
IS PRESENT condition 68 to 69, 148
IS PRESENT operator 178
description 200
null values 200
ITBL table 563
ITEMID option, screens 601, 605
Items, image.see Image items
J
Journal, output to 122
Julian date format
syntax for 740
JUMP TO statement
$CURREC function 737
complex subroutines 224
ON MISSING FILE unit 353
ON MISSING MEMBER unit 351
ON units 235
purpose and examples 203 to 204
subroutines 215
syntax of 699
with repeat loops 210
Justification of outputs 113 to 116
JUSTIFY option
exponential notation items 385
string items 379
K
KEY attribute
invoking Table C searches 883
KEY clause, for READ IMAGE statement 404
KEY field attribute
defined 883
equality retrievals 58
FILE RECORDS statement 303
in groups 347
IS PRESENT condition 69
non-deferred update 884
Key fields 10
KSDS files 368
L
Labels for statements 869 to 870
LANGINT parameter
IFEXTRACT subcommand 438
IFSET subcommand 441
LANGLIKE operator 144
large arrays
as Large Object data 392
Large Object data
adding to file 295, 690, 691
DELETE fieldname statement 300
storing 309
transporting via Universal Buffer 68
Large Object field length
$LOBLEN 796
Layout
screen display area 581
LE operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
Leading zeros, suppression of 831
Left-justification in sorting 156
LEN option
binary items 380, 381
exponential notation items 385
floating point items 383, 384
IDENTIFY statement 398
menus 589, 590 to 591, 594
packed decimal items 382
screens 602, 614, 615
string items 378
zoned decimal items 383
LEN UNKNOWN clause
and IDENTIFY statement 398
LENGTH attribute
preallocating field length 883
LENGTH field attribute
example 777
preallocated fields 317, 883
violations 317
lengths unknown
establishing 398
LESS THAN operator
field value requirement 47
interpretation of values 56
LFSCB parameter 560, 578
LGTBL parameter 631
LIBUFF parameter, line continuation 873
LIKE option
FIND ALL VALUES (FDV) statement 146
FOR EACH VALUE (FRV) statement 143 to 144
optimization 87
Line
continuation 22 to 23, 54
current line number ($GETL function) 781
length 826
numbering 781
syntax checking 24
Line 1
screen and menu titles 582
Line continuation
and implied AND
Implied AND line continuation 54
using parentheses 54
LINEND parameter 874
LIST$ condition 73, 134, 356, 888
LISTEN call
connection accepting request 490
Lists
and COMMIT RELEASE statement 557, 674, 676
as common elements 226
from group FINDs 346
list processing and remote files 355
maintaining 130 to 131
processing restrictions 132
record 127 to 132
sorting 158
using IN GROUP MEMBER with 341
LOCATION parameter, with $VIEW 362
LOCATION$ condition 72, 356, 357, 888
Lock pending updates 675
Locking behavior for remote files 326
Logarithm computation
to base 10 860
to base e860
Logical sections in file structure 10
LOGIN command 573
Login feature 717, 842
LOGIN parameter, DEFINE PROCESSGROUP command 453
Login processing for subsystems 631, 640 to 641, 649, 650
Login security 15 to 16
LOGOUT command 573
and BATCH2 return codes 471
LOGWHO command 322
Look-ahead read 88 to 89
LOOP END statement
$CURREC function 737
purpose and example 205
syntax of 699
with repeat loops 210
Loops
index 207 to 209
labeling of statements in 870
nested 36
record 75 to 103
repeat 209 to 212
simulation of value loop 150
value 137 to 147, 737
loops
combined with retrieving 36
LPDLST parameter 61
LSERVPD parameter 560
LT operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
LU 6.2 communications protocol 415
LU 6.2 protocols 467
verbs 468
M
M204PSFS module 424
Main processing procedures for subsystems 641 to 642
Maintenance
database 7
file 293 to 318
list 130 to 131
Mandatory files 320
Mandatory member, of a subsystem 653
Manual input validation 581
Manual member, of a subsystem 653
Mapping floating point fields 879
Master area, record 116
Mathematical functions 857 to 862
mathematics $functions
choosing a runtime library 857
MAX PFKEY statement
menus 592
screens 609
syntax of 699
MAXFAIL parameter 333
MAXHDR parameter 118, 120
Maxima, computation of 860
MAXTRL parameter 120
MBSCAN parameter 58
Members, subsystem 653
Menu %variables 584 to 585
MENU statement
definition format 587
purpose 587 to 588
syntax of 700
Menuline 587
Menus
as common elements 227
defined 577
definition example 592
definition statements for 586
line-at-a-time terminals 623 to 624
manipulation example 596
manipulation statements for 593 to 596
Message display options for subsystems 645, 647
Minima, computation of 860
Model 204
Web enabled 483
Model 204 commands
CLOSE LINK 495
DEFINE LINK 488, 489, 490
OPEN LINK 490
Model 204 files 10
Model 204 parameters
TCPNAME 486
Model 204 pushdown list 61
Model 204 statements
IDENTIFY 397
MODIFY BUFFER statement 399
compilation requirements 400
syntax for 700
MODIFY statement
ALL option 595, 612
menus 595
PRINT option 595, 612
QTBL 566
READ option 595, 612
REREAD option 612
screens 612
syntax for 700
TAG option 612
MONITOR command 322, 573
MONITOR SUBSYSTEM command 321
MORE command
description and examples 570 to 571
not supported in remote context 349
NTBL 563
request continuation 44
STBL 567
USE command 124
VTBL 569
MP/204 5
MQ/204 statements
MODIFY BUFFER 399
MQ_BUFFER,see BUFFER
MQSUBREL parameter
$RESET function 821
MSGCTL parameter 644, 650
Multiline conditions 21
Multiple procedure files with groups 344
Multiple procedure files, in subsystems 660
Multiplication of FIXED %variables 182
Multiply occurring fields
AT-MOST-ONE attribute 882
NUMERIC RANGE attribute 884
numeric retrieval 48
REPEATABLE attribute 882
sorting 158, 159
storing long fields 514
string retrieval 52
Multiprocessing support 5
MUST FILL option for screens 605
N
Names
image 371
menu 588
screen 599
subscripted, field 526 to 527
NE operator
comparing strings and numbers 178
field value requirement 47
interpretation of values 56
NECBS parameter
and $ECBDGET function 757
and $ECBDSET function 758
referencing an ECB 481
Negation
in numeric retrievals 50
in string retrievals 52
Neighborhood retrieval of values 145
Nested IF statements 194
Nested loops 36, 101, 147
Nested procedures
defined 238
description and example 251 to 252
dummy strings 261 to 262
Nested statements 21
Network entities link 416
NEW PAGE (NP) statement
page headers 120
purpose 42
screens 609
syntax of 700
NEXT option, for READ IMAGE statement 404
NO FIELD SAVE option
purpose 170
STBL 567
NO REREAD option
line-at-a-time terminals 624
screens 615
NOBLINK attribute
in screen display 582
NOCASE option, for screens 602
Node availability, to client subsystems 652
NODEBLANK option for screens 603, 604
Non-backoutable update units 680
NON-CODED field attribute 318, 736
NON-DEFERRABLE field attribute
updating indexes immediately 884
NON-KEY field attribute, in groups 347
Non-occurring fields
and PRINT fieldname 41
PRINT fieldname statement 41
retrieval of 69, 148 to 149
Non-precompiled procedures for subsystems
defined 635
driver processing 650
NON-RANGE field attribute
in groups 347
involved in record retrievals 50
Non-transaction backout file 678
NOR operator 33 to 34
NOREVERSE attribute
in screen display 582
NORQS parameter 253, 723
NOSTRIP option
exponential notation items 385
string items 379
NOSWAP option
caution for $WAIT 851
NOT operator
complex retrieval statements 33 to 34
IF statement 197
in numeric retrievals 49
in retrievals 53
in string retrievals 52
Notation conventions
additional, for statement syntax summary 689 to 690
NOTE statement
file update statements 315
multiply occurring fields 513
PQO DML 888
purpose 97 to 99
replaced by %variables 187
syntax of 700
VISIBLE field attribute 884
NOUNDERSCORE attribute
in screen display 582
NTBL scans
eliminating, using internal variables 536
managing 536
NTBL table 563
error global code 634
NULL
support for Large Object data 882
Null string 156, 877
Null values
%variables 180
in quoted strings 180
IS PRESENT and IS NOT PRESENT operators 200
processing with PAI statement 106
storing 316
Numbers
$USER function 842
as %variable values 181
Numeric %variables
declaring 164
numeric data
detecting invalid 844
Numeric digit pattern character 62, 65
Numeric editing 761 to 766
Numeric expressions
INITIAL attribute 165
NUMERIC option for screens 606
NUMERIC RANGE attribute
specifying a Table C search 884
NUMERIC RANGE field attribute
defined 884
equality retrievals 58
in groups 347
indexed by numeric equivalents 48
involved in record retrievals 50
multiply occurring fields 511
non-deferred update 884
QTBL 564
restrictions on numeric retrieval 49
Numeric retrievals 46 to 49
Numeric terms in expressions 185
Numeric value format validation 849
Numeric value interpretation 57
NUMERICAL option
FOR EACH VALUE (FRV) statement 141
in sorting 155
in sorting groups 158
NUMERICALLY keyword
interpreting values 56
syntax 46
NUMLK parameter 660
O
OCCURRENCE IN phrase and %variables 184
OCCURS clause
binary items 381
exponential notation items 385
floating point items 384
full-screen buffer 561
image arrays 386
packed decimal items 382
string items 379
zoned decimal items 383
OCCURS field attribute
defined 884
preallocated fields 317, 529
storing compressed values 318
verification 806
OCCURS UNKNOWN option
binary items (with ALIGN) 381
floating point items 384
IDENTIFY statement 398
unknown arrays 390
OMC parameter
discarding output messages 472
OMC parameter, BATCH2 472 to 478
ON ERROR units, $FSTERR function 780
ON FIELD CONSTRAINT CONFLICT unit
$UNQREC function 838
$UPDFILE function 840
$UPDFLD function 840
$UPDSTMT function 842
$UPDVAL function 842
return codes for conflicts 841
using functions with 359
ON FIND CONFLICT unit 670, 672
ON MISSING FILE unit 352 to 353
ON MISSING MEMBER unit
clearing 353
communications failures 352
usage 351 to 352
ON RECORD LOCKING CONFLICT unit 105, 670, 672
ON statement
$RLCFILE function 822
$RLCREC function 823
$RLCUSR function 823
ATTENTION 232 to 236, 683
ERROR 232 to 236
syntax of 700
ON units 730
clearing 236
complex subroutines 234
defined 231
example 234
passing control 235
QTBL 564
request continuation 234, 573
structure 232
usage guidelines 233 to 234
ONEOF option for screens 606
OPEN command
groups and 325 to 328
no IN clause 43
OPEN GROUP command 327
OPEN LINK command 348, 416, 445, 448
and INIT socket call 490
OPEN option for $BLDPROC 724
OPEN PROCESS statement
client usage 469
definition of 468
description 418
Horizon facility 468
QTBL 566
server usage 469
syntax of 701
TPROCESS facility 419
OPEN statement for external files and terminals 400 to 401
QTBL 565
syntax of 700
OPEN statement for MODEL 204 files and groups
syntax of 701
OPENC command 334
OPENC statement
default file 334
error conditions 331
PQO DML 888
purpose 330
syntax of 701
OPENC, command vs. statement 326
OPENCTL parameter 362, 644, 656
Operands
in expressions 714
variables as 180
Operating options for subsystems 645
Operators
arithmetic 177
Boolean 179, 197
comparison 178 to 179
conditional or assignment statements 196
IS NOT PRESENT operator 200
IS PRESENT operator 200
list of 714
negating a negated operator 50
order of precedence in expressions 174
Optimization
of FIND statement 57 to 58
of FOR statement (LIKE option) 87
of pattern retrieval 66
OPTIMIZING FNV option 354
Optional files 320
Optional files for subsystems 648
Optional member, of a subsystem 653
OR operator
complex retrieval statements 33 to 34
IF statement and comparison operators 197 to 198
Or pattern character 62, 63
Order of processing
FIND ALL VALUES (FDV) statement 146
FOR EACH RECORD (FR) statement 83 to 87
FOR EACH VALUE (FRV) statement 140 to 142
in loops 145
index order 83, 84 to 87, 519 to 520
sort order 83
ORDERED CHARACTER field attribute
pattern retrieval optimization 66
ORDERED field attribute
defined 884
FILE RECORDS statement 303
FOR EACH RECORD (FR) statement 83
FOR EACH VALUE (FRV) statement 140, 141
involved in record retrievals 50
multiply occurring fields 519
non-deferred update 884
range retrievals 58
restrictions on numeric retrievals 49
value loop 137
ORDERED fields
ascending order 93
descending order 93
Ordered Index search 58, 66
ORDERED NUMERIC field attribute 48
OUTLPP parameter 826
OUTMRL parameter 118, 120, 826
OUTPNO parameter 782
Output
directed 109
format 108
sorted 153 to 160
spacing 112
to alternate device 123 to 125
Output Message Control (OMC) parameter
in z/OS 475
in z/VSE 476
Overflow conditions and FIXED precision arithmetic 182
Overflow screen 598
overwriting BUFFER area
by resizing 399
resetting function values 400
specifying fill character 399
P
PA1 key 232
Packed decimal
conversion 836
item definition 381 to 382
representation 808
PAD option
exponential notation items 385
string items 379
Page headers 111 to 120
Page numbering 117, 121, 782, 826
Page trailers 120
PAI INTO statement
handling Large Object fields 103
processing nulls 106
record locking conflicts 105
syntax of 702
PAI statement
purpose 39
see also PRINT ALL INFORMATION statement 39
Panels, logical and physical 598
Parallel Query Option/204
description 319 to 320
DML statements 887
introduced 12
procedure compilation 638
record locking conflicts 672
retrieval conditions 888
subsystem member availability to subsystems 653
subsystem member availability to users 653
subsystem trust definitions 655
update statements 888
Parameters
table size 560
viewable 846
Parentheses
as statement block ends 31
in retrieval condition syntax 711
usage in line continuation 54
PARM option 475
PARTNER parameter, DEFINE PROCESS command 452, 453, 456
Partner process
defined 416
NTBL 563
PASSING parameter, TRANSFER statement 446, 450
PASSWORD clause, for OPEN statement 331, 401
PASSWORD parameter, TRANSFER statement 450
Passwords
file 328
group 328
Pattern matcher
$CHKPAT function 62
Pattern matching
pattern characters 62 to 66
system requirement 61
Pattern retrieval optimization
conditions for performing 66
Pattern specification
FIND ALL VALUES (FDV) statement 146
FOR EACH VALUE (FRV) statement 143 to 144
IF statement 192
PAUSE statement
ON units 236, 671 to 672
purpose 121
QTBL 564
syntax of 701
performance improvements
large arrays as Large Object data 392
subscripted field extraction 527
PERM option, OPEN and OPENC statement 330
Permanent groups, defined 324
Phone disconnect
error global code 633
Pi, computation of 861
PINK display attribute
in screens 583
PLACE RECORD statement
PQO DML 888
purpose and usage 132
syntax of 701
PLACE RECORDS ON statement, and NTBL scans 536
PLACE RECORDS statement
maintaining lists 130
purpose 127 to 129
syntax of 701
Placeholder pattern character
symbol 62
POINT$ condition
groups 346
PQO DML 888
purpose 71
remote context and scattered groups 356
POSITION statement
$STATUS return codes 409
error handling 409
FOR processing 548
GTBL space required 562
images 402
QTBL 565
reading next record in next VSAM KSDS file 401
syntax of 702
using as a starting position 411
posting an ECB
releasing waiting threads 481
scope of 480
Preallocated fields 317, 318, 884
Precompiled procedures for subsystems
defined 635
driver processing 651
restrictions 636 to 637
shared versions 635
temp groups 637
Prefetch feature, improving performance with 88 to 89
Prefix designations for subsystem requests 629, 635 to 637, 650
PREPARE statement
and IDENTIFY statement 399
binary items 381
depending arrays 388
exponential notation items 385
floating point items 384
global images 403
images 402, 565
menus 595 to 596
reserving space for image items 392
screens 599, 613
screens and menus, QTBL 566
string items 379
syntax of 702
zoned decimal items 383
Preventing multiple occurrences of a field
AT-MOST-ONE attribute 882
PRINT *ID statement
purpose 116
remote files 356
PRINT *RECORD statement, purpose 116
PRINT ALL INFORMATION (PAI) statement
extension 103
PQO DML 888
purpose 39
remote files 356
remote retrieval 354
syntax of 702
PRINT ALL INFORMATION statement
see also PAI statement 39
PRINT EACH statement
purpose and examples 513 to 514
subscript usage 528
PRINT MENU statement
AT, TO, and LEN options 594
line-at-a-time terminals 624
QTBL 566
syntax of 702
PRINT n statement
purpose and example 514 to 516
subscript usage 528
PRINT option
menus 589, 591
screens 604
PRINT SCREEN statement
ALERT option 614
AT, TO, and LEN options 614
attributes option 614
evaluation sequence 620
line-at-a-time terminals 625
QTBL 566
syntax of 702
TITLE option 614
WITH CURSOR option 614
PRINT statement
AT and TO options 110
field names 40 to 41
FOR EACH VALUE (FRV) statement 151 to 152
INVISIBLE fields 347
purpose 109 to 111
QTBL 565
specifications 713
subscript validity for 530
syntax of 702
VISIBLE field attribute 884
Printing a menu 594
Printing screens 613
Private subsystems 643
Privileges
file 328
procedure 249 to 251
reference context and 336
PROCEDURE command 239
Procedure compilation, Parallel Query Option/204 638
procedure examples
socket calls on client 505
socket calls on server 501
Procedure file 336
Procedures 237 to 268
aliases for 248 to 249
as stand-alone requests 247
classes of 249 to 251
compiling with wrong SCLASS 645
copying 243
creating 239 to 242
defined 237
deleting 244
displaying 242
dummy strings in 255 to 268
executing 244 to 248
including conditionally 248
modifying 242 to 243
nested 238, 251 to 252
opening non-MODEL 204 data sets 401
permanent 237, 239 to 242
privileges for 249 to 251
procedures within 252 to 253
storage 237
stored 4
subsystems, precompiled and non-precompiled 635
system commands used with 239
temporary 237, 239, 241, 253 to 255
procedures
in refresh processing error global code 634
Process 416
Processgroup 416
Processing components for subsystems 629
Processing order
FIND ALL VALUES (FDV) statement 146
FOR EACH RECORD (FR) statement 83 to 87
FOR EACH VALUE (FRV) statement 140 to 142
in loops 145
index order 83, 84 to 87
sort order 83
processing speed
increasing with FASTGLOB setting 536
Process-to-process protocols 468
PROCFILE GROUP, for a subsystem 660
PROCFILE parameter 325, 337
PROCFILE subsystem 660
Program communications facilities
BATCH2 facility 471 to 479
CICS TPROCESS 423 to 436
CICS Transfer Control 445 to 448
CMS TPROCESS 436 to 444
Horizon facility 467 to 470
obtaining the status 830
TPROCESS (terminal process) 416 to 423
Transfer Control facility 445
VTAM Transfer Control 448 to 467
PROMPT clause, for READ IMAGE statement 404
PROMPT fields
default base-color 583
default extended-color 583
PROMPT parameter 26, 265 to 267
PROMPT statement
AT, TO, LEN, and DP options 590 to 591
DEFAULT option 591
ITEMID option 601
line-at-a-time terminals 624
menus 590 to 591
PRINT option 591
READ option 591
REREAD option 601
screens 600 to 601
syntax of 703
Prompts, system 817
PROTECTED attribute
implied autoskip 584
in screen display 582
PROTECTED display attribute 589
Public subsystems 643
purpose 397
Q
QTBL
handling empty foundsets 46
QTBL table 563 to 566
error global code 634
QUERY PROCESS statement
purpose 470
syntax of 703
Quotation marks 111, 876 to 878
Quoted string
%variables set to 180
field names 868
formatting headers or comments 111
request composition rules 876 to 877
R
Raise to the x power 861
RANGE option for screens 606
Range pattern character 62, 64
Range retrieval comparisons
= operator 56
AFTER operator 57
BEFORE operator 57
BETWEEN operator 57
EQ operator 56
GE operator 56
GREATER THAN operator 56
GT operator 56
IS operators 56
LE operator 56
LESS THAN operator 56
LT operator 56
NE operator 56
Range retrievals
interpretation of numeric values 57
multiply occurring fields 512 to 513
numeric 46 to 49
READ call
receiving data 491
READ IMAGE statement
definition of 703
depending arrays 388
purpose and usage 403 to 406
QTBL 565
syntax of 703
READ MENU statement
ALERT option 594
AT, TO, LEN, and DP options 594
Attributes option 594
line-at-a-time terminals 623
QTBL 566
syntax of 703
TITLE option 594
READ option
menus 589, 591
screens 604
READ SCREEN statement
$CHKMOD function 729
evaluation sequence 620
line-at-a-time terminals 624
NO REREAD option 615
QTBL 566
syntax of 704
WITH CURSOR option 615
Reading a procedure 812
READLEN 372, 406
REC error global value
record locking table full 633
RECEIVE statement
description 418
Horizon facility 470
QTBL 566
syntax of 704
TPROCESS facility 419 to 420
Recompiling precompiled procedures 637 to 638
Record locking 665 to 676
conflicts 670 to 672
considerations for subsystems 657
exclusive lock statement 672 to 673
release statements 673, ?? to 676
remote retrieval 353
Record locking table
error global code 633
Record loops 75 to 103
Record numbers and groups 346
Record positioning, in images 406
Record retrieval 45 to 74
character string retrieval 56
combining retrieval conditions 54
equality retrieval 55
FOR EACH RECORD (FR) statement 78
invalid values for NUMERIC RANGE fields 49
overview 30 to 33
POINT$ condition 71
saving retrieved records 304
special purpose 74
special retrieval conditions 73
Records
counting 37, 102 to 103
defined 9
deleting 314
reusing space from deleted 314
storage order types 11
Recovery procedures 677
RECSCTY parameter 362
RED display attribute
in screens 583
Redisplaying a screen 615
Reference context
default file or group 334
defined 334
explicitly specifying file or group context 335
FOR EACH VALUE processing 140
global found sets and lists 544
group procedure and update files 336
IN ORDER option 84
opening and closing a file or group 336
PQO 12
privileges according to reference context 336
REGISTER call
ending initialization 492
Reinitializing
menus 595
screens 613
Relational operators 56, 178 to 179
RELEASE ALL RECORDS statement 674
PQO DML 888
remote retrievals 355
syntax of 704
RELEASE option, COMMIT statement 676
RELEASE POSITION statement
purpose 406 to 407
QTBL 565
syntax of 704
RELEASE RECORDS statement 673 to 674
PQO DML 888
remote retrievals 355
syntax of 704
RELEASE statement 667
and global foundsets, sort sets, and lists 557, 674, 676
REMEMBER statement 547
clearing positions 558
remote file
access 5
Remote files
error conditions 332
introduced 12
opening 326
restrictions on field definition while open 327
SORT VALUES statement 147
Remote updates 357
REMOTEID parameter, DEFINE PROCESSGROUP command 449, 452, 453, 456, 458 to 459
REMOVE RECORD statement 132
PQO DML 888
syntax of 704
REMOVE RECORDS statement
maintaining lists 130
syntax of 704
RENAME PROCEDURE command 658
REOPEN option for $BLDPROC 724
Repeat loops 209 to 212
Repeat pattern character 62, 64
REPEAT statement
FOREVER option 212
n TIMES option 211 to 212
QTBL 566
syntax of 704
WHILE option 210 to 211
REPEATABLE field attribute
allow multiply occurring fields 882
Report generation 7
controlling spacing on output lines 112 to 113
directing output to a journal or audit trail 121 to 123
directing output to other devices 123 to 125
features used in sorting output 107
formatting headers or comments 111
formatting page headers and trailers 116 to 121
interrupting request execution 121
output placement, exceptional conditions 114 to 116
PRINT statement 109
record number and record ID 116
specifying columns for output 113 to 114
REQSEND parameter, SEND statement 421
Request structure
writing queries 3
Requests
ad hoc 254
branching and control statements 191
cancellation message 773
compilation and evaluation 12 to 14
compiling requests referring to remote files 348
continuation 44, 570 to 573
continuation not supported for remote file reference 349
continuation, rules for 571
error handling during compilation 350
error handling during evaluation 350
procedures within 247 to 248
structure 17 to 25
Required files for subsystems 647
REQUIRED option for screens 605, 606, 607
REREAD option, screens 600, 601, 604
REREAD SCREEN statement
$CHKMOD function 729
ALERT option 615
AT, TO, and LEN options 615
attributes option 615
evaluation sequence 620
line-at-a-time terminals 624
QTBL 566
syntax for 705
TITLE option 615
WITH CURSOR option 615
Reserved characters and variable names 166
Reserved communication global variable name 631
Reserved item names 372
Reserved rows and columns in full screen formatting 581 to 582
Reserved variables
images 372
menus and screens 585 to 586
Reserved words and characters 867 to 868, 877 to 878
RESET statement
HEADER 117
syntax of 705
TRAILER 117
resizing BUFFER area
overwriting contents 399
RESULT macro
limitations 717
RESULT parameter, RECEIVE statement 420
retaining BUFFER contents
PRESERVE keyword 399
Retrieval conditions
character string 51 to 52
numeric 46 to 49, 884
range 52 to 54
supported in remote context 356
syntax 710 to 711
Retrieval fields
definition of 10
Retrieval optimization
KEY field attribute 883
NUMERIC RANGE field attribute 884
ORDERED field attribute 884
Retrieval, pattern 66
RETRY statement
not allowed in ON MISSING FILE unit 353
ON MISSING MEMBER unit 351
ON units 236
QTBL 564
syntax of 705
RETURN statement
complex subroutines 224
simple subroutines 215 to 216
syntax of 705
Reuse Record Number option 314
RFR error global value
procedure desired in midst of refresh 634
RIGHT-ADJUSTED option
FOR EACH VALUE (FRV) statement 141
in sorting 156
Right-justification in sorting 156
S
sample programs
thread synchronization 482
Saving retrieved records, FILE RECORDS statement 302 to 304
Scattered groups
availability 320
defined 12
error conditions 333
opening 327
SORT VALUES statement 147
SCLASS
$SCLASS function 658, 825
and compiling procedures 645
privileges for subsystem users 644
scope, request element 226
Screen %variables 584 to 585
Screen display
in applications 581
layout 581
protocol 583
Screen display attributes
autoskip considerations 584
BLINK 582
BRIGHT 582
DIM 582
GREEN 582
INVISIBLE 582
NOBLINK 582
NOREVERSE 582
NOUNDERSCORE 582
PINK 583
PROTECTED 582
RED 583
rules and restrictions 584
TURQUOISE 582
UNDERSCORE 582
UNPROTECTED 582
VISIBLE 582
WHITE 582
YELLOW 583
Screen item name variables 586
:%screen-item-name 586
Screen lines 598
SCREEN statement
definition format 597
purpose 598 to 599
syntax of 705
Screens
as common elements 227
correction 581
defined 577
definition example 610 to 611
definition statements for 597 to 599, 611
line-at-a-time terminals 624 to 625
manipulation example 621 to 623
manipulation statements for 611 to 613
positioning 581 to 582
processing 549
SECURE command 250
Security
features 14
field level 778 to 780
login 15 to 16
subsystems 643 to 645
SELECT call
event monitor 492
Selection character for $EDIT
simple 767
special 767 to 768
Semicolon, as logical line delimiter 873 to 874
Semipublic subsystems 643
SEND ERROR statement, Horizon facility 470
SEND statement
description 418
Horizon facility 470
QTBL 566
syntax of 705
TPROCESS facility 420 to 421
Sequential file access 367, 368 to 369, 396
Sequential input, reading 819
Service subsystem 652
Set begin and end pattern character 62, 64
SET HEADER statement, $SETP function invalid 826
SET statement
HEADER 117 to 120, 121, 783
specifications 713
syntax of 706
TRAILER 120, 783
SETSOCKOPT call
resetting socket option 498
setting socket option 498
setting a file model
FILEMODL 881
SFGE$ condition 70 to 71, 346, 356, 888
SFL$ condition 70 to 71, 346, 356, 888
SFT error code
terminal I/O 634
SFT error global value
soft restart 634
Share mode 666
SHUTDOWN call
deactivate a socket 494
SIGNAL PROCESS statement
description 418
Horizon facility 470
QTBL 566
syntax of 706
TPROCESS facility 421 to 422
signaling threads
facilities used 479
SIGNED option
binary items 380
packed decimal items 382
zoned decimal items 383
Simple insertion character for $EDIT 762, 764
Since-last statistics, subsystems 659, 660
Sine, computation 861
SKIP n LINES statement
menus 591
output spacing 42
screens 608 to 609
syntax of 706
SKIP n POSITIONS statement
purpose 392
syntax of 706
Skip processing 92 to 97
binary search example 94
definition of 92
descending record number processing 95
specifying processing order 93
SKIP statement
binary items 381
floating point items 384
SNA 467
SNA (Systems Network Architecture) 415
SOCKCALL GETINFO call 498
SOCKET call
allocate a socket 494
socket calls
error codes 500
server example 501
sockets
client-server communications 484
common calling sequence 485
Soft restart
error global code 634
Sort field 154
ADD statement 296
CHANGE statement 299
defined 11
DELETE fieldname statement 300
multiply occurring fields 511
STORE RECORD statement 308
Sort key 11
SORT RECORD KEYS statement
PQO DML 888
purpose 159 to 160
syntax of 707
VISIBLE field attribute 884
SORT RECORDS statement
BY EACH option 518 to 519
continuations 573
global sorted found sets 546
groups 346
INVISIBLE fields 347
PQO DML 888
purpose 154 to 156
remote retrievals 355
sorting groups 158
subscript usage 527
subscript validity for 531
syntax of 706
usage guidelines 156 to 158
VISIBLE field attribute 884
Sort sets
and COMMIT RELEASE statement 557, 674, 676
SORT statement
specifying a reference context 335
SORT VALUES statement
PQO DML 888
purpose 147
syntax for 147
syntax of 707
VISIBLE field attribute 884
Sorted files
defined 11
deleted records 314
FOR EACH RECORD (FR) statement 83
Sorted output 153 to 160
Sorting a list 158
Sorting records by a multiply occurring field 518 to 519
SORTKEY option, FOR EACH RECORD (FR) statement 84
SORTKEY parameter 362
SOUNDEX code 828
Space, allocated after record deletions 314
Square root, computation of 861
START command 321
START SUBSYSTEM command 644, 649, 653
statement
syntax for 695
Statement labels
nested statements 870
rules 869
rules for 19 to 20
Statements
abbreviations for ?? to 864
block ends for 870 to 871
differentiated from commands 540
format of 869 to 870, 871 to 874
numbers 20, 891 to 894
syntax summary 689 to 709
TPROCESS facility 417 to 422
Transfer Control facility 449 to 451
types 5 to 6
STATIC attribute
DECLARE statement %variable 165
examples using 165
statistics
for GTBL hashing 535
STATS option, TEST command 660
STATUS command 322
STATUSDVAR parameter, IFEXTRACT subcommand 438
STATUSDVAR parameter, IFSET subcommand 440
STBL table 187, 566 to 567
error global code 634
STOP command
files and groups 322
STOP FILE/GROUP command 653
STOP IF COUNT statement
purpose and example 204 to 205
repeat loops 210
syntax of 707
STOP statement
complex subroutines 224
relationship to END MORE statement 204
repeat loops 210
STOP SUBSYSTEM command 644
Stopping processing 27
Storage blocks, possible uses 369
STORE RECORD (ST) statement
$CURREC function 737
group context 344
group members 339
IN GROUP MEMBER 309
labeling requirement 870
LENGTH violations 317
OCCURS violations 317
PQO DML 888
QTBL 566
record locking 668
remote context 361
sort or hash key field 308
subscript usage 528
syntax of 707
transaction backout 679
UNIQUE field 308 to 309
STORE RECORD statement
and Large Object data 309
Stored procedures 4
String %variables
declaring 164
String item definition 378 to 380
STRING option, %variable declarations 167 to 169
String, quoted 111, 876 to 877
Strings
removing characters from 754
Strings, converting 855
STRIP option
exponential notation items 385
string items 379
SUB parameter 253, 265 to 268
SUBROUTINE statement
complex subroutines 218 to 219
simple subroutines 216
syntax for 707
syntax for simple subroutines 214
Subroutines 214 to 231
%variables with 216
example 215
Subscripted fields 526 to 531
remote retrieval 354
usage restrictions 527 to 528
validity rules 529
subscripted fields
improved value extraction 527
Subscripts
%variable arrays with 170
field name variables with 189 to 190
referring to image arrays 390 to 391
syntax of 715
Subsystem error procedure
description and example 642 to 643
driver processing 650
error global variable 629
facilities 628
using the audit trail 634
Subsystem exit value 631
SUBSYSTEM LOGIN 653
Subsystem Management facility 627
SUBSYSTEM option, TEST command 660
Subsystems
coding considerations 656 to 658
communications global variable handling 634
control transfer 630 to 632
definition options 647
design components 628 to 637
development tools 658 to 659
guidelines for writing procedures 640
multiple procedure files 660
operating options 645 to 649
processing components 639 to 643
processing flow 649 to 651
record locking considerations 657 to 658
security 644
status settings 643
testing and debugging facilities 659 to 660
trust definitions 655
types of procedures 639
user class 644, 650, 658, 825
subsystems
determining status ($SUBSYS function) 832 to 833
Suppression character for $EDIT 763 to 766
synchronizing threads
facilities used 479
SYNCLEVEL parameter, CLOSE PROCESS statement 418
Synonym, file, for remote file specification 889
Syntax
expressions 713 to 714
IN clause 714
print specifications 713
retrieval conditions 710 to 711
subscripts 715
terminal display attributes 715
type specification for DECLARE SUBROUTINE statement 716
value specifications 709
Syntax checking and line continuation 24
SYSOPT parameter 791
System control commands
purpose 29 to 30
summary descriptions 239
Systems Network Architecture. see SNA
T
TAB operator
exception conditions 115
output spacing 113
Table A 327, 349
Table B
updates within FER loop 157
Table B search 58, 66, 69
Table C
using the KEY attribute 883
Table C search 58
Table C searches
NUMERIC RANGE attribute 884
Table D, procedure storage 241
Table E
storing Large Object data 309
Tables, code search 736
TAG fields
default base-color 583
default extended-color 583
TAG option, for screens 604 to 605
TAG statement
purpose 616
QTBL 566
syntax of 708
Tagged screen items 616
Tangent, computation of 862
TBL - FSCB error global value
FSCB too small 634
TBL - NTBL error global value
NTBL too small 634
TBL - QTBL error global value
QTBL too small 634
TBL - STBL error global value
STBL too small 634
TBL - VTBL error global value
VTBL too small 634
TCP/IP
and z/VSE 485
defining links, processes, and process groups 486
TCP/IP Sockets Interface calls
ACCEPT 487
BIND 487
CANCEL 488
client example 505
CLOSE 489
CONNECT 489
GETHOST 496
GETINFO 498
GETSOCKOPT 497
INIT 490
LISTEN 490
READ 491
REGISTER 492
SELECT 492
SETSOCKOPT 498
SHUTDOWN 494
SOCKET 494
TERM 495
WRITE 495
TCP/IP Sockets Interface for Model 204
limitations to 506
using with Horizon links 485
Web enabling Model 204 483
TCPNAME parameter
for z/VSE 486
TEMP option, OPEN and OPENC statement 330
Temporary groups 324
error global code 633
error global field code 633
Temporary procedure creation 723
Temporary variables 6
TERM call
closes open sockets and interface 495
Terminal access 367 to 396
Terminal display attributes
basic 582
color 583
highlighting 582
Terminal emulators
modifying color mappings 583
Terminal I/O
HNG error code 634
HRD error code 634
SFT error code 634
TERMINAL option
CLOSE statement 397
OPEN statement 400
READ IMAGE statement 404
WRITE IMAGE statement 408
TERMINAL parameter, DEFINE PROCESSGROUP command 419
Terminals, line-at-a-time 623
TEST command 644, 659
TEST RECEIPT statement, Horizon facility 470
TEST statement, syntax 708
TEST SUBSYSTEM command 659
The 211
thread synchronization
programming 482
threads
implementing signaling 479
implementing synchronization 479
programming synchronization 480
released from waiting 481
signaling and synchronization 479
User Language programs synchronizing 481
waiting for an ECB 810
Time, in headers 117
TIMEOUT parameter, DEFINE PROCESS command 459
TITLE fields
default base-color 583
default extended-color 583
TITLE option
menus 594
screens 614, 615
TITLE statement
AT, TO, LEN, and DP options 589
DEFAULT option 589
line-at-a-time terminals 624
menus 588 to 589
PRINT option 589
READ option 589
REREAD option 600
syntax details 599
syntax of 708
TO option
binary items 380
exponential notation items 385
FOR EACH RECORD (FR) statement 85
menus 589, 590 to 591, 594
output spacing 113 to 116, 515, 516
packed decimal items 382
PRINT statement 110
range of records 53
range of values 142 to 143, 146
screens 601 to 602, 614, 615
string items 378
zoned decimal items 383
TO phrase, in index loops 207
TPROCESS facility 417 to 444
CICS 423 to 436
CMS 436 to 444
conversation 417
error handling for TPROCESS statements 422
User Language interface 417 to 423
Trailers, page 120
Transaction backout
application design considerations 682 to 685
automatic 680
file types 678
log 683
manual 681 to 682
types 680
Transaction, defined 675
Transfer Control facility 445 to 467
CICS 445 to 448
introduced 415
VTAM 448 to 467
TRANSFER CONTROL statement
syntax for 708
TRANSFER statement 445 to 451
purpose 446
QTBL 566
TRANSPARENT argument for $READ 817
Truncation of FIXED %variables on assignment 172
Trust levels, defined 655 to 656
Trusted login
definition of 451
Trusted transfer 452 to 457
TTBL table 567
TURQUOISE display attribute
in screens 582
DEFAULT 695
U
UDDCCC parameter 826
UDDLPP parameter 826
UIDSOURCE parameter, DEFINE PROCESS command 453
Unconditional inclusion of procedures 244 to 247
UNDERSCORE attribute
in screen display 582
UNIQUE field attribute
$UNQREC function 838
$UPDSTAT function 841
contrasted to AT-MOST-ONE attribute 882
defined 884
ensuring only one occurrence of a field value 884
Universal Buffer
current size 726
holding how much data 727
in READ IMAGE statement 403
transporting Large Object data 68
Unknown arrays 390
UNKNOWN length for image items
binary items 380, 381
exponential notation items 385
floating point items 383
packed decimal items 382
string items 378
zoned decimal items 383
UNKNOWN occurrences 380
Unordered files
defined 11
deleted records 314
unposting an ECB 481
timing of 480
while waiting 481
UNPROTECTED attribute
default TAG attribute 605
in screen display 582
UNPROTECTED display attribute 589, 595, 604, 612
UNSIGNED argument for $PACK 808
UNSIGNED option
binary items 380
packed decimal items 382
zoned decimal items 383
UPCASE option, for screens 602
UPDATE AT END field attribute 517, 524
defining type of field update 885
Update file, group 336, 361
UPDATE IN PLACE field attribute 517, 524, 885
UPDATE RECORD statement
PQO DML 888
remote context 361
Update statements for remote files 357
Update units 679 to 680
Updating indexes immediately
NON-DEFERRABLE attribute 884
UPDTFILE parameter 325, 337
upper/lowercase
pairs 797
URC parameter
definition of 473
URCTYPE parameter
and z/OS 475
and z/VM 477
USE command
PRINT SCREEN statement 614
purpose 123
User final and partial statistics, determining 829
User ID 718
User identification 842
User Language function
$LOBRESERVE 797
User Language functions
$BUFFER_SIZE 726
$BUFFER_USED 727
$EBCDIC 756
$LOBLEN 80, 796
$LOBRESERVE 80
$SOCKET 486
$SOCKETX 496
$SUBSYS 832
User Language interface, TPROCESS facility 417 to 423
User Language programming
thread synchronization 481
User Language statements
INSERT 529
PAI INTO 103
User Language/DATABASE 2 Interface 4
User restart 14
User's return code 471
USERID parameter, TRANSFER statement 449
user-written $functions
changes required in Version 5.1 717
User-written functions 272
UTABLE command 560, 573, 578
and the command line global variable 630
V
Validating input in full screen formatting 580
VALUE IN clause
value set processing 31, 137
VALUE IN clause processing
rewriting applications with nested loops 32, 138
VALUE IN clauses
program example 138
VALUE IN phrase
%variables 184
FOR EACH RECORD statement 87
multiply occurring fields 519
NOTE statement 97, 98
Parallel Query Option/204 889
PRINT statement 101
purpose and example 315
syntax of 709
with FEO loops 523
Value loops
creating control breaks 149
efficient value retrievals 145 to 147
FRV or ORDERED attribute 137
processing a sample of values 144 to 145
purpose and example 139
simulating 150 to 151
sorting retrieved values 140 to 142
specifying pattern retrievals 143
specifying range retrievals 142 to 143
Value ranges
implicitly specified 86
specifying in FOR EACH RECORD processing 85
Value retrievals
efficient 145 to 147
processing a sample of values 144 to 145
sorting 140 to 142
specifying pattern retrievals 143
specifying range retrievals 142
Variables
see alsofield name variables, global variables
variables 584
defining one for common use 229
VARIABLES ARE statement
purpose 163
syntax of 708
VARIABLES ARE UNDEFINED statement 163
Variables.see %variables
variant characters
truncated 794
VDP parameter 163
VERIFY option for screens 607
Video display terminal
standard size 581
VIEW command 322
VISIBLE attribute
default TAG attribute 605
for screen display 582
VISIBLE display attribute 589, 604
VISIBLE field attribute
mandatory usage 884
VLEN parameter 163, 187
VSAM file access 367, 368, 395 to 396, 404
VTAM
APPL statement 449
returning network ID 820
Transfer Control facility 448
VTBL table 568 to 570
error global code 634
VTYPE parameter 163
W
WAIT FOR RECEIPT statement, Horizon facility 470
WAIT statement, syntax 709
waiting on an ECB
scope of 480
WHERE option
FOR EACH RECORD (FR) statement 81 to 83
optimization using patterns 83
WHITE display attribute
in screens 582
Wildcard pattern character 63, 822
Wildcards
$DELG function 753
WITH CURSOR option 614, 615
WITH operator 179
WITH operator, for output spacing 112 to 113
WITH option
FOR EACH RECORD (FR) statement 81 to 83
optimization using patterns 83
screens 605
Work area tables 560
Work areas, user 170
WRITE call
sending data 495
WRITE IMAGE statement
purpose 407 to 408
syntax of 709
Writing queries
request structure 3
X
XFER global variable 630, 631
Y
YELLOW display attribute
in screens 583
YY date format
2-digit year 738
YYYY date format
4-digit years 738
Z
z/OS
and URCTYPE keyword 475
location of ZFIELD image 799
z/VM
and URCTYPE parameter 477
location of ZFIELD image 799
z/VSE
location of ZFIELD image 799
z/VSE operating system
and TCP/IP 485
ZFIELD image
for $FDEF and $LSTFLD functions 775, 799
locating 799
Zoned decimal item definition 382 to 383