开云体育

ctrl + shift + ? for shortcuts
© 2025 开云体育
  1. H390-Vm
  2. Messages
Single Messages Topics Expanded Polls

Re: CMS BREXX Question #VMCE

 

On Sun, Sep 29, 2024 at 03:29 PM, Martin Scheffler wrote:
I am trying to improve that situation ... but play with the beast please.
Here's a QUERY DISK based on your LISTFILE.

type QDISK EE D
?
/* REXX */
?
address "COMMAND" "SENTRIES"
stacked_old = rc
address "COMMAND" "MAKEBUF"
new_buffer_id = rc
?
address "COMMAND" "QUERY DISK * ( FIFO"
rc_listfile = rc
if rc_listfile <> 0 then do
? address "COMMAND" "DROPBUF" new_buffer_id
? exit rc_listfile
end
?
address "COMMAND" "SENTRIES"
stacked_new = rc
address "EE" "X QDISK ? ?LISTING A1"
address "EE" "EXTRACT line"
line_old = line.1
do i = 1 to stacked_new-stacked_old
? parse pull from_listfile
? address "EE" "INPUT" ?from_listfile
end
address "COMMAND" "DROPBUF" new_buffer_id
?
address "EE" "LOCATE :"line_old
exit rc_listfile
?
Ready; T=0.01/0.01 19:08:29
?
?... Mark S.
Join [email protected] to automatically receive all group messages.