'CBL' allows compile options to be placed in code
CBL XOPT - the XOPT identifies the options as CICS translation options.
What does XOPT(SP) specify?
SP must be specified for application programs that contain special (SP) CICS commands or the program will be rejected at translate time. These commands are ACQUIRE, COLLECT, CREATE, DISABLE, DISCARD, ENABLE, EXTRACT, INQUIRE, PERFORM, RESYNC, and SET.
Use OUTDD if you want run-time DISPLAY output on a data set other than SYSOUT.
UBOC Default Compile Options
Bold items have a performance impact. Underline items are the recommended setting for performance.
COBOL for OS/390 and VM
Specify the BLOCK CONTAINS 0 clause for new files and omit the BLKSIZE parameter in your JCL.
Binary - use the SYNCHRONIZED clause. use signed data items with eight or fewer digits
Packed Decimal (COMP-3) use a signed data item with an odd number of digits.
Overall, 17 digit or less Binary data types are much faster for mathematical functions that packed decimal or display. Packed decimal is faster than display. Over 17 digits, use packed decimal.
indexes to address a table is more efficient than using subscipts.
When using subscripts to address a table, use a binary signed data item with eight or fewer digits (if possible use 4 digits (halfword)..
Occurs Depending On
Occurs depending on data items should be binary.
Loop Control
Use binary for loop control. Significantly faster than COMP-3 or Display
INPUT records.
Define with the RECORD IS VARYING IN SIZE statement
The RECORD IS VARYING IN SIZE clause allows us to specify that a file
contains variable length records. The syntax diagram for this clause is
shown below.
RECORD IS VARYING IN SIZE
FROM <integer1> to <integer2> +-CHARACTERS-+
DEPENDING ON +-<data field>-+