$QLOC

When $QLOC is used outside the JES2 maintask, there is a need to access the checkpoint using a checkpoint version (a copy of the current checkpoint in a data space). You must obtain the IAZDSERV data area, which describes the checkpoint version, prior to invoking the $QLOC service. Use a $DSERV GET call to do so. See "Accessing checkpoint control blocks outside the main task" for a typical coding example.

Figure 1. Typical $DSERV call when obtaining a job queue element with $QLOC

USING DSERV,Rx

$DSERV FUNC=GET,           Access a copy of the checkpoint data
   ERRET=xxxxxx
LR    Rx,R1
:
$QLOC  ... ,
   JOBNUM=JQEJOBNO_R4,
   DSERV=DSERV
   :
process JQE data
:

$DSERV FUNC=FREE,DSERV=DSERV

DROP  Rx