Re: COBOL record length on z/series

On 6/19/2007 at 5:12 AM, in message
<1182251542.305800.190300@xxxxxxxxxxxxxxxxxxxxxxxxxxx>,
Lovelin<lovelin@xxxxxxxxx> wrote:
Hi,

The system which I am working on uses a variable record length with
max of x'7E00' (32256 Bytes). There are about 2 Million of these
transactions loaded on VSAM files used for Random Access from Batch
and CICS. Also these transactions are stored on PS files for
processing and later moved to Tape when they are complete.

Spanned records also have a max of 32K. They just let us use a smaller
block size for devices that do not support 32K blocks.

A. In case of possible expansion, I need to be aware of any possible
method of expanding the record and reduce cost of the system change.
B. These are transactions. Used in Batch Cobol & Assembler, Online
CICS and DB2 Batch Applications. (Nothing Fancy)

On z/VSE, in any case, it is definitely possible to create a record > 32K.
Take the following example:

// EXEC IDCAMS,SIZE=AUTO
DEFINE -
CLUSTER( -
NAME(FJS.ESDS.SPANNED) -
NONINDEXED -
VOL(FB32EE ) -
SHR(2 3) -
REUSE -
) -
DATA( -
NAME(FJS.ESDS.SPANNED.DATA) -
RECSZ(032758 065526) -
SPANNED -
CYL(01 01) -
SPEED -
) -
CAT(DEV.PGMRCAT PGMRCAT) -
;

I then used the following program to write a large (40,000 bytes) record to
it:
IDENTIFICATION DIVISION.
PROGRAM-ID. SPAN.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT SPANNED-FILE
ASSIGN TO AS-SPANNED
FILE STATUS IS FILE-STATUS.

DATA DIVISION.
FILE SECTION.
FD SPANNED-FILE
RECORD VARYING FROM 1 TO 65526 CHARACTERS
DEPENDING ON SPAN-LEN.
01 SPANNED-RECORD.
05 PIC X OCCURS 1 TO 65526 DEPENDING ON SPAN-LEN.

WORKING-STORAGE SECTION.
77 FILE-STATUS PIC XX.
77 SPAN-LEN PIC 9(8) COMP.

PROCEDURE DIVISION.
DECLARATIVES.
SPANNED-FILE-ERROR SECTION.
USE AFTER ERROR PROCEDURE ON SPANNED-FILE.
SPANNED-FILE-ERROR-START.
DISPLAY 'ERROR ON SPANNED: ' FILE-STATUS
UPON CONSOLE
STOP RUN.
END DECLARATIVES.

MAINLINE SECTION.
OPEN OUTPUT SPANNED-FILE
MOVE 40000 TO SPAN-LEN
MOVE ALL 'X' TO SPANNED-RECORD
WRITE SPANNED-RECORD
CLOSE SPANNED-FILE
GOBACK.

END PROGRAM SPAN.

It worked fine. Not sure if there's something I'm missing, or am I sure if
this works for z/OS (rather than z/VSE), but...

Frank

.

Relevant Pages