This document contains official content from the BMC Software Knowledge Base. It is automatically updated when the knowledge article is modified.
How do I access the results of the MainView AutoOPERATOR CICS QUERY TASK command if more than 23 lines are returned?
The reason for 23 lines is because there are 23 lines to a 3270 screen.
If you have more than 23 Tasks, one possible solution is to pass a parameter to the QUERY command that effectively makes it scroll through the list of tasks.
The sample Exec below shows how to scroll through a task display. In this example you pass a numeric value to the Exec which indicates the amount to scroll. Initially this should default to zero (0).
The second time, a value of 23 should be passed to it, the third time 46, etc. It would also be necessary to build logic that takes into account that a task could have gone away since the last call to query the task display. Also, it would only be necessary to scroll if there were more than 23 lines returned by the query.
/* REXX */
"IMFEXEC SETTGT 'AAOCT21J'"
arg name forward pad
if forward = '.' then
forward = '0'
"IMFEXEC CICS QUERY TASK * * /FWD"FORWARD""
do i = 1 to imfnol
"IMFEXEC VGET LINE"i" LOCAL"
outline = value(LINE||i)
"IMFEXEC MSG '"outline"'"