zOs/JCL/EXALLOC

//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*--- alloc tmp library --------------------------------------------
//DEL      EXEC PGM=IEFBR14
//LIB        DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.LIB
//VBS        DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.VBS
//VBSTSO     DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.VBSTSO
//ALLOC    EXEC PGM=IEFBR14
//* ------------------------- alloc a new temporary library -----------
//LIB        DD DISP=(MOD,CATLG,CATLG),DSN=*.DEL.LIB,
//             DATACLAS=UN0000E0,MGMTCLAS=BAT#AT,DSNTYPE=LIBRARY,
//             DCB=(RECFM=FB,LRECL=80,DSORG=PO),SPACE=(CYL,(1,10))
//* ------------------------- alloc a spanned vbs dataset -------------
//*                           like utility unload spanned yes
//VBS        DD DISP=(NEW,CATLG),DSN=*.DEL.VBS,
//             MGMTCLAS=COM#E005,DATACLAS=NULL30,
//             DCB=(RECFM=VBS,DSORG=PS,BLKSIZE=27998,LRECL=X),
//             SPACE=(CYL,(1,50))
//*            ispf shows the following which is illegal
//*            DCB=(LRECL=32768,BLKSIZE=27998,RECFM=VBS,DSORG=PS),
//VBSWSH  DD *
$#@
$**            alloc with tso also works with x
call dsnalloc 'A540769.TST.EXALLOC.VBSTSO' ,
              ': recfm(v b s) lrecl(x) BLKSIZE(27998)'