CAPJOBA Capture Job Attributes

CAPJOBA CAPTURE JOB ATTRIBUTES TAAJOBM
The Capture Job Attributes command and the companion command Return Job Attributes allow you to protect your function from a subprogram which changes the job attributes and then does not change the attributes back. ************************************************** * * * Due to the longer library list function * * in V5R1M0, a data area is no longer used * * to store the job attributes. * * Instead a *USRSPC object is used. * * The parameter name continues as DTAARA. * * * ************************************************** To use CAPJOBA, you must name a data area which will be created in QTEMP. The typical sequence is: CAPJOBA DTAARA(SAV1) CALL PGM(X) RTNJOBA DTAARA(SAV1) The CAPJOBA command uses RTVJOBA to extract all of the job attributes and places them in the named area (now a *USRSPC) in QTEMP. If the User Space does not exist, it is created. The RTNJOBA command extracts the attributes from the User Space and uses CHGJOB and CHGLIBL to reset the attributes to the saved version. If the sub program performs any CHGJOB activity, the higher level program is protected. Some parameters such as TSEPOOL and DEVRCYACN cannot be changed in batch. If RTNJOBA is run in batch, the parameters are ignored. The following RTVJOBA parameters are not reset because they cannot be set by CHGJOB): ACGCDE TYPE RTNCDE ENDSTS SBMMSGQ and SBMMSGQLIB SYSLIBL CURUSER SUBTYP JOBMSGQMX DFTCCSID CYMDDATE DECFMT ASPGRP DATETIME TIMZON TIMZONABBR TIMZONFULL TIMOFFSET THRRSCAFN RSCAFNGRP CAPJOBA command parameters *CMD -------------------------- DTAARA The name of the User Space in QTEMP to be used (prior to V5R1M0 a *DTAARA was used). If the User Space does not exist, it is automatically created. The length is 5000 bytes. RTNJOBA command parameters *CMD -------------------------- DTAARA The name of the User Space in QTEMP to be used (prior to V5R1M0 a *DTAARA was used). It must be at least 5000 bytes in length and must and have been filled by the CAPJOBA command. Prerequisites ------------- The following TAA Tools must be on your system: SNDCOMPMSG Send completion message Implementation -------------- None, the tool is ready to use. Objects used by the tool ------------------------ Object Type Attribute Src member Src file ------ ---- --------- ---------- ---------- CAPJOBA *CMD TAAJOBM QATTCMD RTNJOBA *CMD TAAJOBM2 QATTCMD TAAJOBMC *PGM CLP TAAJOBMC QATTCL TAAJOBMC2 *PGM CLP TAAJOBMC2 QATTCL Structure --------- CAPJOBA Cmd TAAJOBMC CL RTNJOBA Cmd TAAJOBMC2 CL


CAPJOBA CAPTURE JOB ATTRIBUTES TAAJOBM
The Capture Job Attributes command and the companion command Return Job Attributes allow you to protect your function from a subprogram which changes the job attributes and then does not change the attributes back. ************************************************** * * * Due to the longer library list function * * in V5R1M0, a data area is no longer used * * to store the job attributes. * * Instead a USRSPC object is used. * The parameter name continues as DTAARA. * * * ************************************************** To use CAPJOBA, you must name a data area which will be created in QTEMP. The typical sequence is: CAPJOBA DTAARA(SAV1) CALL PGM(X) RTNJOBA DTAARA(SAV1) The CAPJOBA command uses RTVJOBA to extract all of the job attributes and places them in the named area (now a USRSPC) in QTEMP. If the User Space does not exist, it is created. The RTNJOBA command extracts the attributes from the User Space and uses CHGJOB and CHGLIBL to reset the attributes to the saved version. If the sub program performs any CHGJOB activity, the higher level program is protected. Some parameters such as TSEPOOL and DEVRCYACN cannot be changed in batch. If RTNJOBA is run in batch, the parameters are ignored. The following RTVJOBA parameters are not reset because they cannot be set by CHGJOB): ACGCDE TYPE RTNCDE ENDSTS SBMMSGQ and SBMMSGQLIB SYSLIBL CURUSER SUBTYP JOBMSGQMX DFTCCSID CYMDDATE DECFMT ASPGRP DATETIME TIMZON TIMZONABBR TIMZONFULL TIMOFFSET THRRSCAFN RSCAFNGRP CAPJOBA command parameters CMD -------------------------- DTAARA The name of the User Space in QTEMP to be used (prior to V5R1M0 a DTAARA was used). If the User Space does not exist, it is automatically created. The length is 5000 bytes. RTNJOBA command parameters CMD -------------------------- DTAARA The name of the User Space in QTEMP to be used (prior to V5R1M0 a DTAARA was used). It must be at least 5000 bytes in length and must and have been filled by the CAPJOBA command. Prerequisites ------------- The following TAA Tools must be on your system: SNDCOMPMSG Send completion message Implementation -------------- None, the tool is ready to use. Objects used by the tool ------------------------ Object Type Attribute Src member Src file ------ ---- --------- ---------- ---------- CAPJOBA CMD TAAJOBM QATTCMD RTNJOBA CMD TAAJOBM2 QATTCMD TAAJOBMC PGM CLP TAAJOBMC QATTCL TAAJOBMC2 *PGM CLP TAAJOBMC2 QATTCL Structure --------- CAPJOBA Cmd TAAJOBMC CL RTNJOBA Cmd TAAJOBMC2 CL

Added to TAA Productivity Tools April 1, 1995

Home Page

Last modified on January 12, 2010