*                                                                    
* Sample code to retrieve a Home Level Name/Token pair's Token       
*                                                                    
         MVC   DSA_NTKP(C_NTKPL),C_NTKP                              
         MVC   DSA_NTKPIDC,=CL4'NTKP'                                
         MVC   DSA_NTKPIDL,=CL1'1'                                   
         MVC   DSA_NTKPMODN,=CL8'yourpgm'                            
         MVC   DSA_NTKPNAME(16)=cl16'name_of_token'  
         MVC   DSA_NTKPLCODE,=AL2(C_NTKPHLEV)   Set home level 
         MVC   DSA_NTKPASID(2),=al2(your-asid)  <- if home or task                      
..                                                                   
         L     R2,DSAABDPL                Locate ABDPL               
         L     R15,ADPLSERV-ABDPL(R2)     Locate IPCS service routine
         CALL  (15),((2),=A(ADPLSNTK),DSA_NTKP),MF=(E,DSAParm)       
         LA    R1,DSA_NTKPTOKN            Set r1 to returned token   
..                                                                   
C_NTKP   BLSQNTKP DSECT=NO                                           
C_NTKPL  EQU    *-C_NTKP                                             
..                                                                   
DSA_NTKP BLSQNTKP DSECT=NO