ISV Ecosystem

ISV Ecosystem

ISV Ecosystem

Engage with the community of IBM Z and LinuxONE independent software vendors: share knowledge, exchange ideas, explore innovation.

 View Only

  • 1.  Example of DD statement for a spanned variable block

    Posted 08/14/23 06:37 AM

    I have try several attempts to build a working DD statement using spanned variable block with no success.  Does anyone have a good example? 



    ------------------------------
    [Bob] [Biggs]
    [Expert Systems Engineer]
    [Altera Digital Health - Ventus]
    [Alpharetta] [GA]
    [770-355-7022]
    ------------------------------


  • 2.  RE: Example of DD statement for a spanned variable block

    Posted 08/15/23 01:45 AM

    I use this for my SMF VBS datasets:

     

    //DUMP EXEC PGM=IFASMFDP,COND=(0,NE)                                

    //SMFDD1  DD DISP=SHR,DSN=SYS1.MAN1                                 

    //SMFDD2  DD DISP=SHR,DSN=SYS1.MAN2                                 

    //SMFDD3  DD DISP=SHR,DSN=SYS1.MAN3                                 

    //DUMPOUT DD DISP=(NEW,CATLG,DELETE),LRECL=32760,BLKSIZE=0,RECFM=VBS,

    // SPACE=(CYL,200,RLSE),                                            

    // DSN=BOXWELL.SMFUNLD                                              

    //SYSPRINT DD SYSOUT=*                                              

    //SYSIN    DD DATA                                                   

      END(2400)                                                         

      START(0000)                                                       

      DATE(1900000,2099366)                                             

      OUTDD(DUMPOUT,TYPE(102:102))                                      

      INDD(SMFDD1,OPTIONS(DUMP))                                        

      INDD(SMFDD2,OPTIONS(DUMP))                                         

      INDD(SMFDD3,OPTIONS(DUMP))                                        

    /*                                                                  

     

     

     

    Roy Boxwell

    SOFTWARE ENGINEERING GmbH and SEGUS Inc.
    -Product Development-

     

    ibm-champion-2023 email

    Vagedesstrasse 19
    40479 Dusseldorf/Germany
    Tel. +49 (0)211 96149-675
    Fax +49 (0)211 96149-32
    Email:     R.Boxwell@seg.de
    Web  http://www.seg.de

    Link zur Datenschutzerklärung


    Software Engineering GmbH
    Amtsgericht Düsseldorf, HRB 37894
    Geschäftsführung: Gerhard Schubert, Ulf Heinrich

     






  • 3.  RE: Example of DD statement for a spanned variable block

    Posted 08/15/23 09:52 AM

    On disk, as long as the LRECL doesn't go over 32761, it's like this: 

    //VBSFILE   DD DISP=(,CATLG),UNIT=3390,SPACE=(CYL,(1,1),RLSE), 
    //             DCB=(RECFM=VBS,LRECL=31000,BLKSIZE=10000),      
    //             DSN=<dsn>

    Where BLKSIZE must be less than the largest block for the device.
    LRECL larger than that is a mystery to me.  There is JCL syntax where you can specify larger LRECL (e.g. LRECL=60K), but I don't know how to write or read a file with an LRECL that large.  The only doc I found refers to ISO/ANSI tapes.   If you create a disk dataset with LRECL=60K, LISTDS shows LRECL=60.    Could others chime in?


    ------------------------------
    Dave Crow
    ------------------------------



  • 4.  RE: Example of DD statement for a spanned variable block

    Posted 08/21/23 09:49 AM

    From the JCL Reference Gd.:

    LRECL=X
    For QSAM only, specifies that the logical record length exceeds 32,760 bytes for
    variable-length spanned records. This option is not valid for ISO/ANSI/FIPS
    Version 3 variable-length records.



    ------------------------------
    Mike Brauweiler
    Consulting Systems Engineer
    Mainline Information Systems
    Tallahassee FL
    6302094905
    ------------------------------

    Original Message