Input Modules › Processing Spanned Records—z/VSE (CULSPAN) › Helpful Hints

Helpful Hints

• z/OS users can read spanned records by specifying RECFM=VBS and BFTEK=A subparameters in the JCL statement that defines the input file.

  //SYS010   DD   DSN=user.inputfil,UNIT=tape,DISP=SHR,
                  VOL=SER=nnnnnn,
                  DCB=(RECFM=VBS,BFTEK=A,LRECL=256,BLKSIZE=3156)
  
   user.inputfil = data set name for primary input file
   tape         = symbolic device name for tape file
   nnnnnn      = volume serial number
  

• Spanned records are not supported for z/VM.

Example

This sample code shows the COBOL source code and the CA Culprit INPUT parameter needed to read spanned input records in a z/VSE environment.

In the following code:

• The spanned-file is assigned to SYS010 in the COBOL source code FILE-CONTROL section.
• SYS010 is a CA Culprit default and does not have to be specified in the CA Culprit code.
• Record size ranges from 187 to 339 characters.
• Block size is 2000 characters.

The modified COBOL source code:

                  .
                  .
                  .

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SPANNED-FILE ASSIGN TO SYS010-UT-3420-S.

       DATA DIVISION.

       FILE SECTION.
       FD  SPANNED-FILE
           BLOCK CONTAINS 2000 CHARACTERS
           LABEL RECORD IS LABEL-RECORD
           RECORD CONTAINS 187 to 339 CHARACTERS
           RECORDING MODE IS S
           DATA RECORD IS SPANNED-RECORD.
       01  LABEL-RECORD                 PIC X(80).
       01  SPANNED-RECORD           PIC X(339).
                  .
                  .
                  .

The CA Culprit code:

Col
2
▼
IN 339 V 2000 UM(CULSPAN)