/* rexx */
address TSO
"ALLOC FI(STEPLIBX) DA('XTRNEDU.OPCVIEW.SQQ2LMD1'",
               "'DB3A.SDSNEXIT'",
               "'DB3A.SDSNLOAD'",
               ") SHR REUSE"
/*                                                        */