eTrust CA-Top Secret Security for z/OS and OS ... - SupportConnect

HFSSEC Control OptionStep 5—Run REXX exec to execute the commands in the data set.Example 3/* REXX *//*This EXEC will have as input a dataset name and will readthat dataset and issue the TSS commands in it.*/arg dsn . /* get data set name */if dsn = '' then dsn = '????.?????.????''ALLOC FI(PERMIN) DS('''dsn''') SHR REUSE VOL(??????)'eof = 'no'do while eof = 'no''execio 1 diskr PERMIN'if rc = 2then doeof = 'yes'endelse dopull recordsay 'Record is: ' recordrecordendend'execio 1 diskr permin ( finis''FREE FI(PERMIN)'exit 02–26 Cookbook