# jCL PQ-RESELECT

Updated: 10/23/2020, 1:48:27 PM
Created: 10/23/2020, 1:48:27 PM
Last Updated By: Mike Street
Read Time: 1 minute(s)

# Description

This command when executed from a jCL  program, resets the pointer of a specified select register to the beginning of the list of record keys. It takes the general form:

PQ-RESELECT  register-number
1

where register-number is the number (1 to 5) of the select register to be reset.

# Note

This command is executed from the primary output buffer to reset the pointer of a specified select register back to the beginning of the list. Each time the "!" reference is used to retrieve a value from the list, the value is not destroyed. The pointer is simply advanced to the next parameter in the list. PQ-RESELECT resets the pointer back to the beginning of the list so that another pass may be performed.

PQ-RESELECT cannot be executed directly from the shell.

An example of use may be as:

HSELECT SALES
STON
HPQ-SELECT  1
PH
MV %1 !1
IF # %1 XNo records selected
HPQ-RESELECT 1
PH
10 MV %1 !1
IF # %1 XFinished
...
GO  10
1
2
3
4
5
6
7
8
9
10
11
12

Back to jCL.