Re: How the determine dataset is PDSE

[Tim Deller]

Here is a sample of checking for PDSE;
MOVEPRM  MVC   DSN,PARM                         
         EX    R1,MOVEPRM                       
         LOCATE NAME                            
         LTR   R15,R15                          
         BNZ   RC6                              
         OBTAIN DSCB                            
         LTR   R15,R15                          
         BNZ   RC7                              
         LA    R2,DSN                           
         USING DSCB1,R2                         
         TM    DS1DSORG,DS1DSGPO  IS IT A PDS?  
         BO    RC0                YES..DONE     
         TM    DS1SMSFG,DS1PDSE   IS IT A PDSE? 
         BO    RC0                YES..DONE     
                           
*                                               
NAME     CAMLST NAME,DSN,,LOCAREA               
LOCAREA  DC    34D'0'

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN