zOs/REXX/EXPUSH

/* rexx */
parse arg sys
say 'adrDsn sys' sys  'drei lifo sechs lifo'
push 'push 1'
queue 'queue2'
address tso 'execio * diskr drei (lifo open finis)'
push 'push 4'
queue 'queue5'
address tso 'execio * diskr sechs (lifo open finis)'
push 'push 7'
queue 'queue 8'
/*
address tso 'execio * diskr dsnin (lifo open finis)'
queue 'END queue'
address tso 'alloc dd(eins) shr ddName(dsnIn)'
say 'alloc rc' rc
address tso 'execio * diskr eins (lifo open finis)'
*/
do while queued() > 0
    parse pull eins
    say 'pulled' eins
    end
say 'exiting'
exit
address tso 'DSN SYSTEM('sys')'
say 'rc' rc
exit