USS Sample - Allocate and read a file under USS!

Sample
USS - Sample

Beispiel:                                 

/* REXX YUSSBSP9 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
x2=syscalls('ON')
/* Allocate and Read a PS */
call bpxwdyn "alloc fi(yveslib) da(YVES.YCOS.BIT64) shr msg(yc.)"
do i=1 to yc.0
  say yc.i
end
address mvs 'execio * diskr yveslib (stem s. finis'
do i=1 to min(s.0,5)
  say s.1
end
call bpxwdyn "free fi(yveslib) msg(yc.)"
do i=1 to yc.0
  say yc.i
end