* 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 ,