Willie, If the DSORG value is obtained from the model dataset and passed into CA-Allocate in the ALLOC environment, you could check for DSORG='PO' and DIRBLOCKS=0. If this works, you should be able to set the DIRBLOCKS to whatever value you want. Regards, John
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
