//TOKCREAT JOB 666001,'LIONEL DYCK',CLASS=V,NOTIFY=&SYSUID, // MSGLEVEL=(1,1),MSGCLASS=X //HOLD OUTPUT JESDS=ALL,DEFAULT=Y,OUTDISP=(HOLD,HOLD) //* -------------------------------------------------------------- //* Sample JCL to create a system name/token pair //* -------------------------------------------------------------- //CODE EXEC PGM=TOKCREAT,REGION=2M //STEPLIB DD DISP=SHR,DSN=SYSLBD.LIONEL.LOAD //TOKIN DD * * * START THE TOKEN VALUE ON THE 2ND * A#.CODE1 SYSTEMS PROG //* -------------------------------------------------------------- //* Sample JCL to read system name/token information //* -------------------------------------------------------------- //TOKGET JOB 666001,'LIONEL DYCK',CLASS=V,NOTIFY=&SYSUID, // MSGLEVEL=(1,1),MSGCLASS=X //HOLD OUTPUT JESDS=ALL,DEFAULT=Y,OUTDISP=(HOLD,HOLD) //GETTOK EXEC PGM=TOKGET,REGION=2M //STEPLIB DD DISP=SHR,DSN=SYSLBD.LIONEL.LOAD //TOKIN DD * A#.CODE0 A#.CODE1