* Program: TOKGET
*          non-authorized
*
* Name/Token info is read from TOKIN DDname and token is read from the name/token
* pool and echoed to the console.
*
* Author:  Lionel B. Dyck
*          Kaiser Permanente Information Technology
*          25 N. Via Monte Ave
*          Walnut Creek, Ca 94598
*          e-mail: lionel.b.dyck@kp.org
*
TOKGET   CSECT                                                                  
TOKGET   AMODE 31                                                               
TOKGET   RMODE 24                                                               
         BAKR  R14,R0                                                           
         LR    R12,R15                                                          
         USING TOKGET,R12                                                       
         LOAD  EP=IEANTRT                                                       
         ST    R0,IEANTRT                                                       
         OPEN  TOKIN                                                            
GETTOKEN GET   TOKIN                                                            
         LR    R5,R1                                                            
         MVC   NAME,0(R5)                                                       
         L     R15,IEANTRT                                                      
         CALL  (15),(LEVEL,NAME,TOKEN,PERSOPT,RETCODE)                          
         MVC   WTONAME,NAME                                                     
         MVC   WTOTOKEN,TOKEN                                                   
         LA    R1,WTOA                                                          
         SVC   35                                                               
         B     GETTOKEN                                                         
EXIT     DS    0H                                                               
         CLOSE TOKIN                                                            
         DELETE EP=IEANTRT                                                      
         PR                                                                     
         EJECT                                                                  
         YREGS                                                                  
         EJECT                                                                  
         IEANTASM                                                               
         LTORG                                                                  
IEANTRT  DS    F                                                                
LEVEL    DC    A(IEANT_SYSTEM_LEVEL)                                            
NAME     DS    CL16                                                             
TOKEN    DS    CL16                                                             
PERSOPT  DC    A(IEANT_PERSIST)                                                 
RETCODE  DS    F                                                                
WTOA     DC    AL2(WTOE-WTOA),AL2(0)                                            
         DC    C'TOKEN NAME: '                                                  
WTONAME  DC    CL16' '                                                          
         DC    C'  '                                                            
         DC    C'TOKEN VALUE: '                                                 
WTOTOKEN DC    CL16' '                                                          
WTOE     EQU   *                                                                
TOKIN    DCB   DSORG=PS,RECFM=FB,LRECL=80,DDNAME=TOKIN,EODAD=EXIT,    XXXX      
               MACRF=GL                                                         
         END   ,